第一次机房收费系统之管理员日结账单

对于这个窗体利用报表设计器去进行设计
具体使用见一下博客：
https://blog.csdn.net/LZ15932161597/article/details/84667604

操作流程：

显示当前日期的结账账单情况，进行打印，打印预览等。

使用数据库表：

checkday_info（存放每日的结账记录）

程序

Dim H As Single '定义窗体高的变量 '定义窗体高的变量
Dim W As Single '定义窗体高的变量 '定义窗体宽的变量
Dim WithEvents Report As gregn6LibCtl.GridppReport

Private Sub cmdPrint_Click()
    Report.[Print] (True) '显示打印界面
End Sub

Private Sub cmdPriviewPrint_Click()
    Report.PrintPreview (True) '打印预览
End Sub

Private Sub cmdRefurbish_Click()
    Report.DetailGrid.Recordset.QuerySQL = "select * from checkday_info" '通过查询创建记录集
    GRDisplayViewer1.Refresh '账单刷新
End Sub

Private Sub Form_Load()
    Set Report = New gregn6LibCtl.GridppReport '实例化模板
    Report.LoadFromFile (App.Path & "\CheckDay.grf") '加载模板
    Report.DetailGrid.Recordset.ConnectionString = ConnectString() '连接数据源
    Report.DetailGrid.Recordset.QuerySQL = "select * from checkday_info where date= '" & Date & "'" '通过查询创建记录集
    Report.ParameterByName("UserID").Value = frmLogin.txtUserName '想报表内传参数
    GRDisplayViewer1.Report = Report
    GRDisplayViewer1.Start
    H = Me.Height
    W = Me.Width
End Sub

Private Sub Form_Resize()
    Me.Height = H
    Me.Width = W
    Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight '实现背景图随窗体变大而改变
End Sub