بخصوص طباعة for في QuickReport

[Med-01]

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

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

كود :

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

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

[Delphi4Us]

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

[amos]

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

[Med-01]

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

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

بهدا الشكل

كود :

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

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

[Delphi4Us]

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

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

---

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

---

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

[Med-01]

اهلا Delphi4Us شكرا لمشاركتك
انت تقصد المكون QRSysData1


النتيجة



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

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

[محمد عبد العزيز]

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

كود :

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

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

[Med-01]

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

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

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

[محمد عبد العزيز]

جربته على النسخة 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;

[Delphi4Us]

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