ترقيم تلقائل في جول الموظفين

يا اخي بارك الله فيك اختر عنوان مناسب لموضوعك في المرة القادمة

وكتب كل المعلومات التي تساعد على مساعدتك، /ثلا لم تكتب نوع قاعدة البانات

هل هي Paradox ، ان نعم يكفي ان تضع في نوع الحقل + اي ان الترقيم يكون تلقائي

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

نعم قاعدة البيانات هي pardox

ارجو ان تشرح لي نوعا ما بالتفصيل فانا كما اعلمتك مبتدا

عندما انشاء الجدول فانك تختار اسم الحقل و نوعه

في خانة نو الحقل اكتب + فقط

فهمت ؟

تشكر اخ يعبد العزيز

وجزاك الله كل خير

السلام عليكم

أخي الكريم

يمكنك الحصول على ذلك من خلال الأتي

داخل حدث النقر على الزر مثلا

var a:integer;

begin

table.last;

sedit1.Text :=inttostr(table.FieldValues['id']+1);

بهذا تكون قد حصلت على أخر رقم موجود في حقل الرقم و أضفت أليه 1

أرجو أن تكن الصورة واضحة

rober كتب:

السلام عليكم

أخي الكريم

يمكنك الحصول على ذلك من خلال الأتي

داخل حدث النقر على الزر مثلا

var a:integer;

begin

table.last;

sedit1.Text :=inttostr(table.FieldValues['id']+1);

بهذا تكون قد حصلت على أخر رقم موجود في حقل الرقم و أضفت أليه 1

أرجو أن تكن الصورة واضحة

مشكور على هذا العمل الرائع

لكن ارجو اكمال الكود والتوضيح أكثر

ما عمل Var a:integer

ارجو التوضيح والتركيز على المعلومات

أو ارفاق مثال

السلام عليكم

أخي الكريم أعتذر على الرد المتأخر

يمكنك أستخدام الكود الجديد

و يمكنك عمل التالي عند إضافة كل موظف

var a:integer;

begin

table1.last;

a:=table1.fieldvalues[id]+1;

(شرط أن يكون نوع الحقل Id هو (Integer))

table1.insert;

table1.fieldvalues[id]:=a;

end;

أخبرني إذا كان لديك MySql لأقدم أليك مثال كامل

select max(ID)+1 from PRODUCTS