paix144
19-05-2011, 08:52 PM
السلام عليكم و رحمة الله
إخواني الكرام بعد غياب طويل جئتكم بدرس يتناول لمحة بسيطة عن التعامل مع 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
يمكنك إداج البقية كما هو موضح في الصورة
http://www.delphi4arab.com/images/quickreport.jpg
11-نقوم بإضافة المكون QRExper في Résumé و نكتب التعليمة SUM(query1.Salary) في Expression لحساب مجموع الأجر
12-و لكي نشاهد علمنا ننقر بيمين الفأرة على QuickRep ثم ننقر على Prévisualiser
و في الفديو ترون كيف نؤطر عملنا في جدول
لتحميل الفديو من هنا
http://www.sendspace.com/file/skwbe7
الكود سورس في المرفقات
بالتوفيق إن شاء الله
إخواني الكرام بعد غياب طويل جئتكم بدرس يتناول لمحة بسيطة عن التعامل مع 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
يمكنك إداج البقية كما هو موضح في الصورة
http://www.delphi4arab.com/images/quickreport.jpg
11-نقوم بإضافة المكون QRExper في Résumé و نكتب التعليمة SUM(query1.Salary) في Expression لحساب مجموع الأجر
12-و لكي نشاهد علمنا ننقر بيمين الفأرة على QuickRep ثم ننقر على Prévisualiser
و في الفديو ترون كيف نؤطر عملنا في جدول
لتحميل الفديو من هنا
http://www.sendspace.com/file/skwbe7
الكود سورس في المرفقات
بالتوفيق إن شاء الله