機械室料金システムのレポートまとめ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