機械室料金システム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のコードは簡単ですので、試してみてください.