بخصوص طباعة for في QuickReport - نسخة قابلة للطباعة

بخصوص طباعة for في QuickReport - نسخة قابلة للطباعة

+- 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

بخصوص طباعة for في QuickReport - Med-01 - 17-10-2017

السلام علكيم ورحمة الله وبركاته

اريد طباعة في حلقة for داخل QuickReport
بحيث كل رقم يكون في صفحة

كود :
var
I:Integer;
begin
for I:=1 to 10 do
end;

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

RE: بخصوص طباعة for في QuickReport - Delphi4Us - 19-10-2017

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

QuickReport - amos - 19-10-2017

السلام علكيم ورحمة الله وبركاته
جرب هذا المكون الموجود في بوابة QuickReport لعله يفي بالغرض
**QRSysData1**

RE: بخصوص طباعة for في QuickReport - Med-01 - 19-10-2017

السلام عليكم ورحمة الله وبركاته

اظن اني لم اشرح جيدا اريد عرض حلقة for في quickreport حيث كل رقم يأخد صفحة

بهدا الشكل

كود :
var
I:Integer;
begin
for I:=1 to 3 do
end;

شكرااا لجميع من شارك وجزاكم الله خيراا

RE: بخصوص طباعة for في QuickReport - Delphi4Us - 22-10-2017

وعليكم السلام ورحمة الله وبركاته

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

او صور لي مصمم التقارير وانزل الصورة هنا طالما انك تملك نسخة وسوف اخبرك اين تجدها

RE: بخصوص طباعة for في QuickReport - Med-01 - 24-10-2017

اهلا Delphi4Us شكرا لمشاركتك
انت تقصد المكون QRSysData1
[صورة: 987366211.png]

النتيجة

لاحظ في رقم 5 تم انشاء صفحة واحدة فقط 1/1
اريد ان اجعله ينشئ متلا 20 او 30 صفحة حسب الاختيار لذالك لجئت الى for .
كحل مؤقت قمت بجعل for تحفظ البينات داخل حقل في قاعدى البيانات ومن ثم استعراض الحقل
فنجح الامر لا كني لااريد انشاء قاعدة بينات من اجل هدا لأنه ليس من الضروري

شكراااا لمساعدتك Delphi4Us في مزان حسناتك ان شاء الله .

RE: بخصوص طباعة for في QuickReport - محمد عبد العزيز - 24-10-2017

السلام عليكم
الQuick Report صمم ليعمل مع قواعد البيانات
-
يمكن استغلال الحدث OnNeedData بشيئ مثل

كود :
 MoreData := (i<3);
  inc(i);
  QRLabel1.Caption := inttostr(i);

انتبه تم تغيير ForceNewPage الى True

RE: بخصوص طباعة for في QuickReport - Med-01 - 25-10-2017

شكرااا الاخ B.M.AbdelAziZ

جربته على النسخة DELPHI7 ب لم يعمل اظن لانك استخدمت نسخة XE

جربته ايضا على النسخة XE8 بدون Quick Report لم يعمل سأقوم بنتصيبه وارى الكود الذي وضعته شكرااا يا AbdelAziZ في ميزان حسناتك

RE: بخصوص طباعة for في QuickReport - محمد عبد العزيز - 25-10-2017

إقتباس :جربته على النسخة DELPHI7 ب لم يعمل اظن...

لا يعمل لا تكفي! لم يظهر شيئ ؟ ظهر خطأ ؟ ما هو ؟

بالنسبة للمرفق فهو بدلفي 7 فقط QuickReport نسخة احدث Pro
حسنا انسى المرفق وجرب الكود فوق
مشروع جديد، ضف اليه صفحة/مكون QuickRep انتبه PrintIfEmpty يجب ان تكون True
ضف مكون QRSubDetail1 ولا تنسى تغيير ForceNewPage الى True
ضف مكون QRLabel1
اذهب للحدث OnNeedData ضف الكوذ التالي (انتبه للمتغير i يكون قبل الحدث حتى يكون متغير Global)

كود :
Var
i : word;
procedure TForm1.QRSubDetail1NeedData(Sender: TObject;
 var MoreData: Boolean);
begin
MoreData := (i<3);
inc(i);
QRLabel1.Caption := inttostr(i);
end;

RE: بخصوص طباعة for في QuickReport - Delphi4Us - 25-10-2017

لا تريد استخدام قواد بيانات اذا استخدم محاكي قواعد بيانات الذي يعمل في الذاكرة مثل
kbmMemTable