【正文】 sqlstr, con 39。 EditNum amp。M） Dim rs As New , sqlstr As String sqlstr = select * from StuInfo where SID=39。 EditNum amp。 ） = 添加（ amp。確定添加或者修改，保存數據 男 女 = 0 33 團員 黨員 預備黨員 = 1 漢族 瑤族 土家族 侗族 白族 苗族 回族 壯族 = 0 If EditNum = 00000000 Then = 添加 員工資料（部門 ： amp。如果為添加新的 員工 資料，則將 身份證號 的前 6 位置為該部門 的 ID，并將 身份證號輸入框的 SelStart 屬性設為 6。 sqlstr, con, 1, 1 StuInfo(0).Caption = (SID) StuInfo(1).Caption = (SName) StuInfo(2).Caption = (SGender) StuInfo(3).Caption = (SZhengzhi) StuInfo(4).Caption = (SPlace) StuInfo(5).Caption = (SMinzu) StuInfo(6).Caption = (SBirthday) StuInfo(7).Caption = (SDormitory) StuInfo(8).Caption = (SAddress) StuInfo(9).Caption = (SCode) StuInfo(10).Caption = (STel) StuInfo(11).Caption = (SRemark) : Set rs = Nothing 1 End Sub 3． 3． 6 添加 /修改員工 信息窗體 (frmAddstu) 當窗體加載時，首先判斷是修改員工資料還是添加新的員工資料，如果身份證 號為“ 00000000”，則為添加新的員工資料，反之則為修改員工 資 料。 StuNum amp。 Public Sub LoadStuInfo(StuNum As String) 32 sqlstr = select * from StuInfo where SID=39。顯示詳細資料 Call End Sub Public Sub ListView_DblClick() On Error Resume Next If Then SelectNum = If SelectNum Then 39。當用戶單擊“顯示該生詳細資料”子菜單時，顯示 frmstuinfo 窗體（圖 ），并以員工的身份證號為關鍵字，將該員工 的全部資料賦值給 frmstuinfo 中的對應文本框。在 Listview 中列出了各 員工檔案 信息的身份證 號 和姓名以供用戶進行導航，但是在實際管理中，還需要顯示出某一條員工 信息的詳細列表。 39。 amp。 amp。 Private Sub pop5_Click() 39。 在刪除記錄過程中，使用員工的身份證 號作為關鍵字，調用 Execute 方法來刪除當前記錄。修改員工 資料 Call End Sub Public Sub ModifyStu() 39。添加員工 資料 Call End Sub Public Sub AddStu() Call (00000000) 30 End Sub 修改員工 資料的 Click 事件的設計思路和添加員工 資料的設計思路類似，但是由于只是對記錄進行修改，不需要調用 AddNew 操作，只要對數據進行 Update操作即可。O）”。為了體現(xiàn)這一關系，需要將部門編號賦給顯示身份證 號的文本框。 order by SID sqlstr, con, 1, 1 Do While Not Set Listit = (, , (SID)) (1) = (SName) (2) = (SGender) (3) = (SMinzu) (4) = (SZhengzhi) (5) = (SDormitory) (6) = (SAddress) Loop : Set ef = Nothing End Sub 在顯示該部門 下面所 有員工 信息的同時，用戶可以對記錄進行管理：添加新記錄、編輯或者刪除當前記錄，為此在 Listview 中創(chuàng)建右鍵菜單，用來對記錄進行操作。 classid amp。開始在 ListView 中顯示數據 classid = Left(, 6) Call ListviewLoad(classid) ElseIf = S Then Call SqlListview(SqlSearch) Else End If End Sub Public Sub ListviewLoad(ByVal classid As String) Dim Listit As ListItem = lvwManual = 3 29 Dim ef As New classid = Left(classid, 6) sqlstr = select * from StuInfo where SID like 39。 Private Sub TreeView_NodeClick(ByVal Node As ) 39。 Private Sub Form_Resize() If WindowState 1 Then If 3000 Then = 3000 If 3000 Then = 3000 SizeControls End If = (0).Width = 5000 End Sub Sub SizeControls(X As Single) On Error Resume Next 39。 Private Sub Form_Load() Call TreeviewLoad Dim clmX As ColumnHeader Set clmX = (, , 身份證 號 , / 7) ?? End Sub 在 Form_Load 事件中調用了 TreeviewLoad 函數，由于篇幅省略該函數的代碼，具體實現(xiàn)見源程序。 在該窗體中，用戶可以查看 /修改員工 的信息，還可以添加 /刪除員工 信息，所以用一個 Treeview和一個 Listview分別顯示部門列 表和該部門 下面的 員工 列表，用 Image 和 PictureBox 來調整控件的大小。 sqlstr MsgBox 您的密碼更新成功，請牢記你的密碼！ , vbInformation Unload Me End If Else MsgBox 異常錯誤！ , vbInformation End If : Set rs = Nothing End Sub 修改完畢后，單擊“取消”退出此窗體。 LoginUser amp。 where UserID=39。 pwd amp。 sqlstr, con, 1, 1 If Not Then 26 If rs(UserPWD) Oldpwd Then MsgBox 你輸入的原密碼不對！ , vbInformation = = = Exit Sub Else sqlstr = update UserInfo set UserPWD=39。 LoginUser amp。 Private Sub Command1_Click() ?? sqlstr = select UserPWD from UserInfo where UserID=39。這時，先檢查兩次輸入的密碼是否一致，如果不一致，則提示用戶，將焦點設置到第二個 Text2控件，后面 兩個文本框清空，代碼如下： Private Sub Command1_Click() Dim Oldpwd As String, pwd As String, confirmpwd As String Oldpwd = Trim() pwd = Trim() confirmpwd = Trim() ?? If Trim(pwd) Trim(confirmpwd) Then MsgBox 兩次輸入的密碼不相同！ , vbInformation = = Exit Sub End If End Sub 如果密碼一致，則判斷輸入的原密碼是否正確，如果正確則將新密碼寫入數據庫，這時需要一個字符串變量表達 SQL 語句，一個 Recordset 對象變量打開系統(tǒng)信息數據表。在 MDI 主窗體編輯窗口中，單擊“系統(tǒng)選項 /修改個人密碼”，添加如下代碼： Private Sub filemenu12_Click() 39。添加用戶 End Sub Private Sub menuDel_Click() 39。 39。 amp。 39。 amp。 amp。根據以上的設計， DeleteRecord()的代碼如下： Private Sub DeleteRecord() 39。 成功 , vbOKOnly, 添加系統(tǒng)用戶 = = = = 39。) sqlstr MsgBox 添加用戶 amp。Userpower amp。,39。 Username amp。 39。 39。 amp。 39。 amp。 Private Sub Command4_Click() sqlstr = insert into UserInfo(UserID,UserPWD,UserName,UserPower) sqlstr = sqlstr amp。 的用 戶帳 號 , 22 vbInformation Exit Sub End If Loop : Set rs = Nothing End Sub 如果沒有重復，再檢查兩次輸入的密碼是否一致，如果不一致，則提示“兩次密碼不一致”。 Private Sub Command4_Click() ?? Do While Not If = (UserID) Then MsgBox 已經 存在 用戶 名為 amp。 39。 amp。,請刪除。 (2) = ef(UserName) (3) = ef(UserPower) Loop Set ef = Nothing End Sub 3． 添加用戶 在 Textbox 中輸入了相應的數據以后，按添加按鈕則調用該按鈕的 Click事件，代碼如下 當單擊“添加”按鈕時，首先檢查輸入的用戶名和密碼是否 為空，代碼如下： Private Sub Command4_Click() If Trim() = Then MsgBox 登陸用戶名不允許為空！ , vbOKOnly + 48, 提示： Exit Sub End If If InStr(1, Trim(), 39。在該窗體的通用部分寫如下代碼： Dim DelNO As Integer 2．窗體加載時，初始化 Listview 用以顯示 系統(tǒng)用戶列表，代碼如下 Private Sub Form_Load() 39。窗體的控件設計如圖 所示 圖 用戶管理界面 如果登陸的用戶類型是管理員，用戶管理一項是可用的，當單擊該子菜單時，19 將會出現(xiàn)用戶管理窗口，管理員可以對系統(tǒng)用戶進行添加和刪除操作。 Private Sub filemenu45_Click() 39。 \, , , 1 End Sub 6．“給我發(fā)郵件”子菜單的代碼 如果用戶單擊了“給我發(fā)郵件”子菜單，則會調用 API 函數，調用 Outlook。 Private Sub filemenu15_Clic