21-12-12, 01:21 AM
طريقة الربط أو الاتصال بالقاعدة البيانات ستكون بواسطة
الــ ADO وعن طريق الكود . والكريستال ريبورت الاصدار بين 7 وما فوق وقاعدة البيانات
2000 اكسس
سننشأ فورم ونسميه frmMain
أولاً : كود الأتصال بقاعدة البيانات
في التعريف العام General
وللقاعدة المحمية بكلمة مرور الكود هذا ولاحظ الفرق
واعتقد ان كود الاتصال واضح
ننتقل للمرحلة الأهم
ثانياً : نقوم بعمل مديول Module1 ونكتب الشفرة التالية
وهذا الكود لكي يقوم البرنامج بعمل قاعدة مؤقته لحفظ بيانات الاستعلام الناتج
من عملية المعاينة للتقرير
نتابع ...
ثالثاً : أدراج أداة الكريستال ريبورت
في نافذة project اضغط بالزر الأيمن وأضف الأداة
Crystal Report 8.5 أو الاصدار الموجود عندك
وقم بتبع عملية المعالج في أضافة قاعدة البيانات وأضافة الحقول وإلى آخر
في المثال كتاب يحوي شرح للعملية هذه .. وهي طريقة سهلة جدا ولكن
للمعرفة ... المهم سيقوم المعالج تلقائياً بأنشاء فورم Form1 ويحيوي ما يلي
Dim Report As New CrystalReport1
كما سيضيف لقائمة الأداوات الاداة Crystal Report Viewer control
المهم ... الشفرة التي أنشائها المعالج وهي مواصفات للتقرير من طول وعرض وآخره
لا نحتاجها وسنستبدلها بالشفرة التالية
طبعا هذا الكود سيكتب في الفورم المنشء من قبل المعالج
وأخيراً
رابعاً : عرض أداة التقارير
في الفورم الرئيسي Form1 سنقوم بأنشاء زر
ولنسمية Show Report
وهذا الكود مكمل للكود السابق المكتوب في المديول
[COLOR=blue]customer.ttx وهذه هي قاعدة البيانات المؤقته التي يتم
تخزين ناتج الاستعلام فيها
وهذا ملخص لعملية عرض تقرير لأداة الكريستال
وأرجو أن أكون قد أديت رسالة ليستفاد منها الجميع .... وشكراً
المثال في المرفقات
الــ 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", cn, adOpenDynamic, adLockOptimistic
End Sub
واعتقد ان كود الاتصال واضح
ننتقل للمرحلة الأهم
ثانياً : نقوم بعمل مديول Module1 ونكتب الشفرة التالية
PHP كود :
Declare Function CreateFieldDefFile Lib "p2smon.dll" (lpUnk As Object, _
ByVal filename As String, ByVal 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 rs1, 3, 1
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 وهذه هي قاعدة البيانات المؤقته التي يتم
تخزين ناتج الاستعلام فيها
وهذا ملخص لعملية عرض تقرير لأداة الكريستال
وأرجو أن أكون قد أديت رسالة ليستفاد منها الجميع .... وشكراً
المثال في المرفقات