السلام علكيم ورحمة الله وبركاته
اريد طباعة في حلقة for داخل QuickReport
بحيث كل رقم يكون في صفحة
كود :
var
I:Integer;
begin
for I:=1 to 10 do
end;
شكراااااااا وجزاكم الله خيرا
اي مصمم تقارير تجد فيه حقل او دالة خاصة بالترقيم مثلا في الفاست ريبورت هناك الحقل Line موجود فيه يعطيك الترقيم الذي تريد
في QuickReport لا اعرف لم استخدمه ولو كنت متأكد ان فيه نفس الشئ
السلام علكيم ورحمة الله وبركاته
جرب هذا المكون الموجود في بوابة QuickReport لعله يفي بالغرض
**QRSysData1**
السلام عليكم ورحمة الله وبركاته
اظن اني لم اشرح جيدا اريد عرض حلقة for في quickreport حيث كل رقم يأخد صفحة
بهدا الشكل
كود :
var
I:Integer;
begin
for I:=1 to 3 do
end;
![[صورة: 328733FR02.jpg]](https://img4.hostingpics.net/pics/328733FR02.jpg)
شكرااا لجميع من شارك وجزاكم الله خيراا
وعليكم السلام ورحمة الله وبركاته
أجل الدالة التي اخبرتك عنها تسقطها على النموذج وكل صفحة سوف يعطيها رقم كما في الصورة التي عرضتها انت تماما بدون ان تستخدم اي حلقة
ابحث عنها بالقوائم الجانبية
او صور لي مصمم التقارير وانزل الصورة هنا طالما انك تملك نسخة وسوف اخبرك اين تجدها
او صور لي مصمم التقارير وانزل الصورة هنا طالما انك تملك نسخة وسوف اخبرك اين تجدها
اهلا
Delphi4Us شكرا لمشاركتك
انت تقصد المكون QRSysData1
![[صورة: 987366211.png]](https://img4.hostingpics.net/pics/987366211.png)
النتيجة
![[صورة: 798731482.png]](https://img4.hostingpics.net/pics/798731482.png)
لاحظ في رقم 5 تم انشاء صفحة واحدة فقط 1/1
اريد ان اجعله ينشئ متلا 20 او 30 صفحة حسب الاختيار لذالك لجئت الى for .
كحل مؤقت قمت بجعل for تحفظ البينات داخل حقل في قاعدى البيانات ومن ثم استعراض الحقل
فنجح الامر لا كني لااريد انشاء قاعدة بينات من اجل هدا لأنه ليس من الضروري
شكراااا لمساعدتك
Delphi4Us في مزان حسناتك ان شاء الله .
السلام عليكم
الQuick Report صمم ليعمل مع قواعد البيانات
-
يمكن استغلال الحدث OnNeedData بشيئ مثل
كود :
MoreData := (i<3);
inc(i);
QRLabel1.Caption := inttostr(i);
انتبه تم تغيير ForceNewPage الى True
شكرااا الاخ 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;
لا تريد استخدام قواد بيانات اذا استخدم محاكي قواعد بيانات الذي يعمل في الذاكرة مثل
kbmMemTable