【正文】 nly, 注意 Exit SubEnd IfDim rs As New Select Case Case 0: 39。管理員msql = select *from admin where =39。 amp。 amp。 39。 and =39。 amp。 amp。 39。Case 1: 39。教師msql = select *from teacher where =39。 amp。 amp。 39。 and =39。 amp。 amp。 39。Case 2: 39。學(xué)生msql = select *from student where =39。 amp。 amp。 39。 and =39。 amp。 amp。 39。End Select msql, Conn, adOpenStatic, adLockPessimisticIf Then MsgBox (對不起用戶名密碼錯誤請重新輸入) ElseSelect Case Case 0: 39。管理員MsgBox 『 管 理 員 』,歡迎您登陸維護(hù)本學(xué)生成績管理系統(tǒng)！, vbOKOnly, 『 管 理 員 』登陸成功！ = True = True = True = True = True = True = True = False = True = TrueUnload LoginCase 1: 39。教師 MsgBox 『 老 師 』您好！歡迎您使用本學(xué)生成績管理系統(tǒng)！, vbOKOnly, 『 老 師 』登陸成功！ = True = False = True = True = True = True = True = False = True = TrueUnload Login Case 2: 39。學(xué)生 MsgBox 『 同 學(xué) 』你好！歡迎使用本學(xué)生成績管理系統(tǒng)！, vbOKOnly, 『 同 學(xué) 』登陸成功！ = True = False = False = False = False = False = True = False = True = FalseUnload LoginEnd SelectUnload MeEnd IfEnd SubPrivate Sub Command1_Click()Dim Conn As New Dim mlink As Stringmlink = provider=。data source=。 mlink39。當(dāng)用戶名密碼為空時給出提示If = Then MsgBox 請輸入用戶名, vbOKOnly, 注意 Exit SubElseIf = Then MsgBox 請輸入密碼, vbOKOnly, 注意 Exit SubEnd IfDim rs As New Select Case Case 0: 39。管理員msql = select *from admin where =39。 amp。 amp。 39。 and =39。 amp。 amp。 39。Case 1: 39。教師msql = select *from teacher where =39。 amp。 amp。 39。 and =39。 amp。 amp。 39。Case 2: 39。學(xué)生msql = select *from student where =39。 amp。 amp。 39。 and =39。 amp。 amp。 39。End Select msql, Conn, adOpenStatic, adLockPessimisticIf Then MsgBox (對不起用戶名密碼錯誤請重新輸入) ElseSelect Case Case 0: 39。管理員MsgBox 【 管 理 員 】,歡迎您登陸維護(hù)本學(xué)生成績管理系統(tǒng)！, vbOKOnly, 【 管 理 員 】登陸成功！ = True = True = True = True = True = True = True = False = True = TrueUnload LoginCase 1: 39。教師 MsgBox 〖 老 師〗您好！歡迎您使用本學(xué)生成績管理系統(tǒng)！, vbOKOnly, 〖 老 師 〗登陸成功！ = True = False = True = True = True = True = True = False = True = TrueUnload Login Case 2: 39。學(xué)生 MsgBox ※ 同 學(xué) ※你好！歡迎使用本學(xué)生成績管理系統(tǒng)！, vbOKOnly, ※ 同 學(xué)※』登陸成功！ = True = False = False = False = False = False = True = False = True = FalseUnload LoginEnd SelectUnload MeEnd IfEnd SubPrivate Sub Command2_Click()If MsgBox(提示：您真的要退出本系統(tǒng)嗎？, vbQuestion + vbYesNo + vbDefaultButton2, 退出) = vbNo Then Cancel = 1 ElseEndEnd IfEnd SubPrivate Sub Command3_Click()If MsgBox(提示：您真的要退出本系統(tǒng)嗎？, vbQuestion + vbYesNo + vbDefaultButton2, 退出) = vbNo Then Cancel = 1 ElseEndEnd IfEnd SubPrivate Sub Form_Load() = 0 = FalseEnd Sub 主窗體 在frmlogin窗體中如果用戶登錄成功，將會出現(xiàn)如圖43所示的MDI主窗體。43系統(tǒng)主窗體若是學(xué)生用戶，則有些菜單項不可用，只能運(yùn)行本系統(tǒng)的部分功能（即重新登錄和信息查詢功能可用）。如圖44圖44系統(tǒng)主窗體 本節(jié)以按學(xué)生角度進(jìn)行管理為例，介紹教師管理的編碼設(shè)計。教師用戶進(jìn)入“成績管理”中的“按學(xué)生進(jìn)行管理”功能?！鞍磳W(xué)生進(jìn)行管理”學(xué)生信息功能界面 教師用戶用鼠標(biāo)雙擊學(xué)生信息后，系統(tǒng)會顯示出該學(xué)生的成績信息?！鞍磳W(xué)生進(jìn)行管理”成績信息功能界面Option Explicit39。39。39。當(dāng)改變記錄集時，需要刷新整個網(wǎng)格控件Sub RefreshGrid() = If adStateClosed Then = sqlStudent 39。39。刷新各個綁定控件 Call grdScan_ChangeEnd Sub39。39。39。用以在瀏覽時，根據(jù)當(dāng)前記錄所出的位置不同，來改變個瀏覽按鈕的狀態(tài)Sub ChangeBrowseState() With 39。39。如果沒有任何記錄，則清空顯示目錄；并且使瀏覽部分和管理部分的按鈕無效 If .State = adStateClosed Then .Open 39。39。39。假如處于記錄的頭部 If .BOF Then If Not .EOF Then = False = False Else = True = True End If 39。39。39。假如處于記錄的尾部 If .EOF Then If Not .BOF Then = False = False Else = True = True End If End WithEnd Sub39。39。通過當(dāng)前學(xué)生的成績，來得到該學(xué)生的總成績和平均成績Sub Calculate(sSerial As String) Dim rs As New Dim str str = select avg(score) as avg_score, sum(score) as sum_score from score where studentid=39。 amp。 sSerial amp。 39。 str, , adOpenStatic If Not Then = FormatNumber(rs(sum_score), 2) = FormatNumber(rs(avg_score), 2) End IfEnd Sub39。39。刷新學(xué)生號為sSerial的成績的網(wǎng)格控件grdScoreSub RefreshScore(sSerial As String) With If .State adStateClosed Then .Close Dim str If sSerial = Then str = select course.*, from score, course where = Else str = select course.*, from score, course where = amp。 _ and = 39。 amp。 sSerial amp。 39。 End If .Open str 39。39。，來改變管理grdScore的各個按鈕的狀態(tài) If .BOF And .EOF Then = True = False = False = False Else = True = True = True = True End If End With = oneScore = 學(xué)號： amp。 (0).CellText() amp。 姓名： amp。 (1).CellText() 39。39。計算該學(xué)生的總成績和平均成績 Call Calculate((0).CellText())End SubPrivate Sub cmdAdd_Click() On Error GoTo errHandler With frmAddCourse Load frmAddCourse .Caption = 添加成績信息 .Show vbModal 39。39。如果用戶沒有點擊確認(rèn)按鈕，則退出處理過程 If Not .mbAdded Then Unload frmAddCourse Exit Sub End If 39。39。添加成績記錄 Dim str str = insert into score(StudentID, CourseID, Score) values(39。 str = str amp。 (0).CellText() amp。 39。,39。 amp。 . amp。 39。,39。 amp。 . str = str amp。 39。) str Unload frmAddCourse End With Unload frmAddCourse 39。39。刷新整個網(wǎng)格控件 Call RefreshScore((0).CellText()) Exit Sub errHandler: MsgBox , vbCritical, 錯誤End SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub cmdDelete_Click() On Error GoTo errHandler If MsgBox(確實要刪除此成績記錄？, vbYesNo + vbQuestion + vbDefaultButton2, 確認(rèn)) = vbYes Then Dim sSerial sSerial = (0).CellText() Dim stuSerial stuSerial = (0).CellText() Dim str str = delete from score where student