12-08-2010, 10:25 AM
(آخر تعديل لهذه المشاركة: 12-08-2010, 12:45 PM بواسطة Lam.Abdeldjalil.)
و عليكم السلام ورحمة الله
أولا الحدث AfterInsert لا يطلق إلا بعد تنفيذ التعليمتين Insert و Append
أي في حالة إستخدام SQL مثل حالتك لايطلق
ثانيا يوجد خطآن هنا
2 إستدعاء الحدث AfterInsert لا فائدة منه فإذا أردت إظهار الرسالة أضفها مباشرة بعد Refresh
أما إذا أردت التأكد من إتمام الإضافة بنجاح :
إذا لم تظهر رسالة خطأ فإن التسجيل تم إضافته بنجاح
إذا أردت التأكد يدويا توجد عدة طرق أعطيك واحدة
بإفتراضي أن ConstzID هو المفتاح الأساسي عندك و TheaddedCode هو قيمة المفتاح للسجل المضاف
بالتوفيق
أولا الحدث AfterInsert لا يطلق إلا بعد تنفيذ التعليمتين Insert و Append
أي في حالة إستخدام SQL مثل حالتك لايطلق
ثانيا يوجد خطآن هنا
إقتباس :ABSTable1.AfterInsert:= ABSQuery1AfterInsert;1 أي للقراءة فقط ( الجزء الأيسر )
كود :
[Pascal Error] Unit1.pas(96): E2064 Left side cannot be assigned toأما إذا أردت التأكد من إتمام الإضافة بنجاح :
إذا لم تظهر رسالة خطأ فإن التسجيل تم إضافته بنجاح
إذا أردت التأكد يدويا توجد عدة طرق أعطيك واحدة
بإفتراضي أن ConstzID هو المفتاح الأساسي عندك و TheaddedCode هو قيمة المفتاح للسجل المضاف
كود :
ABSQuery1.close;
ABSQuery1.SQL.clear;
ABSQuery1.SQL.add('select * from Constz where ConstzID=TheaddedCode ');
ABSQuery1.open;
If ABSQuery1.IsEmpty then
ShowMessage('no record inserted')
else
ShowMessage('the record is inserted');