機械室料金システムのレポートまとめ2



前編では、レポート・テンプレートの構築方法について説明しましたが、次にvbでレポート・テンプレートを呼び出してレポートの出力を実現します.以下に具体的な手順を示します.
 

Dim Report As grproLibCtl.GridppReport

Private Sub cmdPrint_Click()


    Report.[Print] (True)

End Sub

 

Private Sub cmdPrintPreview_Click()


    Report.PrintPreview (True)

End Sub

Private Sub cmdRefresh_Click()


    txtSQL = "select * from daybill_Info where daydate='" & Format(Date, "yyyy-mm-dd") & "'"

    Report.DetailGrid.Recordset.QuerySQL = txtSQL

    GRDisplayViewer1.Refresh

End Sub

Private Sub Form_Load()

 ' 

    ' 

    txtSQL = "select * from daybill_Info where daydate='" & Format(Date, "yyyy-mm-dd") & "'"

    ' 

    Set Report = New grproLibCtl.GridppReport

    ' 

    Report.LoadFromFile (App.Path & "\ \ 1.grf")

    ' 

    Report.DetailGrid.Recordset.ConnectionString = ConnectionString()

    ' 

    Report.DetailGrid.Recordset.QuerySQL = txtSQL

    ' 

    GRDisplayViewer1.Report = Report

    GRDisplayViewer1.Start

End Sub

 
週次請求書には、パラメータを導入すればよい.
'レポート・パラメータの設定
    Report.ParameterByName("datestart").AsString = Str(startTime.Value)
    Report.ParameterByName("dateend").AsString = endTime.Value