機械室料金システム2——vbとレポートの相互作用
1477 ワード
レポートの作成についてお話ししましたが、皆さんも作れると思います!次に、レポートとvbのインタラクションについて説明します。実はいくつかの言葉のことです。
Dim WithEvents Report As grproLibCtl.GridppReport
Private Sub Form_Load()
Dim txtSQL As String
Dim msgtext As String
txtSQL = "select * from CheckDay_Info where Date ='" & Format(Date, "yyyy-mm-dd") & "'"
Set Report = New grproLibCtl.GridppReport '
Report.LoadFromFile (App.Path & "\ .grf") ' ,
Report.DetailGrid.Recordset.ConnectionString = ConnectString() '
Report.DetailGrid.Recordset.QuerySQL = txtSQL ' select
GRDisplayViewer1.Report = Report
GRDisplayViewer1.Start '
End Sub
主な部分が運ばれてきて、残りは枝葉末節です.
印刷:
Private Sub cmdPrint_Click() '
Report.[Print] (True) ' vb ,
End Sub
印刷プレビュー:
Private Sub cmdPreview_Click() '
Report.PrintPreview (True)
End Sub
更新:
Private Sub cmdRefresh_Click() '
GRDisplayViewer1.Refresh
End Sub
欧さん、こんなに簡単です.レポートを作成するときにデータベースに関連付けられているので、vbのコードは簡単ですので、試してみてください.