1、工資管理系統設計【摘 要】對企業而言，人力資源是企業最寶貴的資源，也是企業的“生命線”。而工資管理又是人力資源管理的重中之重。實行電子化的工資管理，可以讓人力資源管理人員從繁重瑣碎的案頭工作解脫出來，去完成更重要的工作。【關鍵字】管理信息系統，數據庫，工資管理，實體關系圖（E-R圖），數據字典，數據流圖。目 錄第一章緒論 31.1研究課題的背景 31.2研究思路和工作計劃 3第二章管理信息系統研究概述 52.1管理信息系統的發展歷史 52.2管理信息系統的特點 52.2.1管理信息系統的組成 52.2.2管理信息系統的界面特點 62.3管理信息系統的開發方式 72.4管理信息系統的開發過程 9

2、2.4.1系統開發準備 92.4.2系統調研 92.4.3系統設計 102.4.4系統實施與轉換 102.4.5系統維護和評價 10第三章工資管理系統分析與設計 123.1系統功能需求簡介 123.2功能需求描述 123.3目標系統要求 133.4系統平臺選擇 133.5數據庫設計 133.5.1數據庫介紹 133.5.2數據流圖 143.5.3數據詞典分析 15第四章工資管理系統的功能實現 164.1系統界面 164.2系統管理模塊編碼設計 164.2.1人員管理 164.2.2部門管理 184.3工資信息管理模塊編碼設計 194.3.1錄入員工工資 194.4 查詢模塊編碼設計 274.4

3、.1 按姓名查詢 274.4.2 按工資編號查詢 314.5系統維護模塊編碼設計 334.6報表統計模塊 344.7連編程序 34第五章小 結 35致謝 36參考文獻 37第一章 緒 論1.1研究課題的背景借助現代信息技術和管理理論，建立企業管理信息系統是當今社會的重要趨勢。黨和政府根據知識經濟時代的特點，對國民經濟建設提出了“用信息化帶動工業化”的指導思想。對企業而言，全面開發和應用計算機管理信息系統就是近期不能回避的問題。在企業管理中，人力資源是企業最寶貴的資源，也是企業的“生命線”，因此人事管理是企業的計算機管理信息系統重要組成部分。而工資管理又是人力資源管理的重中之重。實行電子化的工資

4、管理，可以讓人力資源管理人員從繁重瑣碎的案頭工作解脫出來，去完成更重要的工作。工資管理信息系統的實現可以減輕比較繁瑣的手工工資管理。現在應用在大中型企業的管理信息系統中，幾乎都包括了工資管理模塊。有些環境中是由作為大型ERP軟件中的一個模塊引進的，有些是作為企業的財務系統的一部分。這些根據規范的西方的管理制度設計的工資管理軟件，在很多時候還不能完全解決中國特色的中小企業的問題，本文介紹的畢業設計的研究工作就是要為這些具有中國特色的中小企業解決他們在工資管理方面的問題。在和指導老師交流后，確定實現方案的要點和工作計劃。本系統的實現的主要功能有：員工信息管理、工資結構設置、工資匯總打印等等功能。1

5、.2 研究思路和工作計劃正如研究任何其它軟件項目一樣，我做的畢業設計也經歷了從選題，調研，熟悉開發環境，實驗關鍵技術，查找類似的相關系統的資料；系統概要設計，數據庫結構設計，功能模塊開發，功能模塊測試，系統調試和系統試運行和修改。下面的流程圖1.2反映了我的基本的思路和過程。在各階段的時間安排上，選題和調研用了兩周左右的時間；熟悉開發環境，實驗關鍵技術，查找類似的相關系統的資料用了兩周時間；系統概要設計用了一周的時間；數據庫結構設計用了一周時間；功能模塊開發和功能模塊測試用了四周的時間；最后，系統調試和系統試運行和修改用了約三周的時間。完成全部工作大約用了3個月的時間。定題研究關鍵技術開發環境

