+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تفريغ جدول في قاعدة بيانات AbsoluteDB (/showthread.php?tid=8765)
كيف تفريغ جدول في قاعدة بيانات AbsoluteDB - bakhcha - 15-07-2017
السلام عليكم
لكود الاتي الخاص بتفريغ جدول ضمن قاعدة بيانات ابسوليت
الكود يعمل عادي لكن بدون تنبيه لتفادي الاخطاء لو نقر زر الحذف بالخطأ
كيف بتعديل الكود حيث يقوم بارسال رسالة تنبيه قبل الحذف وفي حالة الالغاء لايفعل شيء وفي حالة التاكيد على الحذف يقوم بتفريغ الجدول المقصود وشكرا
كود :
procedure TForm6.Button2Click(Sender: TObject);
begin
MessageDlg('هل تريد فعلا تفريغ الجدول'),MtWarning,MbOkCancel,O);
Data1.ABSTable2.Close;
Data1.ABSTable2.EmptyTable;
Data1.ABSTable2.open;
end;RE: طلب تعديل في كود تفريغ جدول في قاعدة بيانات - أبو معاذ - 15-07-2017
السلام عليكم.
كود :
IF MessageDlg('empty table? ', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
Begin
تضع إجراء التفريغ هنا
endRE: كيف تفريغ جدول في قاعدة بيانات AbsoluteDB - bakhcha - 15-07-2017
![[صورة: 640855495.png]](http://www12.0zz0.com/2017/07/15/09/640855495.png)
الف شكر لك الاخ أبو معاذ عملت بالطريقة المشار اليها من طرفكم لكن للأسف لم تنجح معي والخطأ كما ترونه في الصورة
شكرا من لا يشكر الناس لا يشكر الله
لقد تم ايجاد الحل
وللفائدة
كود :
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;RE: كيف تفريغ جدول في قاعدة بيانات AbsoluteDB - Mustapha29 - 15-07-2017
else
exit;