【正文】 , vbYesNo + vbQuestion + vbDefaultButton2, 確認(rèn) ) = vbYes Then If = admin Then MsgBox 默認(rèn)用戶不允許刪除！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 39。 39。 amp。 Temp 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ３５ 39。 39。如果不存在任何記錄，則清空所有的綁定的內(nèi)容 = = = = Else 39。 Trim() amp。單擊刪除按鈕則刪除當(dāng)前用戶， admin 用戶為系統(tǒng)默認(rèn)用戶，不允許刪除，在刪除時(shí)提示“默認(rèn)用戶，不允許刪除”。 Trim(Text1(0)) amp。 39。 39。 程序代碼如下： 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 確認(rèn)密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 您兩次輸入的密碼不一致，請(qǐng)確認(rèn)后重新輸入 ！ , 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 普通用戶至少要有一項(xiàng)權(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 修改用戶密碼 界面 該界面對(duì)所有用戶可用，用于用戶修改自己的密碼，界面設(shè)計(jì)簡(jiǎn)單實(shí)用，修改前需要有輸入密碼才能修改，否則不允許用戶修改 。 程序代碼如下 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í)成績(jī)查詢 End Sub Private Sub banjidankechaxunyufenxi_Click() = False = False = False = False = 班級(jí)單科成績(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