6、熟悉資料查詢調查研究概要設計數據庫的結構設計功能模塊開發功能模塊測試系統調試系統試運行和修改圖1.2第二章 管理信息系統研究概述2.1管理信息系統的發展歷史信息作為生產力中最活躍的因素，很早就在人類經濟生活中發揮著不可替代的作用，但把信息納入企業經營管理系統中高效處理和應用是在計算機發明以后的50年代末。目前人們所提到的管理信息系統，通常是指以計算機為工具，對管理信息進行收集、存貯、檢索、加工和傳遞，使其應用于組織機構及企業管理領域的“人機系統”，該系統是70年代初“后工業經濟”時代的產物，在企業管理信息系統在其發展的初期，是單一的人機系統，系統功能簡單，效率低，對管理的作用有限。進入二十世紀

7、80年代末，隨著計算機網絡和通信技術的大力發展，企業管理信息系統進入網絡化的發展時期。世界發達國家已建立起了完善的先進的管理信息系統體系，在其社會經濟發展領域中發揮著巨大的作用。我國的管理信息系統大發展是在80年代末90年代初，國家相繼建立起了“金卡”、“金關”、“金橋”工程，多數企事業單位建立了局域網和廣域網管理信息系統。隨著世界經濟和我國經濟逐步向知識經濟邁進，無論是基于工業經濟的管理信息系統，還是面向少數專家和管理人員的專家系統 (ES)或決策支持系統 (DSS)，其處理對象和服務對象，自身的系統結構，處理能力，都有了進一步的發展。2.2管理信息系統的特點2.2.1管理信息系統的組成管理

8、信息系統在企業中的應用存在三個要素，這就是人、計算機和數據。人是指企業領導者、管理人員、技術人員，以及MIS建設的領導機構和實施機構，他們在系統中起主導作用。MIS是一項系統工程，不是只靠一些計算機開發人員就可以完成的，必須有企業管理人員，尤其是企業領導的積極參與。計算機技術是MIS（管理信息系統）得以實施的主要技術。在這些技術中，軟件開發是MIS開發的重點。第三個因素也不能忽視。企業的管理數據是MIS正常運行的基礎。廣義地說，各項管理制度是MIS建設成功的基礎。2.2.2管理信息系統的界面特點在計算機軟件技術中，人機界面已經發展成為一個重要的分支。MIS人機界面設計一般遵循以下一些基本原則：

9、（1）以通信功能作為界面設計的核心人機界面設計的關鍵是使人與計算機之間能夠準確地交流信息。一方面，人向計算機輸入信息時應當盡量采取自然的方式；另一方面，計算機向人傳遞的信息必須準確，不致引起誤解或混亂。設計MIS時，針對每一個功能，都要按照模塊化思想，使輸入、處理與輸出“涇渭分明”，充分體現人機界面的通信功能。這樣設計出來的程序不易出錯，而且易于維護。報表打印是MIS必備的功能之一，而且打印之前常常需要計算。計算與打印分開設計，雖然消耗時間，但易于整個MIS系統的維護。（2）界面必須始終一致統一的人機界面不至于會增加用戶的負擔，讓用戶始終用同一種方式思考與操作。最忌諱的是每換一個屏幕用戶就要換

10、一套操作命令與操作方法。例如在整個系統可以以問號圖標表示幫助，以磁盤圖標表示存盤，以打印機圖標表示打印等。（3）界面必須使用戶隨時掌握任務的進展情況人機界面應該能夠告訴用戶軟件運行的進度。特別是在需要較長時間的等待時，必須讓用戶了解工作進展情況，如可以設計已經完成了百分之幾的任務進度條等。目前，Windows下的應用軟件無論大小，其安裝程序幾乎均做到了這一點。開發MIS軟件時，這一點很值得借鑒。（4）界面友好。使用方便多數MIS軟件的數據輸入量較大。對于一些相對固定的數據，不應讓用戶頻頻輸入(特別是漢字)，而應讓用戶用鼠標輕松選擇。例如，人事管理系統中的“文化程度”是相對固定的數據，其值一般取

11、“小學”、“初中”、“高中”、“大專”、“大本”、“碩研”、“博研”等。錄入這類數據之前，MIS軟件應在相應位置彈出一個列表框，待用戶以鼠標點擊，而不應讓用戶每次都輸入這些漢字。總之，所開發的MIS在使用過程中，應使用戶的數據輸入量降至最低限度減少用戶的干預量。實踐證明，用戶干預愈少，MIS系統的滿意程度愈高。2.3管理信息系統的開發方式管理信息系統的開發方式主要有獨立開發方式、委托開發方式、合作開發方式、購買現成軟件方式等4種。這4種開發方式各有優點和不足，需要根據使用單位的技術力量、資金情況、外部環境等各種因素進行綜合考慮和選擇。不論哪種開放方式都需要有單位的領導和業務人員參加，并在管理信

