شرح برامج » لغات البرمجة »  الدرس الثالث عشر انشأ برنامجك بالفيجوال بيسك

  الدرس الثالث عشر انشأ برنامجك بالفيجوال بيسك  أضيف في: 6-12-1426هـ
الحلقة الثالثة عشر والأخيرة

كيفية استخدام DATA REPORT مع الفيجوال بيسك 6.00

خطوات التعامل مع التقارير Data Report

الخطوة الأولى : تصميم النموذج ووضع زر طباعة على النموذج مثل التصميم المرفق بالصورة التالية

http://www.arabteam2000.com/picload/Files/1_532005053330.1397516.JPG

2 – نبدأ بتصميم التقرير بحيث نختار قائمة project ثم add data report من القائمة المنسدلة كما هو واضح بالصورة

http://www.arabteam2000.com/picload/Files/2_532005055252.224368E-02.JPG

– يظهر التقرير كما ترى بالصورة التالية

http://www.arabteam2000.com/picload/Files/3_532005057180.2856104.JPG

أدوات تصميم التقرير

http://www.arabteam2000.com/picload/Files/4_53200510530.3469355.JPG

بعض الخصائص الهامة لتصميم التقرير

http://www.arabteam2000.com/picload/Files/5_53200516130.4327661.JPG

الخطوة الثانية : وضع الحقول والعناوين والصور على التقرير

http://www.arabteam2000.com/picload/Files/6_532005111240.2282831.JPG

حيث يتم كتابة اسم الحقل في خاصية Data Filed لمربعات النصوص المعبرة عن الحقول

كتابة التعليمات لإظهار البيانات المطلوبة :

طباعة كل البيانات في الجدول

إذا أردنا طباعة كل العملاء في جدول العملاء عميل محدد يتم الضغط على اسم العميل ( حسب تصميمك لشاشة العملاء ) ثم نضغط زر طباعة ويكون الكود كالتالي
CODE
If rsrep.State = adStateOpen Then rsrep.Close
rsrep.Open "emp", db, adOpenDynamic, adLockOptimistic
Set repemp.DataSource = rsrep
repemp.Sections("section2").Controls("lb1").Caption = Format(Date, "yyyy/mm/dd")
repemp.Show
dlist


طباعة سجلات محددة

إذا أردنا طباعة عميل محدد يتم الضغط على اسم العميل ( حسب تصميمك لشاشة العملاء ) ثم نضغط زر طباعة ويكون الكود كالتالي
CODE
Dim sql As String
sql = "select * from emp where emp_no = " & Val(Text1.Text)
If rsrep.State = adStateOpen Then rsrep.Close
rsrep.Open sql, db, adOpenDynamic, adLockOptimistic
Set repemp.DataSource = rsrep
repemp.Sections("section2").Controls("lb1").Caption = Format(Date, "yyyy/mm/dd")
repemp.Show
dlist


وبهذا نكون قد أنهينا هذه السلسة من الدروس لإنشاء مشروع كامل وأتمنى من الله تعالى أن تكونوا قد استفدتم من هذه الدروس وان تكون قد أضافت شيء لمعلوماتكم عن البرمجة باستخدام قواعد البيانات والى لقاء قادم عن شاء الله والسلام عليكم ورحمة الله وبركاته


الكاتب: LaSer_26 انقر هنا لمراسلة LaSer_26 أنقر هنا للإنتقال إلى موقع LaSer_26 إضافة للمفضلة إضافة لمفضلة Google إضافة لمفضلة Delicious إضافة لمفضلة Digg إضافة لمفضلة Facebook
خيارات الدرس : ارسل الدرس لصديق ارسل الدرس لصديق  طباعة الدرس طباعة الدرس  حفظ الدرس كملف Word حفظ الدرس كملف Word 



 

مكتبة الصور

مكتبة الصوتيات

مكتبة البطاقات

مكتبة الأخبار

مكتبة الفيديو

مكتبة الفلاشيات

مكتبة الجوال ألعاب الجوال نغمات الحمية والرجيم موسوعة الاعشاب تطوير الذات
ديوان الشعر عالم الجنس عالم المرأة الأذكار شرح البرامج

قنوات فضائية

الأدعية الصحيحة المنتديات مكتبة القصص موسوعة الطبخ

مجلة قصيمي نت

موسوعة الكتب