تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة التعامل مع الكرستال ريبورت
#1
طريقة الربط أو الاتصال بالقاعدة البيانات ستكون بواسطة
الــ ADO وعن طريق الكود . والكريستال ريبورت الاصدار بين 7 وما فوق وقاعدة البيانات
2000 اكسس

سننشأ فورم ونسميه frmMain

أولاً : كود الأتصال بقاعدة البيانات

في التعريف العام General



PHP كود :
Dim cn As Connection
Dim rs1 
As Recordset
Set cn 
= New Connection
Set rs1 
= New Recordset
path 
App.path "\db1.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" path ";Persist Security Info=False"
rs1.Open "select * from customer"cn 


وللقاعدة المحمية بكلمة مرور الكود هذا ولاحظ الفرق




PHP كود :
Private Sub Form_Load()
Set cn = New Connection
Set rs1 
= New Recordset
Dim path 
As String
path 
App.path "\db1.mdb"
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" path ";jet oledb:database password=NIM"
cn.CursorLocation adUseClient

rs1
.Open "select * from customer"cnadOpenDynamicadLockOptimistic

End Sub 

واعتقد ان كود الاتصال واضح
ننتقل للمرحلة الأهم

ثانياً : نقوم بعمل مديول Module1 ونكتب الشفرة التالية




PHP كود :
Declare Function CreateFieldDefFile Lib "p2smon.dll" (lpUnk As Object_
ByVal filename 
As StringByVal bOverWriteExistingFile As Long_
As Long 


وهذا الكود لكي يقوم البرنامج بعمل قاعدة مؤقته لحفظ بيانات الاستعلام الناتج
من عملية المعاينة للتقرير

نتابع ...

ثالثاً : أدراج أداة الكريستال ريبورت

في نافذة project اضغط بالزر الأيمن وأضف الأداة

Crystal Report 8.5 أو الاصدار الموجود عندك
وقم بتبع عملية المعالج في أضافة قاعدة البيانات وأضافة الحقول وإلى آخر
في المثال كتاب يحوي شرح للعملية هذه .. وهي طريقة سهلة جدا ولكن
للمعرفة ... المهم سيقوم المعالج تلقائياً بأنشاء فورم Form1 ويحيوي ما يلي

Dim Report As New CrystalReport1




PHP كود :
Private Sub Form_Load()
Screen.MousePointer vbHourglass
CRViewer1
.ReportSource Report
CRViewer1
.ViewReport
Screen
.MousePointer vbDefault

End Sub 


PHP كود :
Private Sub Form_Resize()
CRViewer1.Top 0
CRViewer1
.Left 0
CRViewer1
.Height ScaleHeight
CRViewer1
.Width ScaleWidth

End Sub 


كما سيضيف لقائمة الأداوات الاداة Crystal Report Viewer control

المهم ... الشفرة التي أنشائها المعالج وهي مواصفات للتقرير من طول وعرض وآخره
لا نحتاجها وسنستبدلها بالشفرة التالية



PHP كود :
Dim Report As New CrystalReport1
Dim cn 
As Connection
Dim rs1 
As Recordset 

PHP كود :
Private Sub Form_Load()

Set cn = New Connection
Set rs1 
= New Recordset
path 
App.path "\db1.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" path ";Persist Security Info=False"
rs1.Open "select * from customer"cn

Report
.DiscardSavedData
Report
.Database.SetDataSource rs131

CRViewer1
.ReportSource Report
CRViewer1
.ViewReport
Screen
.MousePointer vbDefault

End Sub 



PHP كود :
Private Sub Form_Resize()
CRViewer1.Top 0
CRViewer1
.Left 0
CRViewer1
.Height ScaleHeight
CRViewer1
.Width ScaleWidth

End Sub 

طبعا هذا الكود سيكتب في الفورم المنشء من قبل المعالج

وأخيراً

رابعاً : عرض أداة التقارير

في الفورم الرئيسي Form1 سنقوم بأنشاء زر
ولنسمية Show Report




PHP كود :
'HnHn
'
عملية أنشاء قاعدة لحفظ نا تج عملية الاستعلام

CreateFieldDefFile rs1
App.path "\customer.ttx"1
Form1
.Show 


وهذا الكود مكمل للكود السابق المكتوب في المديول
[COLOR=blue]customer.ttx وهذه هي قاعدة البيانات المؤقته التي يتم
تخزين ناتج الاستعلام فيها

وهذا ملخص لعملية عرض تقرير لأداة الكريستال

وأرجو أن أكون قد أديت رسالة ليستفاد منها الجميع .... وشكراً

المثال في المرفقات



الملفات المرفقة
.rar   test sales by ado&Adox.rar (الحجم : 83.98 ك ب / التحميلات : 139)
الرد }}}
تم الشكر بواسطة: abulayth
#2
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
الرد }}}
تم الشكر بواسطة:
#3
بارك الله فيك

شكرا على المجهود
الرد }}}
تم الشكر بواسطة:
#4
اخي الكريم ممكن رابط لتحميل الكريستال 8.5 مع التفعيل؟
وشكرا
الرد }}}
تم الشكر بواسطة:
#5
ممكن كتاب لشرح التعامل مع تقرير كريستال ريبورت بفيجول بيسك 6 وقاعدة بيانات اكسس

عايز كتاب لشرح تقرير كريستال ريبورت بفيجول بيسك 6
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية استخدام Group Header فى داتا ريبورت لتجميع البيانات حسب حقل معين haithamelareny 1 694 31-05-23, 09:28 PM
آخر رد: مصمم هاوي
  شرح بسيط بالصور طريقة عمل تقرير بالـــDatareport بــ إستخدام adodb hago 20 21,737 06-10-20, 10:27 PM
آخر رد: mohhasddx1
  الرجاء المساعدة في طباعة جدولين في نفس الصفحة اكتيف ريبورت HASAN6.0 3 5,119 19-03-20, 08:07 PM
آخر رد: hannileo
  ترصيد (دائن - مدين- الرصيد) آكتيف ريبورت hsab 7 6,183 11-06-19, 01:31 PM
آخر رد: awidan76
  [سؤال] عرض رقم الصفحه في اكتف ريبورت Visual_Basic 3 3,011 09-11-17, 05:46 PM
آخر رد: Amir_Alzubidy
  المساعده بخصوص رسالة فى اكتف ريبورت gadr 0 2,559 15-03-16, 03:21 AM
آخر رد: gadr
  [مثال] تصدير البيانات من اكتف ريبورت الى ووارد gadr 2 3,194 26-02-16, 10:49 PM
آخر رد: awidan76
  [سؤال] ملف آكتيف ريبورت معطوب hsab 2 3,432 11-07-15, 11:38 AM
آخر رد: hsab
  ما هى طريقة ربط تقرير DataReport بقاعدة بيانات اكسس محمية بكلمة مرور مصمم هاوي 1 3,201 20-06-15, 03:35 PM
آخر رد: Amir_Alzubidy
  خطأ في كود التفقيط للارقام في الكريستال ريبورت 10 ارجوا الحل ضروري abu jana 1 4,049 31-01-15, 03:58 PM
آخر رد: abdhassan

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم