【正文】 Next iText1(0).SetFocus = False = False = False = False = False = False = False = True = TrueEnd Subl “刪除員工”。For i = 0 To 1439。Exit Sub Else If Trim() Trim() Then MsgBox 兩次密碼不一致！, vbOKOnly + vbExclamation, 提示 = = Else (用戶密碼) = 39。記錄往下移動一條 Loop If finduser = False Then MsgBox 沒有這個(gè)用戶，請重新輸入！, vbOKOnly + vbExclamation, 警告 = End IfEnd IfExit Suberrorhandle: MsgBox 您的操作有誤！, vbOKOnly + vbExclamation, 錯(cuò)誤End SubPrivate Sub Form_Load() = = End Subl 取消按鈕代碼Private Sub cmdCancel_Click()Unload Me Exit SubEnd Sub(2)修改密碼窗體代碼l “確定”按鈕代碼Private Sub cmdOK_Click()If Trim() = Then MsgBox 請輸入舊密碼！, vbOKOnly + vbExclamation, 提示 39。field就是某個(gè)字段 finduser = True If (用戶密碼) = Trim() Then strUserName = Trim() 39。將記錄指針移動到首記錄 If Trim( = ) Then MsgBox 請輸入用戶名稱！, vbOKOnly + vbExclamation, 警告 Exit Sub Else Do While Not 39。(2) 在系統(tǒng)的工資結(jié)算模塊中，輸入“員工編號”或“員工姓名”后按回車鍵，調(diào)出該名員工的個(gè)人信息和基本工資信息；選擇年份及月份后，單擊“更新”按鈕，更新該名員工的本月的考勤信息；輸入獎金等后，單擊“計(jì)算”按鈕，得到該名員工本月的工資，單擊“保存”后保存相應(yīng)的信息。感謝所有幫助過我的老師、同學(xué)、朋友，感謝你們，希望你們在以后的日子里，開心、快樂！參考文獻(xiàn)[1] 劉萌、周學(xué)明、郭安源，Visual Basic企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航，北京：人民郵電出版社，~37[2] 求是科技，Visual Basic 數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐，北京：人民郵電出版社，~89[3] 張瀚文、齊錦剛，Visual Basic數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例與解析，北京：高等教育出版社，~185[4] 劉瑞新、汪遠(yuǎn)征，Visual Basic程序設(shè)計(jì)教程，北京：機(jī)械工業(yè)出版社，~79[5] 孟小峰、王珊，數(shù)據(jù)庫系統(tǒng)導(dǎo)論，北京：機(jī)械工業(yè)出版社，~77[6] Hector GarciaMolina/，Database system inplementation, 北京：機(jī)械工業(yè)出版社，~63[7] ，An introduction to Database System(Seventh Edition), 北京：機(jī)械工業(yè)出版社，~256[8] 姚巍，Visual Basic數(shù)據(jù)庫開發(fā)及工程實(shí)例，北京：人民郵電出版社，77~92[9] 伍俊良，VB課程設(shè)計(jì)與系統(tǒng)開發(fā)安例，北京：清華大學(xué)出版社，~88[10] 張紅軍、王虹，Visual Basic ，北京：人民郵電出版社，~67[11] 美 Darwin Boyle等，Visual Basic 4 Developer39。在這里，真誠的向老師說一句：老師，謝謝您!在此，同時(shí)感謝我的父母，對我的支持，沒有他們的支持，我走不到今天。老師嚴(yán)謹(jǐn)治學(xué)的態(tài)度，在我的心里留下深刻的影響，在以后的日子里，我要學(xué)習(xí)老師的求實(shí)、尊重事實(shí)的精神。感謝這些年中，各位老師對我的教誨，感謝新疆廣播電視大學(xué)，感謝大家有緣能出現(xiàn)在彼此的生活中。本系統(tǒng)完成的僅是工資管理系統(tǒng)中的幾個(gè)常見的模塊，所以僅適于規(guī)模一般的企業(yè)的使用，無法適用于大型企業(yè)。本系統(tǒng)方便了企業(yè)對于職工的工資管理，瀏覽、添加、刪除、修改等操作簡單直觀，能基本符合企業(yè)工資管理的需求，在一定的時(shí)期內(nèi)具有教好的發(fā)展前景。(3) 綜合測試：在以上測試的基礎(chǔ)上對系統(tǒng)功能進(jìn)行了整體的測試，依次來檢驗(yàn)系統(tǒng)功能是否符合系統(tǒng)設(shè)計(jì)的要求。(2) 數(shù)據(jù)跟蹤：完成菜單項(xiàng)測試后，我又對系統(tǒng)內(nèi)的每一個(gè)數(shù)據(jù)進(jìn)行了跟蹤。在具體的測試中，一般應(yīng)遵循以下原則：由程序設(shè)計(jì)者之外的人進(jìn)行測試；測試用例應(yīng)由兩部分組成：輸入數(shù)據(jù)和預(yù)期輸出結(jié)果；應(yīng)選用不合理的輸入數(shù)據(jù)與非法輸入測試；不僅要檢驗(yàn)程序是否實(shí)現(xiàn)預(yù)期功能，還應(yīng)檢查程序是否做了不應(yīng)該做的工作；集中測試容易出錯(cuò)的程序模塊；對程序修改以后，必須重新進(jìn)行測試。系統(tǒng)測試需要確認(rèn)從頭到尾的功能正常才算完成，應(yīng)當(dāng)盡量避免系統(tǒng)測試延到項(xiàng)目末尾進(jìn)行。系統(tǒng)測試應(yīng)在系統(tǒng)的整個(gè)范圍內(nèi)進(jìn)行，這種測試不只對軟件進(jìn)行，而是對構(gòu)成系統(tǒng)的硬、軟件一起進(jìn)行。測試工作是由一個(gè)獨(dú)立的組織進(jìn)行，而且測試要從用戶的角度出發(fā)。(3) 確認(rèn)測試確認(rèn)測試是對通過組合測試的軟件進(jìn)行的，這些軟件已經(jīng)存于系統(tǒng)目標(biāo)設(shè)備的介質(zhì)上，確認(rèn)測試的目的是對表明軟件是可以工作的，并且符合“軟件需求說明書”中規(guī)定的全部功能和性能要求。(2) 組合測試組合測試也稱集成測試或子系統(tǒng)測試，通常采用自頂向下測試和自底向上測試兩種測試方法。對源碼進(jìn)行審查，對照設(shè)計(jì)說明書，表態(tài)地檢查源程序是否符合功能的邏輯要求，是進(jìn)行單元測試前的重要工作工。測試對象是隨階段而異的，最基本、最初的測試是單元測試，后面的組合測試、確認(rèn)測試都是以被測過的模塊作為測試對象的。因此軟件測試的目標(biāo)應(yīng)該是以盡可能少的代價(jià)和時(shí)間找出軟件系統(tǒng)中潛在的錯(cuò)誤和缺陷。因此測試不是為了表明程序正確；成功的測試也不是沒有發(fā)現(xiàn)錯(cuò)誤的測試。因此，我們必須重視測試工作。 代碼設(shè)計(jì)(見附錄) 第五章 系統(tǒng)測試 系統(tǒng)測試的概念在MIS開發(fā)過程中采用了多種措施保證軟件質(zhì)量，但是實(shí)際開發(fā)過程中還是不可避免地會產(chǎn)生差錯(cuò)，系統(tǒng)中通常可能隱藏著錯(cuò)誤和缺陷，示經(jīng)周密測試的系統(tǒng)投入運(yùn)行，將會造成難以想像的后果，因此系統(tǒng)測試是MIS開發(fā)過程中為保證軟件質(zhì)量必須進(jìn)行的工作。(6) 選中“允許添加”、“允許刪除”、“允許更新”復(fù)選框，代表DataGrid控件可以進(jìn)行記錄的添加、刪除、更新。(5) 在上節(jié)完成的基礎(chǔ)上，只要設(shè)置DataGrid控件的屬性即可實(shí)現(xiàn)對記錄的增、刪、改操作。(3) 然后保存該項(xiàng)目，接著運(yùn)行該窗體。具體的操作步驟如下(僅舉一例)：(1) 打開frmAttInfo窗體(2) 設(shè)置DataGrid控件的DataSource屬性為Adodc1。 建立DataGrid控件與Adodc控件的連接 根據(jù)前面的介紹可以知道，Ado Data控件必須通過綁定數(shù)據(jù)感知控件才能提供一個(gè)訪問數(shù)據(jù)庫的界面，用來對數(shù)據(jù)庫數(shù)據(jù)的瀏覽、添加、刪除、修改等操作?？捎玫倪x擇,如下表所示： 記錄源命令列表屬性值含義8adCmdUnknow未知類型，用戶在“命令文本”框中輸入創(chuàng)建命令對象所使用的SQL語句1adCmdText文本類型，用戶在“命令文本”框中輸入創(chuàng)建命令對所使用的SQL語句2adCmdTable表類型，在“表或存儲過程名稱”下拉列表框中選擇一個(gè)表的名稱，Visual Basic用該表創(chuàng)建一個(gè)命令對象，相當(dāng)于輸入了“Select * from Table”語句4adCmdStoreProc存儲過程，在“表或存儲過程名稱”下拉列表框中選擇一個(gè)查詢的名稱 (9) 把該屬性設(shè)定為2adCmdTable，把“表或存儲過程名稱”屬性設(shè)置為需要用的表。圖44 Ado Data控件的屬性對話框圖43 “數(shù)據(jù)鏈接屬性”對話框(8) 屬性對話框中，切換到“記錄源”選項(xiàng)卡。因?yàn)樵谠O(shè)置連接字符串時(shí)，已經(jīng)向Ado Data控件提供了身份驗(yàn)證信息，所以當(dāng)前不用再進(jìn)行設(shè)置。否則，警告連接失敗并給出失敗的原因。(6) 單擊“測試連接”命令按鈕，測試剛才的設(shè)置是否正確及數(shù)據(jù)庫是否可用。數(shù)據(jù)庫可以在本機(jī)硬盤上，也可以在網(wǎng)絡(luò)上。設(shè)計(jì)器切換到“連接”選項(xiàng)卡，如圖26所示，讓用戶設(shè)置使用的數(shù)據(jù)源。例如，使用本例的數(shù)據(jù)庫。圖42 “數(shù)據(jù)鏈接屬性”對話框圖41 Ado Data控件的屬性對話框(4) 在“數(shù)據(jù)鏈接屬性”對話框中，第一步要做的工作是選擇數(shù)據(jù)源提供者程序。(3) 在“通用”選項(xiàng)卡中，選擇“使用連接字符串”單選按鈕，并單擊“生成”按鈕，打開“數(shù)據(jù)鏈接屬性”對話框，如圖25所示。Ado Data控件的屬性對話框共有5個(gè)選項(xiàng)卡，常用的是“通用”選項(xiàng)卡、“身份驗(yàn)證”選項(xiàng)卡和“記錄源”選項(xiàng)卡。具體的操作步驟如下：(1) 打開frmLogin窗體。 Ado Data控件直接操縱數(shù)據(jù)庫使用Ado Data控件訪問數(shù)據(jù)庫，可以完全不用編寫代碼，只需通過簡單設(shè)置和操縱其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫的連接，通過綁定數(shù)據(jù)感知控件就能提供一個(gè)訪問數(shù)據(jù)庫的界面，用來對數(shù)據(jù)庫數(shù)據(jù)的瀏覽、添加、刪除、修改等操作。(2) 添加控件l 添加一個(gè)Timer控件l 添加一個(gè)Label控件，并將其Caption屬性屬性值改為“謝謝使用本系統(tǒng)”第四章 工資管理實(shí)施第四章 工資管理系統(tǒng)實(shí)施系統(tǒng)實(shí)施作為系統(tǒng)生命周期的后期階段，是把系統(tǒng)設(shè)計(jì)轉(zhuǎn)化為可實(shí)際運(yùn)行的物理系統(tǒng)的必然步驟，再好的系統(tǒng)設(shè)計(jì)，不通過系統(tǒng)實(shí)施也只能是不能帶來效益的空中樓閣。(2) 添加控件l 添加五個(gè)Label控件，并將其Caption屬性屬性值改為“企業(yè)工資管理系統(tǒng)”、“version ”、“版權(quán)所有(C)”、“20052010”、“天津大學(xué) cj”l 添加一個(gè)Line控件l 添加兩個(gè)Label控件，并將其Caption屬性屬性值改為“本軟件使用權(quán)屬于”、“cj”l 添加Frame控件，并將其Caption屬性屬性值改為“警告”l 添加一個(gè)Label控件，并將其Caption屬性屬性值改為“本系統(tǒng)由天津大學(xué)cj開發(fā), 版權(quán)所有, 如擅自復(fù)制、傳播本應(yīng)用程序，將追究其法律責(zé)任。(2) 添加控件l 添加三個(gè)Label1控件，并將其Caption屬性屬性值改為“請輸入舊密碼：”、“請輸入新密碼”、“請確認(rèn)新密碼：”l 添加三個(gè)TextBox控件，并將其PasswordChar屬性屬性值改為“*”；DataSource屬性屬性值改為“Adodc1”l 添加兩個(gè)CommandButton控件，并將其Caption屬性屬性值改為“確定”、“取消”l 添加一個(gè)Adodc控件，并將其RecordSource屬性屬性值改為“用戶信息表” 添加打印報(bào)表窗體(1) 添加窗體添加一個(gè)普通窗體，Caption屬性設(shè)為“打印報(bào)表”，Name屬性設(shè)為“frmPrintBB”。(2) 添加控件l 添加一個(gè)Frame1控件，并將其Caption屬性屬性值改為“職工信息”l 在Fram1控件中添加六個(gè)Label控件，并將其Caption屬性屬性值分別改為：“員工編號：”、“所屬部門編號：”、“職務(wù)：”、“員工姓名：”、“所屬部門名稱：”、“就業(yè)時(shí)間：”l 添加兩個(gè)TextBox控件，并將其DataField屬性屬性值分別改為“員工編號”、“員工姓名”l 在Fram1控件中添加四個(gè)Label控件，并將其DataField屬性屬性值分別改為： “所屬部門編號：”、“職務(wù)：”、 “所屬部門名稱：”、“參加工作時(shí)間：”；并將四個(gè)Label控件的DataSource屬性改為“Adodc1”l 添加一個(gè)Frame2控件，并將其Caption屬性屬性值改為“固定工資信息”l 在Fram1控件中添加八個(gè)Label控件，并將其Caption屬性屬性值分別改為： “工齡工資：”、“工齡津貼/年：”、“病假扣款/天：”、“基本工資：”、“加班工資/天：”、“事假扣款/天：”、“職務(wù)津貼：”、“遲到扣款/天：”l 在Fram1控件中再添加八個(gè)Label控件，并將其DataField屬性屬性值分別改為： “工齡工資：”、“工齡津貼/年：”、“病假扣款/天：”、“基本工資：”、“加班工資/天：”、“事假扣款/天：”、“職務(wù)津貼：”、“遲到扣款/天：”；并將第一個(gè)Label控件的DataSource屬性屬性值改為“Adodc4”, 其它七個(gè)Label控件DataSource屬性屬性值改為“Adodc3”l 添加一個(gè)Frame3件，并將其Caption屬性屬性值改為“考勤統(tǒng)計(jì)”l 在Fram3件中添加六個(gè)Label控件，并將其Caption屬性屬性值分別改為： “年份：”、“月份”：、“事假天數(shù)”、“病假天數(shù)：”、“加班天數(shù)：”、“遲到天數(shù)：”l 在Fram3件中添加兩個(gè)Com