استخدام أداة التقارير DataReport من خلال الفيجوال بيسك 6.0

[ضمتني الين طاح عقالي]

استخدام أداة التقارير DataReport من خلال الفيجوال بيسك 6.0

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

يوفر فيجوال بيسك أداة سهلة للتعامل مع التقارير ألا وهي DataRepoert ، ومع انها ليست قوية بما فيه الكفاية لتشمل كل خصائص التقارير ، فإنها كافية دوماً للتطبيقات الصغيرة والمتوسطة .
لنضيف DataRreport فإننا ومن خلال النقر بزر الماوس الايمن على الفورم سوف تظهر لنا Add ، ونختار منها DataReport .

نلاحظ أن الصفحة التي ظهرت لنا مقسمة إلى خمسة اقسام :

Report Header : البيانات التي تظهر فقط مع أول صفحة في التقرير .
Page Header : البيانات التي تظهر على رأس كل صفحة .
Detailes : محتويات التقرير ، ويمكن ان تعرض على اكثر من صفحة .
Page Footer : ما يظهر مع كل آخر صفحة .
Report Footer : بيانات تظهر في آخر صفحة في التقرير فقط .

أما عند الادوات ، فأشهرها هي Rptlable وهي مخصصة بعرض البيانات الثابتة ، ويمكن ضبطها وقت التصيم أو من خلال الكود ، أما الأداة RptTextBox فلا بد لها من القراءة من قاعدة بيانات .

يعيب DataReport انها لا تتعامل إلا مع مصدر مثل Ado فيما لا تستطيع التعامل مع Dao مثلاً

وللبدء في التعامل مع البيانات من خلال زر عرض التقرير .

أولاً : للتحكم في الخصائص الثابتة .
مثل بيانات Rptlable ، الألوان وغير ذلك .
قم أولاً بوصف اسم DataReport ، ثم اسم القسم ، ثم اسم الاداة بالشكل التالي :

رمز:
DataReport2.Sections("Section2").Controls("l1").Caption = Lbl_name

ويمكن بنفس الطريقة التحكم بالالوان وما شابه ذلك .

القسم الثاني : كيفية ربط ال RptTextBox بقاعدة البيانات .
خلال مرحلة التصميم احرص على ضبط الخواص التالية :
DataMember و DataFields لتحديد اسم قاعدة البيانات ( كائن قاعدة البيانات أو اداتها ) ، و اسم الحقل المطلوب عرضه في هذا المكان .
والآن لاظهار التقرير من خلال زر أمر ينبغي ان نتبع الخطوات التالية :

1 - تحديد مصدر ربط لقاعدة البيانات ، المثال التالي :

رمز:
Dim cn As ADODB.Connection Dim Rs As ADODB.Recordset Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Folder & "db1.mdb;" & "Jet OLEDBatabase Password=" & PassWord Set Rs = New ADODB.Recordset sql = "select * from table1" Set Rs = cn.Execute(sql) Set DataReport2.DataSource = Rs

2 - وأخيراً اظهارها بأمر Show :

رمز:
DataReport2.Show

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