【正文】 詳細部分與數(shù)據(jù)環(huán)境層次結(jié)構(gòu)。標(biāo)頭和注腳對與數(shù)據(jù)環(huán)境設(shè)計器中的一個單獨的mand對象相關(guān)聯(lián)。3．分組標(biāo)頭/注腳 包含數(shù)據(jù)報表的一個“重復(fù)”部分。如果想把報表標(biāo)頭作為報表的第一頁，設(shè)置它的ForcePageBreak屬性為rptPageBreakAfter。此模塊很簡單，主要實現(xiàn)的是員工信息的預(yù)覽、打印等功能。39。amp。Data Source= amp。Adodc控件連接數(shù)據(jù)庫的過程為先定義該對象的ConnectionString屬性，在使用Adodc時再定義其RecordSource屬性。 的員工資料成功！, vbInformation Call (classid) Unload Me……3．3．7 員工檔案管理模塊該模塊包括設(shè)置、職業(yè)設(shè)置、職位設(shè)置和員工業(yè)績管理四個功能?！? MsgBox 修改身份證號為 amp。 EditStu(0).Text amp。End If sqlstr……如果是添加新資料，操作完畢后則提示用戶是否繼續(xù)添加新資料，如果用戶選擇否則退出該窗體，反之則初始化該窗體，將各文本框的內(nèi)容清空。 EditStu(0).Text amp。 where SID=39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。, sqlstr = sqlstr amp。 EditStu(4).Text amp。,SAddress=39。 amp。,SZhengzhi=39。 amp。,SMinzu=39。 EditStu(3).Text amp。 SPlace=39。 39。 amp。 39。 amp。 39。 amp。 39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。, sqlstr = sqlstr amp。 EditStu(7).Text amp。,39。 amp。,39。 amp。,39。 EditStu(2).Text amp。,39。 EditStu(3).Text amp。 39。 39。 amp。 39。 amp。 39。 amp。 的員工資料,請重新輸入!, vbInformation EditStu(0).SetFocus Exit Sub End If : Set rs = Nothing sqlstr=insert into StuInfo(SID,SName,SGender,SPlace,SBirthday,SMinzu,SZhengzhi,SDormitory,SAddress,SCode,STel,SRemark) sqlstr = sqlstr amp。 sqlstr, con, 1, 1 If Not Then MsgBox 已經(jīng)存在身份證號為 amp。 EditStu(0).Text amp。添加資料 sqlstr = select * from StuInfo where SID=39?！e誤！未找到圖形項目表。, 1) Then MsgBox 添加的資料有非法字符（不允許輸入39。把數(shù)據(jù)代入文本框中 EditStu(0).Text = (SID) 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) = 團員 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 End Select : Set rs = NothingEnd IfEnd Sub當(dāng)用戶按下Command1按鈕時，觸發(fā)該按鈕的Click事件。 39。 amp。 的員工資料 EditStu(0).Enabled = False = 修改（amp。A） EditStu(0).Text = classid EditStu(0).SelStart = 6Else = 修改身份證號為 amp。 classid amp。根據(jù)以上設(shè)計，在Form_Load中添加如下代碼：Private Sub Form_Load()39。如果為修改資料，則以員工的身份證號為關(guān)鍵字將該員工的信息加載到該窗體的對應(yīng)文本框，同時將該身份證號框（EditStu（0））的Enable屬性設(shè)置為False。 39。 amp。顯示出該員工全部信息表單 Call (SelectNum) Else Exit Sub End IfEnd IfEnd Sub在frmstuinfo的代碼窗口中添入以下代碼用來顯示該員工的詳細資料。Private Sub pop1_Click() 39。為此，設(shè)計詳細信息框，來羅列用戶的各種詳細信息。 sqlstr Call ListviewLoad(classid) End IfEnd IfEnd Sub員工信息包括了身份證號、姓名、出生日期、性別、家庭住址、聯(lián)系電話等內(nèi)容。 amp。 的全部資料嗎！, vbYesNo + 32 + vbDefaultButton2) = vbYes Then sqlstr = delete from StuInfo where SID=39。刪除員工資料 Call End SubPublic Sub DelStu()If Then If MsgBox(確定要刪除身份證號為 amp。在刪除了當(dāng)前記錄以后，需要重新移動當(dāng)前記錄；由于改變了當(dāng)前記錄集的內(nèi)容，所以需要調(diào)用ListviewLoad子過程來刷新Listview中的內(nèi)容。顯示窗口Dim EditNum As StringIf Then EditNum = CStr() Call (EditNum)Else Exit SubEnd IfEnd Sub刪除員工資料的設(shè)計思路：在刪除記錄之前彈出詢問框，確認用戶是否真的要刪除當(dāng)前記錄，如果用戶選擇了“是”，則刪除該條記錄，否則就不執(zhí)行任何操作。Private Sub pop4_Click() 39。Private Sub pop3_Click() 39?！疤砑印弊硬藛蔚腃lick事件的設(shè)計思路：用戶單擊“添加”子菜單時，調(diào)用frmmain中的“添加員工信息”子菜單顯示FrmAddStu窗體，同時將Command1的Caption屬性設(shè)置為“確定（amp。在本系統(tǒng)中，在系統(tǒng)默認情況下，部門編號作為身份證號的前面六位。 __39。 amp。正在導(dǎo)入數(shù)據(jù)，提示用戶等待 = 11If = classid Then 39。設(shè)置 Width 屬性 If X 1500 Then X = 1500 If X ( 1500) Then X = 1500 = X = X = X + 50 = ( + 100) = 50 = = = = End Sub單擊Treeview中的部門號碼則調(diào)用TreeView_NodeClick事件和ListviewLoad事件在Listview中顯示該部門下面員工的信息列表。當(dāng)窗體大小發(fā)生變化時，調(diào)用Form_Resize，調(diào)整Frmstu中控件的大小。 對象屬性設(shè)置FormNameFrmstuCaption員工檔案管理BorderStyle2SizableMDIChildTrueWindowState2MaximizedTreeviewStyletvwTreelinesPlusMinusPictureTextListviewFullRowSelectTrueGridLinesTrueMultiSelectFalseToolTipText雙擊顯示詳細資料ImageNameimgSplitPictureboxNameSliptBar FrmStu中部分控件的屬性當(dāng)窗體啟動時，需要在Treeview中加載班級列表，并初始化Listview中的標(biāo)題。Private Sub Command2_Click() Unload MeEnd Sub3．3．5 瀏覽員工信息窗體（frmstu）在工程中添加一個窗體，這里將使用frmstu窗體，來實現(xiàn)瀏覽員工信息的功能。 39。 amp。 39。 amp。 39。 amp。然后打開數(shù)據(jù)庫，并將新密碼寫入，提示用戶密碼修改成功。修改密碼界面 1End Sub 修改用戶密碼當(dāng)用戶輸入完畢時，單擊“確定”按鈕，引發(fā)Click事件。刪除用戶 DeleteRecordEnd Sub3．3．4 修改密碼窗體（frmchgPWD）當(dāng)用戶要更改密碼時，單擊“系統(tǒng)選項/修改個人密碼”菜單。 sqlstr Else MsgBox 對不起！您輸入的密碼不正確，刪除該用戶失敗！, vbInformation End If LoadOperator End IfEnd If: Set rs = NothingEnd Sub5．菜單設(shè)計在Listview中單擊鼠標(biāo)右鍵會調(diào)用ListView的MouseUp事件，出現(xiàn)右鍵菜單menuOpertor，具體實現(xiàn)如下：Private Sub ListView_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 2 Then PopupMenu menuOperatorEnd IfEnd Sub實現(xiàn)該右鍵菜單各項功能的代碼如下：Private Sub menuAdd_Click() 39。 amp。 sqlstr, con, 1, 1 If MD5(InputBox(請輸入該用戶的密碼：)) = (UserPWD) Then sqlstr = delete from UserInfo where UserID=39。 amp。 的用戶帳號嗎？, vbYesNo + 32 + vbDefaultButton2) = vbYes Then sqlstr = select * from UserInfo where UserID=39。刪除用戶操作On Error Resume NextIf Then If DelNO = 1 Then MsgBox 只剩下一個用戶帳號，不允許再刪除！, vbInformation ElseIf MsgBox(確定要刪除用戶名為amp。更新列表 LoadOperatorEnd Sub4．刪除系統(tǒng)用戶當(dāng)用戶雙擊ListView中的數(shù)據(jù)時，則會調(diào)用DeleteRecord()函數(shù)，如果系統(tǒng)用戶只剩一個，則提示用戶不能再刪除；反之要求輸入您想要刪除的用戶的密碼，密碼正確時才可以將該用戶刪除，密碼錯誤時則不采取任何措施；最后調(diào)用LoadOperator顯示并刷新Listview中的數(shù)據(jù)。 amp。 39。 amp。 39。 amp。, sqlstr = sqlstr amp。 Userpwd amp。,39。 Userid amp。 values(39。Private Sub Command4_Click()……If Trim() Trim() Then MsgBox 兩次密碼不相同，請重輸入！, vbOKOnly + 48, 提示：