12、息系統的整個開發過程中培養、鍛煉、壯大該系統的維護隊伍。（1）.獨立開發獨立開發適合于有較強的管理信息系統分析與設計隊伍和程序設計人員、系統維護使用隊伍的組織和單位，如大學、研究所、計算機公司、高科技公司等單位。獨立開發的優點是開發費用少，實現開發后的系統能夠適應本單位的需求且滿意度較高，最為方便的是系統維護工作。缺點是由于不是專業開發隊伍，容易受業務工作的限制，系統優化不夠，開發水平較低，且由于開發人員是臨時從所屬各單位抽調出來進行管理信息系統的開發工作，這些人員在其原部門還有其他工作，所以精力有限，容易造成系統開發時間長，開發人員調動后，系統維護工作沒有保證的情況。因此，一方面需要大力加強

13、領導，實行“一把手”原則，另一方面可向專業開發人士或公司進行咨詢，或聘請他們作為開發顧問。（2）.委托開發委托開發方式適合于使用單位無管理信息系統分析、設計及軟件開發人員或開發隊伍力量較弱、但資金較為充足的單位。雙方應簽訂管理信息系統開發項目協議，明確新系統的目標和功能、開發時間與費用、系統標準與驗收方式、人員培訓等內容。委托開發方式的優點是省時、省事，開發的系統技術水平較高。缺點是費用高、系統維護需要開發單位的長期支持。此種開發方式需要使用單位的業務骨干參與系統的論證工作，開發過程中需要開發單位和使用單位雙方及時溝通，進行協調和檢查。（3）.合作開發合作開發方式適合于使用單位有一定的管理信息

14、系統分析、設計及軟件開發人員，但開發隊伍力量較弱，希望通過管理信息系統的開發建立完善和提高自己的技術隊伍，便于系統維護工作的單位。雙方共享開發成果，實際上是一種半委托性質的開發工作。優點是相對于委托開發方式而言節約了資金，并可以培養、增強使用單位的技術力量，便于系統維護工作，系統技術水平較高。缺點是雙方在合作中溝通易出現問題，需要雙方及時達成共識，進行協調和檢查。總之，不同的開發方式有不同的長處和短處，需要根據使用單位的實際情況進行選擇也可綜合使用各種開發方式。2.4管理信息系統的開發過程管理信息系統的開發過程一般包括系統開發準備、系統調查、系統分析、系統設計、系統實現、系統轉換、系統運行與維

15、護、系統評價等步驟。根據開發系統的大小、復雜、投入、方式、方法等因素的不同，各步驟的要求和內容也不同，用戶需要根據實際情況進行取舍和計劃。2.4.1系統開發準備 系統開發準備工作主要包括提出系統開發要求、制訂系統開發計劃等工作。2.4.2系統調研新系統的系統分析與系統設計工作都要建立在對現行系統調研的基礎上，即必須調查現行系統的運行情況、問題等，明確用戶的需求，特別是合作開發和委托開發方式。調研的主要內容有： （1）現行系統概況：該組織的發展歷史、目前組織的規模、工作狀況、管理水平、與外界的主要聯系等。調查該項內容的目的主要是為了劃分系統界限、系統與外界的輸入輸出接口等。 （2）組織機構：畫出

16、組織的組織結構圖，弄清組織的行政關系、人員編制、工作范圍、地理位置等，發現不合理問題及新系統啟動后可能對現有組織的影響。 （3）業務流程：按照業務種類的不同和處理時間的先后不同，深入了解現行系統的業務流程，畫出現行系統業務流程圖，并與業務人員反復討論，得到認可。調查中要注意定性與定量相結合，注意人、財、物、信息的流向、規格、頻率、要求以及需要解決的問題等。（4）報表、數據處理：了解各種統計報表、數據的格式、內容、處理時間及上報時間、頻率、規律，存在的問題，對新系統的要求、希望等并收集各種報表。（5）問題：現行系統中存在的主要問題和薄弱環節，可以按照嚴重程度分成不同的等級。新系統的建立應能解決大

