![]() |
أضيف في: 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 |
![]() |
![]() |
![]() ![]() ![]() ![]() ![]() |
|
خيارات الدرس : ![]() ![]() ![]() |