+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : طباعة form+ datagrid (/showthread.php?tid=22357)
الصفحات:
1
2
طباعة form+ datagrid - hannileo - 01-11-17
السلام عليكم ورحمة الله وبركاته ,,,
اخواني الكرام
كيف اقوم بتحويل البيانات من جدول الى جدول او من فورم الى فورم اخر بشكل (بشكل مؤقت ليس للحفظ ) للطباعة
عندما اقوم بعمل بحث فانه يظهر النتيجة وبعد الضغط على زر Show report
فانه يقوم بنسخ النتيجة منالجدول في فورم1 الى جدول في فورم2
وبعدها اضغط زر طباعة فيقوم بطباعة الفورك كامل مع جميع الادوات والجدول
يوجد مثال بالمرفقات للتعديل ان أمكن
وشكراً لكم
RE: طباعة form+ datagrid - الاصيله - 01-11-17
السلام عليك
لطباعة الفورم اكتب الكود التالي
PrintForm
RE: طباعة form+ datagrid - sendbad100 - 01-11-17
(01-11-17, 09:25 AM)hannileo كتب : السلام عليكم ورحمة الله وبركاته ,,,
اخواني الكرام
كيف اقوم بتحويل البيانات من جدول الى جدول او من فورم الى فورم اخر بشكل (بشكل مؤقت ليس للحفظ ) للطباعة
عندما اقوم بعمل بحث فانه يظهر النتيجة وبعد الضغط على زر Show report
فانه يقوم بنسخ النتيجة منالجدول في فورم1 الى جدول في فورم2
وبعدها اضغط زر طباعة فيقوم بطباعة الفورك كامل مع جميع الادوات والجدول
يوجد مثال بالمرفقات للتعديل ان أمكن
وشكراً لكم
وعليكم السلام
في الفورم1
PHP كود :
Private Sub Command2_Click()
Set Form2.DataGrid1.DataSource = Me.Adodc1.Recordset
Form2.Show
End Sub
وفي الفورم2
PHP كود :
Private Sub Command1_Click()
Me.PrintForm
End Sub
RE: طباعة form+ datagrid - الاصيله - 01-11-17
اما بالنسبة لنقل معلومات جدول الى اخر فالكود كالتالي
كود :
If RS.State = adStateOpen Then RS.Close
RS.Open "Insert Into Table2 In'" & App.Path & "\db1.mdb" & "'" & _
" Select * From Table1 Where Name Not IN (Select Name From Table2 IN'" & App.Path & _
"\db1.mdb" & "')", DB, adOpenDynamic, adLockOptimistic
MsgBox "تمت العملية بنجاح", vbInformationوهذا طلبك في المثال
RE: طباعة form+ datagrid - hannileo - 01-11-17
(01-11-17, 02:03 PM)الاصيله كتب : اما بالنسبة لنقل معلومات جدول الى اخر فالكود كالتالي
كود :
If RS.State = adStateOpen Then RS.Close
RS.Open "Insert Into Table2 In'" & App.Path & "\db1.mdb" & "'" & _
" Select * From Table1 Where Name Not IN (Select Name From Table2 IN'" & App.Path & _
"\db1.mdb" & "')", DB, adOpenDynamic, adLockOptimistic
MsgBox "تمت العملية بنجاح", vbInformation
وهذا طلبك في المثال
شكرا لكم الاخت الأصيلة والاخ سندباد عل المساعدة
بارك الله بكم
ولكن يوجد عندي مشكلة صغيرة ظهرت بعد الطباعة
هي حجم datagrid بعد الطباعة اذا كانت تحتوي عىل عدد كبير من الحقول فانه يجب ان تاخذ الحجم المناسب للطباعة لكي تظهر الحقول المخفية واخفاء السكرول
وهل هناك اداة افضل من DATA GRID للطباعة مثل هذه الطريقة
وشكراً جزيلاً لكم
RE: طباعة form+ datagrid - hannileo - 01-11-17
(01-11-17, 03:42 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله
انا لدّي اقتراح اخر هو ارسال ناتج الاستعلام الى الاداة الداتا قريد في الفورم الثاني
و بعد ذلك يتم طباعة الناتج مباشرة الى التقرير سواء داتا ريبورت او اكتيف ريبورت .
اهلا استاذ أمير اشكرك عل الرد
ولكن المشكلة انا لم اجرب مطلقا طريقة الداتا ريبورت او الاكتف ريبورت
وخاصة انني اعمل بهذا الاداة Adodc
هل يمكنك مساعدتي بعمل المثال بسيط لكي اتعلمها
وشكرا جزيلا لك
RE: طباعة form+ datagrid - hannileo - 02-11-17
(01-11-17, 04:33 PM)Amir_alzubidy كتب : السلام عليكم ورحمة الله
اهلا بك اخي هاني
هذا تعديل باضافة التقرير الى المشروع :
بارك الله بك وبجهودك استاذ امير
الامر جدا بسيط لم اتوقع ان يكون بهذه السهولة
ولكن هل يمكن وضع كل رقم باص في صفحة طباعة يعني عندما وضعت الارقام 10 الى 15 مثلا اريده ان يظهر كل list للباص في صفحة لطباعته بدل اظهارها جميعاً
ان كان هذا الامر صعباً فلا مشكلة بكل الاحوال
شكرا لك و جعلها الله في ميزان حسناتك
RE: طباعة form+ datagrid - hannileo - 04-11-17
(03-11-17, 04:10 PM)Amir_alzubidy كتب : السلام عليكم ورحمة الله وبركاته
هذا مثال لكيفية انشاء Grouping
المثال :
ملاحظة : تم انشاء التقرير على الاكتيف ريبورت
يمكنكم تنزيل النسخة من ActiveReportsv2.5.rar
بالاضافة الى الربط بتقنية ADO Active X
اشكرك من قلبي يوم الاحد ان شاء الله انا متحمس لتجربتها على برنامجي ولكن السؤال هل يجب عند تحزيم البرنامج ان اقوم بتنصيب الاكتيف ريبورت ايضاً على الكمبيوتر الذي اقوم بتنصيب البرنامج عليه ام انه يقوم بنسخه الياً
شكراً لك وبارك الله بك و بجهودك
RE: طباعة form+ datagrid - hannileo - 05-11-17
(04-11-17, 01:39 AM)Amir_alzubidy كتب : الشكر لله اخي هاني
نقول ان شاء الله
لا لن تحتاج الى تنصيب نسخة
الاكتيف ريبورت على جهاز المستفيد
بعد انشاء التحزيم ،
فقط على نسخة الويندوز التي تقوم بتشغيل المشروع عليها .
بارك الله في الجميع
بارك الله بك الطريقة عملت ولكن ليس بشكل جيد فظهرت عندي بعض المشاكل
المشكلة الاولى انني لااستطيع عمل قاعدة بيانات اخرى بارقام الباصات لانها بالاحرى موجودة ولكن بملف قاعدة بيانات اخر وليست معها كما مبين بالصور المرفقة
والموضوع الاخر الانصال بقاعدة البيانات لانني كما تعلم برنامجي متصل بقاعدة البيانات عن طريق Adodc
هل يجب الانصال بطريقتك ام ابقى على طريقتي
وهل يوجد طريقة بدون قاعدة بيانات اخرى بارقام الباصات لان بعض الباصات لاتحتوي على طلاب بالاساس
والله انا اعتذر منك على كثر طلباتي ولكن انت دائماً تعطيني الحل الامثل وبتفاصيل اجمل
شكرا لك على كل حال وجعلها في ميزان حسناتك
RE: طباعة form+ datagrid - hannileo - 05-11-17
(05-11-17, 11:54 AM)Amir_alzubidy كتب : السلام عليكم و رحمة الله
انا ما فهمت ايش الحكاية بالضبط
لكن تم تعديل المرفق بناءً على قاعدة البيانات التي تم ارفاقها في المشاركات السابقة
هذا تعديل الربط بالادوات
وعليكم السلام ورحمة الله وبركاته ,,,
نعم هذا جزء كبير من الذي اريده
ولكن المشكلة عندي انت قمت بعمل قاعدة بيانات بارقام الباصات بالاضافة لقاعدة البيانات الاولى
لذلك انني لا استطيع ان اعمل هذا الجدول لان الارقام متغيرة ومربوطة بجداول اخرى لذلك سوف تاخذ جهد كبير لاعادة صياغتها بطريقتك
انت لديك قاعدتين بيانات بنفس الملف
انا عندي قاعدة باسم ارقام الطلاب مع ارقام الباصات تشبه Students
والثانية هي عبارة عن معلومات الباصات التي تشبه BusNo ولكن كل واحدة بمجلد مختلف
والله اشعر بالخجل منك و سامحني
ولا استطيع ان اشرحها بطريقة واضحة اكثر لكن نفس المثال *المرفق ارفقته مرة ثانية ووضعت قاعدة بياتات اخرى بجانب القديمة تحتوي على ارقام الباصات
وشكرا لك من قلبي