التقارير ولكن الربط
بالكود الرائع ... تفضل ..
بسم الله الرحمن الرحيم ...
مساكم الله بالخير والصحة والعافيه ...اتوقع انا شرحت موضوع للتقارير وهو بموضوع طريقة مضمونه لعمل التقارير في الفيجوال بيسيك
بصراحة ألحين طريقة الربط القديمه لن تنفع .... والطريقة التي سوف أشرحها اليوم هي الطريقة الرائعه والمهمه ...
طعبا الربط بالكود له فوائد كثيرة منها انه .. يعمل التقرير على كل جهاز وبدون خطأ في المسار او المصدر .. يعني بصراحة هذا الشرح ممتاز
وأتمنى من الجميع تطبيق الدرس لأنه أهم شيء في قواعد البيانات هو التقارير .... وسوف أشرح ان شاء الله في المرة المقبله التقارير كذلك
ولكن بشرط تحديد الحقول المراد طباعتها ...
المهم بعد هذه المقدمه ..الطويلة والمزعجه .. نبدأ في الدرس وطريقة عملة وكيفيته ..
بسمه تعالى نبدأ
=====================================
أولا يجب عليك وبسرعة أن تشغل برنامج الاكسس ثم بعد ذلك .. تحفظ قاعدة البيانات بأسم Data وحفظ الجدول بأسم Table1 أوكي
وفيه الحقول التاليه ... وعلى فكرة يحب أن تكون قاعدة البيانات مليئة بأسماء ... طبعا أختصار للوقت والكثير ما شاء الله عليكم يا خبراء
هذه الصورة تكفي ... شوف الحقول .. وشوف الأسماء يعني المفروض أنه قاعدة البيانات دائما لا تخلى من البيانات وهذا أهم شيء
أهم نفس أإلى في الصورة .... بعد الانتهاء أخواني الاعزاء من تصميم قاعدة البيانات ... على فكرة قاعدة البيانات لا تقوم بتحوليها إلى نسق ثاني
خليها كما هي .. ولا تفعل أي شيء غير الكلام الي قلته .. أوكي
======================
الأن وبسرعة شغل الفيجوال بيسيك ... وأختر منه Standard EXE ثم أوكي
الأن أضف على الفورم زر كومند وأجعل أسمه تقارير من خانه Caption
كما في الصورة الموضحة
===================
الأن قم باضافه مودويل للمشروع Module1 لأضافه Module1 عليك أتباع التالي
أولا أذهب إلى شريط الأدوات الرئيسي ثم سوف تجد في الجهه اليسرى علامه فورم أو سهم متجه للأسفل .. أضغط عليه لكي ترى عناصر
الادوات .. كما في الصورة الموضحة
بعد الضغط عليه سوف تظهر لك هذه الصورة حدد المدويل ثم أضغط على أوبن
بعد أضافه المدويل خليها سوف نهتم بها فيما بعد . المهم الان سوف نضيف التقاريرفي المشروع ولأضافه تقرير عليك أتباع التالي
أولا أذهب إلى شريط الأدوات الرئيسي ثم سوف تجد في الجهه اليسرى علامه فورم أو سهم متجه للأسفل .. أضغط عليه لكي ترى عناصر
الادوات .. كما في الصورة الموضحة
بعد أختياره سوف يظهر لك التقرير ... ولكن شكله ليس مثير للأهتمام أنظر للصورة
الأن سوف نقوم بتصميم التقرير ... لكي تظهر فيه البيانات ...
طبعا في التقرير حدود مجزئه يعني هكذا
Section4
Section2
Section1
المهم الشغل راح يكون على هذه Section أوكي ... المهم الان أذهب
إلى Section4 في المنطقة الأولى العليا رأس التقرير .. ثم أضف أداة العنوان lable1 ثم أكتب فيه أي شيء ...
على فكرة أداة العنوان في الداتا ريبوت تختلف عن العاديه للفورم .. أنظر إلى الصورة طبعا سوف نستعمل هذه الاداة في هذه المشروع
المهم أرسمه على المنطقة الأولى Section4 وأكتب من خانه caption أي شيء وانا كتبت تجربه تقارير ربط بالكود
كما في الصورة الموضحة
بعد أضافه لون وخط عليه .. أذهب للمنطقة الثانيه Section2 ثم أضف عليه كالتالي
Label2 و Label3 و Label4
طبعا أكتب على Label2 من خانه caption >> الاسم
وأكتب على Label3 من خانه caption >>> الرقم
وأكتب على Label4 من خانه caption >>> العنوان
وتستطيع أضافه ألوان عليهم من الخصائص الخاصه بهم ... أعمل كلما في الصورة الموضحة
بعد ذلك
أذهب إلى المنطقة Section1 سوف نستعمل في هذا هذه الاداة
المهم في هذه المنطقة أضف Text1 و Text2 و Text3 من خلال هذه الاداة
طبعا قم بتعديل خصائص هذه الادوات التاليه ... بدقه متناهيه ... وبأهميه يعني الشغل كله هنا
المهم عشان تسهل العمليه علينا طبعا أهم شيء ... كان تذكر في تصميم القاعدة ... كان أسم الحقول .. name ,phone id
أتوقع أالحين فهمت في تصميم القاعدة المهم لا تعقد روحك أعمل التالي عدل خصائص الادوات التاليه في Section1 :
Text1 من خانه Data Fild>>>> name
===========================
Text2 من خانه Data Fild>>>> phone
============================
Text3 من خانه Data Fild>>>> id
=============================
معلومة :
ولو جاء أحد وسألك على أي اساس وضعنا الأسماء التاليه name ,phone و id نقول له على أساس القاعدة فيها هذه الحقول ...
=======================
مثل هذا الصورة سوف يكون التقرير بالشكل النهائي أنظر إلى الصورة
طيب ألحين أحنا بس عملنا ترتييب للمشروع باقي الأكواد
المهم قبل أن نضيف الاكود أذهب إلى قائمة Project >>> References لكي يظهر لك الـــ References
كما في الصورة الموضحة
وبعد أختيار References سوف يظهر لك مربع حوار References ثم قم بتحديد مكتبات الربط التاليه ..
Microsoft DataReport Designer v6.0
Microsoft Data Formatting Object Libary 6.0(SP4)
Microsoft Active Data Objects 2.1 Library
كما في الصورة الموضحة
ثم بعد ذلك ياعزيزي أضغط على موافق بكل فرح وسرور (:
الأن أذهب إلى المدويل Module1 ثم أضف فيها هذا الكود
============
كود:
Global Cn As ADODB.Connection
Private Sub main()
Set Cn = New ADODB.Connection
'فتح قاعدة بيانات بدون كلمة سريه
Cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\data.mdb;"
Form1.Show
End Sub
==============================
ثم أضغط على فورم 1 Form1 بالحديد في زر الكومند الذي سميناه (تقارير ) ضع هذا الكود في الزر
========
كود:
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM table1 order by name", Cn, adOpenDynamic, adLockBatchOptimistic
Set DataReport1.DataSource = rs
DataReport1.Show 1
rs.Close
==================
هل تصدق أنه خلاص أنتهى المشروع لم يبقى ألا شيء واحد وهو تحديد الفورم أو المدويل الذي سيعمل عند التشغيل !
طبعا أنتهينا من وضع الاكود وكل شيء بس بقى شيء واحد هو ... أتبع التالي !
اذهب من من القائمة المنسدلة Project >>>>>>> Project1 Properties
كما في الصورة
بعد الضغط على project1 Properties سوف يظهر لك مربع تخاطب properties هنا بالتحديد سوف نبقى في التبيويب جنرال general
وبالتحديد في Startup Object سوف تجد قائمه منسدلة أختر منها Sub Main ثم أضغط على أوكي
كما في الصورة الموضحة
والأن وبسرعه ياعزيزي أحفظ المشروع عشان مايروح تعبك بلاش ...
الان شغل البرنامج ووشوف المشروع وطريقة الربط بالكود الرائعه والممتعه ... وأتمنى الكثير يستفيد منها .....
وهذه صورة التقارير بعد تشغله
وبس .... ويارب يكون الدرس واضح ومفهوم وأي شيء أنا حاضر وممنون
وهذا والله أعلم ....
لكن توجد مشكلة نرغب من الأخوان حلها وهي
أذا رغب في طباعة تقرير عن سجل معين في القاعدة
المطلوب عند النقر على زر طباعة يقوم بمطابقة المكتوب في التكست وعرض السجل في التقرير لطباعته
ولكم تحياتي