+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : بخصوص طباعة for في QuickReport (/showthread.php?tid=8946)
الصفحات:
1
2
RE: بخصوص طباعة for في QuickReport - Med-01 - 25-10-2017
اهلا AbdelAziZ .
شكرااا جزيلا الكود عمل بشكل جيدا
لاكن ماذا لو ادرت ان يبدا الترقيم من 5 متلا الى 10 ?
عموما انا قمت بعمل حلقة for ونجح الامر في ادخال البينات الى قاعدة البيانات لاكن لم يعجبني هذا لان الكود يعتمد على مسح البيانات
وادخالها في كل مرة وهدا ليس عملي لانو قواعد البيانات جعلت لحفظ البيانات وليس لمسح و ادخال في كل مرة يعني حل مؤقت
شكرااا كثيرااا يا عبد العزير في ميزان حسناتك ان شاء الله
Delphi4Us اين اجد kbmMemTable
شكرااا لمشارتك Delphi4Us
RE: بخصوص طباعة for في QuickReport - محمد عبد العزيز - 26-10-2017
إقتباس :ماذا لو ادرت ان يبدا الترقيم من 5 متلا الى 10 ?فكر... الحلقات ليست فقط For
كود :
MoreData := (i<6);
inc(i);
QRLabel1.Caption := inttostr(4+i);RE: بخصوص طباعة for في QuickReport - محمد عبد العزيز - 26-10-2017
ان كان ولا بد من وجود الرقم 5 و10 في الكود يمكن تعديلها بشيئ مثل
كود :
Var i : word;
procedure TForm2.FormCreate(Sender: TObject);
begin
i:=5;
end;
procedure TForm2.QRSubDetail1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
MoreData := (i<=10);
QRLabel1.Caption := inttostr(i);
inc(i);
end;RE: بخصوص طباعة for في QuickReport - Med-01 - 31-10-2017
اهلا عبد العزير شكراااا جزيلا في ميزان حسناتك ان شاء الله
اعتذر على التاخر في الرد الحاسوب كان معطل
ياريت تشرح لي QRSubDetail1NeedData
و MoreData
و inc