أنا أستعمل هذا الكود في إضافة الترقيم التلقائي
implementation
var Le_Dernier: SmallInt;
{..}
Bouton1Click
ADOTable1.First;
If ADOTable1.EOF then Le_Dernier := 1
else
begin
ADOTable1.Last;
le_Dernier := ADOTable1Num.Value + 1;
end;
ADOTable1.Insert;
ADOTable1Num.Value := Le_Dernier;
يبدو ان مشروعك صغير وعبارة عن نموذج واحد وعملية اضافة فقط
قم بضغط المشروع وارفعه وسوف نعدل فيه ونعيده لك
هذا افضل خيار
واسهل لك طالما لا تجيد حتى الاضافة في قاعدة بيانات
وتعلم من ما سوف نعطيه لك فيما بعد
اليك مجهوداتي عدلها وأرسلها الي
قواعد البيانات غير مدعومة عندي
انظر لهذا المثال
أولا في سؤالك الأول قلت أن لديك قاعدة البيانات أكسس
ثم بعثت تطبيق لست أدري ما نوع قاعدة البيانات
و لم تعقب على هذا الكود الذي أرى فيه مطلبك و الذي يعمل بشكل جيد
كود :
Bouton1Click
ADOTable1.First;
If ADOTable1.EOF then Le_Dernier := 1
else
begin
ADOTable1.Last;
le_Dernier := ADOTable1Num.Value + 1;
end;
ADOTable1.Insert;
ADOTable1Num.Value := Le_Dernier
بارك الله يك يا اخي مصطفي ويا اخي صاحب الدالفي مثالك رائع ولقد اخذت منه الفكرة ووضعتها في البرنامج الخاص بي
واما بالنسبة لقاعدة البيانات فانا أرسلت لك قاعدت بيانات عن طريق البارادوكس لانى لم اثبن الاكسس بعد
وفى الأخير تقبلو منى فائق الاحترام والتقدير
تلميذكم المتواضع عماد سلام