1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31:
Imports CrystalDecisions.CrystalReports.Engine De invoer CrystalDecisions.Shared De invoer System.Runtime.InteropServices De invoer System.Threading Openbare Klasse Audit_Report Privé mReport als Audit_CR_Report Privé Sub (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) Handvatten Audit_Report_Activated Me.Activated srDisplay_Report () Sub van het eind Privé SubsrDisplay_Report () Schemerige mReport = Nieuwe Audit_CR_Report mReport.SetParameterValue („mOffer_Id“, mReport_Parm1) mReport.SetParameterValue („mChkFile1_Name“, mReport_Parm2) mReport.SetParameterValue („mRadFile2_Name“, mReport_Parm3) mReport.SetParameterValue („mShow_Which_Records“, mReport_Parm4) mReport.SetParameterValue („mUser_Name“, mReport_Parm5) CrystalReportViewer1.ReportSource = mReport CrystalReportViewer1.Zoom (75) Sub van het eind Privé Sub (ByVal afzender als Voorwerp, ByVal e als System.Windows.Forms.FormClosedEventArgs) Handvatten Audit_Report_FormClosed Me.FormClosed Me.Dispose () Me.Finalize () GC.Collect () Sub van het eind De Klasse van het eind