机房收费系统-收取金额查询

最新推荐文章于 2019-12-05 15:42:08 发布

迎风来Dora

最新推荐文章于 2019-12-05 15:42:08 发布

阅读量449

点赞数

分类专栏：计算机

本文链接：https://blog.csdn.net/lrtcsdn/article/details/79700143

版权

计算机专栏收录该内容

57 篇文章 1 订阅

订阅专栏

【前言】

收取金额的查询很好理解，主要是时间的问题和记录是否有的问题，这个两个问题懂了就很好了，拿流程图来说一下，这是借鉴的本尊在这里请点击机房收取金额查询

【流程图】

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

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

3.查询成功

【代码展示】

Private Sub cmdInquiry_Click()
    txtSQL = "select * from Recharge_info where date >= '" & DTPicker1.Value & "' and date <='" & DTPicker2.Value & "'"
    Set mrc = ExecuteSQL(txtSQL, Msgtext)
    
    If DTPicker2.Value < DTPicker1.Value Then
        MsgBox "终止日期不能早于起止日期！", vbOKOnly + vbExclamation, "提示"
        Exit Sub
    
    Else
        
        If mrc.EOF = True Then
        MsgBox "没有数据记录！", vbOKOnly + vbExclamation, "提示"
        Exit Sub
        End If
    End If
With MSFlexGrid1
    .Rows = 1
    .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
End Sub