منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استفسار - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : استفسار (/showthread.php?tid=45808)

استفسار - احمد جعبلي - 29-03-23

كيف يمكنني استدعاء تقرير كريستال ريبورت من داخل فيجوال بيسك 6 مع وجود بارامترات؟

RE: استفسار - sanyor77 - 29-03-23

هذا كود مراجعة مكتملة لعرض تقرير Crystal Reports مع المعلمات في Visual Basic 6:

  1. أولاً، قم بإضافة مكونات "Crystal Reports" و"Crystal Report Viewer" إلى "Toolbox" الخاص بك.
  2. ضع "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

شكرآ لك اخي العزيز على الرد وجزاك الله خير

RE: شكر وتقدير - sanyor77 - 30-03-23

(30-03-23, 06:04 PM)احمد جعبلي كتب : شكرآ لك اخي العزيز على الرد وجزاك الله خير