机房收费系统之查询余额

给我的一个很重要的感觉是，敲机房学习的东西最重要的不是代码，而是逻辑。如果逻辑混乱，代码写的快也是没用的，因为那样迟早也会报很多错。只有逻辑搞清楚了才能往下走，这是针对像我这样的逻辑混乱的人而提出的好建议，那就是画流程图，最好是手绘把，因为导图往往会画不出你想要的效果，而且手绘一遍也是印象深刻的。

如图：这是查询余额的页面，如果我们想要查询信息，那么只需要知道卡号，就可以查询。这也是横线分开的原因。那么这里我们需要注意什么呢？

首先，我们的代码是写在查询控件里的。我们单击之后才会出现一系列问题。

1我们要对卡号进行判空。若为空，则提醒

2和之前一下，卡号只能输入为数字

3对卡号进行判断是否存在，若不存在则无下文，若存在则进入查询

4对查询内容进行设置。对应数据库

代码如下：

Private Sub cmdinquire_Click()
    Dim txtSQL As String
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    '判断卡号是否输入
    
    If Trim(txtcardno.Text = "") Then
        MsgBox "请输入用户名！", vbOKOnly + vbExclamation, "警告"
        txtcardno.SetFocus
    Else

        If Not IsNumeric(txtcardno.Text) Then
            MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
            Exit Sub
            txtcardno.SetFocus
        Else
    
         '判断卡号是否存在
        
            txtSQL = "select * from student_info where cardno = '" & txtcardno.Text & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
            '
            If mrc.EOF 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)
                txtstatus.Text = mrc.Fields(10)
                txtexplain.Text = mrc.Fields(8)
                txtcash.Text = mrc.Fields(7)

            End If

    mrc.Close


        End If
    
    End If


End Sub