第一次机房收费系统----学生查看余额

前言

刚开始进行机房感觉哪个窗体都特别难，无从下手的感觉，其实每接触一个新的项目都会有这个感觉，但是后边你仔细想想其中的逻辑，就会发现，他其实和学生差不了多少。只要逻辑搞清楚就行。

刚开始看见这个窗体，知道怎么给他安排的整整齐齐的，但是对于写代码还真的是一点头绪都没有，后边就看其他人写的博客，画出来了流程图，瞬间就感觉简单了。

流程图

代码展示

Private Sub cmdInquiry_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
                '如果卡号正确，可以查询
                
                txtSID.Text = mrc.Fields(1)
                txtName.Text = mrc.Fields(2)
                txtSex.Text = mrc.Fields(3)
                txtDept.Text = mrc.Fields(4)
                txtGrade.Text = mrc.Fields(5)
                txtClass.Text = mrc.Fields(6)
                txtState.Text = mrc.Fields(10)
                txtExplain.Text = mrc.Fields(8)
                txtBalance.Text = mrc.Fields(7)
                
            End If
        mrc.Close
        
        End If
    End If
    
End Sub

感受

当敲完代码之后才会感觉出来这部分其实挺简单的，应该是整个机房里最简单的一部分了吧，所以应该知道，万事开头难，但是有了一个开头就可以做好以后的事了。用心去学习，就会摸清楚它的门道。