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

الدرس الثالث عشر انشأ برنامجك بالفيجوال بيسك			أضيف في: 6-12-1426هـ
الحلقة الثالثة عشر والأخيرة كيفية استخدام DATA REPORT مع الفيجوال بيسك 6.00 خطوات التعامل مع التقارير Data Report الخطوة الأولى : تصميم النموذج ووضع زر طباعة على النموذج مثل التصميم المرفق بالصورة التالية 2 – نبدأ بتصميم التقرير بحيث نختار قائمة project ثم add data report من القائمة المنسدلة كما هو واضح بالصورة – يظهر التقرير كما ترى بالصورة التالية أدوات تصميم التقرير بعض الخصائص الهامة لتصميم التقرير الخطوة الثانية : وضع الحقول والعناوين والصور على التقرير حيث يتم كتابة اسم الحقل في خاصية 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

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