كيف تغير التاريخ تلقائيا في قاعدة بيانات

[PLANSHARP]

و عليكم السلام و رحمة الله وبركاته.
بالنسبة لـ Disablecontrols: تقوم بإيقاف ال adotable من عرض بيانات السجلات ضمن عناصر ال DB-aware , مثل DBedit, Dbmemo, Dbgrid, وذلك لأن الكود سيقوم بعملية scan لكل السجلات ضمن الجدول و هذا لا داعي لإظهاره على العناصر مما قد يسبب بطء في البرنامج.

بالنسبة للتعديل:

كود :

 ADOTable1.DisableControls;  ADOTable1.First;  while not ADOTable1.Eof do  begin    if ADOTable1.FieldByName('your date field name').AsDateTime = now then    begin      ADOTable1.Edit;      ADOTable1.FieldByName('your date field name').AsDateTime :=        ADOTable1.FieldByName('your date field name').AsDateTime + 7;      if ADOTable1.FieldByName('order').AsString = 'أول' then        ADOTable1.FieldByName('order').AsString := 'أخير'      else        ADOTable1.FieldByName('order').AsString := 'أول';      ADOTable1.post;    end;    ADOTable1.Next;  end;  ADOTable1.EnableControls;

وفقكم الله.