اي مصمم تقارير تجد فيه حقل او دالة خاصة بالترقيم مثلا في الفاست ريبورت هناك الحقل Line موجود فيه يعطيك الترقيم الذي تريد
في QuickReport لا اعرف لم استخدمه ولو كنت متأكد ان فيه نفس الشئ
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
كل من 1 user says قال شكرا ل Delphi4Us على المشاركة المفيدة1 user says Thank You to Delphi4Us for this post • Med-01
22-10-2017, 10:16 PM (آخر تعديل لهذه المشاركة: 22-10-2017, 10:51 PM بواسطة Delphi4Us.)
وعليكم السلام ورحمة الله وبركاته
أجل الدالة التي اخبرتك عنها تسقطها على النموذج وكل صفحة سوف يعطيها رقم كما في الصورة التي عرضتها انت تماما بدون ان تستخدم اي حلقة
ابحث عنها بالقوائم الجانبية
او صور لي مصمم التقارير وانزل الصورة هنا طالما انك تملك نسخة وسوف اخبرك اين تجدها
او صور لي مصمم التقارير وانزل الصورة هنا طالما انك تملك نسخة وسوف اخبرك اين تجدها
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
كل من 1 user says قال شكرا ل Delphi4Us على المشاركة المفيدة1 user says Thank You to Delphi4Us for this post • Med-01
لاحظ في رقم 5 تم انشاء صفحة واحدة فقط 1/1
اريد ان اجعله ينشئ متلا 20 او 30 صفحة حسب الاختيار لذالك لجئت الى for .
كحل مؤقت قمت بجعل for تحفظ البينات داخل حقل في قاعدى البيانات ومن ثم استعراض الحقل
فنجح الامر لا كني لااريد انشاء قاعدة بينات من اجل هدا لأنه ليس من الضروري
شكراااا لمساعدتك Delphi4Us في مزان حسناتك ان شاء الله .
بالنسبة للمرفق فهو بدلفي 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
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
كل من 1 user says قال شكرا ل Delphi4Us على المشاركة المفيدة1 user says Thank You to Delphi4Us for this post • Med-01