企業(yè)人事管理系統(tǒng)

企業(yè)人事管理系統(tǒng)摘要跟著信息技巧的迅猛成長和企業(yè)對職員治理的看重，企業(yè)的人事治理工作也慢慢走向運算機治理。企業(yè)的人事治理工作為企業(yè)職員的日常工作，天天都要進行。在強調(diào)效力的今天，企業(yè)也加快了對各項治理的方法。企業(yè)人事治理包含對職員全然信息、事跡、告假、加班、考勤、薪資的治理。而若何處理體系的權(quán)限成了重要解決的問題。企業(yè)人事治理體系是運算機信息處理體系，即應用運算機收集技巧、通信技巧、體系工程、人機工程等，使企業(yè)的人事治理工作慢慢由各類設(shè)備、各類人機信息體系來協(xié)助完成，實現(xiàn)網(wǎng)上數(shù)據(jù)匯總、共享、交換和處理，信息的宣布與查詢等。企業(yè)人事治理體系的應用，可使企業(yè)人事治理工作初步形成一個以人、運算機、收集和信息為一體的治理體系，在促進企業(yè)信息化，進步治理效能等方面，發(fā)揮重要的感化。目錄摘要 Ⅰ引言 11體系概述 11.1課題研究的背景和意義 21.2課題地點的成長范疇與成長趨勢 22企業(yè)人事治理體系的概述 42.1體系功能 42.2課題的技巧關(guān)鍵 42.3本課題的規(guī)范要求 42.4體系設(shè)備 42.5本文重要工作及構(gòu)造分派 53體系開創(chuàng)的支撐平臺和相干技巧科研 53.1Client/Server技巧簡介 63.2VisualBasic技巧 63.3Access簡介 73.4企業(yè)人事治理體系的涉及 74.1體系的需求分析 84.1.1今朝企業(yè)人事治理工作近況 84.1.2企業(yè)人事治理體系的功能需求分析 84.1.3具體功能 94.2企業(yè)人事治理體系設(shè)計 94.2.1體系的工作流程設(shè)計 94.2.2體系構(gòu)造設(shè)計 104.2.3企業(yè)人事治理體系的數(shù)據(jù)庫設(shè)計 105體系功能模塊的實現(xiàn) 105.1工資治理 155.1.1職職員資治理功能介紹 155.1.2功能模塊圖 155.1.3法度榜樣流程圖 155.1.4界面設(shè)計 165.1.5核心代碼 185.2體系贊助子模塊 205.2.1贊助體系功能介紹 205.2.2功能模塊圖 205.2.3界面設(shè)計 205.2.4核心代碼 215.3職員留言治理 225.3.1職員留言治理功能介紹 225.3.2功能模塊圖 225.3.3留言治理模塊圖 226體系測試 246.1測試介紹 256.2測試的原則 256.3測試方法與步調(diào) 256.3.1軟件測試步調(diào) 256.3.2軟件測試的方法 266.3.3測試用例的設(shè)計 276.4測試結(jié)論 28結(jié)論 28謝辭 29參考文獻 30附件 31引言人事治理軟件能簡化企事業(yè)單位在人事治理方面的復雜性，和削減企事業(yè)單位在治理上的宏大年夜開銷，讓企事業(yè)單位能應用更多的物力和財力去從事開創(chuàng)、臨盆等其余成長偏向。跟著運算機行業(yè)的飛速成長，人類差不多進入了信息時代,社會中的各個單位、部分也連續(xù)開端應用軟件化的治理模式，因為它具有便利、精確、快速、靈活的特點，使得在治理上實現(xiàn)了主動化、一體化、多元化的目標。人事治理體系的顯現(xiàn)，全然上能夠或許知足現(xiàn)代企業(yè)人事治理體系應用表格對各類信息分門別類,經(jīng)由過程它能夠便利地實現(xiàn)查詢、查閱、修改、交換和反復應用。在現(xiàn)代化企業(yè)中，信息治理工作將發(fā)揮越來越重要的感化。企業(yè)信息治理工作差不多滲入滲出到企業(yè)日常工作的專門多方面，不管是其自身照樣所發(fā)揮的感化，都為企業(yè)的立異、成長以及經(jīng)濟效益，做出了明顯的供獻。我國中小企業(yè)信息化程度一向還處在比較初級的時期，有關(guān)統(tǒng)計注解，真正實現(xiàn)了運算機較高應用的企業(yè)在全國1000多萬中小企業(yè)中所占的比例還不足10%。然而，跟著我國市場前提下企業(yè)競爭壓力的賡續(xù)加劇、企業(yè)組織治理不雅念的變革以及營業(yè)流程標準化的賡續(xù)完美，中小企業(yè)信息化扶植的熱忱近幾年來有了明顯的進步。人事信息資本治理體系是企業(yè)職員治理的一個重要內(nèi)容。當今社會人員流淌越來越頻繁，人事治理工作也變得越來越復雜。假如能夠或許實現(xiàn)人事治理的主動化，無疑將給企業(yè)治理部分帶來專門大年夜的便利。人事信息治理確實是把分散在企業(yè)單位的職工信息實施同一、集中、規(guī)范的收集治理，建立分類編號治理、電腦儲備查詢等現(xiàn)代化、專業(yè)化的治理體系。企業(yè)人事治理的對象是企業(yè)、企業(yè)化治理的事業(yè)單位及職工本人。人事信息治理為企業(yè)單位和小我供給信息輸入、信息修改、信息查詢、工資調(diào)劑、依照信息出具小我的全然檔案等辦事；為企業(yè)單位和小我供給信息的收集、整頓、保管辦事。1體系概述1.1課題研究的背景和意義應用運算機進行信息操縱和數(shù)據(jù)處理，不僅進步了工作效力，同時大年夜大年夜的進步了其安穩(wěn)性。我們國度一向以來應用傳統(tǒng)人工的方法治理文件檔案，這種治理方法存在著專門多缺點,如:效力低、保密性差,別的時刻一長,將產(chǎn)生大年夜量的文件和數(shù)據(jù),這關(guān)于查找、更新和愛護都帶來了許多的困難。作為運算機應用的一部分,應用運算機對人事檔案信息進行治理,具有手工治理所無法比較的長處.因此建立人事治理體系，使人事治理主動化，進步信息處理的速度和精確性十分須要。為人事治理進步效力、降低成本、實現(xiàn)人事治理的優(yōu)化，達到物流和信息流的通順。該體系應針對企業(yè)人員治理的特點設(shè)計該體系的構(gòu)造和功能，實現(xiàn)關(guān)于企業(yè)內(nèi)部職員的人事材料治理，包含對現(xiàn)有職員各項材料的治理及更新、新職員的人事材料的添加、職員調(diào)動信息的治理、離人職員的相干材料的刪除、職員留言等功能。本課題確實是為了治理紛紛復雜的人事檔案信息而設(shè)計的。企業(yè)人事治理體系是一個企業(yè)單位弗成缺乏的部分,它的內(nèi)容關(guān)于企業(yè)的決定打算者和治理者來說都至關(guān)重要。作為運算機應用的一部分,應用運算機對人事材料信息進行治理,具有手工治理所無法比較的長處。例如：檢索靈敏、查找便利、靠得住性高、儲備量大年夜、保密性好、壽命長、成本低等。這些長處能夠或許極大年夜地進步企業(yè)人事治理體系的效力,也是企業(yè)的科學化、正規(guī)化治理,與世界接軌的重要前提。1.2課題地點的成長范疇與成長趨勢跟著科學技巧和社會經(jīng)濟的成長，行政治理事務的增多，辦公室須要處理的信息量越來越大年夜。辦公室是一個多向、多功能的綜合治理機構(gòu)，辦公效力和質(zhì)量直截了當阻礙到引導層決定打算工作的進行和程度。當今，人們稱為信息社會，人類經(jīng)歷了幾千年的農(nóng)業(yè)社會和300年的工業(yè)社會，從50年代中開端進入信息社會。農(nóng)業(yè)社會的關(guān)鍵資本是地盤、耕具和耕畜；工業(yè)社會的關(guān)鍵資本是資金，有錢就有一切；信息社會的關(guān)鍵資本是信息，信息資本充裕，就能使決定打算立于不敗之地,國際上的斗爭變成了“信息戰(zhàn)”，是聰慧的競技,是常識信息的組織加工、立異的競爭。在蓬勃的國度里,正開創(chuàng)常識經(jīng)濟體系，包含常識立異和技巧立異體系，將常識經(jīng)濟作為一種立異的時代力量。常識———包含從大年夜量信息中提掏出來的規(guī)矩和人們的體會，是最精練和最高等的信息，它主控著今后的經(jīng)濟和社會權(quán)力。在如許的時代里，信息成為經(jīng)濟成長和社會進步的關(guān)鍵資本，決定競爭才能的重要身分，決定打算須要靈通靠得住的信息和精確的方法，辦公室可否及時地精確地周全地供給信息，可否為治理者的決定打算供給辦事或供給參考籌劃，這是現(xiàn)代辦公室所面對的重要問題。傳統(tǒng)的手工勞動方法已遠不克不及適應社會經(jīng)濟成長的須要，當前瞬息萬變，猛烈競爭的時代對企業(yè)（機構(gòu)）提出了新的要求。為適應時代成長要求，就必須改進信息采集、加工、治理和傳遞的方法和手段，辦公主動化恰是針對如許的需求而產(chǎn)生的，專門多國度都在積極成長企業(yè)辦公主動化技巧，以便實現(xiàn)企業(yè)人事治理辦公主動化。企業(yè)人事治理辦公主動化是一門多學科的綜合性應用技巧，它能夠使辦公治理人員用現(xiàn)代化的技巧設(shè)備和科學治理手段來進步工作效力和干事質(zhì)量，實現(xiàn)行政治理現(xiàn)代化和決定打算科學化。據(jù)統(tǒng)計，今朝，美國在財務管帳上占據(jù)90%的工作由運算機完成，人事治理中80-100%的信息處來由運算機完成，籌劃治理是80—90%，在運算機應用成長較快的國度中，運算機應用于經(jīng)濟治理的占80%，由此能夠看出，在國外經(jīng)濟治理是運算機應用的重要范疇。我國的人事治理等信息體系的開創(chuàng)應用是從1973年開端的，83年今后才開端了大年夜量的實際的開創(chuàng)和研究工作。是以，信息資本的開創(chuàng)和應用已被確立為公平易近經(jīng)濟信息的核心內(nèi)容，信息數(shù)字化，傳輸?shù)氖占强s小成長中國度與蓬勃國度差距的捷徑。跟著企業(yè)自身人力資本的日益宏大年夜、復雜程度逐步加強，人機作坊再也無法適應現(xiàn)在企業(yè)的人事治理了，代替的是應用各類范疇的常識，結(jié)合運算機科學而開創(chuàng)的人事治理體系，科學合理的來治理企業(yè)人事信息檔案及擴充的人力資本治理體系。成長到今朝，如許的企業(yè)人事治理體系差不多有專門多專門多，有的是些小公司本身開創(chuàng)本身應用。而有些則是為了更好的穩(wěn)固性，直截了當購買市情上差不多專門成熟的人事治理體系。其功能也跟著客戶的要求在一步步的完美。假如公司有本身的開創(chuàng)團隊，或者有技巧人員對治理體系進行愛護的，則能夠添加一項增長模塊的功能，只要想要有新功能了，則去開創(chuàng)，然后傳到辦事器上，將路徑和說明存到數(shù)據(jù)庫中，再經(jīng)由過程導航調(diào)掏出來，如許就能即開創(chuàng)即用。2企業(yè)人事治理體系的概述企業(yè)的人事治理信息繁多，熟悉情形復雜，往往會跟著人員的增長所需處理的信息量大年夜量的增長。本體系會在知足最全然的治理功能的情形下，使體系具有必定的擴大機能。2.1體系功能（1）登錄模塊：設(shè)置應用人事治理體系的用戶及其應用權(quán)限。（2）主界面：該模塊供給治理體系的主界面，是主體系的獨一進口和出口，該界面供給用戶選擇并調(diào)用各子模塊。（3）部分信息治理：能夠或許愛護表現(xiàn)部分間的組織關(guān)系，反應部分的全然信息，能夠或許進行部分的增長刪除，以及部分信息（如部分名稱、負責人名稱等）的修改。（4）用戶治理：能夠或許對體系用戶進行編輯、增長或刪除，并指定用戶的權(quán)限。（5）職員信息的治理：愛護職員的全然信息，用戶能夠進行職員檔案信息的錄入及更換，個中包含職員的全然信息、工作經(jīng)歷、家庭關(guān)系、獎懲記錄和培訓經(jīng)歷，要求這些員上檔案信息能夠進行新增、刪除、修改操作，同時能夠進行掃瞄和查詢的操作。該模塊是本體系的重點，用戶能夠經(jīng)由過程該模塊為單位建立一個比較完全的人事檔案體系，同時能夠比較便利地對檔案進行查看。同時職員信息的備份是專門重要的一個功能。2.2課題的技巧關(guān)鍵（1）拜望的安穩(wěn)性，主假如設(shè)置登錄界面。（2）人事檔案的錄入、修改和刪除等的處理。(3)人事檔案治理的精確查詢和模糊查詢。(4)人事檔案治理的打印，導入，導出。2.3本課題的規(guī)范要求(1)圖形界面簡潔一致，操作便利;(2)法度榜樣代碼標準化，軟件同一化，確保軟件的可愛護性和有用性；(3)刪除不須要的治理冗余，實現(xiàn)治理規(guī)范化、科學化；(4)同一各類原始單據(jù)的格局，同一賬目和報表的格局；(5)界面友愛、簡單化，做到有用便利，盡量知足企業(yè)中各層次職員的須要。2.4體系設(shè)備開創(chuàng)情形：windows2000數(shù)據(jù)庫：access2000開創(chuàng)平臺：visualbasic6.0開創(chuàng)說話：vb2.5本文重要工作及構(gòu)造分派該體系應針對企業(yè)人員治理的特點設(shè)計該體系的構(gòu)造和功能，實現(xiàn)關(guān)于企業(yè)內(nèi)部職員的人事材料治理，包含對現(xiàn)有職員各項材料的治理及更新、對新職員的人事材料的添加、對離人職員的相干材料的刪除等功能。還有考勤治理，工資治理，工作評判，部分擔理，權(quán)限治理，職員留言。本文構(gòu)造安排如下：一、體系需求分析，對我國當前企業(yè)人事治理體系近況作了充分調(diào)研，并提出了當前企業(yè)人事治理體系的不足指出和須要解決的問題；三、企業(yè)人事治理體系的設(shè)計。依照今朝企業(yè)人事治理近況對企業(yè)人事治理體系進行了切實可行的設(shè)計和架構(gòu)；四、體系的實現(xiàn)；五、體系測試3體系開創(chuàng)的支撐平臺和相干技巧研究3.1Client/Server技巧簡介跟著互聯(lián)網(wǎng)的飛速成長，移動辦公和分布式辦公越來越普及，這須要我們的體系具有擴大性。這種方法長途拜望須要專門的技巧，同時要對體系進行專門的設(shè)計來處理分布式的數(shù)據(jù)。客戶端須要安裝專用的客戶端軟件，起首涉及到安裝的工作量，其次，任何一臺電腦出問題，如病毒、硬件破壞，都須要進行安裝或愛護。還有，體系軟件進級時，每一臺客戶機須要從新安裝，其愛護和進級成本專門高。(大年夜多半沒法主動進級而須要人工進級）3.2VisualBasic技巧窗體控件的增長和改變能夠用拖放技巧實現(xiàn)。一個分列滿控件的對象箱用來顯示可用控件（比如文本框或者按鈕)。每個控件都有本身的屬性和事宜。默認的屬性值會在控件創(chuàng)建的時刻供給，然則法度榜樣員也能夠進行更換。專門多的屬性值能夠在運行時刻跟著用戶的動作和修改進行修改，如許就形成了一個動態(tài)的法度榜樣。舉個例子來說：窗體的大年夜小改變事宜中參加了能夠改變控件地位的代碼，在運行時刻每當用戶更換窗口大年夜小，控件也會隨之改變地位。在文本框中的文字改變事宜中參加響應的代碼，法度榜樣就能夠或許在文字輸入的時刻主動翻譯或者阻攔某些字符的輸入。VB的法度榜樣能夠包含一個或多個窗體，或者是一個主窗體和多個子窗體，類似于操作體系的模樣。有專門少功能的對話框窗口（比如沒有最大年夜化和最小化按鈕的窗體）能夠用來供給彈出功能。VB的組件既能夠擁有效戶界面，也能夠沒有。如許一來辦事器端法度榜樣就能夠處理增長的模塊。VB應用參數(shù)運算的方法來進行垃圾收集，那個方法中包含有大年夜量的對象，供給全然的面向?qū)ο笾С?。因為越來越多組件的顯現(xiàn)，法度榜樣員能夠選用本身須要的擴大庫。和有些說話不一樣，VB對大年夜小寫不敏銳，然則能主動轉(zhuǎn)換關(guān)鍵詞到標準的大年夜小寫狀況，以及強制使得符號表進口的實體的變量名稱遵守書寫規(guī)矩。默認情形下字符串的比較是對大年夜小寫敏銳的，然則能夠封閉那個功能。VB使得大年夜量的外界控件有了本身的生計空間，大年夜量的第三方控件針對VB供給，VB也供給了建立、應用和重用這些控件的方法，然則因為說話問題，從一個應用法度榜樣創(chuàng)建別的一個并不簡單。3.3Access簡介4企業(yè)人事治理體系的涉及4.1體系的需求分析4.1.1今朝企業(yè)人事治理工作近況我們國度一向以來應用傳統(tǒng)人工的方法治理文件檔案，這種治理方法存在著專門多缺點,如:效力低、保密性差,別的時刻一長,將產(chǎn)生大年夜量的文件和數(shù)據(jù),這關(guān)于查找、更新和愛護都帶來了許多的困難。作為運算機應用的一部分,應用運算機對人事檔案信息進行治理,具有手工治理所無法比較的長處.因此建立人事治理體系，使人事治理主動化，進步信息處理的速度和精確性十分須要。為人事治理進步效力、降低成本、實現(xiàn)人事治理的優(yōu)化，達到物流和信息流的通順。該體系應針對企業(yè)人員治理的特點設(shè)計該體系的構(gòu)造和功能，實現(xiàn)關(guān)于企業(yè)內(nèi)部職員的人事材料治理，包含對現(xiàn)有職員各項材料的治理及更新、對新職員的人事材料的添加、對離人職員的相干材料的刪除等功能。同時還應推敲到各項數(shù)據(jù)材料的安穩(wěn)性，該體系應當對所有材料進行及時備份，以減輕人事治理人員和操作人員的工作包袱。因此，跟著社會的進步，信息化程度的加強，也有專門多企業(yè)差不多實現(xiàn)了網(wǎng)上人事治理。也形成了越來越多的人事治理體系。不僅是數(shù)量上的增長，其質(zhì)量、功能也在慢慢完美。這就為人事治理體系的進一步晉升提出了一個挑戰(zhàn)。4.1.2企業(yè)人事治理體系的功能需求分析企業(yè)的人事治理工作重要分職員小我信息治理和企業(yè)人事部分對所有職員信息治理兩大年夜方面。職員小我信息治理包含查詢其小我全然信息，工資查詢，考勤信息查詢，部分信息查詢，工作評判，職員留言等。人事部分對所有職員信息治理包含企業(yè)職員信息的錄入，工資錄入，考勤信息錄入，職員留言查看等。因此還有體系治理員對企業(yè)各類不合角色為其設(shè)定當前體系的權(quán)限。體系功能如下：（1）供職員應用部分：通俗職員能夠經(jīng)由過程客戶端掃瞄本身的全然材料、考勤信息、薪資信息和工作評判等。職員也能夠經(jīng)由過程客戶端提出告假申請;部分經(jīng)理能夠?qū)νㄋ茁殕T進行審批告假,工作評判等信息；總經(jīng)理擁有部分經(jīng)理的所有權(quán)限。（2）人事部分應用部分：重要功能是治理職員材料、治理職員考勤、運算職員薪資和工作評判等。大年夜部分涉及對敏銳數(shù)據(jù)修改的工作都僅由人事部完成，如運算工資、修改考勤記錄；同時有些只有人事經(jīng)理才能夠處理，如定制部分、指定職員的全然薪資等。4.1.3具體功能（1）登錄模塊：設(shè)置應用人事治理體系的用戶及其應用權(quán)限。主界面：該模塊供給治理體系的主界面，是主體系的獨一進口和出口，該界面供給用戶選擇并調(diào)用各子模塊。（2）部分信息治理：能夠或許愛護表現(xiàn)部分間的組織關(guān)系，反應部分的全然信息，能夠或許進行部分的增長刪除，以及部分信息（如部分名稱、負責人名稱等）的修改。權(quán)限治理：對企業(yè)不合角色，能指定其在該體系中能夠操作哪些模塊的哪些功能。職員信息的治理：能夠或許對體系用戶進行編輯、增長或刪除，并指定用戶的權(quán)限。愛護職員的全然信息，用戶能夠進行職員檔案信息的錄入及更換，個中包含職員的全然信息、工作經(jīng)歷、家庭關(guān)系、獎懲記錄和培訓經(jīng)歷，要求這些員上檔案信息能夠進行新增、刪除、修改操作，同時能夠進行掃瞄和查詢的操作。該模塊是本體系的重點，用戶能夠經(jīng)由過程該模塊為單位建立一個比較完全的人事檔案體系，同時能夠比較便利地對檔案進行查看。同時職員信息的備份是專門重要的一個功能。（3）各類治理功能模塊：包含告假，工資，考勤。擴大功能：職員留言。4.2企業(yè)人事治理體系設(shè)計4.2.1體系的工作流程設(shè)計企業(yè)人事治理體系要實現(xiàn)職員各類信息的治理，需按照以下書序進行：體系治理員在體系中添加公司所定的各類職位，并按照公司要求，指定其在各功能模塊的權(quán)限。由企業(yè)人事部分職工添加職員信息，包含其登錄名和暗碼，所屬部分，職位等。職員在上岸后能夠完美其余信息，比如真實姓名，出身年代，籍貫等；職員依照剛添加的用戶名暗碼登錄進體系，就能夠進行各類操作。如申請告假，加班，收發(fā)站內(nèi)信，查詢本身的全然信息，還有薪資，考勤，告假記錄。若該職員為部分經(jīng)理，則其可依照該體系中設(shè)定的權(quán)限，對其部分下的職員信息進行治理，如審批職員的告假；人事部分職員登錄進體系，在體系為其指定的功能模塊中操作。比如對職員考勤信息的錄入，薪資錄入，新職員的添加，老職員的備份刪除等；對某有增長功能模塊權(quán)限的職員，如負責公司人事治理體系功能完美的職員，上岸后可對功能模塊治理。4.2.2體系構(gòu)造設(shè)計圖4-2-1體系總功能模塊圖4.2.3企業(yè)人事治理體系的數(shù)據(jù)庫設(shè)計在數(shù)據(jù)庫的設(shè)計中，范式能夠幸免數(shù)據(jù)冗余，削減數(shù)據(jù)庫的空間，減輕愛護數(shù)據(jù)完全性的苦惱，然則也增長了數(shù)據(jù)的操作難度。平日，應用越高的范式，在數(shù)據(jù)的調(diào)用上可能須要接洽越多的數(shù)據(jù)表才能獲得須要的數(shù)據(jù)，越高范式機能就越差。因此我們在進行數(shù)據(jù)庫設(shè)計時，對若何棄取數(shù)據(jù)庫范式做了深刻的分析。本法度榜樣采取Access作為數(shù)據(jù)庫引擎，其重要緣故是推敲到現(xiàn)在的大年夜多半辦公室應用體系軟件均支撐Access數(shù)據(jù)庫，因此只要應用于格局相符的運算機體系上即可運行，同時因為Access與VB皆是微軟公司開創(chuàng)出來的軟件，因此它們之間的兼容性專門好，輕易合營應用。在本法度榜樣數(shù)據(jù)庫中，還采取了ODBC——開放式數(shù)據(jù)庫鏈接體系，它愛護了數(shù)據(jù)的自力性，同時能夠與其他法度榜樣鏈接，達到數(shù)據(jù)的接洽關(guān)系，便利地應用于其他的法度榜樣中。以下為企業(yè)人事治理法度榜樣所須要建立的重要數(shù)據(jù)表：（1）表1.治理用戶表序號字段名數(shù)據(jù)類型是否許可為空值是否主鍵1用戶名稱文本否是2用戶口令文本是否3用戶權(quán)限文本否否（2）表2.部分擔理表序號字段名數(shù)據(jù)類型是否許可為空是否主鍵1部分名稱文本否是（3）表3.職員信息表序號字段名數(shù)據(jù)類型是否許可為空是否主鍵1職員編號文本否是2職員姓名文本否否3性別文本否否4籍貫文本否否5出身年代日期/時刻否6學歷文本否否7專業(yè)文本是否8身份證號文本否否9婚姻狀況文本否否10政治面孔文本是否11德律風號碼文本是否12郵政編碼文本是否13電子郵箱文本是否14家庭住址文本否否15進入公司時刻日期/時刻否16起薪時刻日期/時刻否17地點部分文本否否18調(diào)入部分時刻日期/時刻否19職稱文本否否20職稱時刻日期/時刻否21原職務文本是否22原身份文本否否23原工作單位文本是否24參加工作時刻日期/時刻否25工作體會備注是否26其它備注備注是否（4）表4.調(diào)動信息表序號字段名類型是否許可為空是否主鍵1職員編號文本是否2職員姓名文本是否3原部分名稱文本是否4新部分名稱文本是否5原職務文本是否6新職務文本是否7調(diào)出時刻日期/時刻否8調(diào)入時刻日期/時刻否9備注備注是否（5）表5.考勤信息表序號字段名類型是否許可為空是否主鍵1職員編號文本否否2職員姓名文本否否3性別文本否否4職務文本否否5地點部分文本否否6全勤天數(shù)數(shù)字否7應出勤天數(shù)數(shù)字否8年度文本否否9月份文本否否10肇端日期日期/時刻否11截止日期日期/時刻否12肇端時刻日期/時刻否13截止時刻日期/時刻否14告假類型文本否否15審批人文本否否16告假事由備注是否17其它價天數(shù)數(shù)字否18其它假說明備注是否19遲到早退次數(shù)數(shù)字否20延時加班小時數(shù)字否21休息日加班數(shù)字否22休假日加班數(shù)字否23礦工次數(shù)數(shù)字否24備注備注是否（6）表6.職職員資表序號字段名類型是否許可為空是否主鍵1職員編號文本否否2職員姓名文本否否3地點部分文本否否4底薪數(shù)字否5加班費數(shù)字否6補貼數(shù)字否7房帖數(shù)字否8獎金數(shù)字否9其它數(shù)字否10養(yǎng)老金數(shù)字否11醫(yī)療保險數(shù)字否12實發(fā)工資數(shù)字否13計發(fā)時刻日期/時刻否（7）表7.職員評判表序號字段名類型是否許可為空是否主鍵1職員編號文本否否2職員姓名文本否否3地點部分文本否否4評判日期日期/時刻否5工作事跡備注是否6事跡說明備注是否7工作立場備注是否8工作程度備注是否9程度說明備注是否10備注備注是否（8）表8.職員職務表序號字段名類型是否許可為空是否主鍵1職員職務文本否是（9）表9.用戶留言表序號字段名類型是否許可為空是否主鍵1ID主動編號是2iMessage文本否否3iUser文本否否4iGroup文本否否5iTimer日期/時刻否5體系功能模塊的實現(xiàn)在本軟件的開創(chuàng)過程中，我重要負責的是實現(xiàn)三個模塊：職職員資治理，職員留言，體系贊助。5.1工資治理5.1.1職職員資治理功能介紹用戶能夠經(jīng)由過程職職員資治理模塊為單位建立一個比較完全的工資檔案體系，同時能夠比較便利地對檔案進行查看新增、刪除、修改、掃瞄和查詢的操作。（1）錄入是將職員的工資信息添加到數(shù)據(jù)庫中：如職員編號、職員姓名、地點部分、底薪、加班費、補貼、房帖、獎金、其它、養(yǎng)老金、醫(yī)療保險、實發(fā)工資、計發(fā)時刻。（2）整里頁面中則實現(xiàn)了修改和查詢兩項功能，能夠或許對職職員資信息進行編輯、刪除等相干操作。（3）查詢功能經(jīng)由過程“職員編號”，“職員姓名”，“計發(fā)時刻”來查詢職職員資情形，而這三個前提可單選，也可多選。5.1.2功能模塊圖 工資治理工資治理查詢職職員資刪除職職員資修改職職員資添加職職員資圖5-1-1工資功能模塊圖5.1.3法度榜樣流程圖圖5-1-2職職員資治理流程圖5.1.4界面設(shè)計圖5-1-3工資治理界面（1）計發(fā)職職員資如圖5-1-4所示圖5-1-4FrmPayManage窗體由人事部分添加發(fā)給職職員資的相干信息，經(jīng)由過程點擊計發(fā)職職員資子菜單，來調(diào)用FrmPayManage窗體。當點擊確認按鈕的時刻，實現(xiàn)將輸入的信息添加到職職員資數(shù)據(jù)庫中，并彈出提示框顯示“數(shù)據(jù)以儲存”。建立名為RsAddPay的數(shù)據(jù)集，用于記錄輸出的相干信息。用MsgBox提示數(shù)據(jù)是否儲存用UnloadMe實現(xiàn)返回功能（2）整頓職職員資如圖5-1-5圖5-1-6所示圖5-1-5修改工資治理模塊圖圖5-1-6進入修改工資模塊圖打開整頓職職員資調(diào)用FrmModPay窗體，進入如下界面，簿子模塊能夠?qū)崿F(xiàn)職職員資的修改和刪除功能。移動則是修改完之落后入下一個職職員資修改。（3）職職員資查詢?nèi)鐖D5-1-7所示圖5-1-7工資查詢模塊圖點擊職職員資查詢后顯示FrmQueryPay窗體，具有任何權(quán)限都能夠依照職員編號、職員姓名和計發(fā)時刻來查詢。5.1.5核心代碼編輯按鈕的代碼實現(xiàn)：PrivateSubCmdEdit_Click()CallCmdState1'//調(diào)用敕令按鈕Visible屬性為隱藏的過程CallTxtState'//調(diào)用啟用文本框的Enabled屬性過程EndSub點擊編輯按鈕后，進入如下界面，隱藏下方的commandbutton按鈕，啟用文本框?qū)傩?，點擊儲存后調(diào)用PrivateSubCmdSave_Click()，其代碼實現(xiàn)和添加一樣。DimStrSQLAsStringStrSQL="select*from職職員資where"'//給定義好的字符變量付與SQL語句確信三個復選框同時選中時,則IfChkCode.Value=1AndChkName.Value=1AndChkDate.Value=1ThenStrSQL=StrSQL&"職員編號='"&Trim(CmbCode.Text)&"'"&"and"&"職員姓名='"&Trim(TxtName.Text)&"'"&"and"&"計發(fā)時刻between#"&DTPFromDate.Value&"#and#"&DTPToDate.Value&"#"&""SetVSQueryPay.DataSource=RstQueryPay.DataSourceLblCount.Caption=RstQueryPay.RecordCount'//將記錄條數(shù)顯示在標簽上VSQueryPay.Refresh'//刷新網(wǎng)格RstQueryPay.Close'//封閉記錄集CmbCode.Text=Empty'//請空文本框TxtName.Text=Empty5.2體系贊助子模塊5.2.1贊助體系功能介紹此模塊相對簡單，實現(xiàn)了關(guān)于軟件的介紹和在線進級、贊助信息，還能夠顯示體系。從注冊表中獲得體系信息法度榜樣的路徑及名稱。5.2.2功能模塊圖贊助體系贊助體系在線進級關(guān)于作者體系贊助圖5-2-1贊助體系功能模塊圖5.2.3界面設(shè)計圖5-2-2體系贊助界面（1）關(guān)于作者如圖5-2-3所示圖5-2-4顯示體系功能介紹界面（2）在線進級如圖5-2-5所示圖5-2-5體系進級界面5.2.4核心代碼體系信息按鈕代碼實現(xiàn)：PrivateSubcmdSysInfo_Click()CallStartSysInfo//調(diào)用下面創(chuàng)建的類EndSubPublicSubStartSysInfo()OnErrorGoToSysInfoErrDimrcAsLongDimSysInfoPathAsString'試圖從注冊表中獲得體系信息法度榜樣的路徑及名稱...IfGetKeyValue(HKEY_LOCAL_MACHINE,gREGKEYSYSINFO,gREGVALSYSINFO,SysInfoPath)Then'試圖僅從注冊表中獲得體系信息法度榜樣的路徑...ElseIfGetKeyValue(HKEY_LOCAL_MACHINE,gREGKEYSYSINFOLOC,gREGVALSYSINFOLOC,SysInfoPath)Then'已知32位文件版本的有效地位5.3職員留言治理5.3.1職員留言治理功能介紹具有任何權(quán)限的職員都能夠在此查看或留言，點擊留言按鈕后會將留言內(nèi)容，留言姓名，留言時刻顯示在頁面中，然后將其添加到數(shù)據(jù)的職員留言表中，并提示“留言成功“，假如，留言框中沒有任何內(nèi)容，則提示“請輸入留言內(nèi)容”。有治理員權(quán)限的還可對留言進行刪除。5.3.2功能模塊圖留言留言治理查詢留言刪除留言修改留言添加留言圖5-3-1留言治理模塊圖5.3.3法度榜樣流程圖圖5-3-2職員留言流程圖5.3.4界面設(shè)計圖5-3-3用戶留言界面在主界面添加一個VsNetBut控件，Caption屬性設(shè)為留言，點擊此控件進入FrmMessage窗體。具有任何權(quán)限的職員都能夠在此留言，點擊留言按鈕后會將留言內(nèi)容，留言姓名，留言時刻顯示在ListBox控件中，然后將其添加到數(shù)據(jù)的職員留言表中，并提示“留言成功“，假如，留言框中沒有任何內(nèi)容，則提示“請輸入留言內(nèi)容”。5.3.5核心代碼編輯按鈕的代碼實現(xiàn)：Private

