كيفية معرفة انه حصل تغيير على Record

table.Modified

if tbl_main.Modified then
if MessageDlg('save data',mtInformation,[mbyes,mbno],0)=mryes then
tbl_main.post;

ان Table.Moified تحصل عندما اضيف سجل جديد او احذف سجل

انا لا اريد هذا

و انما الذي اريده هو عندما يعدل المستخدم على حقل من حقول الجدول اقوم باظهار رسالة الحفظ

مثل حقل اسم الطالب مثلا المعروض في DBEdit فعندما يغير قيمة الحقل اعرف انه حصل تغيير

لو فرضنا بطاقة الطالب تحتوي على الاسم 'وائل' تغيرت الى 'حسان' فهنا اريد ان اعرف انا المستخدم قام بكتابة شيئ

ضمن هذا الRecord

ارجو ان اكون وضحت ما اريد وشكرا لك اخ عروة

ممتاز انك تستخدم DBEdit او Edit مثلا عموما امنع المستخدم من التغيير المباشر من DBGride وذلك بوضع

ٌReadOnly مساويا true

والان اصنع متغيرا عاما من النوع Boolean

var

  flag:boolean;
.  .   .
implementation

والان في الحدث OnChange من الDBEdit

ضع الكود التالي

procedure TForm1.DBEdit1Change(Sender: TObject);
begin
 flag:=true;
end;

و الان في الحدث OnExit من الDBEdit ضع الكود التالي

procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
  if flag=true then
    if MessageDlg('save data',mtInformation,[mbyes,mbno],0)=mryes then
    ADOTable1.Post
    else
    ADOTable1.Cancel;
    flag:=false;
end;

وفي الحدث OnExit من الDBGride

procedure TForm1.DBGrid1Exit(Sender: TObject);
begin
 flag:=false;
end;

جرب الكود ورد خبر

استخدم

beforpost

و

afterpost

أنصح باستخدام AfterEdit للعنصر Table , فهو مضمون وسهل التعامل حيث يكفي ضبط المتحول البولياني مرة واحده ضمنه بدلا من ضبطه في كل dbedit

procedure TForm1.ADOTable1AfterEdit(DataSet: TDataSet);
begin
changed:=true
end;

ممكن الاستفاده من أحداث أخرى مثل onUpdateData لل Datasource أو غيرها

السلام عليكم يا شباب شكراً على المساعدة

الاخ Romanof انا لا استخدم DBBGride في بطاقة الطالب وقد ذكرت انني لا اريد ان احل هذه المشكلة على Onchange

لل DBEdit لانها لا تعمل اذ انه عندما تقوم بتفعيل AdoTable المربوط مع ال DBWareComponents يشتعل الحث OnChange وهذا خطأ بالنسبة لي اذ اريد فقط عندما يغيير المستخدم في احد الحقول ان اقوم بالحفظ عند اغلاق البطاقة

وشكرا لك على محاولة المساعدة

الاخ sal1150 انّ الحدثان beforpost و afterpost يشتعلان عندما اقوم بالحفظ ولا نعرف اذا كان المستخدم قد عدل بطاقة الطالب

الاخ عروة انّ الحدث After Post يشتعل عندما يقوم المستخدم بأول تعديل على اي حقل من حقول السجل

وهذا ما اريد فعلاً :rolleyes:

وشكرا

عفوا اخ عروة الحدث After Edit وليس After Post

اقتباس

الاخ Romanof انا لا استخدم DBBGride في بطاقة الطالب وقد ذكرت انني لا اريد ان احل هذه المشكلة على Onchange

اسف جدا لم انتبه

السلام عليكم ورحمت الله وبركاته

انا اقترح حل ليس طويل ولكن مفيد جداً وينفعك في حالات الاستعلام

ضع سجل جديد وسميه Modify من نوع تاريخ

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

(الان اصبح لديك سجل من نوع تاريخ) ما عليك إلا وعمل استعلام بسط يقوم بحصر أي سجل تم تعديله أو إضافته حتى على قاعدة البيانات.........................

يعني مثل ما تعمل سيرش بالويندوز تماماً طبعا هذا الحل يتفرع منه حل أخر كما رأيت وهو اذا اراد المستخدم رؤية ما اذا تم اضافة اي سجل جديد أو عمل جرد على السجلات التمة إضافتها في يوم انت تحديد

(عفواً لم ادعم ردي باي كود لأنني على جهاز لا يوجد فيه دلفى)

أخوكم

قد قرات الموضوع بسرعة فااسف لو لم افهم

ما فهمت انك تريد التخزين عند اغلاق الفورم

فى حدث الاغلاق On Form Close

اختبر حالة الجدول اذا كانت تعديل بيانات او اضافة وهنا قم بالتخزين (ممكن ان تسبق برسالة تأكيد)

If Table1.State in [DsEdit,DsInsert] then

Table1.post