对于这个窗体利用报表设计器去进行设计
具体使用见一下博客:
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