【正文】 e Exit Sub End IfEnd IfEnd Sub在frmstuinfo的代碼窗口中添入以下代碼用來顯示該員工的詳細(xì)資料。Public Sub LoadStuInfo(StuNum As String)sqlstr = select * from StuInfo where SID=39。 amp。 StuNum amp。 39。 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”，則為添加新的員工資料，反之則為修改員工資料。如果為修改資料，則以員工的身份證號為關(guān)鍵字將該員工的信息加載到該窗體的對應(yīng)文本框，同時將該身份證號框（EditStu（0））的Enable屬性設(shè)置為False。如果為添加新的員工資料，則將身份證號的前6位置為該部門的ID，并將身份證號輸入框的SelStart屬性設(shè)為6。根據(jù)以上設(shè)計(jì)，在Form_Load中添加如下代碼：Private Sub Form_Load()39。確定添加或者修改，保存數(shù)據(jù) 男 女 = 0 團(tuán)員 黨員 預(yù)備黨員 = 1 漢族 瑤族 土家族 侗族 白族 苗族 回族 壯族 = 0If EditNum = 00000000 Then = 添加員工資料（部門： amp。 classid amp。 ） = 添加（amp。A） EditStu(0).Text = classid EditStu(0).SelStart = 6Else = 修改身份證號為 amp。 EditNum amp。 的員工資料 EditStu(0).Enabled = False = 修改（amp。M） Dim rs As New , sqlstr As String sqlstr = select * from StuInfo where SID=39。 amp。 EditNum amp。 39。 sqlstr, con 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) = 團(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 End Select : Set rs = NothingEnd IfEnd Sub當(dāng)用戶按下Command1按鈕時，觸發(fā)該按鈕的Click事件。首先判斷用戶輸入的信息是否符合要求，……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。, 1) Then MsgBox 添加的資料有非法字符（不允許輸入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)鍵字搜索該員工的資料，然后將該員工的資料更新?！e誤！未找到圖形項(xiàng)目表。If EditStu(0).Enabled Then 39。添加資料 sqlstr = select * from StuInfo where SID=39。 amp。 EditStu(0).Text amp。 39。 sqlstr, con, 1, 1 If Not Then MsgBox 已經(jīng)存在身份證號為 amp。 EditStu(0).Text 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。 values(39。 amp。 EditStu(0).Text amp。 39。,39。 amp。 EditStu(1).Text amp。 39。,39。 amp。 amp。 39。, sqlstr = sqlstr amp。 39。 amp。 EditStu(3).Text amp。 39。,39。 amp。 EditStu(2).Text amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 EditStu(7).Text amp。 39。, sqlstr = sqlstr amp。 39。 amp。 EditStu(4).Text amp。 39。,39。 amp。 EditStu(5).Text amp。 39。,39。 amp。 EditStu(6).Text amp。 39。,39。 amp。 EditStu(8).Text amp。 39。)Else 39。 39。修改資料 sqlstr = update StuInfo set SName=39。 amp。 EditStu(1).Text amp。 39。,SBirthday=39。 amp。 EditStu(2).Text amp。 39。,SGender=39。 amp。 amp。 39。, sqlstr = sqlstr amp。 SPlace=39。 amp。 EditStu(3).Text amp。 39。,SMinzu=39。 amp。 amp。 39。,SZhengzhi=39。 amp。 amp。 39。,SAddress=39。 amp。 EditStu(4).Text amp。 39。, sqlstr = sqlstr amp。 SCode=39。 amp。 EditStu(5).Text amp。 39。,STel=39。 amp。 EditStu(6).Text amp。 39。,SDormitory=39。 amp。 EditStu(7).Text amp。 39。,SRemark=39。 amp。 EditStu(8).Text amp。 39。 sqlstr = sqlstr amp。 where SID=39。 amp。 EditStu(0).Text amp。 39。End If sqlstr……如果是添加新資料，操作完畢后則提示用戶是否繼續(xù)添加新資料，如果用戶選擇否則退出該窗體，反之則初始化該窗體，將各文本框的內(nèi)容清空。…… If MsgBox(添加身份證號為 amp。 EditStu(0).Text 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ù)。…… MsgBox 修改身份證號為 amp。 EditStu(0).Text amp。 的員工資料成功！, vbInformation Call (classid) Unload Me……3．3．7 員工檔案管理模塊該模塊包括設(shè)置、職業(yè)設(shè)置、職位設(shè)置和員工業(yè)績管理四個功能。在該模塊中，我使用了Adodc控件和MSFlexGrid控件來實(shí)現(xiàn)其功能。Adodc控件連接數(shù)據(jù)庫的過程為先定義該對象的ConnectionString屬性，在使用Adodc時再定義其RecordSource屬性。 = Provider=。Data Source= amp。 + \=select * from Result where Name=39。amp。amp。39。Adodc的使用方法：添加新記錄：修改記錄：刪除記錄：3．3．8 報(bào)表功能模塊報(bào)表設(shè)計(jì)在實(shí)踐應(yīng)用中很有實(shí)用性，同樣，它也是一項(xiàng)細(xì)致的工作，沒有太難的算法；當(dāng)然要使其統(tǒng)計(jì)功能做得強(qiáng)大，還要有統(tǒng)計(jì)學(xué)的理論知識作指導(dǎo)。此模塊很簡單，主要實(shí)現(xiàn)的是員工信息的預(yù)覽、打印等功能。默認(rèn)的數(shù)據(jù)報(bào)表設(shè)計(jì)器包含如下內(nèi)容：1．報(bào)表標(biāo)頭 包含顯示在一個報(bào)表開始處的文本，例如報(bào)表標(biāo)題、作者或數(shù)據(jù)庫名。如果想把報(bào)表標(biāo)頭作為報(bào)表的第一頁，設(shè)置它的ForcePageBreak屬性為rptPageBreakAfter。2．頁標(biāo)頭 包含在每一頁頂部出現(xiàn)的信息，例如報(bào)表的標(biāo)題。3．分組標(biāo)頭/注腳 包含數(shù)據(jù)報(bào)表的一個“重復(fù)”部分。每一個分組標(biāo)頭與一個分組注腳相匹配。標(biāo)頭和注腳對與數(shù)據(jù)環(huán)境設(shè)計(jì)器中的一個單獨(dú)的mand對象相關(guān)聯(lián)。4．細(xì)節(jié) 包含報(bào)表的最內(nèi)部的“重復(fù)”部分（記錄）。詳細(xì)部分與數(shù)據(jù)環(huán)境