本文主要是介绍第一次机房收费系统之管理员日结账单，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
对于这个窗体利用报表设计器去进行设计
具体使用见一下博客：
https://blog.csdn.net/LZ15932161597/article/details/84667604
操作流程：
显示当前日期的结账账单情况，进行打印，打印预览等。
使用数据库表：
checkday_info（存放每日的结账记录）
程序
Dim H As Single '定义窗体高的变量 '定义窗体高的变量
Dim W As Single '定义窗体高的变量 '定义窗体宽的变量
Dim WithEvents Report As gregn6LibCtl.GridppReportPrivate Sub cmdPrint_Click()Report.[Print] (True) '显示打印界面
End SubPrivate Sub cmdPriviewPrint_Click()Report.PrintPreview (True) '打印预览
End SubPrivate Sub cmdRefurbish_Click()Report.DetailGrid.Recordset.QuerySQL = "select * from checkday_info" '通过查询创建记录集GRDisplayViewer1.Refresh '账单刷新
End SubPrivate 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 = ReportGRDisplayViewer1.StartH = Me.HeightW = Me.Width
End SubPrivate Sub Form_Resize()Me.Height = HMe.Width = WMe.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight '实现背景图随窗体变大而改变
End Sub
这篇关于第一次机房收费系统之管理员日结账单的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
