機房開始了10天了，敲了13個窗體，感覺機房沒有想象中的那麼難，做什麼事想不去想它的困難，先從做開始，邁出第一步

登入窗體是第一個窗體，但登入窗體要設定級別登入，所以就先分享檢視餘額窗體，登入窗體放到最後！
機房和學生有著很大的相似度，以前學生犯迷糊的問題，到了機房，都能看明白了。流程很重要！敲程式碼，更看重的是流程，流程，意味著思維的順序。
接下來是部分程式碼展示

    '判斷是否為空
    If txtCardNo.Text = "" Then
        MsgBox "卡號不存在或已不再使用！", vbOKOnly + vbExclamation
        txtCardNo.SetFocus
        Exit Sub
        
    Else
        '連線student表
        txtsql = "select * from student_Info where cardno='" & txtCardNo.Text & "'"
        Set mrc = ExecuteSQL(txtsql, msgtext)
        
        '沒有記錄
        If mrc.EOF = True Then
            MsgBox "沒有資料或卡號不存在！", vbOKOnly + vbExclamation, "提示"
            Exit Sub
            
        Else
            
            txtsql = "select * from student_info"
            Set mrc = ExecuteSQL(txtsql, msgtext)
        End If
    End If
        
        '賦值
        txtStudentID = mrc.Fields(1)
        txtName = mrc.Fields(2)
        txtSex = mrc.Fields(3)
        txtDept = mrc.Fields(4)
        txtGrade = mrc.Fields(5)
        txtClass = mrc.Fields(6)
        txtStatus = mrc.Fields(7)
        txtRemark = mrc.Fields(8)
        txtBalance = mrc.Fields(9)
           
End Sub
 

為了使用方便，我添加了一個清空按鈕，檢視下一個時點選清空，可清空文字框內容
部分程式碼

'文字框為空時
    If txtCardNo.Text = "" Then
        MsgBox "什麼都沒有輸入，不必清空！", vbOKOnly + vbExclamation
        txtCardNo.SetFocus
        Exit Sub
    
    Else
        txtCardNo.Text = ""
        txtStudentID.Text = ""
        txtName.Text = ""
        txtSex.Text = ""
        txtDept.Text = ""
        txtGrade.Text = ""
        txtClass.Text = ""
        txtStatus.Text = ""
        txtRemark.Text = ""
        txtBalance.Text = ""
    
    End If
 

很簡單的一個窗體，後期陸續更新