delphi4arab منتديات دلفي للعرب

السلام عليكم
لكود الاتي الخاص بتفريغ جدول ضمن قاعدة بيانات ابسوليت
الكود يعمل عادي لكن بدون تنبيه لتفادي الاخطاء لو نقر زر الحذف بالخطأ
كيف بتعديل الكود حيث يقوم بارسال رسالة تنبيه قبل الحذف وفي حالة الالغاء لايفعل شيء وفي حالة التاكيد على الحذف يقوم بتفريغ الجدول المقصود وشكرا

كود :
procedure TForm6.Button2Click(Sender: TObject);
begin
MessageDlg('هل تريد فعلا تفريغ الجدول'),MtWarning,MbOkCancel,O);

Data1.ABSTable2.Close;
 Data1.ABSTable2.EmptyTable;

 Data1.ABSTable2.open;
end;

في انتظار ردودكم تقبلوا تحياتي

السلام عليكم.

كود :
IF MessageDlg('empty table? ', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
Begin
تضع إجراء التفريغ هنا
end

الف شكر لك الاخ أبو معاذ عملت بالطريقة المشار اليها من طرفكم لكن للأسف لم تنجح معي والخطأ كما ترونه في الصورة

شكرا من لا يشكر الناس لا يشكر الله
لقد تم ايجاد الحل
وللفائدة

كود :
procedure TForm6.Button2Click(Sender: TObject);
begin
IF MessageDlg('   هل تريد فعلا تفريغ الجدول نهائيا.؟ ', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
Data1.ABSTable2.Close;
Data1.ABSTable2.EmptyTable;
Data1.ABSTable2.open;

end;
end;

else
exit;

bakhcha

أبو معاذ

bakhcha

Mustapha29