【正文】 禁止“刪除”按鈕
。獲取單擊的文本 3. If Right = 0 Then 39。具體代碼如下： 1. Private Sub TreeView1_NodeClick(ByVal Node As ) 39。 ? 第 26~34 行獲取權(quán)限為 2（系統(tǒng)管理員）的所有操作員，并將其添加到 Tree View 控件的“普通用戶”分組。處理下一記錄 33. Loop 34. End If 35. End Sub ? 第 6~15 行獲取權(quán)限為 0（系統(tǒng)管理員）的所有操作員，并將其 添加到 Tree View 控件的“系統(tǒng)管理員”分組。循環(huán)處理權(quán)限為 2 的用戶 31. Set mynod = (User, tvwChild, , rs!admin_name, 1, 1) 39。若記錄集不為空 29. Set mynod = (, , User, 普通用戶 , 2, 2) 39。獲取權(quán)限為 2 的用戶 27. Set rs = QueryExt(strSQL) 39。將用戶名添加到樹(shù)型控件中 22. 39。添加根節(jié)點(diǎn) 20. Do While Not 39。執(zhí)行 SQL 語(yǔ)句 18. If Not Then 39。處理下一記錄 13. Loop 14. End If 15. 34 16. strSQL = SELECT * FROM [s_admin] WHERE [admin_right]=1 ORDER BY [admin_id] 39。循環(huán)處理權(quán)限為 0 的用戶 11. Set mynod = (Admin, tvwChild, , rs!admin_name, 1, 1) 39。若記錄集不為空 9. Set mynod = (, , Admin, 系統(tǒng)管理員 , 2, 2) 39。獲取權(quán)限為 0 的用戶 7. Set rs = QueryExt(strSQL) 39。記錄集 5. 39。節(jié)點(diǎn)對(duì)象 3. Dim strSQL As String 39。具體代碼如下： 1. Private Sub Form_Load() 39。 Dim strName As String 39。 52“刪除操作員”窗體運(yùn)行效果 53 “刪除操作員”窗體設(shè)計(jì)界面 32 52“刪除操作員”窗體控件表 控件名稱 屬性 屬性值 控件名稱 屬性 屬性值 Form 名稱 frmUserDel CommandButton1 （刪除） 名稱 CmdDelUser Caption 刪除操作員 Caption 刪除 TreeView1（操作員） 名稱 TreeView1 Enabled False Image List（圖像列表） 名稱 Image List CommandButton2 （退出） 名稱 cmdExit Caption 退出 54 ImageList1 的屬性頁(yè) 33 55 TreeView1 的屬性頁(yè) 該窗體的代碼比較多，針對(duì)不同控件編寫(xiě)了不同的代碼，下面詳細(xì)介紹這些代碼。只有“系統(tǒng)管理員”才能刪除操作員，并且不能刪除當(dāng)前操作員。 刪除操作員 使用“刪除操作員”窗體可將不允許再使用本系統(tǒng)的操作員刪除 。 ? 第 51 行調(diào)用過(guò)程 SQLExt 執(zhí)行 SQL 語(yǔ)句，完成添加操作員的操作。卸載窗本 54. End If 55. = 56. = 57. = 58. 59. End Sub 31 ? 第 4~36 行分別檢查用戶名、用戶密碼是否正確，系統(tǒng)中是否已存在同名用戶等情況。 vbCrLf amp。執(zhí)行 SQL 語(yǔ)句添加操作員 52. If MsgBox(添加用戶成功！ amp。 39。判斷用戶權(quán)限 43. Case 0 44. str1 = 系統(tǒng)管理員 45. Case 1 46. str1 = 超級(jí)用戶 47. Case 2 48. str1 = 普通用戶 49. End Select 50. strSQL = strSQL amp。 39。 amp。 39。 40. strSQL = strSQL amp。 39。 39. strSQL = strSQL amp。退出過(guò)程 36. End If 37. strSQL = INSERT INTO [s_admin]([admin_name],[admin_pwd],[admin_right], 38. strSQL = strSQL amp。清空各控件 31. = 32. = 33. = 34. 39。若記錄集不為空 29. MsgBox 該用戶名已經(jīng)存在，請(qǐng)重新輸入用戶名！ , vbExclamation + vbOKOnly, 警告 39。校驗(yàn)用戶名是否重復(fù) 27. Set rs = QueryExt(strSQL) 39。 39。 amp。設(shè)置輸入焦點(diǎn) 24. Exit Sub 39。若權(quán)限文本為空 22. MsgBox 請(qǐng)選擇用戶的權(quán)限！ , vbOKOnly + vbInformation, 警告 39。顯示提示 18. 39。退出過(guò)程 15. End If 16. If str1 str2 Then 39。提示信息 13. 39。獲取確認(rèn)密碼 11. If str1 = Then 39。退出過(guò)程 8. End If 9. str1 = Trim() 39。提示信息 6. 39?！疤砑印卑粹o 2. Dim strSQL As String, str1 As String, str2 As String 3. Dim rs As 4. If Trim() = Then 39。設(shè)置確認(rèn)密碼文本框獲得焦點(diǎn) 6. End If 7. End Sub （ 1） 當(dāng)用戶輸入操作員的相關(guān)信息后，單擊“添加”按鈕即可將輸入的信息保存到操作員表中。取消輸入 4. ElseIf KeyAscii = 13 Then 39。密碼文本框中按鍵 2. If KeyAscii = 39 Then 39。下面列出“用戶名”文本框的按鍵代碼，其他兩個(gè)文本框的代碼與此類似。 （ 1） 在本窗體的三個(gè)文本框中輸入內(nèi)容后 按回車鍵，輸入焦點(diǎn)將自動(dòng)跳轉(zhuǎn)到下一個(gè)控件。在用戶單擊“添加”按鈕時(shí)將 新 增用戶的信息保存到數(shù)據(jù)庫(kù)對(duì)應(yīng)的表 Sadmin 中?！霸黾硬僮鲉T”窗體（ frmUserAdd） 如圖 51 所示，該窗體中各控件的屬性如表所示 51 所示 。 27 46 應(yīng)用 ADO 28 第五章設(shè)計(jì)系統(tǒng)模塊 本系統(tǒng)的“系統(tǒng)”模塊只有一個(gè)操作員管理功能，包括增加、刪除操作員，修改操作員密碼等子模塊，下面分別介紹這三個(gè)窗體的制作。具體步驟如下： 1 在 VB 中，單機(jī)菜單“工程 /引用”命令，打開(kāi)如圖所示對(duì)話框。 45 工程屬性 工程啟動(dòng)過(guò)程“ Sub Main”定義在一個(gè)模塊中，該過(guò)程的代碼上一節(jié)中已經(jīng)介紹了。卸載 Splash 窗體 23 39。生成主窗體 26 21 Load fMainForm 39。顯示 Splash 窗體 19 39。退出應(yīng)用程序 16 End If 17 Unload fLogin 39。顯示登錄窗體 14 If Not Then 39。 39。user id=sa。操作員權(quán)限 10 Sub Main() 11 Dim fLogin As New frmLogin 12 Conn = data source=st42\sqlexpress。連接字符串 8 Public UserName As String 39。保存結(jié)果集的 Recordset 對(duì)象 6 Public strSQL As String 39。 標(biāo)記執(zhí)行 Connect()函 數(shù)后，訪問(wèn)數(shù)據(jù)庫(kù)的次數(shù) 4 Private n As 39。 1 Public fMainForm As frmMain 2 Private IsConnect As Boolean 39。 編寫(xiě)通用模塊程序 向工程中添加一個(gè)模塊文件“ ” ,在該 模塊中聲明變量，創(chuàng)建一個(gè)名為“ Sub Main”的過(guò)程，用來(lái)啟動(dòng)應(yīng)用程序，還創(chuàng)建連接數(shù)據(jù)庫(kù)及從數(shù)據(jù)庫(kù)中獲取數(shù)據(jù)的過(guò)程。卸載窗體 62 End Sub ? 第 1~6 行為裝載窗體事件代碼，從注冊(cè)表中獲取窗體左上角坐標(biāo)位置和窗體 ? 第 7~14 行為卸載窗體事件代碼，將主窗體的坐標(biāo)位置和窗體大小保存到注冊(cè)表 ? 中。顯示“關(guān)于”窗體 59 End Sub 60 Private Sub mnuFileExit_Click() 39。顯示“修改密碼”窗體 56 End Sub 57 Private Sub mnuHelpAbout_Click() 39。顯示“刪除操作員”窗體 53 End Sub 54 Private Sub mnuSystemUserPWD_Click() 39。顯示“增加操作員”窗體 50 End Sub 51 Private Sub mnuSystemUserDel_Click() 39。顯示“成績(jī)信息設(shè)置”窗體 47 End Sub 48 Private Sub mnuSystemUserAdd_Click() 39。顯示“學(xué)生信息查詢”窗體 44 End Sub 45 Private Sub mnuStuResult_Click() 39。顯示“成績(jī)信息查詢”窗體 41 End Sub 42 Private Sub mnuQueryStu_Click() 39。顯示“年級(jí)課程設(shè)置”窗體 38 End Sub 39 Private Sub mnuQueryResult_Click() 39。顯示“課程設(shè)置”窗體 35 End Sub 36 Private Sub mnuCourseGrade_Click() 39。顯示“學(xué)期設(shè)置”窗體 32 End Sub 33 Private Sub mnuCourse1_Click() 39。顯示“學(xué)校信息設(shè)置”窗體 29 End Sub 30 Private Sub mnuBaseTerm_Click() 39。顯示“年級(jí)設(shè)置”窗體 26 End Sub 27 Private Sub mnuBaseSchool_Click() 39。顯示“課程類型設(shè)置”窗體 23 End Sub 24 24 Private Sub mnuBaseGrade_Click() 39。顯示“班級(jí)設(shè)置”窗體 20 End Sub 21 Private Sub mnuBaseCourse_Click() 39。顯示“學(xué)生信息”窗體 17 End Sub 18 Private Sub mnuBaseClass_Click() 39。保存高度 13 End If 14 End Sub 15 Private Sub menuStu1_Click() 39。保存頂部位置 11 SaveSetting , Settings, MainWidth, 39。窗體不是最小化 9 SaveSetting , Settings, MainLeft, 39。窗體高度 6 End Sub 7 Private Sub MDIForm_Unload(Cancel As Integer) 39。窗體頂部坐標(biāo) 4 = GetSetting(, Settings, MainWidth, 6500) 39。窗體裝載事件，從注冊(cè)表中獲取窗體的位置、大小 2 = GetSetting(, Settings, MainLeft, 1000) 39。A) mnuHelpAbout F1 編寫(xiě)主窗體代碼 為主窗體設(shè)計(jì)好菜單后，就可為主窗體的載體、卸載事件，以及各菜單編寫(xiě)代碼。R) mnuQueryResult 幫助 (amp。Q) mnuQuery 學(xué)生信息 (amp。S) menuStu1 Ctrl+S 登記成績(jī) (amp。G) mnuCourseGrade 學(xué)生信息 (amp。U) mnuBaseCourse 課程信息 (amp。T) mnuBaseTerm 課程設(shè)置 (amp。G) mnuBaseGrade Ctrl+G 班級(jí)信息 (amp。B) mnuBase 學(xué)校信息 (amp。P) mnuSystemUserPWD mnu1 退出 (amp。A mnuSystemUserAdd 刪除操作員 (amp。S) mnuSystem 操作員 (amp。本系統(tǒng)中各菜單項(xiàng)的標(biāo)題和名稱如表 41 所示。