delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله تعالى وبركاته
اعمل على نسخة الدلفي7 وقاعدة بيانات ابسوليت
لدي جدول به اربع حقول ABSTABLE1
1- رقم الجرد
2- اسم الشئ المجرود
3- الكمية
4- تاريخ التكفل به
عند إضافة سلعة معينة وليكن عددها 10 وحدت ولابد ان يكون لكل وحدة رقم جرد
بمعى عندما اعطي رقم البداية وليكن مثلا 8
المطلوب هو اضافة ال10 وحدات بضغطة واحدة إيتداء من رقم 8 إلى رقم 18
كيف يمكنني فعل ذلك
وبارك الله فيكم

و عليكم السلام

أفهم من سؤالك تود أن يكون رقم الجرد تلقائي ؟

لؤي [attachment=3104]و عليكم السلام

أفهم من سؤالك تود أن يكون رقم الجرد تلقائي ؟[/quote]
بارك الله فيك
اقصد بسؤالي
اضافة الكمية دفعة واحدة على ان كل وحدة من الكمية تأخذ رقمها كما هو مبين في السورة المرفقة
يعني اذا كان رقم الجرد كتوقف عند الرقم 7
المطلوب ان يبدأ بالترقيم من رقم 8 إلى غاية الرقم 18 يعني اضافة 10 ارقام بدى من ان يتم ادخالهم يدويا

السلام عليكم

مثال على ذلك:

كود :
var
i,x:integer;
begin
ABSTable1.open;
  for i:=1 to 10  do
begin
x:=ABSTable1.RecordCount;
   ABSTable1.Insert;
   ABSTable1.FieldByName('ID').asinteger:=x+1;
   ABSTable1.FieldByName('AAAA').asinteger:=5555;
   ABSTable1.FieldByName('Your_field').asstring:='كرسي';
   ABSTable1.FieldByName('QTS').asinteger:=1;
    ABSTable1.Post;
end;
ABSTable1.close;
end;

بارك الله فيك أخي لؤي
هذا هو المطلوب الا ان المشكلة في تسلسل الترقيم
عندما اعطي الامر يتكرر الرقم الموالي لذا ارفقت لكم هذه المحاولة
حتى تلاحظون ماذا يجري بهد التنفيذ
[attachment=3105]
جزاكم الله عنا كل خير

يجب غلق المشاركة
لقد نسيت ان اغلق الجدول فقط
إذا النتيجة 100/100
بارك الله فيكم

medreg

لؤي

medreg

لؤي

medreg