机房收费--一般用户

墨蓝 2022-01-22 12:07 207阅读 0赞

在一般用户模块里面，有三个窗体（查询自己余额、查询上机记录、查询充值记录）的流程是没有太大区别的，它们都是通过输入自己的卡号来获取基本的信息，主要的区别就是查的表不同，那么就把这三个窗体放到一起来说一下：

先说一下查看余额窗体，它非常简单，就是运用了一个查询学生表的语句，然后把查到的内容返还给文本框，当然这里面还有一些判断条件。

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70][]

代码展示：

Dim txtsql As String         '用来存放SQL语句
      Dim mrc As ADODB.Recordset   '用来存放记录集对象
      Dim MsgText As String
      
        '判断选择框是否为空
        If Not testtxt(txtcardno.Text) Then
            MsgBox "卡号信息不能为空，请输入！", vbOKOnly + vbExclamation, "警告"
            txtcardno.SetFocus
        Else
        
        If Not IsNumeric(Trim(txtcardno.Text)) Then
            MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
            txtcardno.SetFocus
            txtcardno.Text = ""
            Exit Sub
        Else
        
            txtsql = "select * from student_info where cardno = '" & txtcardno.Text & "' "
            Set mrc = ExecuteSQL(txtsql, MsgText)
            
            If mrc.EOF = True Then
                MsgBox "此卡号不存在或已不再使用，请重新输入！", vbOKOnly + vbExclamation, "警告"
                txtcardno.SetFocus
                txtcardno.Text = ""
            Else
                '获取信息
                txtstudentno.Text = mrc.Fields(1)
                txtstudentname.Text = mrc.Fields(2)
                txtsex.Text = mrc.Fields(3)
                txtdepartment.Text = mrc.Fields(4)
                txtgrade.Text = mrc.Fields(5)
                txtclass.Text = mrc.Fields(6)
                txtcash.Text = mrc.Fields(7)
                txtexplain.Text = mrc.Fields(8)
                txtischeck.Text = mrc.Fields(11)
            End If
            mrc.Close
      End If
      End If

运行结果如下：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 1][]

下面来说一下查看上机记录和充值记录，这两个窗体也是直接输入学生自己的卡号，然后查看结果，基本上没有什么太大的问题。主要就是查看上机记录窗体连接的是上机记录表(Line\_Info),而查看充值记录窗体是连接的充值记录表（ReCharge\_Info）。

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 2][]

代码展示：

Dim txtsql As String         '用来存放SQL语句
      Dim MsgText As String        '用来存放返回信息
      Dim mrc As ADODB.Recordset   '用来存放记录集对象
      Dim mrc1 As ADODB.Recordset   '用来存放记录集对象
      Dim n As Integer
      
        If Not testtxt(Trim(txtcardno.Text)) Then
            MsgBox "卡号信息不能为空，请输入！", vbOKOnly + vbExclamation, "警告"
            txtcardno.Text = ""
            txtcardno.SetFocus
        Else
        If Not IsNumeric(Trim(txtcardno.Text)) Then
            MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
            txtcardno.Text = ""
            txtcardno.SetFocus
        Else
            txtsql = "select * from line_info where cardno = '" & txtcardno.Text & "' "
            Set mrc = ExecuteSQL(txtsql, MsgText)
        If mrc.EOF = True Then
            MsgBox "卡号不存在或已不再使用，请重新输入！", vbOKOnly + vbExclamation, "警告"
            txtcardno.SetFocus
            txtcardno.Text = ""
        Else
        
        With MSFlexGrid1    '将查询的内容显示在表格里
            .Rows = 1
            .CellAlignment = 4
            .TextMatrix(0, 0) = "卡号"
            .TextMatrix(0, 1) = "学号"
            .TextMatrix(0, 2) = "充值金额"
            .TextMatrix(0, 3) = "充值日期"
            .TextMatrix(0, 4) = "充值时间"
            .TextMatrix(0, 5) = "充值者"
        
        txtsql = "select * from ReCharge_Info "
        Set mrc1 = ExecuteSQL(txtsql, MsgText)
            
            n = 0
            Do While Not mrc1.EOF     '判断是否移动到数据集对象的最后一条记录                                     
                '显示数据
                .Rows = .Rows + 1    '这种方式也可防止空白行的出现
                .CellAlignment = 4
                .TextMatrix(.Rows - 1, 0) = mrc1.Fields(2)
                .TextMatrix(.Rows - 1, 1) = mrc1.Fields(1)
                .TextMatrix(.Rows - 1, 2) = mrc1.Fields(3)
                .TextMatrix(.Rows - 1, 3) = mrc1.Fields(4)
                .TextMatrix(.Rows - 1, 4) = mrc1.Fields(5)
                .TextMatrix(.Rows - 1, 5) = mrc1.Fields(6)
                mrc1.MoveNext    '移动到下一条记录
                n = n + 1
            Loop
    
            '显示获得的记录条数
            Label2 = "共获得" & n & "条查询结果"
    
            End With
            mrc1.Close
        End If
        End If
        End If

结果如下：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 3][]

这个窗体上还有一个导出到Excel的功能，将会在之后的博客中总结，敬请期待！

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70]: /images/20220122/c6f71f8409b54db891f01fffe2ff1a64.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 1]: /images/20220122/1013c4ca7b9041d9a79d3ab708807f30.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 2]: /images/20220122/94dcc93e953c41a5be9f79fcf57ca550.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70 3]: /images/20220122/49b4d5013ea64080bc25870488caf410.png