Sub

Form_Load()

'WinXPAddUsers.InitSubClassing

Me.Left

=

Frmmdimain.Width

/

3

Me.Top

=

Frmmdimain.Height

/

6

If

RsAddMessage.State

=

adStateClosed

Then

RsAddMessage.Open

"用戶留言",

DBCON,

adOpenKeyset,

adLockPessimistic,

adCmdTable

'打開記錄集

End

If

MsgList

End

Sub

Private

Sub

MsgList()

List1.Clear

'

If

RsAddMessage.State

=

adStateClosed

Then

'

RsAddMessage.Open

"用戶留言",

DBCON,

adOpenKeyset,

adLockPessimistic,

adCmdTable

'打開記錄集

'

End

If

If

RsAddMessage.RecordCount

<>

0

Then

RsAddMessage.MoveFirst

'//將記錄移到第一行

Do

While

Not

RsAddMessage.EOF

List1.AddItem

RsAddMessage.Fields(0).Value

&

vbTab

&

RsAddMessage.Fields(1).Value

&

"

-留言人:"

&

RsAddMessage.Fields(2).Value

&

"

-留言時刻:"

&

RsAddMessage.Fields(4).Value

'//調(diào)用將記錄數(shù)據(jù)賦給文本框的過程

RsAddMessage.MoveNext

