【正文】 xt = End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Check1(0).Value = 1 Check1(1).Value = 1 Check1(2).Value = 1 Check1(0).Enabled = False Check1(1).Enabled = False 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ２９ Check1(2).Enabled = False Case 1 Check1(0).Value = 0 Check1(1).Value = 0 Check1(2).Value = 0 Check1(0).Enabled = True Check1(1).Enabled = True Check1(2).Enabled = True Case 2 Check1(0).Value = 0 Check1(1).Value = 0 Check1(2).Value = 1 Check1(0).Enabled = False Check1(1).Enabled = False Check1(2).Enabled = False End Select End Sub Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Select Case Index Case 0 If KeyAscii = 13 Then Text1(1).SetFocus Case 1 If KeyAscii = 13 Then Text1(2).SetFocus End Select End Sub 修改用戶密碼 界面 該界面對(duì)所有用戶可用，用于用戶修改自己的密碼，界面設(shè)計(jì)簡單實(shí)用，修改前需要有輸入密碼才能修改，否則不允許用戶修改 。 kk = True 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ２０ = True = True = True = True = True If cc = 1 Then = True = True = True = False = False = True Exit Sub End If If cc = 2 Then = False = False = False = False = True = True = False Exit Sub End If If cc = 3 Then = False = False = False = False = False = True 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ２１ = False Exit Sub End If If cc = 4 Then = False = False = False = False = False = True = False = False = False Exit Sub End If End Sub Private Sub quite_Click() End End Sub Private Sub sckc_Click() End Sub Private Sub scxsxx_Click() = False = 學(xué)生成績信息刪除 = = = False = True 39。 程序代碼如下 Private Sub about_Click() End Sub 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） １８ Private Sub add_Click() = True = False End Sub Private Sub banjichaxunyufenxi_Click() = False = = + = False = False = False = False = 班級(jí)成績查詢 End Sub Private Sub banjidankechaxunyufenxi_Click() = False = False = False = False = 班級(jí)單科成績查詢 /分析 End Sub Private Sub chongxindenglu_Click() If MsgBox(若重新登錄，所有窗體都將關(guān)閉！是否重新登錄？ , _ vbQuestion + vbYesNo + vbDefaultButton2, 重新登錄 ) = vbYes Then Unload Me 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） １９ End If End Sub Private Sub dankepaixu_Click() (0).Value = True (1).Value = False End Sub Private Sub cxbjxx_Click() End Sub Private Sub cxkcxx_Click() End Sub Private Sub cxxsxx_Click() End Sub Private Sub del_Click() = 0 = 0 = False = True End Sub Private Sub gerenchaxun_Click() End Sub Private Sub MDIForm_Load() (3).Text = Format(Now, dddddd) (2).Text = 當(dāng)前操作員： amp。在主界 面底端會(huì)顯示用戶名，用戶名和用戶的類別，來區(qū)分用戶。該界面通過隱藏和顯示菜單來實(shí)現(xiàn)用戶權(quán)限的管理，對(duì)不具有的功能進(jìn)行隱藏。 程序代碼如下： Private Sub nn() Dim mrc As If = Or = Then MsgBox 請(qǐng)正確的輸入賬號(hào)和密碼 If Then aa = txtSQL = select * from use Set mrc = ExecuteSQL(txtSQL) hh = 0 39。在用戶登錄時(shí)，首先用戶輸入用戶名和密碼，單擊登錄按鈕，如果用戶名和密碼正確則從數(shù)據(jù)庫中讀取 用戶權(quán)限信息并賦值給 kk， 最后顯示主菜單，否 則彈出對(duì)話框，提示“用戶名或密碼錯(cuò)誤，請(qǐng)重組新輸入”并返回登錄界面。通過對(duì)用戶需求的分析，具體實(shí)現(xiàn)如下： 建立 Access 數(shù)據(jù)庫 啟動(dòng) Access，建立一個(gè)空數(shù)據(jù)庫 ；如下圖： 在 student 數(shù)據(jù)庫中分別建立 use 表 ,student 表 ,course 表 ,class 表 ,chengjibiao 表 具體實(shí)現(xiàn)如下圖： Class 表 Use表 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） １３ Student 表 Course 表 Chengjibiao 表 界面的實(shí)現(xiàn) 歡迎界面 在窗體中顯示“歡迎使用學(xué)生成績管理系統(tǒng)”并顯示當(dāng)前的日期和時(shí)間，并不斷更新當(dāng)前時(shí)間，當(dāng)單擊窗體或顯示時(shí)間超過 1分鐘，則跳轉(zhuǎn)到登錄界面，歡迎界面如下圖： 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） １４ 程序代碼如下： Private Sub Form_Activate() DrawWidth = 6 = Mid(Str(Now), 1, 10) = Mid(Str(Now), 14, 8) (0, 0)(100, 100) (50, 20), 10, RGB(255, 0, 0) (50, 20), 10, RGB(0, 0, 255), , , = 1 (50, 20), 10, RGB(0, 255, 0), , , = Mid(Str(Now), 1, 10) = Mid(Str(Now), 14, 9) End Sub Private Sub Form_Click() Unload Me End Sub Private Sub Label1_Click() Unload Me End Sub Private Sub Timer1_Timer() 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） １５ = Mid(Str(Now), 1, 10) = Mid(Str(Now), 14, 9) End Sub Private Sub Timer2_Timer() Unload Me End Sub 登陸界面 用戶登錄系統(tǒng)的主要方式，要求登陸界面美觀、簡潔、實(shí)用。 use 表 字段名 數(shù)據(jù)類型 是否為空 說明 Zh Char(10) Not null 賬號(hào) mm Char(14) Not null 密碼 Ld Char(14) Not null 類別 Dj Char(14) Not null 等級(jí) student 表 字段名 數(shù)據(jù)類型 是否為空 說明 Xsbh Char(10) Not null 學(xué)生編號(hào) Xsxm Char(14) Not null 學(xué)生姓名 Xsxb Char（ 14） Not null 學(xué)生性別 學(xué)生成績管理系統(tǒng) 用戶登錄 普通用戶 系統(tǒng)管理員 只讀用戶 退出 添加用戶 修改密碼 刪除用戶 重新登錄 退出系統(tǒng) 添加學(xué)生信息 修改學(xué)生信息 刪除學(xué)生信息 查詢學(xué)生信息 添加班級(jí)信息 刪除班級(jí)信息 添查詢班級(jí)信息 添加課程信息kecheng 刪除課程信息 查詢班級(jí)信息 添加學(xué)生成績 修改學(xué)生成績 刪除學(xué)生成績 班級(jí)成績查