第一次機房收費系統----學生查看餘額

前言

剛開始進行機房感覺哪個窗體都特別難，無從下手的感覺，其實每接觸一個新的項目都會有這個感覺，但是後邊你仔細想想其中的邏輯，就會發現，他其實和學生差不了多少。只要邏輯搞清楚就行。

剛開始看見這個窗體，知道怎麼給他安排的整整齊齊的，但是對於寫代碼還真的是一點頭緒都沒有，後邊就看其他人寫的博客，畫出來了流程圖，瞬間就感覺簡單了。

流程圖

代碼展示

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

感受

當敲完代碼之後纔會感覺出來這部分其實挺簡單的，應該是整個機房裏最簡單的一部分了吧，所以應該知道，萬事開頭難，但是有了一個開頭就可以做好以後的事了。用心去學習，就會摸清楚它的門道。