السلام عليكم و رحمة الله و بركاته درس مفيد جدا منقول من احد المنتديات بسم الله الرحمن الرحيم نبدأ . أولاً - مدخل إلى الدرس : كل من قام بتصميم برنامج قواعد بيانات بسيطاً كان أم معقداً فلا بد و أنه فكر في إضافة ميزة الطباعة لبرنامجه و التي تعد من أهم الميزات في كل البرامج . و لعمل أمر طباعة إحترافي و مع ميزة عرض قبل الطباعة فأنت إذاً سوف تحتاج إلى أداة رائعة تأتي مع فيجوال بيسك و هي data report ثانياً - بداية إنشاء داتا ريبورت : إذا كنت قد قررت إنشاء تقاريرك بواسطة داتا ريبورت فالأمر سهل جداً و ما يحتاج تعقيد . أنا راح أحاول أشرح شرح مبسط أوكي .. بعد تجهيز قاعدة البيانات المراد العمل بها و معرفة المشروع ننفذ الخطوات التالية و على سبيل المثال سوف نأخذ برنامج دليل الهاتف الذي صممناه منذ مدة ... حتى نطوره و نجعله يطبع نتائج البحث . من القائمة project >>>> more activx designers >>> data enviroment فتظهر لنا نافذة جديدة .... ننقر بها على الرمز connection1 بالزر الأيمن ثم نختار properties ثم نحدد النمط microsoft jet 4.0 ole db provider و من التبويب الثاني نحدد إسم قاعدة البيانات ثم نضغط على الامر test ((إختبار الاتصال )) و سوف يعطينا رسالة بنجاح الاتصال نضغط موافق ثم موفق ... فنعود مرة أخرى إلى واجهة data enviroment الرئيسية نضغط مرة اخرى على connection1 باليمين و نختار add command ثم نضغط على command1 باليمين و نختار properties نفعل على الخيار SQL statement و نكتب في المربع السفلي أي عبارة sql مثلاً CODE select * from mok ثم نختار موافق .... فنلاحظ أن الحقول الموجودة بالجدول المحدد قد أدرجت ... و هنا نكون قد تجاوزنا القسم الأول و الصعب نسبياً . مبروووووك ثالثاً - إنشاء التقرير : بعد أن حققنا الربط مع قاعدة البيانات نختار من القائمة project الأمر add data report فنلاحظ ان التقرير مقسم إلى خمس أقسام الأول - report header رأس التقرير ... و فيه تكتب العبارة التي سوف تظهر في رأس أول صفحة من تقريرك مثلاً اسم شركتك مثلاً : المختار للبرمجة طبعاً بواسطة أداة الليبل الخاصة بالتقرير .. و سوف تلاحظ وجودها بمربع الأدوات عند وجودك ضمن التقرير الثاني - page header رأس الصفحة ..... و هي العبارة التي تظهر في رأس كل صفحات التقرير تكتب فيها مثلاً . تقرير بنتائج البحث . الثالث - detail و هو الأهم و سوف نتكلم عنه آخر شي. الرابع Page footer تذبيل الصفحات الخامس report footer تذبيل التقرير .... الأهم الآن ماذا نفعل في القسم الثالث detail و ببساطة شديدة نفتح واجهة data enviroment ثم نفتح connection1 ثم command1 ثم نحدد الحقل الأول مثلاً (( الاسم )) و نسحبة إلى ان نصل به إلى القسم الثالث ثم نقوم بإفلاته و نعمل نفس الشيء مع بقية الحقول .... ثم نقوم بتنسيق التقرير .. على ذوقنا. رابعاً - إظهار التقرير : الآن نقوم بوضع زر أمر في الفورم تحت عنوان طباعة و نكتب فيه الكود التالي datareport1.show نفذ البرنامج و اسمتمع ..... خامساً - التقرير الحي : إلى الآن فمن المفترض أنك قد قمت بإنشاء تقرير رائع .... و لكن ألا تلاحظ ان تقرير يعرض كل السجلات ... و المطلوب منه هو ان يعرض السجلات التي قمنا بالبحث عنها فقط .. أليس كذلك .. الآن سوف نتعلم كيف نجعل التقرير مرتبط بجملة SQL إذا كنت قد لاحظت سير الدرس فلا بد و انك قد انبهت ان التقرير قد ارتبط بقاعدة البيانات عن طريق data environment و ببساطة لتطبيق استعلام على التقرير يكفي تطبيقه على الـ data environment و لتطبيق الاستعلام عليها نضيف الكود التالي إلى كود البحث . With DataEnvironment1 .Commands(1).CommandType = adCmdText .Commands(1).CommandText = "هنا ضع جملة الاستعلام " .Commands(1).Execute If .rsCommand1.State = 1 Then .rsCommand1.Close End If End With *** منقول

جزاك الله خيرا أخي ... شرح واضح ومفهوووم ...