【机房】收取金额查询

机房收费系统中操作员可以查看收取的金额。

窗体界面：

这个窗体用到了两个日期控件，需要对日期控件进行设置

Dim z As Date
    
    '窗体加载显示当前日期
    beginDate.Value = Now()
    endDate.Value = Now()
    
    '开始日期的最大值为截止日期
    
    z = endDate.Value
    beginDate.MaxDate = z

还用到了MSHFlexGrid表格，加载窗体时对表格进行设置

    '添加列名
    With MSHFlexGrid1

        .CellAlignment = 4
        .TextMatrix(1, 0) = "卡号"
        .TextMatrix(1, 1) = "充值金额"
        .TextMatrix(1, 2) = "充值日期"
        .TextMatrix(1, 3) = "充值时间"
        .TextMatrix(1, 4) = "充值教师"
        .TextMatrix(1, 5) = "结账状态"
       
    End With

点击查询之后，需要连接recharge表，查询这个时间段有无充值记录，然后将数据表中的数据展示到MSHF表格中。

代码展示：

Private Sub cmdInquiry_Click()
    
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As Recordset
    
    MSHFlexGrid1.Rows = 2
    
    txtSQL = "select * from recharge_info where date >='" & beginDate.Value & "' and date <= '" & endDate.Value & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    
    If mrc.EOF = True Then
    
        MsgBox "该时间段无充值记录", 64, "温馨提示"
        Exit Sub
        
    End If
    
    '判断是否移动到数据集对象的最后一条记录
    Do While Not mrc.EOF
    
        With MSHFlexGrid1
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = mrc.Fields(2)  '卡号
            .TextMatrix(.Rows - 1, 1) = mrc.Fields(3) '充值金额
            .TextMatrix(.Rows - 1, 2) = mrc.Fields(4) '充值日期
            .TextMatrix(.Rows - 1, 3) = mrc.Fields(5) '充值时间
            .TextMatrix(.Rows - 1, 4) = mrc.Fields(6) '充值教师
            .TextMatrix(.Rows - 1, 5) = mrc.Fields(7) '结账状态
            
            mrc.MoveNext '移动到下一条记录
        End With
    Loop
    mrc.Close
End Sub

感谢阅读~