29-03-23, 06:48 PM
29-03-23, 07:00 PM
هذا كود مراجعة مكتملة لعرض تقرير Crystal Reports مع المعلمات في Visual Basic 6:
هذا الكود يقوم بتحميل وعرض تقرير Crystal Reports عند تحميل النموذج. يمكنك تعديل المعلمات وقيمها حسب الحاجة. لا تنسى تعديل مسار التقرير وأسماء المعلمات وقيمها وفقًا لمتطلباتك.
- أولاً، قم بإضافة مكونات "Crystal Reports" و"Crystal Report Viewer" إلى "Toolbox" الخاص بك.
- ضع "Crystal Report Viewer" على النموذج.
PHP كود :
Option Explicit
' قم بإضافة مرجع لـ Crystal Reports
' من خلال الضغط على "Project" ثم "References" واختيار
' "Crystal Reports x.x ActiveX Designer Run Time Library" حيث x.x هو رقم الإصدار
Private Sub Form_Load()
ShowReport
End Sub
Private Sub ShowReport()
Dim crApp As CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Dim strReportPath As String
Set crApp = New CRAXDRT.Application
strReportPath = "C:\مسار\الى\تقريرك.rpt"
Set crReport = crApp.OpenReport(strReportPath)
crReport.ParameterFields.GetItemByName("Parameter1").AddCurrentValue "قيمة المعلمة 1"
crReport.ParameterFields.GetItemByName("Parameter2").AddCurrentValue "قيمة المعلمة 2"
CRViewer1.ReportSource = crReport
CRViewer1.ViewReport
End Sub
هذا الكود يقوم بتحميل وعرض تقرير Crystal Reports عند تحميل النموذج. يمكنك تعديل المعلمات وقيمها حسب الحاجة. لا تنسى تعديل مسار التقرير وأسماء المعلمات وقيمها وفقًا لمتطلباتك.
30-03-23, 06:04 PM
شكرآ لك اخي العزيز على الرد وجزاك الله خير