+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف عمل حلقة تكرارية للكود بعدد سجلات الجدول لنقل البيانات (/showthread.php?tid=7076)
كيف عمل حلقة تكرارية للكود بعدد سجلات الجدول لنقل البيانات - بولنوار - 02-07-2015
تحية طيبة و رمضان كريم
عندي هذا الكود ينقل البيانات من جدول الى جدول لكل عملية نقل اقوم بضغظ الزر
احتاج الى عمل حلقة تكرارية للكود بعدد سجلات الجدول الاول بحيث ينقل بظغطة واحدة
كود :
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 - 02-07-2015
السلام عليكم ورحمة الله وبركاته..
حسب فهمي هل تقصد بعدد الحقول أم عدد السجلات؟
- بالنسبة لعدد الحقول لا تستخدم fieldbyname إستخدم fields
والكود كالآتي:
for i := 1 to 25 do
?=: ABSTable1.Fields[i].Value
مع التغيير فيه حسب عدد الحقول وترتيبها.
- بالنسبة لعدد السجلات لنقل مجموعة منها ولديك جدولين متطابقين إستخدم المكون BatchMove
وشكرا........
كيف عمل حلقة تكرارية للكود بعدد سجلات الجدول لنقل البيانات - makhlouf - 06-07-2015
السلام عليكم و رحمة الله تعالى و بركاته
استخدم table1.eof
while not table1.eof do
-----
end;
بالتوفيق
كيف عمل حلقة تكرارية للكود بعدد سجلات الجدول لنقل البيانات - بولنوار - 07-07-2015
شكرا لكما اخوي الكريمين
ما احتاجه بالظبط هو جعل القيمة التي تتوقف عندها الحلقة التكرارية دينامكية مع الجدول
اي اذا كان الجدول فيه 100 سجل تكون الحلقة من 1 الى 100
و اذا كان الجدول فيه 102 تكون الحلقة من 1 الى 102
كيف للحلقة التكرارية ان تحسب عدد السجلات في الجدول
كيف عمل حلقة تكرارية للكود بعدد سجلات الجدول لنقل البيانات - rahiche - 09-07-2015
اخي الامر بسيط لكن اذا كان عدد السجلات كبير مثل 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;