كريستال ريبورت 8
صفحة 1 من اصل 1 • شاطر
كريستال ريبورت 8
السلام عليكم اخوتي الكرام
أريد منكم ان تمدوني بامثله وكتب عن كيفية استخدام الكريستال ريبورت 8 مع الفيجوال بيسك 6 باي شي ممكن يفدني وفي اسرع وقت ممكن لو سمح لكم الوقت وجزاكم الله عني الف خيييير وبراك الله فيكم
اخوكم سعد الهادي
saadalhadi- ...
- تاريخ التسجيل : 14/05/2013
المساهمات : 32
النقاط : 44
التقيم : 0
الدولة :
الجنس :
رد: كريستال ريبورت 8
قم برسم الأداة CrystalReport 8
وأعد تسميها إلى cr1 وضع زر بتسمية cmdreport
وضع هذا الكود تحته
وهذا شرح تفصيلي للأصدار 8 والشرح من الاستاذ /هانى الشايب وكل له طريقته في ربط تلك الاداة المتميزة بعضها يختصر على الكود كالسابق . .... فالنبدأ
ملاحظة : . طريقة الربط أو الاتصال بالقاعدة البيانات ستكون بواسطة
الــ ADO وعن طريق الكود . والكريستال ريبورت الاصدار بين 8 وما فوق وقاعدة البيانات 2000 اكسس
سننشأ فورم ونسميه frmMain
أولاً : كود الأتصال بقاعدة البيانات
في التعريف العام General
واعتقد ان كود الاتصال واضح ننتقل للمرحلة الأهم
ثانياً : نقوم بعمل مديول Module1 ونكتب الشفرة التالية
وهذا الكود لكي يقوم البرنامج بعمل قاعدة مؤقته لحفظ بيانات الاستعلام الناتج من عملية المعاينة للتقرير
نتابع ...
ثالثاً : أدراج أداة الكريستال ريبورت
في نافذة project اضغط بالزر الأيمن وأضف الأداة
Crystal Report 8.5 أو الاصدار الموجود عندك وقم بتبع عملية المعالج في أضافة قاعدة البيانات وأضافة الحقول وإلى آخر
في المثال كتاب يحوي شرح للعملية هذه .. وهي طريقة سهلة جدا ولكن للمعرفة ... المهم سيقوم المعالج تلقائياً بأنشاء فورم Form1 ويحيوي ما يلي
المهم ... الشفرة التي أنشائها المعالج وهي مواصفات للتقرير من طول وعرض وآخره لا نحتاجها وسنستبدلها بالشفرة التالية
طبعا هذا الكود سيكتب في الفورم المنشء من قبل المعالج
وأخيراً
رابعاً : عرض أداة التقارير
في الفورم الرئيسي Form1 سنقوم بأنشاء زر ولنسمية Show Report
وهذا الكود مكمل للكود السابق المكتوب في المديول
customer.ttx وهذه هي قاعدة البيانات المؤقته التي يتم تخزين ناتج الاستعلام فيه
وأعد تسميها إلى cr1 وضع زر بتسمية cmdreport
وضع هذا الكود تحته
- الكود:
Private Sub cmdreport_Click()
cr1.ReportFileName = App.Path + "\balancesheet.rpt"
cr1.Connect = ";Pwd=" & "XV"
cr1.DiscardSavedData = True
cr1.RetrieveDataFiles
cr1.ReportSource = 0
cr1.WindowTitle = " Balance Sheet "
strformula = "{Balance.sumofbal1} >= 0 "
.cr1.ReplaceSelectionFormula (strformula)
cr1.WindowState = crptMaximized
On Error Resume Next
cr1.Action = 1
End Sub
وهذا شرح تفصيلي للأصدار 8 والشرح من الاستاذ /هانى الشايب وكل له طريقته في ربط تلك الاداة المتميزة بعضها يختصر على الكود كالسابق . .... فالنبدأ
ملاحظة : . طريقة الربط أو الاتصال بالقاعدة البيانات ستكون بواسطة
الــ ADO وعن طريق الكود . والكريستال ريبورت الاصدار بين 8 وما فوق وقاعدة البيانات 2000 اكسس
سننشأ فورم ونسميه frmMain
أولاً : كود الأتصال بقاعدة البيانات
في التعريف العام General
- الكود:
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
- الكود:
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 ونكتب الشفرة التالية
- الكود:
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
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
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
المهم ... الشفرة التي أنشائها المعالج وهي مواصفات للتقرير من طول وعرض وآخره لا نحتاجها وسنستبدلها بالشفرة التالية
- الكود:
Dim Report As New CrystalReport1
Dim cn As Connection
Dim rs1 As Recordset
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
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
طبعا هذا الكود سيكتب في الفورم المنشء من قبل المعالج
وأخيراً
رابعاً : عرض أداة التقارير
في الفورم الرئيسي Form1 سنقوم بأنشاء زر ولنسمية Show Report
- الكود:
'HnHn
'عملية أنشاء قاعدة لحفظ نا تج عملية الاستعلام
CreateFieldDefFile rs1, App.path & "\customer.ttx", 1
Form1.Show
وهذا الكود مكمل للكود السابق المكتوب في المديول
customer.ttx وهذه هي قاعدة البيانات المؤقته التي يتم تخزين ناتج الاستعلام فيه
VB.NET- المراقبين
- تاريخ التسجيل : 18/02/2011
المساهمات : 121
النقاط : 189
التقيم : 6
الدولة :
الجنس :
رد: كريستال ريبورت 8
تشكر وجزاك الله الف خيييييييييير
saadalhadi- ...
- تاريخ التسجيل : 14/05/2013
المساهمات : 32
النقاط : 44
التقيم : 0
الدولة :
الجنس :
رد: كريستال ريبورت 8
safaa elshal كتب:اريد كتبا فى كيفية عمل ال crystal report بلغة ال java
اهلا بك اخى الكريم
فى تطبيقات الجافا يمكنك استخدام تقارير المكتبة JasperReports مع iReport و يمكنك الاطلاع على المقالين التاليين للاستفادة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
أمس في 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
أمس في 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد