水晶報表的制作

 

'1、先制作一個空窗體，在上面放上水晶報表的控件：CtystalReportviewer控件,窗體的ID為ReportForm。

'2、制作一個程序去查詢數據庫并返回數據，然後把數據傳給ReportForm上的CtystalReportviewer控件;

'具體代碼如下：

'先在程序里引用 （VB的寫法）

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

         Dim RptDoc As New ReportDocument    ’實例化一個ReportDocument  對象
        Dim RptProcRptForm As New ReportForm   ’實例化要顯示數據的窗體對象
        Dim ParaValue As New ParameterValues     ’實例化一個ParameterValues對象
        Dim ParaDisValue As New ParameterDiscreteValue     ’實例化一個ParameterDiscreteValue 對象

 

       RptDoc.Load(*.rpt文件的存入路徑*.rpt的文件名)   ’如：D：SRPTRGM010.rpt
        RptDoc.Database.Tables.Item(0).SetDataSource(DataSet里的表)   如：dstData.Tables(0)
        RptDoc.SetDataSource(dstData)       ‘查詢數據庫後返回的dstData數據庫，屬於DataSet 型

 

'指定報表參數 - lblCMPYName
        ParaDisValue.Value = sysCMPYName
        ParaValue.Add(ParaDisValue)
        RptDoc.DataDefinition.ParameterFields("lblCMPYName").ApplyCurrentValues(ParaValue)
        '指定報表參數 - lblRemark
        ParaDisValue.Value = strRemark
        ParaValue.Add(ParaDisValue)
        RptDoc.DataDefinition.ParameterFields("lblRemark").ApplyCurrentValues(ParaValue)
        '指定報表參數 - lblSystemUserName
        ParaDisValue.Value = "(" & sysUserID & ")" & sysUserName
        ParaValue.Add(ParaDisValue)
        RptDoc.DataDefinition.ParameterFields("lblSystemUserName").ApplyCurrentValues(ParaValue)
        '指定報表參數 - lblReportNo
        ParaDisValue.Value = strReportName
        ParaValue.Add(ParaDisValue)
        RptDoc.DataDefinition.ParameterFields("lblReportNo").ApplyCurrentValues(ParaValue)
        '指定報表參數 - lblPrintDate
        ParaDisValue.Value = strPrintDate
        ParaValue.Add(ParaDisValue)
        RptDoc.DataDefinition.ParameterFields("lblPrintDate").ApplyCurrentValues(ParaValue)
        '指定報表參數 - lblDataDate
        ParaDisValue.Value = strDataDate
        ParaValue.Add(ParaDisValue)
        RptDoc.DataDefinition.ParameterFields("lblDataDate").ApplyCurrentValues(ParaValue)

 

RptProcRptForm.CReportViewer.ReportSource = RptDoc   '把RptDoc   對象傳給CReportViewer控件的

ReportSource屬性

 RptProcRptForm.ShowDialog()      '顯示報表