17、部分問題，并改善薄弱環節。（6）新系統的功能和目標：了解各級領導和各類業務工作人員對新系統功能的要求，系統分析(又稱邏輯設計)是管理信息系統開發的關鍵環節，要求在系統調查的基礎上，對新系統的功能進行細致的分析，并建立一個新系統的邏輯模型。新系統的邏輯模型由系統數據流程圖、概況表、數據字典、物理邏輯表達式及有關說明組成。最后要完成系統分析報告(也稱為系統邏輯設計說明書)。系統邏輯模型就像在根據需要建設一座學校前，按照學校教育的層次(初等、中等、高等)、規模、投資、地理環境、技術水平等條件的要求和約束，先由建筑設計院進行設計，保證學校建成后的各種功能得以實現，之后才能進行工程設計和施工一樣。在系統

18、設計階段要做認真、細致的分析、研究工作，避免新系統在功能上存在先天不足或缺陷。因為新系統模型是建立在對現行系統的分析及要求的基礎上的，所以系統調查工作要進行得深入、細致、全面。用戶可以對新系統的邏輯模型提出意見，雙方經過討論、修改，最后達成共識，并完成系統分析報告(系統邏輯設計說明書)，經有關領導審批通過之后，轉入系統設計(又稱系統物理設計)階段。2.4.3系統設計系統設計又稱系統物理設計。系統設計要根據系統分析報告中的系統邏輯模型綜合考慮各種約束，利用一切可利用的技術手段和方法進行各種具體設計，確定新系統的實施方案，解決“系統怎么做”的問題。結構化系統設計是指利用一組標準的圖表工具和準則，確

19、定系統有哪些模塊，用什么方法連接，如何構成良好的系統結構，并進行系統輸入、輸出、數據處理、數據存儲等環節的詳細設計。這一階段的重點是設計好系統的總體結構，選擇最經濟合理的技術手段。系統設計階段的文件是系統設計報告(又稱系統物理設計說明書)。2.4.4系統實施與轉換系統實施階段的主要工作包括：系統硬件的購置與安裝、程序的編寫(購買)與調試、系統操作人員的培訓、系統有關數據的準備和錄入、系統調試和轉換。在系統實施階段要成立系統實施工作量到小組，組織各專業小組組長和有關部門的領導共同編制新系統實施計劃。可以應用各種項目管理的軟件和方法進行管理，實行項目經理負責制，保證系統實施工作的順利進行和成功。數

20、據準備與錄入工作主要是指由手工操作轉入計算機處理所需的各種數據的整理、錄入及計算機系統中為新系統所用數據的轉換工作。數據準備與錄入工作要注意數據的準確性，在整理、錄入、校驗等各個環節把好關，為系統的順利轉換打好基礎。2.4.5系統維護和評價管理信息系統是一個復雜的人機系統。系統外部環境與內部因素的變化，不斷影響系統的運行，這時就需要不斷地完善系統，以提高系統運行的效率與服務水平，這就需要從始至終地進行系統的維護工作。系統評價主要是指系統建成后，經過一段時間的運行后，要對系統目標與功能的實現情況進行檢查，并與系統開發中設立的系統預期目標進行對比，及時寫出系統評價報告。系統維護與評價階段是系統生命

21、周期中的最后一個階段，也是時間最長的一個重要階段。第三章 工資管理系統分析與設計3.1系統功能需求簡介工資管理信息系統對企業加強工資管理有著極其重要的作用，就一般的大型企業來說，它的設計內容非常復雜而且繁多，比如擁有工資計算功能，工資統計功能，報表輸出功能，而且設計的模塊也很多，比如工資管理模塊，工資統計模塊，報表設計模塊，打印輸出模塊，查詢模塊等等。該工資管理系統的主要功能如圖3.1所示：系統管理資 料 輸 入資料增刪工資信息信息查詢信息修改信息錄入工資匯總工資條打印報表打印報表輸出系統維護修改密碼添加用戶工資管理系統 圖3.1 系統功能模塊圖3.2功能需求描述（1）系統管理模塊系統管理模塊

