【正文】 rim(pwd) Trim(confirmpwd) Then MsgBox 兩次輸入的密碼不相同！, vbInformation = = Exit SubEnd IfEnd Sub如果密碼一致，則判斷輸入的原密碼是否正確，如果正確則將新密碼寫入數(shù)據(jù)庫，這時需要一個字符串變量表達(dá)SQL語句，一個Recordset對象變量打開系統(tǒng)信息數(shù)據(jù)表。Private Sub Command1_Click()……sqlstr = select UserPWD from UserInfo where UserID=39。 LoginUser amp。 sqlstr, con, 1, 1If Not Then If rs(UserPWD) Oldpwd Then MsgBox 你輸入的原密碼不對！, vbInformation = = = Exit Sub Else sqlstr = update UserInfo set UserPWD=39。 pwd amp。 where UserID=39。 LoginUser amp。 sqlstr MsgBox 您的密碼更新成功，請牢記你的密碼！, vbInformation Unload Me End IfElse MsgBox 異常錯誤！, vbInformationEnd If: Set rs = NothingEnd Sub修改完畢后，單擊“取消”退出此窗體。在該窗體中，用戶可以查看/修改員工的信息，還可以添加/刪除員工信息，所以用一個Treeview和一個Listview分別顯示部門列表和該部門下面的員工列表，用Image和PictureBox來調(diào)整控件的大小。Private Sub Form_Load() Call TreeviewLoad Dim clmX As ColumnHeader Set clmX = (, , 身份證 號, / 7) ……End Sub在Form_Load事件中調(diào)用了TreeviewLoad函數(shù)，由于篇幅省略該函數(shù)的代碼，具體實(shí)現(xiàn)見源程序。Private Sub Form_Resize()If WindowState 1 Then If 3000 Then = 3000 If 3000 Then = 3000 SizeControls End If = (0).Width = 5000End SubSub SizeControls(X As Single) On Error Resume Next 39。Private Sub TreeView_NodeClick(ByVal Node As )39。開始在ListView中顯示數(shù)據(jù) classid = Left(, 6) Call ListviewLoad(classid)ElseIf = S Then Call SqlListview(SqlSearch)Else End IfEnd SubPublic Sub ListviewLoad(ByVal classid As String)Dim Listit As ListItem = lvwManual = 3Dim ef As New classid = Left(classid, 6)sqlstr = select * from StuInfo where SID like 39。 classid amp。 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 = NothingEnd Sub在顯示該部門下面所有員工信息的同時，用戶可以對記錄進(jìn)行管理：添加新記錄、編輯或者刪除當(dāng)前記錄，為此在Listview中創(chuàng)建右鍵菜單，用來對記錄進(jìn)行操作。為了體現(xiàn)這一關(guān)系，需要將部門編號賦給顯示身份證號的文本框。O）”。添加員工資料 Call End SubPublic Sub AddStu()Call (00000000)End Sub修改員工資料的Click事件的設(shè)計思路和添加員工資料的設(shè)計思路類似，但是由于只是對記錄進(jìn)行修改，不需要調(diào)用AddNew操作，只要對數(shù)據(jù)進(jìn)行Update操作即可。修改員工資料 Call End SubPublic Sub ModifyStu()39。在刪除記錄過程中，使用員工的身份證號作為關(guān)鍵字，調(diào)用Execute方法來刪除當(dāng)前記錄。Private Sub pop5_Click() 39。 amp。 amp。 39。在Listview中列出了各員工檔案信息的身份證號和姓名以供用戶進(jìn)行導(dǎo)航，但是在實(shí)際管理中，還需要顯示出某一條員工信息的詳細(xì)列表。當(dāng)用戶單擊“顯示該生詳細(xì)資料”子菜單時，顯示frmstuinfo窗體（），并以員工的身份證號為關(guān)鍵字，將該員工的全部資料賦值給frmstuinfo中的對應(yīng)文本框。顯示詳細(xì)資料 Call End SubPublic Sub ListView_DblClick()On Error Resume NextIf Then SelectNum = If SelectNum Then 39。Public Sub LoadStuInfo(StuNum As String)sqlstr = select * from StuInfo where SID=39。 StuNum amp。 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 1End Sub3．3．6 添加/修改員工信息窗體(frmAddstu)當(dāng)窗體加載時，首先判斷是修改員工資料還是添加新的員工資料，如果身份證號為“00000000”，則為添加新的員工資料，反之則為修改員工資料。如果為添加新的員工資料，則將身份證號的前6位置為該部門的ID，并將身份證號輸入框的SelStart屬性設(shè)為6。確定添加或者修改，保存數(shù)據(jù) 男 女 = 0 團(tuán)員 黨員 預(yù)備黨員 = 1 漢族 瑤族 土家族 侗族 白族 苗族 回族 壯族 = 0If EditNum = 00000000 Then = 添加員工資料（部門： amp。 ） = 添加（amp。 EditNum amp。M） Dim rs As New , sqlstr As String sqlstr = select * from StuInfo where SID=39。 EditNum amp。 sqlstr, con 39。首先判斷用戶輸入的信息是否符合要求，……If Trim(EditStu(0).Text) = Or Val(Trim(EditStu(0).Text)) 99999999 Or Val(Trim(EditStu(0).Text)) = 0 Or Len(EditStu(0)) 8 Then MsgBox 身份證號輸入有錯誤！請重新輸入身份證號（xxxxxxxx）！, vbInformation EditStu(0).SetFocus Exit SubEnd IfIf Trim(EditStu(1).Text) = Then MsgBox 必須輸入員工的姓名！, vbInformation EditStu(1).Text = EditStu(1).SetFocus Exit SubEnd IfIf IsDate(EditStu(2).Text) = False Then MsgBox 請按照（YYYYMMDD）的格式輸入出生年月！, vbOKOnly + vbExclamation, 警告 EditStu(2).SelLength = Len(EditStu(2).Text) EditStu(2).SetFocus Exit SubEnd If Dim i As IntegerFor i = 0 To 8 If InStr(1, EditStu(i).Text, 39。號）！, vbInformation Exit Sub EditStu(i).SetFocus End IfNext檢測數(shù)據(jù)完畢后，就開始對輸入的數(shù)據(jù)進(jìn)行操作，如果是添加新資料則判斷是否存在該員工的資料，如果該員工信息已經(jīng)存在則提醒用戶該員工資料已經(jīng)存在，反之則將該員工的資料添加到數(shù)據(jù)庫中；如果是修改員工資料則在數(shù)據(jù)庫中以身份證號為關(guān)鍵字搜索該員工的資料，然后將該員工的資料更新。If EditStu(0).Enabled Then 39。 amp。 39。 EditStu(0).Text amp。 values(39。 EditStu(0).Text amp。,39。 EditStu(1).Text amp。,39。 amp。, sqlstr = sqlstr amp。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 39。 EditStu(4).Text amp。,39。 EditStu(5).Text amp。,39。 EditStu(6).Text amp。,39。 EditStu(8).Text amp。)Else 39。修改資料 sqlstr = update StuInfo set SName=39。 EditStu(1).Text amp。,SBirthday=39。 EditStu(2).Text amp。,SGender=39。 amp。, sqlstr = sqlstr amp。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 SCode=39。 EditStu(5).Text amp。,STel=39。 EditStu(6).Text amp。,SDormitory=39。 EditStu(7).Text amp。,SRemark=39。 EditStu(8).Text amp。 sqlstr = sqlstr amp。 amp。 39?！? If MsgBox(添加身份證號為 amp。 的員工資料成功！是否繼續(xù)？, vbYesNo) = vbYes Then For i = 0 To 8 EditStu(i).Text = Next EditStu(0).SetFocus Else Call (classid) Unload Me End If……如果是修改員工資料，則提示用戶修改成功，然后退出該窗體，并更新frmstu窗體中Listview的數(shù)據(jù)。 EditStu(0).Text amp。在該模塊中，我使用了Adodc控件和MSFlexGrid控件來實(shí)現(xiàn)其功能。 = Provider=。 + \=select * from Result where Name=39。amp。Adodc的使用方法：添加新記錄：修改記錄：刪除記錄：3．3．8 報表功能模塊報表設(shè)計在實(shí)踐應(yīng)用中很有實(shí)用性，同樣，它也是一項細(xì)致的工作，沒有太難的算法；當(dāng)然要使其統(tǒng)計功能做得強(qiáng)大，還要有統(tǒng)計學(xué)的理論知識作指導(dǎo)。默認(rèn)的數(shù)據(jù)報表設(shè)計器包含如下內(nèi)容：1．報表標(biāo)頭 包含顯示在一個報表開始處的文本，例如報表標(biāo)題、作者或數(shù)據(jù)庫名。2．頁標(biāo)頭 包含在每一頁頂部出現(xiàn)的信息，例如報表的標(biāo)題。每一個分組標(biāo)頭與一個分組注腳相匹配。4．細(xì)節(jié) 包含報表的最內(nèi)部的“重復(fù)”部分（記錄）