ترقيم

[Delphi4Us]

الموضوع اخد اكثر من حجمه نقاش مع انه بسيط جدا .

اولا : لو رفعت قاعدة البيانات لجعلنا لك لها حقل ترقيم تلقائي ولو فيها بيانات لاتريد ان يراها احد خد نسخها منها واحذف كل ما فيها وارفعها للمعاينة

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

كود :

Select MAX(FiledNum) + 1 As MAXSum from TableName

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

كود :

Function GetMAX:Integer Begin QryMax.Sql.clear; QryMax.sql.add('Select MaX(FiledNum)+1 As MaxSum from TableName'); QryMax.open; result:=QryMax.FiledByname('MaxSum').Value; QryMax.close; End;

بالنسبة لرسالة الحذف انا لا افهم الفرنسية للاسف