سؤال حول اضافة اسطر في DBGRIDE

[Mustapha29]

أنا أستعمل هذا الكود في إضافة الترقيم التلقائي

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;

[Delphi4Us]

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

[imadus]

اليك مجهوداتي عدلها وأرسلها الي

[Delphi4Us]

قواعد البيانات غير مدعومة عندي
انظر لهذا المثال

[Mustapha29]

أولا في سؤالك الأول قلت أن لديك قاعدة البيانات أكسس
ثم بعثت تطبيق لست أدري ما نوع قاعدة البيانات
و لم تعقب على هذا الكود الذي أرى فيه مطلبك و الذي يعمل بشكل جيد

كود :

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

[imadus]

بارك الله يك يا اخي مصطفي ويا اخي صاحب الدالفي مثالك رائع ولقد اخذت منه الفكرة ووضعتها في البرنامج الخاص بي
واما بالنسبة لقاعدة  البيانات فانا أرسلت لك قاعدت بيانات عن طريق البارادوكس لانى لم اثبن الاكسس بعد
وفى الأخير تقبلو منى فائق الاحترام والتقدير
تلميذكم المتواضع عماد سلام