【導(dǎo)讀】如何消除因時間緊所產(chǎn)生的統(tǒng)計結(jié)果錯誤百出？設(shè)計出學(xué)生成績管理系。統(tǒng)就是一個很好的解決方法。功能模塊層層分解，設(shè)計出系統(tǒng)的模塊化結(jié)構(gòu)，并根據(jù)系統(tǒng)的具體要求和需要實現(xiàn)的功能，學(xué)生成績數(shù)據(jù)庫的創(chuàng)建及學(xué)生成績的輸入、瀏覽、維護和統(tǒng)計，使得系統(tǒng)具有功能強大，界面友好的特點。在設(shè)計學(xué)生成績管理系統(tǒng)過程中，得到了各位老師的指導(dǎo)，在此表示感謝。水平有限，程序中不足之處在所難免，敬請各位老師批評指正。

　　

【正文】 gfenpaixu_Click() (1).Value = True (0).Value = False End Sub 權(quán)限分布圖： 高級管理員權(quán)限 普通用戶權(quán)限（系統(tǒng)管理） 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ２４ 普通用戶權(quán)限（學(xué)生成績管理） 普通用戶權(quán)限（成績查詢管理） 只讀用戶權(quán)限 用戶添加界面 該界面主要用于向數(shù)據(jù)庫中添加用戶，在文本框中 依次輸入用戶名和密碼， 在用戶類別和用戶權(quán)限中選擇用戶所對應(yīng)的類別和權(quán)限， 然后單擊確定按鈕， 如果用戶名在數(shù)據(jù)庫中不存在且兩次輸入密碼一致，則將用戶數(shù)據(jù)保存到數(shù)據(jù)庫中的 use 表中，否則提示出錯信息。 程序代碼如下： Private Sub qq() 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ２５ If Check1(0).Value = 1 Then Check1(1).Enabled = False Check1(2).Enabled = False Else Check1(1).Enabled = True Check1(2).Enabled = True Exit Sub End If End Sub Private Sub ww() If Check1(1).Value = 1 Then Check1(0).Enabled = False Check1(2).Enabled = False Else Check1(0).Enabled = True Check1(2).Enabled = True Exit Sub End If End Sub Private Sub ee() If Check1(2).Value = 1 Then Check1(0).Enabled = False Check1(1).Enabled = False Else Check1(0).Enabled = True Check1(1).Enabled = True Exit Sub End If End Sub Private Sub Check1_Click(Index As Integer) Select Case Index 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ２６ Case 0 qq Case 1 ww Case 2 ee End Select End Sub Private Sub Command1_Click() If Trim(Text1(0).Text) = Then MsgBox 用戶 名不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If If Trim(Text1(1).Text) = Then MsgBox 密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit Sub End If If Trim(Text1(2).Text) = Then MsgBox 確認密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 您兩次輸入的密碼不一致，請確認后重新輸入 ！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If Dim aa As Integer 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ２７ aa = 0 If Option1(1).Value = True Then For i = 0 To 2 If Check1(i).Value = 1 Then aa = 1 Exit For End If Next i If aa = 0 Then MsgBox 普通用戶至少要有一項權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If End If Dim mrc As txtSQL = select * from use Set mrc = ExecuteSQL(txtSQL) For i = 0 To 1 If Trim(Text1(0).Text) = (0) Then MsgBox 該用戶名已存在！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit Sub End If Next txtSQL = select * from use Set mrc = ExecuteSQL(txtSQL) (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text) 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ２８ For i = 0 To 2 If Option1(i).Value = True Then zz = i: Exit For End If Next (2) = Option1(zz).Caption If Option1(2).Value = True Then (3) = 4 If Option1(1).Value = True Then For i = 0 To 2 If Check1(i).Value = 1 Then i = i + 1 (3) = i Exit For End If Next End If MsgBox 用戶添加成功！ , vbExclamation + vbOKOnly, 提示 Text1(0).Text = Text1(1).Text = Text1(2).Text = 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 修改用戶密碼 界面 該界面對所有用戶可用，用于用戶修改自己的密碼，界面設(shè)計簡單實用，修改前需要有輸入密碼才能修改，否則不允許用戶修改 。 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ３０ 程序代碼如下： Private Sub Command1_Click() Dim mrc As Dim txtSQL As String Dim MsgText As String If Text1(0).Text = Then MsgBox 用戶名不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If If Text1(1).Text = Then MsgBox 密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit Sub End If If Text1(2).Text = Then MsgBox 新的確密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If If Text1(3).Text = Then MsgBox 確認密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(3).SetFocus Exit Sub End If 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ３１ If Text1(2).Text Text1(3).Text Then MsgBox 兩次輸入的密碼不一致，請重新輸入！ , vbExclamation + vbOKOnly, 警告 Text1(2).Text = Text1(3).Text = Text1(2).SetFocus Exit Sub End If txtSQL = select * from use where zh=39。 amp。 Trim(Text1(0)) amp。 39。and mm=39。 amp。 Trim(Text1(1)) amp。 39。 Set mrc = ExecuteSQL(txtSQL) If = False Then ss = (2).Value 39。ss 為變量 =權(quán)限 kk = (3).Value txtSQL = delete from use where zh=39。 amp。 Trim(Text1(0)) amp。 39。 Else MsgBox 用戶密碼輸入錯誤 !, vbOKOnly, 警告 Text1(1).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL) txtSQL = select * from use Set mrc = ExecuteSQL(txtSQL) (0) = Trim(Text1(0)) (1) = Trim(Text1(2)) (2) = ss (3).Value = kk For i = 0 To 3 Text1(i) = 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ３２ Next MsgBox 用戶信息修改成功 !, vbOKOnly, 提示 Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Activate() Text1(0).SetFocus 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 Case 2 If KeyAscii = 13 Then Text1(3).SetFocus End Select End Sub 刪除用戶界面 該界面只有高級管理員和系統(tǒng)管理員具有該權(quán)限 。在此處可以看到所有用戶的權(quán)限， 用戶可以單擊左 側(cè)的列表框選擇用戶，也可以通過查詢來選擇用戶。單擊刪除按鈕則刪除當(dāng)前用戶， admin 用戶為系統(tǒng)默認用戶，不允許刪除，在刪除時提示“默認用戶，不允許刪除”。 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ３３ 程序代碼如下： Dim Temp As String Option Explicit 39。標示是否能關(guān)閉 Dim mbClose As Boolean Sub chaxun() Dim mrc As Dim txtSQL As String Dim MsgText As String txtSQL = select * from use where zh=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtSQL) If = False Then = (zh) = (mm) = (lb) Else MsgBox 該用戶不存在，請重新輸入 , vbExclamation + vbOKOnly, 提示 = End If End Sub sub RefreshBinding() 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ３４ On Error Resume Next With If Then 39。39。如果不存在任何記錄，則清空所有的綁定的內(nèi)容 = = = = Else 39。39。否則和相應(yīng)的字段進行綁定 = .Fields(0) = .Fields(0) = .Fields(1) = .Fields(2) End If End With End Sub Sub RefreshGrid() = = resql 39。刷新各個綁定控件 End Sub Sub SeekStudent(sSerial As String) If Not () Then Dim Temp As String Temp = zh = amp。 39。 amp。 sSerial amp。 39。 Temp 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ３５ 39。39。刷新所綁定的控件 Call RefreshBinding End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command1_Click() chaxun End Sub Private Sub Command2_Click() If MsgBox(要刪除記錄 ?, vbYesNo + vbQuestion + vbDefaultButton2, 確認 ) = vbYes Then If = admin Then MsgBox 默認用戶不允許刪除！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 39。通過在 中執(zhí)行 SQL 命令，來刪除記錄 delete from use where zh =39。 amp。 amp。 39。 = = rssql MsgBox 已經(jīng)成功刪除該用戶 , vbExclamation + vbOKOnly, 提示 End If End Sub Private Sub DataGrid1_Change() If 0 Then Cal