'//記錄向下移一條

Loop

Else

MsgBox

"當前沒有任何留言",

,

"提示"

End

If

End

Sub

Private

Sub

Form_Unload(Cancel

As

Integer)

RsAddMessage.Close

End

Sub6體系測試6.1測試介紹從別處看來，軟件測試的目標與所有其他時期的目標都相反。軟件開創(chuàng)過程中的其他時期差不多上“扶植性”的，軟件工程師力爭從抽象的概念動身，慢慢設(shè)計出具體的軟件體系，直到用一種恰當?shù)姆ǘ劝駱釉O(shè)計說話寫出能夠履行的法度榜樣代碼。然則，在測試時期測試人員盡力設(shè)計出一系列測試籌劃，目標倒是為了“破壞”差不多建筑好的軟件體系——盡力證實法度榜樣中出缺點不克不及按照預定要求精確工作。因此，這種反常僅僅是別處的，或者說是心理上的。裸露問題并不是軟件測試的最終目標，發(fā)明問題是為明白得決問題，測試時期的全然目標是盡可能多地發(fā)明并清除軟件中隱藏的缺點，最終把一個高質(zhì)量的軟件體系交給用戶應用。[1]6.2測試的原則在軟件測試的過程中應遵守以下原則：[1]盡早地、賡續(xù)地進行軟件測試。設(shè)計測試用例時，要給出測試的預期成果。測試用例應由測試輸入數(shù)據(jù)和與之對應的預期輸出成果這兩部分構(gòu)成。測試之前應當依照測試的要求選擇測試用例（Testcase），用來考查法度榜樣員編制的法度榜樣，是以不只須要測試的輸入數(shù)據(jù)，同時須要供給與這些輸入數(shù)據(jù)對應的預期成果。設(shè)計不法輸入的測試用例。充分留意測試中的群集現(xiàn)象。嚴格履行測試籌劃，清除測試的隨便性。對每一個測試成果做周全的檢查。妥當儲存測試籌劃、測試用例、掉足統(tǒng)計和最終申報，為愛護供給便利。6.3測試方法與步調(diào)6.3.1軟件測試步調(diào)軟件開創(chuàng)過程是一個自頂向下，慢慢細化的過程，而測試過程則是依次相反的次序安排的自底向上、慢慢集成的過程。低一級測試為上一級測試預備前提，軟件測試的步調(diào)分為以下4個過程進行：即單位測試、集成測試、確認測試和體系測試。軟件開創(chuàng)的過程是自頂向下的，測試則正好相反。單位測試：又稱為模塊測試。針對每個模塊進行的測試，可從法度榜樣的內(nèi)部構(gòu)造動身設(shè)計測試用例，多個模塊能夠平行地對登時測試。平日在編碼時期進行，須要的時刻要制造驅(qū)動模塊和樁模塊。Ⅰ.模塊接口測試。Ⅱ.局部數(shù)據(jù)構(gòu)造測試。Ⅲ.路徑測試。Ⅳ.缺點處理測試。Ⅴ.界線測試。集成測試：在單位測試的差不多上，將所有模塊按照設(shè)計要求組裝成為體系，必須精心籌劃，應提交集成測試籌劃、集成測試規(guī)格說明和集成測試分析申報。集成測試是組裝軟件的體系技巧，即在單位測試的差不多上，須要將所有模塊按照設(shè)計要求組裝成為體系。因此這時須要推敲：[5]Ⅰ.在把各個模塊連接起來的時刻，模塊接口的數(shù)據(jù)是否會損掉。Ⅱ.一個模塊的功能是否會對另一個模塊的功能產(chǎn)生晦氣的阻礙。Ⅲ.各個子功能組合起來，可否達到預期要求的父功能。Ⅳ.全局數(shù)據(jù)構(gòu)造是否有問題。Ⅴ.單個模塊的誤差累積起來，是否會放大年夜，從而達到不克不及接收的程度。Ⅵ.單個模塊的缺點是否會導致數(shù)據(jù)庫缺點。確認測試：又稱為有效性測試。集成測試經(jīng)由過程后,應在用戶的介入下進行有效性測試[9]。驗證軟件的功能和機能及其它特點是否與用戶的要求一致。Ⅰ.功能測試。Ⅱ.軟件設(shè)備復查。Ⅲ.驗收測試。Ⅳ.α測試和β測試。體系測試：將軟件放在全部運算機情形下，包含軟硬件平臺、某些支撐軟件、數(shù)據(jù)和人員等，在實際運行情形下進行一系列的測試。測試工作的文檔重要有：測試籌劃、測試模型和用例設(shè)計或規(guī)格說明、測試分析申報等。從軟件工程上說，這是屬于軟件設(shè)備的一部分。6.3.2軟件測試的方法軟件測試中，測試任何產(chǎn)品都有兩種方法，假如差不多明白了產(chǎn)品應當具有的功能，能夠經(jīng)由過程測試來考查是否每個功能都能夠或許能正常應用。假如明白產(chǎn)品內(nèi)部工作過程，能夠經(jīng)由過程測試來考查產(chǎn)品內(nèi)部動作是否正常進行。前一個方法稱為黑盒測試，后一個方法稱為白盒測試。黑盒測試法：又稱為功能測試。關(guān)于軟件測試而言，黑盒測試法把法度榜樣算作一個黑盒子，完全不推敲法度榜樣的內(nèi)部構(gòu)造和處理過程。也確實是說，黑盒測試是在法度榜樣接口進行的測試，它只檢查法度榜樣功能是否能正常應用，法度榜樣是否能適本地接收輸入數(shù)據(jù)產(chǎn)生精確的輸出信息，同時保持外部信息（如，數(shù)據(jù)庫或文件）的完全性。等價類劃分、界線值分析法以及缺點推設(shè)法主意等均有用于黑盒測試法。[1]白盒測試法：又稱為構(gòu)造測試。與黑盒測試法相反，白盒測試法是完全明白得法度榜樣的構(gòu)造和處理過程。這種方法按照法度榜樣內(nèi)部的邏輯測試法度榜樣，考查法度榜樣中的每條通路是否都能按預定要求精確工作。邏輯覆蓋法有用于白盒測試法。[1]粗看起來，不論采取上述哪種測試方法，只要對每一種可能的情形都進行測試，就能夠獲得完全精確的法度榜樣。包含所有可能情形的測試稱為窮盡測試，關(guān)于實際法度榜樣而言，窮盡測試平日是弗成能做到的。因此軟件測試弗成能發(fā)明法度榜樣中的所出缺點。我們的目標是要經(jīng)由過程測試包管軟件的靠得住性，是以，必須細心設(shè)計測試籌劃，力爭用盡可能少的測試發(fā)明盡可能多的缺點。6.3.3測試用例的設(shè)計而我們決定選用了黑盒測試法來針對體系進行測試，應用等價類劃分和界線值分析設(shè)計測試用例，等價劃分是一種有用的測試技巧，應用等價類劃分設(shè)計測試用例時，完全不須要推敲法度榜樣的內(nèi)部邏輯構(gòu)造，而主假如依照法度榜樣的功能說明。體會注解，處理界線情形時法度榜樣最輕易產(chǎn)生缺點。是以，設(shè)計使法度榜樣運行在界線情形鄰近的測試籌劃，裸露出法度榜樣缺點的可能性更大年夜一些。應用界線值分析方法設(shè)計測試籌劃起首應當確信界線情形，這須要體會和制造性，平日輸入等價類和輸出等價類的界線，確實是應當側(cè)重測試的法度榜樣界線情形。按照界線值分析法，應當拔取剛好等于、稍小于和稍大年夜于等價類界線值的數(shù)據(jù)作為測試數(shù)據(jù)，而不是拔取每個等價類內(nèi)的典范值或隨便率性值作為測試數(shù)據(jù)。6-3-1表用戶登錄測試用例：（精確：用戶名：Admin暗碼：999）等同劃分輸入（選擇）測試數(shù)據(jù)測試成果輸入登錄信息用戶名：999暗碼：000提示：輸入缺點，請重試！用戶名：admin暗碼：a提示：輸入缺點，請重試！用戶名：Admin暗碼：999（驗證碼缺點）提示：輸入缺點，請重試！空提示：輸入缺點，請重試！精確用戶名、暗碼、驗證碼進入輝成物業(yè)治理體系暗碼為空，其他為真提示：輸入缺點，請重試！6-3-2表鎖定屏幕測試用例：等同劃分輸入（選擇）測試數(shù)據(jù)測試成果輸入用戶暗碼為真順利進入原登錄物業(yè)治理界面空提示：輸入暗碼缺點！為假提示：輸入暗碼缺點！6-3-3表用戶信息治理測試用例：等價類劃分輸入（選擇）測試數(shù)據(jù)測試成果輸入添加用戶信息治理為真提示：添加記錄成功空提示：輸入用戶名不克不及為空編輯用戶信息治理選擇用戶進行修改提示：修改成功！空提示：真實姓名不克不及為空刪除用戶信息治理選擇用戶名提示：刪除成功不選擇用戶名沒有反響，無提示信息暗碼修改舊暗碼輸入缺點提示：舊暗碼輸入有誤新暗碼輸入不合提示：暗碼不一致輸入精確順利修改成功6.4測試結(jié)論測試方法重要依照具體情形而制訂。測試流程：按照單位測試、集成測試和確認測試的測試步調(diào)對全部體系進行了測試。慢慢清除了法度榜樣模塊內(nèi)部在邏輯上和功能上的缺點和缺點；以及法度榜樣構(gòu)造方面的問題；最后對比需求分析，考查是否知足預期的各類要求，包管了軟件設(shè)備的完全性、精確性。體系全然運行穩(wěn)固、正常，能夠投入試運行。結(jié)論本文周全摸索了企業(yè)人事治理體系的應用，在結(jié)合企業(yè)人事治理的實際情形以及應用以往開創(chuàng)體系的體會的差不多上，設(shè)計、開創(chuàng)了一個通用的企業(yè)人事治理體系。體系具有技巧先輩、功能完全、界面友愛和安穩(wěn)級別高等特點。本體系的建成不僅減輕了企業(yè)人事部分職員的工作壓力，還包管了企業(yè)能高效快速的運轉(zhuǎn)，加快了企業(yè)信息化和收集化的過程。能夠或許如期的完成此次的卒業(yè)設(shè)計，時刻上確切是專門重要重要緣故是因為我只進修過靜態(tài)網(wǎng)頁的制造軟件，沒有進修過網(wǎng)站制造方面的課程，因此對動態(tài)網(wǎng)頁的制造是現(xiàn)學現(xiàn)用。能夠或許在有限的一個學期的時刻里除了要操縱vb軟件及相干常識，還要用它來完成如許一個運算機收集留言板體系的卒業(yè)設(shè)計，對我來講是一個挑戰(zhàn)。體系是建立在體系后臺的數(shù)據(jù)庫差不多上的，用戶和治理員能夠便利地經(jīng)由過程Internet和局域網(wǎng)輕松設(shè)置登錄體系,查詢相干信息。留言板模塊是對體系功能的進一步的完美，使本軟件不僅僅只是能夠查詢相干材料，同時也供給給用戶留言的功能，表現(xiàn)出網(wǎng)站的交互性，有用性。留言板是一種電子便簽治理體系，在收集用戶中有專門大年夜的感化，留言板能夠供給完全的信息宣布功能，是用戶經(jīng)由過程收集收集信息的有力對象。同時治理員治理后臺數(shù)據(jù)庫數(shù)據(jù)功能齊備，操作便利。經(jīng)由這一個學期的進修與盡力，卒業(yè)設(shè)計如期完成。在這段時刻里，經(jīng)由過程賡續(xù)的實踐讓我進修到專門多常識，個中，就熟悉并操縱了vb技巧，同時也對access技巧有了些許明白得，此次的卒業(yè)設(shè)計對我來說受益匪淺，讓我進修到了軟件的開創(chuàng)和數(shù)據(jù)庫設(shè)計的體會，經(jīng)由過程與小構(gòu)成員的合作，讓我熟悉到了團隊合作的重要性。此次卒業(yè)設(shè)計對我今后的進修和工作帶來專門大年夜的贊助與阻礙，讓我領(lǐng)會到了書面的常識與實踐所學常識大年夜有不合，任何書面的常識只有經(jīng)由過程實踐今后才能獲得更好的完美與立異。謝辭論文的最后，我想對我的指導師長教師馬楠師長教師表示深深的敬意和真誠的感激！這一次卒業(yè)論文能順利的完成，我的指導師長教師，是她對我的耐煩贊助和指導，在全部的開創(chuàng)過程中，碰到的問題，師長教師就會給我建議，贊助我解決問題。在我做論文的每一個時期，馬楠師長教師都嚴格把關(guān)，容不得半點忽略。我想對這幾個月來賜與我極大年夜關(guān)懷和贊助的師長教師，表示深深的感激。我還要感激在此次卒業(yè)設(shè)計中賜與過我贊助的同窗們。卒業(yè)設(shè)計過程中賜與過我贊助的同窗、還有我的同伙，恰是因為你們的付出我才能幸免了走彎路，節(jié)儉了寶貴時刻，恰是因為你們的付出，我才能順利的完成了大年夜學生活中最后一件重要的工作，我真誠的祝福贊助我的師長教師和同伙工作順利，感謝你們的贊助。參考文獻[1]蘇選良.治理信息體系[M].北京:電子工業(yè)出版社,2003.[3]羅鴻.ERP道理設(shè)計實施[M].北京:電子工業(yè)出版社,2002.[4]薩師煊著．數(shù)據(jù)庫體系概論（第二版）[M]．高等教誨出版社,1991,8-40．[5]ERPImplementations[C]Controller'sReport,Dec2007,Vol.2007Issue12,p3-4.[6]張毅.企業(yè)資本籌劃(ERP)SCM,CRM[M].北京:電子工業(yè)出版社,2002.[7]Will,H.J.ModelManagementSystems[J].InformationSystemsandOrganizationStructure.1975,:465-482.[8]Ongeveen,H.E,NNoorrdhuizen-Stassen,J.E.Schreinemakers,andA.Brand.Developmentofanintergratedknowledge-basedsystemformanagementsupportofdairyfarms.J.DairySci.1991,74:4377～4383.[9]JianMa.Anobject-orientedframeworkformodelmanagement[J].DecisionSupportSystems,1995,13(2):133-1139.[10][美]JeffreyRichter,商麗媛譯.Microsoft.NETFramework法度榜樣設(shè)計[M].北京:清華大年夜學出版2003,292～340附錄計發(fā)工資：PrivateSubCmbCode_Change()IfRstPayRecord.State=adStateOpenThenRstPayRecord.Close'//封閉記錄集EndIfRstPayRecord.Open"select*from職員檔案where職員編號='"&CmbCode.Text&"'",DBCON,adOpenKeyset,adLockOptimistic,adCmdTextTxtName.Text=RstPayRecord.Fields(1).Value'//給文本框賦值TxtBrach.Text=RstPayRecord.Fields(16).ValueEndSub工資整頓：PrivateSubCmdDel_Click()IfMsgBox("確信要刪除嗎？",vbInformation+vbYesNo,"刪除信息")=vbYesThenIfRsModPay.RecordCount<>0ThenRsModPay.Delete'//刪除記錄CallCmdMove_ClickElseMsgBox"當前沒有任何記錄",,"刪除記錄"CallFormTxtValue2'//調(diào)用給文本框賦空值的過程EndIfEndIfEndSubPrivateSubCmdEdit_Click()CallCmdState1'//調(diào)用敕令按鈕Visible屬性為隱藏的過程CallTxtState'//調(diào)用啟用文本框的Enabled屬性過程EndSub查詢工資：PrivateSubCmbCode_Change()IfRstQPay.State=adStateOpenThenRstQPay.Close'//封閉記錄集EndIfRstQPay.Open"select*from職職員資where職員編號='"&CmbCode.Text&"'",DBCON,adOpenKeyset,adLockOptimistic,adCmdTextTxtName.Text=RstQPay.Fields(1).Value'//給文本框賦值EndSubPrivateSubCmdClose_Click()UnloadMeEndSubPrivateSubCmdQuery_Click()DimStrSQLAsStringStrSQL="select*from職職員資where"'//給定義好的字符變量付與SQL語句'//確信復選框有一個選中時,則IfChkCode.Value=1OrChkName.Value=1OrChkDate.Value=1Then'//確信三個復選框同時選中時,則IfChkCode.Value=1AndChkName.Value=1AndChkDate.Value=1ThenStrSQL=StrSQL&"職員編號='"&Trim(CmbCode.Text)&"'"&"and"&"職員姓名='"&Trim(TxtName.Text)&"'"&"and"&"計發(fā)時刻between#"&DTPFromDate.Value&"#and#"&DTPToDate.Value&"#"&""'//確信編號與姓名復選框選中時,則ElseIfChkCode.Value=1AndChkName.Value=1ThenStrSQL=StrSQL&"職員編號='"&Trim(CmbCode.Text)&"'"&"and"&"職員姓名='"&Trim(TxtName.Text)&"'"'//確信編號與進入公司時刻復選框選中時,則ElseIfChkCode.Value=1AndChkDate.Value=1ThenStrSQL=StrSQL&"職員編號='"&Trim(CmbCode.Text)&"'"&"and"&"計發(fā)時刻between#"&DTPFromDate.Value&"#and#"&DTPToDate.Value&"#"&""'//確信姓名與進入公司時刻復選框選中時,則ElseIfChkName.Value=1AndChkDate.Value=1ThenStrSQL=StrSQL&"職員姓名='"&Trim(TxtName.Text)&"'"&"and"&"計發(fā)時刻between#"&DTPFromDate.Value&"#and#"&DTPToDate.Value&"#"&""ElseIfChkCode.Value=1Then'//只有編號復選框選中時,則StrSQL=StrSQL&"職員編號='"&Trim(CmbCode.Text)&"'"EndIfIfChkName.Value=1Then'//只有姓名復選框選中時,則StrSQL=StrSQL&"職員姓名='"&Trim(TxtName.Text)&"'"EndIfIfChkDate.Value=1Then'//只有進入公司時刻復選框選中時,則StrSQL=StrSQL&"計發(fā)時刻between#"&DTPFromDate.Value&"#and#"&DTPToDate.Value&"#"&""EndIfEndIfIfRstQueryPay.State=adStateClosedThenRstQueryPay.OpenStrSQL,DBCON,adO