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

عرض كريستال ريبورت 10 من خلال فيجوال 6

مغلق
بدأه nehadt في 25 أغسطس 2007 · 4 رد · 1,821 مشاهدة · في قسم التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ياجماعة الخير

ارجو منكم الحل بشكل سريع اذا فيه حد يعرف وجزاكم الله الخير

الجداول اكسس 2003 التقارير كريستال 10 الفورم بعملها على vb6

وتصميمى للتقارير من خارج الفيجوال.. من الكريستال نفسه..

المشكلة اولا : هو انى باضيف مكون الكريستال 10 على الفيجوال لكن فى الخصائص مفيش مكان اربط فيه مصدر التقرير الفعلى rpt

وبالتالى ثانيا : مش عارفة ازاى اعمل زر على فورم الفيجوال يعرض التقرير او يطبعه

ثالثا : هل بالضرورة يستطب الفيجوال والكريستال على كل جهاز لكل مستخدم بعد كده والا فيه ملفات معينة للتشغيل تكون فى باكدج في النهاية؟؟؟

برجاء المساعدة في حل هذه المشكلة اللى وقفت شغلى كله

#2

يا مان والله الموضوع ده انا اتعلمته من نفسى :>

اعمل على اى فروم كلك يمين وبعدين اختار add وبعدين Crystal Reports 10

بخصوص ملفات التشغيل

ادخل على الرابط ده وحمل الحزمه الى فيه وسطبها على جهاز الزبون

/index.php?showtopic=138702

بخصوص انك تعمل امر ويظهرلك التقرير

'

Private Sub cmbPreview_Click()

Screen.MousePointer = vbHourglass

Form4!CRViewer1.Refresh

Form4.Show 1

End Sub

مع ملاحظة تغيير اسم Form4 الى الفروم الى فيها التقرير

تحياتى وياريت اكون افدتك

zo_om4@yahoo.com

تم تعديل هذه المشاركة بواسطة الـــــــــــــفـــــــــــــــاشـــل في 31 أكتوبر 2007 في 23:22

#3

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

جربتوا الحزمة ؟؟؟ اتوكل على الله و احملها ؟

منتظرة ردكم أفادكم الله

#4
الـــــــــــــفـــــــــــــــا كتب:
يا مان والله الموضوع ده انا اتعلمته من نفسى :>

اعمل على اى فروم كلك يمين وبعدين اختار add وبعدين Crystal Reports 10

بخصوص ملفات التشغيل

ادخل على الرابط ده وحمل الحزمه الى فيه وسطبها على جهاز الزبون

/index.php?showtopic=138702

بخصوص انك تعمل امر ويظهرلك التقرير

'

Private Sub cmbPreview_Click()

Screen.MousePointer = vbHourglass

Form4!CRViewer1.Refresh

Form4.Show 1

End Sub

مع ملاحظة تغيير اسم Form4 الى الفروم الى فيها التقرير

تحياتى وياريت اكون افدتك

zo_om4@yahoo.com

اولا شكرا يااخى الكريم على مساعدتك

ولكن اللينك االى كتبته /index.php?showtopic=138702

مفيش فيه اى حزم او اكواد

ثانيا لما اعمل على اى فريم كلك يمين مفيش مجال اختيار add وبعدين Crystal Reports 10

ومع ذلك شكرا جدا على اهتمامك

#5

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

أخي الكريم انا أعمل ما يلي لعرض التقرير

Dim m_application As New CRAXDDRT.Application
Dim m_report As New CRAXDDRT.Report

Private Sub Form_Load()
Call Form_Resize
Screen.MousePointer = vbHourglass
Report = RealPath & "Qetaa.rpt "
Set m_report = m_application.OpenReport(Report)
CRViewer1.ReportSource = m_report
CrViewer.Zoom 1
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth

End Sub

ده لو عايزه يتحمل التقرير بمجرد تحميل الفورم لكن اذا تحب يظهر لما اضغط على زر يمكنك نقل الكود الموجود في Form_Load الى cmdxxx_click

ملحوظة :

Report = RealPath & "Qetaa.rpt "

RealPath دي داله عندي " تفصيل " بتجيب مسار قاعدة البيانات مستخدمة فيها داله AppPath

Qetaa.rpt ده اسم التقرير اللي عايزه افتحة

أرجو ان اكون فهمت طلبك و أجبتك عليه

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

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