【正文】 SubElse MsgBox (您的用戶名或密碼有誤,請重行輸入!, vbExclamation + vbDefaultButton1, 錯誤) time = time + 1 = = Exit Sub End IfElse ms = MsgBox(您不是合法用戶,請與系統(tǒng)管理員聯(lián)系!, vbInformation + vbOKOnly, 抱歉)If ms = vbOK Then End Unload Me End If Else MsgBox 請把用戶名和密碼輸全!, vbInformation + vbOKOnly, 提示 = = Exit Sub End If errname: MsgBox (抱歉您的用戶名不存在!, vbInformation + vbOKOnly, 抱歉) = = Exit SubEnd SubPrivate Sub login_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyUp Then End IfEnd SubPrivate Sub text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End If If KeyCode = vbKeyDown Then End IfEnd SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End If If KeyCode = vbKeyDown Then End If If KeyCode = vbKeyUp Then End IfEnd SubPrivate Sub cmdcancel_Click() ‘重置 Dim s As String s = MsgBox(確認(rèn)退出系統(tǒng)嗎?, vbYesNo + vbQuestion, 退出) If s = vbYes Then Unload Me Else = = End IfEnd Sub學(xué)生信息管理系統(tǒng)主窗口：代碼：Private Sub Form_Load() If Valname = 系統(tǒng)管理員 Then = True Else = False End IfEnd SubPrivate Sub chegl_Click() 單擊學(xué)生成績管理 Load frmchenggl 加載學(xué)生成績管理窗口 顯示學(xué)生成績管理窗口 Unload frmmain 卸載主窗口End SubPrivate Sub kcgl_Click() 單擊學(xué)生課程管理窗口 Load frmskcgl 加載學(xué)生課程管理窗口 顯示學(xué)生課程管理窗口 Unload frmmainEnd SubPrivate Sub jff_Click() 單擊學(xué)生處罰管理窗口Load frmchufa 加載學(xué)生處罰管理窗口 顯示學(xué)生處罰管理窗口 Unload frmmainEnd SubPrivate Sub jfj_Click() 單擊學(xué)生獎勵管理窗口Load frmaward 加載學(xué)生獎勵管理窗口 顯示學(xué)生獎勵管理窗口 Unload frmmainEnd SubPrivate Sub sushe_Click() 單擊學(xué)生宿舍管理窗口Load frmaward 加載學(xué)生宿舍管理窗口 顯示學(xué)生宿舍管理窗口 Unload frmmainEnd SubPrivate Sub xjgl_Click() 單擊學(xué)生學(xué)籍管理窗口 Load frmXjgl 加載學(xué)生學(xué)籍管理窗口 顯示學(xué)生學(xué)籍管理窗口 Unload frmmainEnd SubPrivate Sub gra_Click() 單擊學(xué)生畢業(yè)管理窗口 Load frmgra 加載學(xué)生畢業(yè)管理窗口 顯示學(xué)生畢業(yè)管理窗口 Unload frmmainEnd SubPrivate Sub sysp_Click() 單擊普通管理員窗口 Load frmputong 加載普通管理員窗口 顯示普通管理員窗口 Unload frmmainEnd SubPrivate Sub syss_Click() 單擊系統(tǒng)管理員窗口 Load frmGly 加載普通管理員窗口 顯示普通管理員窗口 Unload frmmain End SubPrivate Sub tbrOpe_ButtonClick(ByVal Button As ) 工具欄操作 Select Case Case 1 Load frmallinf 加載全部學(xué)生瀏覽窗口 顯示全部學(xué)生瀏覽窗口 Unload Me Case 2 Load frmAdd 加載學(xué)生信息添加窗口