تقييم الموضوع :
  • 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 ك ب / التحميلات : 39)
الرد }}}}
تم الشكر بواسطة: abulayth
#2
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
الرد }}}}
تم الشكر بواسطة:
#3
بارك الله فيك

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  شرح بسيط بالصور طريقة عمل تقرير بالـــDatareport بــ إستخدام adodb hago 18 5,027 11-10-16, 11:21 PM
آخر رد: زياد مقداد
  المساعده بخصوص رسالة فى اكتف ريبورت gadr 0 140 15-03-16, 03:21 AM
آخر رد: gadr
  [مثال] تصدير البيانات من اكتف ريبورت الى ووارد gadr 2 256 26-02-16, 10:49 PM
آخر رد: awidan76
  [سؤال] ملف آكتيف ريبورت معطوب hsab 2 429 11-07-15, 11:38 AM
آخر رد: hsab
  ما هى طريقة ربط تقرير DataReport بقاعدة بيانات اكسس محمية بكلمة مرور مصمم هاوي 1 496 20-06-15, 03:35 PM
آخر رد: Amir_alzubidy
  خطأ في كود التفقيط للارقام في الكريستال ريبورت 10 ارجوا الحل ضروري abu jana 1 1,169 31-01-15, 03:58 PM
آخر رد: abdhassan
  كيف اقوم بطباعة صورة من مسار معين فى كريستال ريبورت ؟ gedo 3 1,183 10-11-14, 06:11 PM
آخر رد: gedo
  مساعده في عمل تقرير بالداتا ريبورت الاصيله 11 1,668 21-09-14, 01:16 PM
آخر رد: abdala
  دروس فيديو :: كل شيء عن الداتا ريبورت MS DataReports hago 4 1,302 10-08-13, 06:05 AM
آخر رد: benomar
  مشكلة عدم فتح كريستال ريبورت hamada666 1 814 02-07-13, 10:02 AM
آخر رد: hamada666

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


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