22-12-2009, 09:48 PM
بفضل نصائحكم وتوجيهاتكم احببت ان ارفع على المنتدى هذا الإنجاز البسيط
وهو عبارة عن كود لإفراغ قاعدة البيانات مع إضافة شروط
وهذ للمبتدئين مثلي ولتعم الفائدة وجزاكم الله عنا كل خير
الله ولي التوفيق
وهو عبارة عن كود لإفراغ قاعدة البيانات مع إضافة شروط
وهذ للمبتدئين مثلي ولتعم الفائدة وجزاكم الله عنا كل خير
كود :
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ArabMessageDlg('هل انت متأكد من انك ترغب بافراغ قاعدة البيانات',mtWarning,mbOKCancel,0)=mrOK then begin
with DM Do begin
ABSTable1.Close;
ABSTable1.EmptyTable;
ABSTable1.Open;
ABSTable2.Close;
ABSTable2.EmptyTable;
ABSTable2.Open;
end;
ArabShowMessage('تمت العملية بنجاح');
end else begin
ArabShowMessage('لقد تم إلغاء عملية إفراغ المعطيات');
end;
end;