[RaggiTech]

قم باضافة بعض RptLabel لتضع بها تاريخ اليوم وما شابه ذلك ، أيضاً مجموعة أخرى لنضع فيها اسم المحل ورقم هاتفه على سبيل المثال .

ستلاحظ أن تحديداتك للون الخلفية ، أو ظهور الخط لن تظهر إلا بعد ضبط الخاصيتين BackStyle و BorderStyle إلى 1 في الأداتين السابقتين .

حاول الوصول إلى الشكل التالي إن كان يناسبك ، وإلا فاختر الشكل الذي تود اضافته :

والآن إلى الجزء الخاص بكتابة الكود ، في البداية لا تنس ان تضيف المكتبات المطلوبة كما أوضحنا في جزء سابق من هذا الدرس .

الجزء الأول الخاص بتعريف كائنات من قاعدة البيانات والجداول :

كود :

Dim cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set Rs = New ADODB.Recordset

تحديد مصدر البيانات لقاعدة البيانات ، ومصدر البيانات للتقرير :

كود :

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Folder & "db1.mdb;" & "Jet OLEDB:Database Password=" & PassWord

كود :

SQL = "select tb_product.*,tb_category.*,tb_factory.* from tb_product,tb_factory,tb_category where tb_product.category=tb_category.number and tb_product.factory=tb_factory.number



"


Set Rs = cn.Execute(SQL



)


Set DataReport1.DataSource = Rs

وأخيراً ضبط بعض الخصائص على سبيل المثال اسم المحل ورقم الهاتف :

كود :

(DataReport1.Sections("Section2").Controls("label3").Caption = Info(2

كود :

DataReport1.Sections("Section2").Controls("label4").Caption



= "هاتف : " & Info(3)

أخيراً اظهار التقرير ، وحذف الكائنات من الذاكرة - بعد انتهاء الحاجة إليها - :

كود :

DataReport1.Show

كود :

Set cn = Nothing
Set Rs = Nothing

والآن سنكتفي بهذا القدر في هذا الدرس ، ولكن في الدروس القادمة لن نتوسع في الشرح ، بل سنقوم بالاضافة مباشرة لذا احرص على استيعاب هذا الدرس جيداً .

والله الموفق ...

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