【机房 收费系统】收取金额查询--乌云后依然是灿烂的晴天

收取金额查询窗体显示：

用到了dtpicker,用这个控件在选择起始日期和终止日期的时候会更加方便。

DTpicker控件添加

添加过程：工具——部件——控件——“Microsoft Windows Common Controls-2.6.0”——应用——确定

这个窗体的逻辑很简单：

1.收取金额中先判断起始日期和终止日期的关系：终止日期不能早于起止日期。

2.收取金额记录的判断，Recharge表记录的查询，有记录和没有记录结果

3.查询成功

流程图：

代码展示：

 Dim txtsql, msgtext As String
    Dim mrc As ADODB.Recordset
    Rem：查询recharge_info表
    txtsql = "select * from Recharge_info where date >= '" & DTPicker1.Value & "' and date <='" & DTPicker2.Value & "'"
    Set mrc = executeSQL(txtsql, msgtext)
    Rem：判断日期关系
    If DTPicker2.Value < DTPicker1.Value Then
        MsgBox "终止日期不能早于起止日期！", vbOKOnly + vbExclamation, "提示"
        Exit Sub
    
    Else
        Rem：判断有没有记录
        If mrc.EOF = True Then
        MsgBox "没有数据记录！", vbOKOnly + vbExclamation, "提示"
        Exit Sub
        End If
    End If
    With MSFlexGrid1
        .rows = 1
        .cols = 7
        .CellAlignment = 4
        '设置第一行的标题
        .TextMatrix(0, 0) = "卡号"
        .TextMatrix(0, 1) = "学生号"
        .TextMatrix(0, 2) = "充值金额"
        .TextMatrix(0, 3) = "充值日期"
        .TextMatrix(0, 4) = "充值时间"
        .TextMatrix(0, 5) = "充值教师"
        .TextMatrix(0, 6) = "结账状态"
     
    Do While Not mrc.EOF
        .rows = .rows + 1
        .CellAlignment = 4
        .TextMatrix(.rows - 1, 0) = Trim(mrc.Fields(2))
        .TextMatrix(.rows - 1, 1) = Trim(mrc.Fields(1))
        .TextMatrix(.rows - 1, 2) = Trim(mrc.Fields(3))
        .TextMatrix(.rows - 1, 3) = Trim(mrc.Fields(4))
        .TextMatrix(.rows - 1, 4) = Trim(mrc.Fields(5))
        .TextMatrix(.rows - 1, 5) = Trim(mrc.Fields(6))
        .TextMatrix(.rows - 1, 6) = Trim(mrc.Fields(7))
        mrc.MoveNext
    Loop
    End With
        MsgBox "查询成功！", vbOKOnly + vbExclamation, "提示"
    mrc.Close

导出excel:因为之前把导出excel的代码封装到了模块，现在直接调用

Rem:导出为EXCEL
Private Sub cmdexcel_Click()

    Call ExportToExcel(MSHFlexGrid1)

End Sub

金额返回信息链接：https://mp.csdn.net/postedit/103614447