22、具有增加與修改員工和部門功能。系統管理包括員工管理和部門管理。員工基本信息包括員工號、姓名、部門、職位、基本工資等。系統管理模塊實現了對數據庫中員工信息和部門的增加和刪除。（2） 工資信息模塊本系統將工資結構分為工資號、姓名、底薪、補貼、獎金、加班費、扣考核、房帖、房租、養老金、醫療保險、住房公積金、所得稅。用戶可以對某一員工錄入工資信息，系統自動計算出應發工資。在此模塊中用戶還可以對已錄入記錄進行修改和刪除。（3）查詢模塊用戶可以根據員工號或員工姓名進行查詢。（4）工資匯總模塊用戶在員工信息管理模塊對該員工的工資信息信息輸入以后，在工資匯總模塊會自動對員工工資進行匯總并打印出工資匯總表。（5

23、）系統維護模塊用戶可以添加或修改登陸時的用戶名和密碼。3.3目標系統要求目標系統應該達到以下要求： 1、時間經濟性。優化邏輯設計與物理設計，使系統運行效率高，反應速度快。2、可靠性。能連續準確的處理業務，有較強的容錯能力。3、可理解性。用戶容易理解和使用該系統。4、可維護性和適應性。系統應易于修改、易于擴充、易于維護，能夠適應業務不斷發展變化的需要。5、可用性。目標系統功能齊全，能夠完全滿足業務需求。6、安全保密性。保證系統的物理安全、數據存儲和存取的安全與保密、數據傳輸的安全與保密，做好使用人員的授權管理。3.4系統平臺選擇選擇微軟平臺作為主導，一方面考慮目前微軟的飛速發展，越來越多的企業在

24、規劃內部網絡時，將微軟平臺作為首選方案；另一方面從技術角度來講，微軟平臺上的應用無論是在開發上，還是在軟件的部署上都非常容易，而且性能優越。操作系統：Windows 2000或者Windows XP開發工具與語言: Visual Basic 6.0中文版 + Access20003.5數據庫設計3.5.1數據庫介紹所謂數據庫（Database）就是指按一定組織方式存儲在一起的，相互有關的若干個數據的結合，數據庫管理系統（Database Management System）就是一種操縱和管理數據庫的大型軟件，簡稱DBMS,他們建立在操作系統的基礎上，對數據庫進行統一的管理和控制，其功能包括數據

25、庫定義，數據庫管理，數據庫建立和維護，于操作系統通信等。DBMS通常由數據字典，數據描述語言及其編譯程序，數據操縱（查詢）語言及其編譯程序，數據庫管理例行程序等部分組成。關系數據庫是以關系模型為基礎的數據庫，是根據表、記錄和字段之間的關系進行組織和訪問的一種數據庫，它通過若干個表（Table）來存取數據，并且通過關系（Relation）將這些表聯系在一起，關系數據庫提供了成為機構化查詢語言（SQL）標準接口，該接口允許使用多種數據庫工具和產品，關系數據庫是目前最廣泛應用的數據庫。在ACCESS中數據庫是一個邏輯上的概念，通過一組系統文件將相互關聯的數據表及其數據庫對象組織起來，成為擴展名為.m

26、db的數據庫文件。數據庫文件一般不能直接使用，而是交由ACCESS數據庫統一管理。ACCESS中一個庫可以容納多個表，通過庫我們可明確各表之間的相互關系，使表文件不在彼此孤立，而成為相互關聯的數據集合。3.5.2數據流圖根據對工資管理工作的調查和用戶需求分析，該系統的數據流圖如圖3.2所示。系統設定員工信息管理員工工資匯總圖3.2 系統的數據流程圖3.5.3數據詞典分析該軟件的數據庫由四個數據表組成：A員工基本信息表：ygshujuB基礎工資設定表：gzshujuC部門表：bumenD管理員密碼表：denglu（1）員工基本信息表：ygshuju字段名類型員工號數值型姓名字符型所屬部門字符型職

27、位字符型基本工資數值型(2)基礎工資設定表：gzshuju字段名類型工資號數值型姓名字符型底薪數值型補貼數值型獎金數值型加班數值型扣考核數值型房帖數值型房租數值型養老金數值型醫療保險數值型住房公積金數值型所得稅數值型計法時間日期型(3)部門表：bumen字段名類型部門字符型4、管理員注冊表：denglu字段字段名類型1用戶名字符型2口 令字符型第四章 工資管理系統的功能實現4.1系統界面圖4.14.2系統管理模塊編碼設計此模塊細分為人員管理和部門管理。4.2.1人員管理人員管理包括員工基本信息增刪改功能。員工基本信息可以對員工信息添加、修改和刪除,員工管理界面如下:圖4.2.1具體編碼如下：（

28、1）“添加”按鈕控件源代碼：Private Sub Command5_Click()If Text4.Text = Or Text5.Text = Or Text6.Text = Or Text7.Text = Or Text8.Text = ThenExit SubEnd IfAdodc3.Recordset.AddNewEnd Sub（2）“刪除”按鈕控件源代碼：Private Sub Command6_Click()Adodc3.Recordset.DeleteEnd Sub（3）“離開”按鈕控件代碼：Private Sub Command1_Click()Unload MeEnd Su

29、b4.2.2部門管理部門管理同樣包括對部門信息增刪改功能。部門信息可以對部門添加、修改和刪除，部門管理界面如圖4.2.2：圖4.2.2具體編碼如下：（1）“添加新部門”按鈕控件源代碼：Private Sub Command1_Click()If Text1.Text = ThenExit SubEnd IfAdodc1.Recordset.AddNewIf Adodc1.Recordset.EOF ThenExit SubEnd IfEnd Sub（2）“刪除所選”按鈕控件源代碼：Private Sub Command2_Click()If Text1.Text = ThenExit SubE

30、nd IfAdodc1.Recordset.DeleteEnd Sub4.3工資信息管理模塊編碼設計該模塊細分為“錄入員工工資”和“修改工資記錄”4.3.1錄入員工工資“錄入員工工資”功能是對某一個員工的工資情況進行錄入，界面如圖4.3.1所示：圖4.3.1具體編碼如下：（1） 窗體初始化：Private Sub Form_Load()Dim MsgText As StringDim intCount As IntegerDim dateTemp As DateDim db As DatabaseDim res As RecordsetSet db = OpenDatabase(App.Pat

31、h + zongbiao.mdb)Set res = db.OpenRecordset(bumen)If Not res.EOF ThenDo While Not res.EOF cboItem(0).AddItem Trim(res!部門) res.MoveNextLoop cboItem(0).ListIndex = 0ElseMsgBox 請先進行員工檔案登記！, vbOKOnly + vbExclamation, 警告cmdSave.Enabled = False Exit Sub End IfmblChange = FalseEnd Sub（2） 兩個下拉菜單源代碼：Private

32、Sub cboItem_Click(Index As Integer) Dim MsgText As StringDim intCount As IntegerDim db As DatabaseDim res As RecordsetDim strsql As StringSet db = OpenDatabase(App.Path + zongbiao.mdb) strsql = select 姓名,員工號,基本工資 from ygshuju where 部門 like * & Trim(cboItem(0) & * Set res = db.OpenRecordset(strsql)If

33、 Index = 0 Then cboItem(1).Clear If Not res.EOF Then With cboItem(1) Do While Not res.EOF .AddItem Trim(res!姓名) res.MoveNext Loop .ListIndex = 0 End With End If End If res.MoveFirst res.Move cboItem(1).ListIndex txtId = res.Fields(1) & Format(Now, yymm) txtItem(0) = res.Fields(2)End Sub（3）“添加”按鈕具體編碼

34、如下：Private Sub cmdSave_Click() Dim intCount As Integer Dim txtSQL As String Dim mrc As Recordset Dim MsgText As String Dim db As Database Dim sMeg As String If Trim(txtItem(0) & ) = Then sMeg = 底薪 sMeg = sMeg & 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If If Tr

35、im(txtItem(13) & ) Then If Not IsDate(txtItem(13) Then MsgBox 時間輸入格式不正確，應輸入如下格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(13).SetFocus Exit Sub Else txtItem(13) = Format(txtItem(13), yyyy-mm-dd) End If Else MsgBox 時間不能為空！, vbOKOnly + vbExclamation, 警告 txtItem(13).SetFocus Exit Sub End If Se

36、t db = OpenDatabase(App.Path + zongbiao.mdb) 添加判斷是否有相同的ID記錄txtSQL = select * from gzshuju where 工資號= & Trim(txtId) & Set mrc = db.OpenRecordset(txtSQL) If mrc.EOF = False Then MsgBox 已經存在該員工在該月的工資記錄！, vbOKOnly + vbExclamation, 警告 txtItem(13).SetFocus Exit Sub End If mrc.Close txtSQL = select * from

37、gzshuju Set mrc = db.OpenRecordset(txtSQL) mrc.AddNew mrc.Fields(0) = Trim(txtId) mrc.Fields(1) = Trim(cboItem(1) mrc.Fields(17) = Trim(cboItem(0) mrc.Fields(15) = Trim(txtItem(13) For intCount = 0 To 12 mrc.Fields(intCount + 2) = txtItem(intCount) Next intCount mrc.Update mrc.CloseMsgBox 計發工資成功！, v

38、bOKOnly + vbExclamation, 警告 For intCount = 0 To 12 txtItem(intCount) = Next intCount mblChange = False cmdSave.Enabled = False End Sub（4）“離開”按鈕具體編碼如下：Private Sub cmdExit_Click() If mblChange And cmdSave.Enabled Then If MsgBox(保存當前記錄的變化嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then 保存 Call cmdSave_C

39、lick End If End If Unload MeEnd Sub（5）關于此窗體中的計發工資的計算源代碼如下：Private Sub txtItem_Click(Index As Integer) Dim intCount As Integer 用于計算工資 Dim dblTotal As Double 有變化設置gblchange mblChange = True If (Index = 0 And Index 8) Or Index = 10 Or Index = 11 Then dblTotal = 0 For intCount = 0 To 3 If Trim(txtItem(i

40、ntCount) Then dblTotal = dblTotal + CDbl(txtItem(intCount) End If Next intCount For intCount = 4 To 7 If Trim(txtItem(intCount) Then dblTotal = dblTotal - CDbl(txtItem(intCount) End If Next intCount If Trim(txtItem(10) Then dblTotal = dblTotal + CDbl(txtItem(10) End If If Trim(txtItem(11) Then dblTo

41、tal = dblTotal - CDbl(txtItem(11) End If txtItem(8) = Format(dblTotal, #0.00) End If If Index = 9 Then 稅額變化 If Trim(txtItem(9) & ) = Then txtItem(12) = Trim(txtItem(8) & ) Else txtItem(12) = Format(CDbl(txtItem(8) - CDbl(txtItem(9), #0.00) End If End If If Index = 8 And Trim(txtItem(8) & ) Then 稅前小計

42、變化 dblTotal = CDbl(txtItem(8) 去掉不交稅的工資部分 dblTotal = dblTotal - 1200 計算稅額 If dblTotal 0 And dblTotal 500 And dblTotal 200 And dblTotal 5000 And dblTotal = 0 And Index 0 Then txtItem(Index).Locked = False Else txtItem(Index).Locked = True End If Else txtItem(Index).Locked = True End If Exit Sub End If

43、 非數字不能輸入 If KeyAscii 57 Or KeyAscii 48 Then txtItem(Index).Locked = True Else txtItem(Index).Locked = False End If 允許Backspace If KeyAscii = 8 Then txtItem(Index).Locked = False End If Delete鍵 If KeyAscii = 46 Then txtItem(Index).Locked = False End If End If End Sub（6）自動編寫工資號代碼如下：Private Function Ge

44、tNo() As String GetNo = Format(Now, yymmddhhmmss) Randomize GetNo = GetNo & Int(99 - 10 + 1) * Rnd + 10)End Function4.3.24.4 查詢模塊編碼設計此模塊細分為“按姓名查詢”和“按工資號查詢”兩部分4.4.1 按姓名查詢按姓名查詢窗體使用戶選擇姓名后，系統調出與姓名相符的工資信息，如圖4.4.1所示圖4.4.1具體編碼如下：（1）窗體初始化Private Sub Form_Load() Dim ressql As String Dim intCount As Integer Dim dateTemp As DateCall ShowTitleDim j As Integer Dim i As IntegerDim db As DatabaseDim res As Recordset Set db = OpenDatabase(App.Path