تخريج قيمة تلقائية للحقول التعريفية

[AnoirsoftDeveloper]

السلام عليكم
إليك طريقتي التي أستعملها

أقوم بإنشاء جدول يقوم بحفظ آخر قيمة تم إضافتها و أسميه Compter

ثم أنشئ حقول حسب الإحتياج

ClientID
...
.
.

ثم أكتب في الحدث OnBeforePost الخاص بـجدول الزبائن Client

كود :

procedure Tform1.TableClientBeforePost(DataSet: TDataSet); begin if TableClient.State = dsInsert then begin TableCompter.edit; TableCompterClientID.Value:=TableCompterClientID.Value+1; TableCompter.Post; end; end;

واكتب في الحدث OnNewRecord

كود :

procedure TfrmMain.TableClientNewRecord(DataSet: TDataSet); begin // هنا أكتب اللاحقة التي تريدها TableClientID.Value:=TableCompterClientID.value+1; end;

تحياتي