كيف عمل حلقة تكرارية للكود بعدد سجلات الجدول لنقل البيانات

[بولنوار]

تحية طيبة و رمضان كريم

عندي هذا الكود ينقل البيانات من جدول الى جدول لكل عملية نقل اقوم بضغظ الزر
احتاج الى عمل حلقة تكرارية للكود بعدد سجلات الجدول الاول بحيث ينقل بظغطة واحدة

كود :

procedure TForm40.Button3Click(Sender: TObject); begin ABSTable1.open; if not ABSTable1.locate('date',dbedit1.text,[]) then begin ABSTable1.Append; ABSTable1.FieldByName('date').Value:=dbedit1.Text; ABSTable1.FieldByName('tim1').Value:=dbedit2.Text; ABSTable1.FieldByName('taw1').Value:=dbedit3.Text; ABSTable1.FieldByName('tim2').Value:=dbedit4.Text; ABSTable1.FieldByName('taw2').Value:=dbedit5.Text; ABSTable1.Post; ADOquery1.Next; end elSe ShowmeSSage('هذا السجل موجود بالفعل '); end;

[hakimrahal]

السلام عليكم ورحمة الله وبركاته..
حسب فهمي هل تقصد بعدد الحقول أم عدد السجلات؟
- بالنسبة لعدد الحقول لا تستخدم fieldbyname إستخدم fields
والكود كالآتي:
for i := 1 to 25 do
?=: ABSTable1.Fields[i].Value
مع التغيير فيه حسب عدد الحقول وترتيبها.
- بالنسبة لعدد السجلات لنقل مجموعة منها ولديك جدولين متطابقين إستخدم المكون BatchMove
وشكرا........

[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته
استخدم table1.eof
while not table1.eof do
-----
end;
بالتوفيق

[بولنوار]

شكرا لكما اخوي الكريمين


ما احتاجه بالظبط هو جعل القيمة التي تتوقف عندها الحلقة التكرارية دينامكية مع الجدول

اي اذا كان الجدول فيه 100 سجل تكون الحلقة من 1 الى 100
و اذا كان الجدول فيه 102 تكون الحلقة من 1 الى 102


كيف للحلقة التكرارية ان تحسب عدد السجلات في الجدول

[rahiche]

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

كود :

for I := 0 to ABSTable1.FieldCount-1 do begin ABSTable1.Append; ABSTable1.FieldByName('date').Value:=dbedit1.Text; ABSTable1.FieldByName('tim1').Value:=dbedit2.Text; ABSTable1.FieldByName('taw1').Value:=dbedit3.Text; ABSTable1.FieldByName('tim2').Value:=dbedit4.Text; ABSTable1.FieldByName('taw2').Value:=dbedit5.Text; ABSTable1.Post; ADOquery1.Next;

و افعل ماتريد