【正文】 str, con, 1, 1 DelNO = Do While Not Set Listit = (, , (UserID)) (1) = *** 隱藏用戶的密碼，用 ***來(lái)替代。, vbTextCompare) Then MsgBox 用戶姓名中有特殊字符 + 39。 , vbOKOnly + 48, 提示： Exit Sub End If If Trim() = Then MsgBox 密碼不能為空，請(qǐng)輸入密碼！ , vbOKOnly + 48, 提示： = 21 = Exit Sub End If End Sub 如果不為空，則檢查用戶名是否有重復(fù)，需要打開(kāi)系 統(tǒng)信息表， Private Sub Command4_Click() ?? sqlstr = select * from UserInfo where UserID=39。 amp。 sqlstr, con, 1, 1 End Sub 如果當(dāng)前記錄不為空，則逐條記錄檢查是否有重復(fù) Private Sub Command4_Click() ?? Userid = Trim() Userpwd = MD5(Trim()) Username = Trim() Userpower = Trim() DelNO = Do While Not ?? Loop ?? End Sub 如果有重復(fù)，則提示已存在這個(gè)用戶，然后將焦點(diǎn)設(shè)置給 Text1，并將所有的文本框清空。 Userid amp。 Private Sub Command4_Click() ?? If Trim() Trim() Then MsgBox 兩次密碼不相同，請(qǐng)重輸入！ , vbOKOnly + 48, 提示： = = Exit Sub End If End Sub 如果以上全部正確無(wú)誤的設(shè)置好了，則將新用戶的信息添加到數(shù) 據(jù)表中，并提示“添加新用戶成功”。 values(39。 Userid amp。,39。 Userpwd amp。, sqlstr = sqlstr amp。 amp。 39。 amp。 39。 amp。更新列表 LoadOperator 23 End Sub 4．刪除系統(tǒng)用戶 當(dāng)用戶雙擊 ListView 中的數(shù)據(jù)時(shí)，則會(huì)調(diào)用 DeleteRecord()函數(shù)，如果系統(tǒng)用戶只剩一個(gè)，則提示用戶不能再刪除；反之要求輸入您想要 刪除的用戶的密碼，密碼正確時(shí)才可以將該用戶刪除，密碼錯(cuò)誤時(shí)則不采取任何措施；最后調(diào)用LoadOperator顯示并刷新 Listview中的數(shù)據(jù)。刪除用戶操作 On Error Resume Next If Then If DelNO = 1 Then MsgBox 只剩下一個(gè)用戶帳號(hào)，不允許再刪除！ , vbInformation ElseIf MsgBox(確定要?jiǎng)h除用戶名為 amp。 的用戶帳號(hào)嗎？ , vbYesNo + 32 + vbDefaultButton2) = vbYes Then sqlstr = select * from UserInfo where UserID=39。 amp。 sqlstr, con, 1, 1 If MD5(InputBox(請(qǐng)輸入該用戶的密碼： )) = (UserPWD) Then sqlstr = delete from UserInfo where UserID=39。 amp。 sqlstr Else MsgBox 對(duì)不起！您 輸入的密碼不正確，刪除該用戶失??！ , vbInformation End If LoadOperator End If End If : Set rs = Nothing End Sub 24 5．菜單設(shè)計(jì) 在 Listview 中單擊鼠標(biāo)右鍵會(huì)調(diào)用 ListView 的 MouseUp 事件，出現(xiàn)右鍵菜單 menuOpertor， 具體實(shí)現(xiàn)如下： Private Sub ListView_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then PopupMenu menuOperator End If End Sub 實(shí)現(xiàn)該右鍵菜單各項(xiàng)功能的代碼如下： Private Sub menuAdd_Click() 39。刪除用戶 DeleteRecord End Sub 3． 3． 4 修 改密碼窗體（ frmchgPWD） 當(dāng)用戶要更改密碼時(shí)，單擊“系統(tǒng)選項(xiàng) /修改個(gè)人密碼”菜單，彈出如圖 所示窗體。修改密碼界面 1 End Sub 25 圖 修改用戶密碼 當(dāng)用戶輸入完畢時(shí)，單擊“確定”按鈕，引發(fā) Click 事件。然后打開(kāi)數(shù)據(jù)庫(kù)，并將新密碼寫(xiě)入，提示用戶密碼修改成功 。 amp。 39。 amp。 39。 amp。 39。 Private Sub Command2_Click() Unload Me End Sub 3． 3． 5 瀏覽 員工 信息窗體（ frmstu） 在工程中添加一個(gè)窗體，命名為 ，這里將使用 frmstu 窗體，來(lái)實(shí)現(xiàn)瀏覽 員工 信息的功能 。具體設(shè)置如表 所示 對(duì)象 屬性 設(shè)置 Form Name Frmstu Caption 員工 檔案管理 BorderStyle 2Sizable 27 MDIChild True WindowState 2Maximized Treeview Style tvwTreelinesPlusMinusPictureText Listview FullRowSelect True GridLines True MultiSelect False ToolTipText 雙擊顯示詳細(xì)資料 Image Name imgSplit Picturebox Name SliptBar 表 FrmStu 中部分控件的屬性 當(dāng)窗體啟動(dòng)時(shí)，需要在 Treeview 中加載班級(jí)列表，并初始化 Listview 中的標(biāo)題。 當(dāng)窗體大小發(fā)生變化時(shí)，調(diào)用 Form_Resize，調(diào)整 Frmstu 中控件的大小。設(shè)置 Width 屬性 If X 1500 Then X = 1500 28 If X ( 1500) Then X = 1500 = X = X = X + 50 = ( + 100) = 50 = = = = End Sub 單擊 Treeview 中的部門 號(hào) 碼 則調(diào) 用 TreeView_NodeClick 事件和ListviewLoad 事件在 Listview 中顯示該部門下面員工 的信息列表 。正在導(dǎo)入數(shù)據(jù)，提示用戶等待 = 11 If = classid Then 39。 amp。 __39。 在本系統(tǒng)中，在系統(tǒng)默認(rèn)情況下，部門編號(hào)作為身份證號(hào)的前面六位。 “添加”子菜單的 Click 事件的設(shè)計(jì)思路： 用戶單擊“添加”子菜單時(shí)，調(diào)用 frmmain 中的“添加員工 信息”子菜單顯示 FrmAddStu 窗體，同時(shí)將 Command1 的 Caption 屬性設(shè)置為“確定（ amp。 Private Sub pop3_Click() 39。 Private Sub pop4_Click() 39。顯示窗口 Dim EditNum As String If Then EditNum = CStr() Call (EditNum) Else Exit Sub End If End Sub 刪除員工 資料的設(shè)計(jì)思路： 在刪除記錄之前彈出詢問(wèn)框，確認(rèn)用戶是否真的要?jiǎng)h除當(dāng)前記錄，如果用戶選擇了“是”，則刪除該條記錄，否則就不執(zhí)行任何操作。 在刪除了當(dāng)前記錄以后，需要重新移動(dòng)當(dāng)前記錄；由于改變了當(dāng)前記錄集的內(nèi)容，所以需要調(diào)用 ListviewLoad 子過(guò)程來(lái)刷新 Listview 中的內(nèi)容。刪除員工 資料 Call End Sub Public Sub DelStu() If Then If MsgBox(確定要?jiǎng)h除身份證 號(hào)為 amp。 的全部資料嗎！ , vbYesNo + 32 + vbDefaultButton2) = vbYes Then 31 sqlstr = delete from StuInfo where SID=39。 amp。 sqlstr Call ListviewLoad(classid) End If End If End Sub 員工信息包括了身份證 號(hào)、姓名、出生日期、性別、家庭住址、聯(lián)系電話等內(nèi)容。為此，設(shè)計(jì)詳細(xì)信息框，來(lái)羅列用戶的各種詳細(xì)信息。 Private Sub pop1_Click() 39。顯示出該 員工 全部信息表單 Call (SelectNum) Else Exit Sub End If End If End Sub 在 frmstuinfo 的代碼窗口中添入以下代碼用來(lái)顯示該員工 的詳細(xì)資料。 amp。 39。如果為修改資料，則以 員工 的 身份證號(hào) 為關(guān)鍵字將該 員工 的信息加載到該窗體的對(duì)應(yīng)文本框，同時(shí)將該 身份證號(hào) 框（ EditStu（ 0））的 Enable 屬性設(shè)置為 False。根據(jù)以上設(shè)計(jì)，在 Form_Load 中添加如下代碼： Private Sub Form_Load() 39。 classid amp。A） EditStu(0).Text = classid EditStu(0).SelStart = 6 Else = 修改 身份證號(hào) 為 amp。 的 員工 資料 EditStu(0).Enabled = False = 修改（ amp。 amp。 39。把數(shù)據(jù)代入 文本框中 EditStu(0).Text = (SID) 34 EditStu(1).Text = (SName) EditStu(2).Text = (SBirthday) EditStu(3).Text = (SPlace) EditStu(4).Text = (SAddress) EditStu(5).Text = (SCode) EditStu(6).Text = (STel) EditStu(7).Text = (SDormitory) EditStu(8).Text = (SRemark) If (SGender) = 男 Then = 0 ElseIf (SGender) = 女 Then = 1 End If If (SZhengzhi) = Then = 0 ElseIf (SZhengzhi) = 團(tuán)員 Then = 1 ElseIf (SZhengzhi) = 黨員 Then = 2 ElseIf (SZhengzhi) = 預(yù)備黨員 Then = 3 End If Select Case (SMinzu) Case 漢族 : = 0 Case 瑤族 : = 1 Case 土家族 : = 2 Case 侗族 : = 3 Case 白族 : = 4 Case 苗族 : = 5 Case 回族 : = 6 Case 壯族 : = 7 35 End Select : Set rs = Nothing End I