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

السلام عليكم

المشروع = برنامج بدلفي

SQL server ; ADOtable

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

عندما أريد حذف بيانات تطلع لي رسالة تعلمني عن تأكيد الحذف

شكرا لكم تم التوصل الى حل برمجي

سلام عليكم
موجود الحدث BeforDelete للجدول المحدد

PHP كود :
if messageDlg('هل تريد بالفعل حدف السجل ؟ ',MtInformation,[MbOk,MbCancel],0)=mrOk then
showmessage('تم حدف السجل المحدد'); 

او الحدث afterDelete للجدول المحدد

كود :
showmessage('تم حدف السجل المحدد');

يمكنك ان تكتب ايضا التعليمة التالية :
procedure Tform1.button3click )sender:Tobject(;
begin
if application .MessageBox
('هل تريد الحذف,'تاكيد الحذف'MB-Okcance1) =
Id.ok then
begin adotable1.delete end;
التعليمة if اكتبها كاملة في سطر واحد

فارس المطر

Mr.DOS

awatef98