+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سؤال حول اضافة اسطر في DBGRIDE (/showthread.php?tid=8616)
الصفحات:
1
2
RE: سؤال حول اضافة اسطر في DBGRIDE - Mustapha29 - 17-04-2017
أنا أستعمل هذا الكود في إضافة الترقيم التلقائي
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;
RE: سؤال حول اضافة اسطر في DBGRIDE - Delphi4Us - 18-04-2017
يبدو ان مشروعك صغير وعبارة عن نموذج واحد وعملية اضافة فقط
قم بضغط المشروع وارفعه وسوف نعدل فيه ونعيده لك
هذا افضل خيار
واسهل لك طالما لا تجيد حتى الاضافة في قاعدة بيانات
وتعلم من ما سوف نعطيه لك فيما بعد
RE: سؤال حول اضافة اسطر في DBGRIDE - imadus - 18-04-2017
اليك مجهوداتي عدلها وأرسلها الي
RE: سؤال حول اضافة اسطر في DBGRIDE - Delphi4Us - 18-04-2017
قواعد البيانات غير مدعومة عندي
انظر لهذا المثال
RE: سؤال حول اضافة اسطر في DBGRIDE - Mustapha29 - 18-04-2017
أولا في سؤالك الأول قلت أن لديك قاعدة البيانات أكسس
ثم بعثت تطبيق لست أدري ما نوع قاعدة البيانات
و لم تعقب على هذا الكود الذي أرى فيه مطلبك و الذي يعمل بشكل جيد
كود :
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_DernierRE: سؤال حول اضافة اسطر في DBGRIDE - imadus - 19-04-2017
بارك الله يك يا اخي مصطفي ويا اخي صاحب الدالفي مثالك رائع ولقد اخذت منه الفكرة ووضعتها في البرنامج الخاص بي
واما بالنسبة لقاعدة البيانات فانا أرسلت لك قاعدت بيانات عن طريق البارادوكس لانى لم اثبن الاكسس بعد
وفى الأخير تقبلو منى فائق الاحترام والتقدير
تلميذكم المتواضع عماد سلام