14-10-12, 02:21 PM
كاتب الموضوع : أحمد جمال
بسم الله الرحمن الرحيم .السلام عليكم ورحمة الله وبركاته .
يوفر فيجوال بيسك أداة سهلة للتعامل مع التقارير ألا وهي 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 OLEDB:Database Password=" & PassWord Set Rs = New ADODB.Recordset sql = "select * from table1" Set Rs = cn.Execute(sql) Set DataReport2.DataSource = Rs2 - وأخيراً اظهارها بأمر Show :
كود :
DataReport2.Showوالسلام عليكم ورحمة الله وبركاته .