الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عرض صورة في التقرير باستخدام ال DataReport

مغلق
بدأه COMFORT في 14 أغسطس 2006 · 5 رد · 1,327 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله و بركاته

كيف أقوم بعرض صورة في تقرير مصمم بالـ DataReport

أنا مثلاً عندي برنامج شوؤون موظفين عند إدخال بيانات موظف يكون في إمكانية

إضافة صورة للموظف هذه الصورة يتم تخزينها في قاعدة البيانات على شكل Binary في

حقل اسمه Emp_Picture و من النوع 'مذكرة' و هذه الطريقة التي أستخدمها :

Public Sub SevImg()
	Dim Sor As String
	If Trim$(CommonDialog1.FileName) = "" Then Exit Sub
	Open CommonDialog1.FileName For Binary As #1
	Sor = String(LOF(1), vbNullChar)
	Get #1, , Sor
	RS![Emp_Picture] = Sor
	 Close #1
End Sub

هذا هو الاجراء الذي استخدمته لتخزين الصورة .

و هذا اجراء الاسترجاع :

Public Function LoadImg()
	If RS![Emp_Picture] <> "" Then
		Dim Sor As String
		Open App.Path & "\TempImg.jpg"  For Binary As #1
		Sor = RS![Emp_Picture]
		Put #1, , Sor
		Close #1
		Image1.Picture = LoadPicture(App.Path & "\TempImg.jpg" )
		Kill App.Path & "\TempImg.jpg"  
	Else
		Set Image.Picture = Nothing
	End If
End Function

حتى الآن لا مشكلة ، المشكلة عندما أريد أن أعرض البيانات الشخصية لموظف ما

و من ثم طباعة هذه البيانات أريد أن أضع صورة الموظف في التقرير مع باقي بياناته

حاولت عمل ذلك و لكني لكم أنجح و استخدمت السطر التالي :

Datareport1.Sections("Sction2").Controls("Image1").Picture = LoadPicture(App.Path & "\temp.jpg")

أتمنى أن أجد الحلول باستخدام الـ Datareport و ليس اقتراحات CrystalReports فأنا حالياً صممت البرنامج بالـ Datareport

إن لم يكن هنا حل بالـ Datareport فلن يكون هناك باليد حيلة و سأستخدم الـ Crystalreport إن شاء الله .

و جزاكم الله خيراً .

تم تعديل هذه المشاركة بواسطة COMFORT في 14 أغسطس 2006 في 07:49

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#2

السلام عليك يا أخي... استخدم الكود التالي ..

set Datareport1.Sections("section2").Controls("Image1").Picture = LoadPicture(App.Path & "\temp.jpg")

أخبرني بما يحدث معك.

تم تعديل هذه المشاركة بواسطة الوسيط في 14 أغسطس 2006 في 09:22

#3

قد يكون الحل في سؤالك إن لم أكن مخطيء

أولاً : الصورة انت حذفتها قبل استدعاء التقرير

ثانياً : اسم الصورة في التقرير غير مشابه لاسم الصورة عند الاستعادة TempImg.jpg و temp.jpg

و اجعل حذف الصورة عند اغلاق البرنامج مثلاً أو عند البحث أو تغير قيمة أحد الحقول

و أتمنى لك التوفيق

#4

أخي الكريم الفريد

هل جربت أنت الطريقة التي ذكرتها 

set Datareport1.Sections("section2").Controls("Image1").Picture = LoadPicture(App.Path & "\temp.jpg")

لأني فعلاً جربت هذا السطر و انظر مشاركتي ستراه

المشكلة ليست في حذف الملف أنا أعلم أني حذفت الملف و لكني

جربت من غير أن أحذف و قمت بتجربتها خارج برنامج لتجربة

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

ذكرتها جزاك الله خيراً و لكن الخطأ الذي ظهر ليس 'File Not Found'

و إنما 'Object Doesn't Support This Propert Or Method'

إن كانت الطريقة التي اتستخدمها تنجح معك فياريت ترفق لي مثال

و جزاك الله خيراً .

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#5

الأخ الفاضل :

الحل مرفق .. و هناك ملاحظتين

الأولى

هنا لابد من وجود ملف الصورة 

With DataReport1
   Set .DataSource = rs
   Set .Sections("Section1").Controls("Image1").Picture = LoadPicture(App.Path & "\TempImg.jpg") 
		 .Show
End With

الثانية هنا نستطيع حذف الصورة و تحميلها في التقرير من خلال الفورم

With DataReport1
   Set .DataSource = rs
   Set .Sections("Section1").Controls("Image1").Picture = Form1.Image1.Picture
		 .Show
End With

و دمتم

Example_.rar

تم تعديل هذه المشاركة بواسطة الفريد في 14 أغسطس 2006 في 23:17

#6

جزاك الله كل خيرا أخي الفاضل الفريد تم حل المشكلة

المشكلة فقط كانت في كلمة Set و عندما جربت المثال الخاص بك وجدتها

و لكن بدونها سيظهر لك الخطأ الذي ذكرته لأني قد كتبت هكذا :

Datareport1.Sections("section2").Controls("Image1").Picture = LoadPicture(App.Path & "\temp.jpg")

بعد التصحيح :

set Datareport1.Sections("section2").Controls("Image1").Picture = LoadPicture(App.Path & "\temp.jpg")

أشكرك مرة أخرى .

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…