+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكنني إدراج رسالة تأكيد الحذف في مشروع دلفي (/showthread.php?tid=7408)
كيف يمكنني إدراج رسالة تأكيد الحذف في مشروع دلفي - فارس المطر - 16-01-2016
السلام عليكم
المشروع = برنامج بدلفي
SQL server ; ADOtable
كيف يمكنني ادراج في مشروعي رسالة تأكيد الحذف من جدول قاعد ة بيانات
عندما أريد حذف بيانات تطلع لي رسالة تعلمني عن تأكيد الحذف
شكرا لكم تم التوصل الى حل برمجي
RE: كيف يمكنني إدراج رسالة تأكيد الحذف في مشروع دلفي - Mr.DOS - 16-01-2016
سلام عليكم
موجود الحدث BeforDelete للجدول المحدد
PHP كود :
if messageDlg('هل تريد بالفعل حدف السجل ؟ ',MtInformation,[MbOk,MbCancel],0)=mrOk then
showmessage('تم حدف السجل المحدد');
او الحدث afterDelete للجدول المحدد
كود :
showmessage('تم حدف السجل المحدد');RE: كيف يمكنني إدراج رسالة تأكيد الحذف في مشروع دلفي - awatef98 - 17-01-2016
يمكنك ان تكتب ايضا التعليمة التالية :
procedure Tform1.button3click )sender:Tobject(;
begin
if application .MessageBox
('هل تريد الحذف,'تاكيد الحذف'MB-Okcance1) =
Id.ok then
begin adotable1.delete end;
التعليمة if اكتبها كاملة في سطر واحد