درس - التعامل مع Quickreport

[paix144]

السلام عليكم و رحمة الله
إخواني الكرام بعد غياب طويل جئتكم بدرس يتناول لمحة بسيطة عن التعامل مع QuickReport

بسم الله نبدأ

1-نقوم بإنشاء فورم جديد
2-نقوم بإنزال المكون QuickRep من لائحة QReport
3-ننقر نقرتين على QuickRep و من Bandes نختار titre,en-tete-de-colonne,Bande détail,Récapitulatif
4-نقوم بإنزال المكون Query من لائحة BDE
5-نقوم بضبط خاصية Query1 ل DataBaseName ب DBDEMOS
6-نضيف الاستعلام التالي Query1==>SQL ب

كود :

select EmpNo,FirstName,LastName,Salary from employee

ثم

كود :

Active:=True;

7-نقوم بإضافة 5QRLabel على En-tete-de-colonne
8-نقوم بإنزال المكون QRexpr من لائحة QReport على détail و نكتب التعليمة COUNT في Expression
9-ثم نقوم بإضافة 4 من QRDBText على détail
10-ثم نقوم بضبط خاصية كل واحد منهم على التالي
QRDBText1==>Dataset==>Query1
QRDBText1==>DataField==>EmpNo
يمكنك إداج البقية كما هو موضح في الصورة

11-نقوم بإضافة المكون QRExper في Résumé و نكتب التعليمة SUM(query1.Salary) في Expression لحساب مجموع الأجر
12-و لكي نشاهد علمنا ننقر بيمين الفأرة على QuickRep ثم ننقر على Prévisualiser
و في الفديو ترون كيف نؤطر عملنا في جدول
لتحميل الفديو من هنا

كود :

http://www.sendspace.com/file/skwbe7

الكود سورس في المرفقات
بالتوفيق إن شاء الله

[abdalrhman]

شكراً لك عزيزي الكاتب
هل لديك طريقة ليصبح التقرير يظهر بشكل عرضي

[أبو معاذ]

ليصبح التقرير يظهر بشكل عرضي

هناك خاصية "Orientation" للخاصية page لل QuickReport غير قيمتها من poPortrait إلى poPaysage

[كمال المجاني]

بارك الله فيك
الفيديو غير موجود
حبذ لو أعدت رفعه من جديد

[العاتي بوخلوط]

الفديو لو تكرمت

[عابدين زينو]

بارك الله فيك

[محمدي بكر]

كيف أكتب كتابة عمودية ؟

[أبو معاذ]

كيف أكتب كتابة عمودية ؟

ألق نظرة على هذا الموضوع :

http://delphi4arab.net/forum/showthread.php?tid=2299