السلام عليكم
لكود الاتي الخاص بتفريغ جدول ضمن قاعدة بيانات ابسوليت
الكود يعمل عادي لكن بدون تنبيه لتفادي الاخطاء لو نقر زر الحذف بالخطأ
كيف بتعديل الكود حيث يقوم بارسال رسالة تنبيه قبل الحذف وفي حالة الالغاء لايفعل شيء وفي حالة التاكيد على الحذف يقوم بتفريغ الجدول المقصود وشكرا
في انتظار ردودكم تقبلوا تحياتي
لكود الاتي الخاص بتفريغ جدول ضمن قاعدة بيانات ابسوليت
الكود يعمل عادي لكن بدون تنبيه لتفادي الاخطاء لو نقر زر الحذف بالخطأ
كيف بتعديل الكود حيث يقوم بارسال رسالة تنبيه قبل الحذف وفي حالة الالغاء لايفعل شيء وفي حالة التاكيد على الحذف يقوم بتفريغ الجدول المقصود وشكرا
كود :
procedure TForm6.Button2Click(Sender: TObject);
begin
MessageDlg('هل تريد فعلا تفريغ الجدول'),MtWarning,MbOkCancel,O);
Data1.ABSTable2.Close;
Data1.ABSTable2.EmptyTable;
Data1.ABSTable2.open;
end;