تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخدام أداة التقارير DataReport من خلال الفيجوال بيسك 6.0
#1
كاتب الموضوع : أحمد جمال

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


يوفر فيجوال بيسك أداة سهلة للتعامل مع التقارير ألا وهي 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 = Rs

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

كود :
DataReport2.Show
والله الموفق ...
والسلام عليكم ورحمة الله وبركاته .
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أداة متقدمة لإرسال Email mamas1 8 1,453 09-10-16, 11:34 AM
آخر رد: MicroDoha
  الموضوع القنبلة في التقارير عرض صور الطلاب ربط ثلاثة جداول والاستعلام عنها ActiveRe Ahmad Jawad 7 2,546 14-08-15, 12:41 PM
آخر رد: مجروحه
  كيفية التعامل مع دوال الوقت و التاريخ و كيفية تنسيقهما فى الفجوال بيسك 6 the viper 6 1,898 15-06-13, 08:17 PM
آخر رد: husain1980
  شرح للمتغيرات و الثوابت و المعاملات في الفيجول بيسك Ahmad Jawad 5 2,376 12-06-13, 01:14 AM
آخر رد: بلحسين الدين
  المصفوفة array في لغة الفيجوال بيسسك - vb6 مزيد مرير 7 2,347 23-02-13, 12:10 AM
آخر رد: الميسري
  طريقة استخدام الاداه actskin بالتفصيل Ahmad Jawad 3 1,601 03-12-12, 07:54 PM
آخر رد: الميسري
  أداة CamTools تشغيل الكام عن طريق الفورم RaggiTech 0 810 15-10-12, 10:25 AM
آخر رد: RaggiTech
  استخدام DataControl للربط مع قواعد البيانات في فيجوال بيسك - الجزء الثاني RaggiTech 1 1,941 14-10-12, 02:29 PM
آخر رد: RaggiTech
  استخدام DataControl للربط مع قواعد البيانات في فيجوال بيسك - الجزء الأول RaggiTech 0 1,170 14-10-12, 02:26 PM
آخر رد: RaggiTech
  درس سريع - اللغة العربية في فيجوال بيسك RaggiTech 0 1,097 14-10-12, 02:19 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم