工資管理畢業(yè)設(shè)計(jì)論文

1、<p><b>　　摘 要</b></p><p>　　隨著人類(lèi)文明的不斷進(jìn)步，人們?cè)絹?lái)越重視工作的高效性和準(zhǔn)確性，也越來(lái)越渴望擺脫某些重復(fù)性的繁重勞動(dòng)。而工資方面的管理又涉及到大量的計(jì)算、填寫(xiě)等簡(jiǎn)單重復(fù)性動(dòng)作，所以有必要實(shí)現(xiàn)工資管理方面的改革，將人們解放出來(lái)做一些更有意義的工作?，F(xiàn)今社會(huì)上各種規(guī)模的企事業(yè)單位和私營(yíng)企業(yè)日益增多，在所有這些團(tuán)體中，人數(shù)少的不下幾百，多者成千上

2、萬(wàn)，而工資管理方面的工作也就成為了其中的一個(gè)重要環(huán)節(jié)。找一種合適的方法來(lái)管理工資，既能為大多數(shù)的單位帶來(lái)最大方便，又能保證工資發(fā)放的快速、準(zhǔn)確，且能為企業(yè)節(jié)約成本，帶來(lái)一定的經(jīng)濟(jì)效益。傳統(tǒng)的工資管理方法主要是依靠管理員用手工來(lái)記錄、計(jì)算，這種方法既不方便，又容易出問(wèn)題，顯然已很不適用。</p><p>　　現(xiàn)代社會(huì)計(jì)算機(jī)技術(shù)日新月異，運(yùn)用計(jì)算機(jī)來(lái)進(jìn)行數(shù)據(jù)處理、信息管理已成為計(jì)算機(jī)三大主要應(yīng)用之一，鑒于以上社會(huì)現(xiàn)實(shí)

3、狀況，結(jié)合所學(xué)專(zhuān)業(yè)，我決定運(yùn)用所學(xué)到的計(jì)算機(jī)專(zhuān)業(yè)知識(shí)及信息管理專(zhuān)業(yè)知識(shí)，采用當(dāng)今流行的Microsoft.VFP6.0可視化程序設(shè)計(jì)語(yǔ)言在此次畢業(yè)設(shè)計(jì)任務(wù)中編制一個(gè)用于“工資管理”方面的軟件，以幫助社會(huì)上各式各樣，尤其是較小規(guī)模的企事業(yè)單位處理工資管理方面的事務(wù)。</p><p>　　本軟件主要適用于較小規(guī)模企事業(yè)單位使用。在軟件的具體編制實(shí)現(xiàn)過(guò)程中，我要特別感謝趙菊明老師！今天我能夠取得這樣一個(gè)小小的成果與她的

4、熱情、全面的幫助是分不開(kāi)的。 </p><p>　　關(guān)鍵詞:數(shù)據(jù)庫(kù);SQL語(yǔ)言;vfp6;工資管理;窗體</p><p><b>　　目　　　錄</b></p><p>　　1 Visual FoxPro 6.0概述</p><p>　　1.1 Visual Foxpro 6.0 系統(tǒng)簡(jiǎn)介</p>

5、<p>　　1.2 Visual Foxpro6.0特點(diǎn)</p><p>　　1.2.1 友好的用戶(hù)界面</p><p>　　1.2.2 強(qiáng)大的面向?qū)ο缶庉嫾夹g(shù)的功能</p><p>　　1.2.3 快速創(chuàng)建應(yīng)用程序</p><p>　　1.2.4 數(shù)據(jù)庫(kù)操作簡(jiǎn)便</p><p>　　1.

6、2.5 可與其他應(yīng)用程序交互操作</p><p>　　1.2.6 獨(dú)特的開(kāi)發(fā)客戶(hù)/服務(wù)器解決方案</p><p>　　1.2.7 可以升級(jí)早期版本</p><p>　　1.2.8 有很好的幫助系統(tǒng)</p><p>　　1.3 Visual Foxpro6.0對(duì)系統(tǒng)軟硬件環(huán)境要求</p><p>　　

7、1.3.1 硬件環(huán)境</p><p>　　1.3.2 軟件環(huán)境</p><p>　　1.4 Visual Foxpro6.0技術(shù)指標(biāo)</p><p>　　1.4.1 表和索引文件</p><p>　　1.4.2 內(nèi)存變量和數(shù)組</p><p>　　1.4.3 程序和過(guò)程文件</p>

8、<p>　　1.4.4 報(bào)表</p><p>　　1.4.5 其他</p><p>　　1.5 Visual FoxPro的幫助系統(tǒng)</p><p>　　2 應(yīng)用程序總體設(shè)計(jì)</p><p>　　2.1 系統(tǒng)需求分析</p><p>　　2.1.1 用戶(hù)要求：</p>

9、<p>　　2.1.2 系統(tǒng)性能要求：</p><p>　　2.2 設(shè)計(jì)目標(biāo)</p><p>　　2.3 數(shù)據(jù)庫(kù)設(shè)計(jì)</p><p>　　2.3.1 數(shù)據(jù)需求分析</p><p>　　2.3.2 各數(shù)據(jù)表的結(jié)構(gòu)</p><p>　　2.4 系統(tǒng)模塊劃分及各模塊包含的表單</p&g

10、t;<p>　　2.4.1 數(shù)據(jù)錄入模塊</p><p>　　2.4.2 工資計(jì)算模塊</p><p>　　2.4.3 工資查詢(xún)模塊</p><p>　　2.4.4 工資打印模塊</p><p>　　2.4.5 系統(tǒng)設(shè)置模塊</p><p>　　2.4.6 退出系統(tǒng)模塊</p

11、><p>　　2.5 系統(tǒng)數(shù)據(jù)流程圖</p><p>　　2.5.1 系統(tǒng)總體結(jié)構(gòu)模塊劃分圖</p><p>　　2.5.2 系統(tǒng)總體運(yùn)行流程圖</p><p>　　2.5.3 重要模塊運(yùn)行流程圖</p><p>　　2.6 系統(tǒng)總開(kāi)發(fā)環(huán)境設(shè)置</p><p><b>

12、　　3 模塊的實(shí)現(xiàn)</b></p><p>　　3.1 各功能表單的編制</p><p>　　3.1.1 啟動(dòng)畫(huà)面及系統(tǒng)登錄</p><p>　　3.1.2 人員錄入</p><p>　　3.1.3 考勤錄入</p><p>　　3.1.4 扣款錄入</p><p

13、>　　3.1.5 按月計(jì)算所有職工工資</p><p>　　3.1.6 按月按部門(mén)計(jì)算職工工資</p><p>　　3.1.7 按月按職工姓名計(jì)算工資</p><p>　　3.1.8 按部門(mén)查詢(xún)職工工資</p><p>　　3.1.9 按職工姓名查詢(xún)工資</p><p>　　3.1.10 按

14、部門(mén)打印職工工資</p><p>　　3.1.11 按姓名打印職工工資條</p><p>　　3.1.12 管理員設(shè)置</p><p>　　3.1.13 修改密碼</p><p>　　3.2 公用變量的定義</p><p>　　3.3 生成應(yīng)用程序</p><p><

15、b>　　4 結(jié)束語(yǔ)</b></p><p>　　1 Visual FoxPro 6.0概述</p><p>　　1.1 Visual Foxpro 6.0 系統(tǒng)簡(jiǎn)介</p><p>　　Visual Foxpro6.0是為數(shù)據(jù)庫(kù)結(jié)構(gòu)和應(yīng)用程序開(kāi)發(fā)而設(shè)計(jì)的、功能強(qiáng)大的、面向?qū)ο蟮木幊汰h(huán)境。無(wú)論是組織信息、運(yùn)行查詢(xún)、創(chuàng)建集成的關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng)，

16、還是為最終用戶(hù)編寫(xiě)功能全面的數(shù)據(jù)管理應(yīng)用程序，Visual Foxpro都可提供管理數(shù)據(jù)所需的所有工具。</p><p>　　Visual Foxpro6.0于1998年9月由微軟公司發(fā)布，是一個(gè)基于圖形界面技術(shù)的數(shù)據(jù)庫(kù)管理系統(tǒng)軟件，是一個(gè)性能完善的數(shù)據(jù)庫(kù)編程語(yǔ)言；是xBASE類(lèi)數(shù)據(jù)庫(kù)歷史上最強(qiáng)大的數(shù)據(jù)庫(kù)管理系統(tǒng)，具有Windows界面、采用面向?qū)ο蟮拈_(kāi)發(fā)方式、客戶(hù)/服務(wù)器的數(shù)據(jù)連接以及OLE的應(yīng)用程序訪問(wèn)。它還

17、提供了許多可視化開(kāi)發(fā)工具，如向?qū)?、生成器、設(shè)計(jì)器等，使用戶(hù)能簡(jiǎn)單而迅速地完成數(shù)據(jù)庫(kù)操作或應(yīng)用程序的開(kāi)發(fā)。</p><p>　　1.2 Visual Foxpro6.0特點(diǎn)</p><p>　　Visual Foxpro6.0是微軟發(fā)行的Microsoft Visual Studio 6.0套裝系統(tǒng)軟件之一。該系統(tǒng)在辦公室管理中應(yīng)用極為廣泛，其理由之一是Visual Foxpro6.0從x

18、BASE發(fā)展而來(lái)，而xBASE已有廣泛的用戶(hù)群，但更重要的理由是Visual Foxpro6.0有很多的新功能及特性。</p><p>　　1.2.1 友好的用戶(hù)界面</p><p>　　Visual Foxpro6.0系統(tǒng)提供了一套由菜單驅(qū)動(dòng)，輔助向?qū)?、?duì)話框、設(shè)計(jì)器、表達(dá)式生成器等簡(jiǎn)潔、功能全面的用戶(hù)界面。使用戶(hù)可以在友好界面的支持下，用命令或菜單方式快捷地實(shí)現(xiàn)對(duì)系統(tǒng)的各種操作，從而

19、完成對(duì)數(shù)據(jù)管理的任務(wù)。</p><p>　　1.2.2 強(qiáng)大的面向?qū)ο缶庉嫾夹g(shù)的功能</p><p>　　Visual Foxpro6.0不僅有完善的系統(tǒng)命令、豐富的標(biāo)準(zhǔn)函數(shù)，支持傳統(tǒng)的結(jié)構(gòu)化過(guò)程編程技術(shù)，而且還支持面向?qū)ο蟮目梢暬幊碳夹g(shù)。</p><p>　　系統(tǒng)提供了結(jié)構(gòu)化查詢(xún)語(yǔ)言-----SQL語(yǔ)言，可以非常有效地訪問(wèn)索引文件的數(shù)據(jù)，迅速而精確地從龐大的、

20、有數(shù)百萬(wàn)條記錄的表格檢索數(shù)據(jù)。</p><p>　　系統(tǒng)支持事件處理、優(yōu)化系統(tǒng)和Rushmore技術(shù)更成熟，速度更快。</p><p>　　1.2.3 快速創(chuàng)建應(yīng)用程序</p><p>　　Visual Foxpro6.0系統(tǒng)可以用多種方式快速創(chuàng)建應(yīng)用程序，如向?qū)А㈨?xiàng)目管理器、生成器、各種設(shè)計(jì)器等靈活的工具，這些工具大大提高了開(kāi)發(fā)應(yīng)用程序的效率。</p>

21、;<p>　　1.2.4 數(shù)據(jù)庫(kù)操作簡(jiǎn)便</p><p>　　Visual Foxpro6.0系統(tǒng)中數(shù)據(jù)庫(kù)創(chuàng)建與編輯都是在可視化界面上進(jìn)行的，對(duì)用戶(hù)來(lái)說(shuō)是全透明的。如增刪表、建立索引、查詢(xún)、視圖、建立表間的關(guān)系與連接等都是全透明的。</p><p>　　1.2.5 可與其他應(yīng)用程序交互操作</p><p>　　Visual Foxpro6.0通過(guò)數(shù)

22、據(jù)的導(dǎo)入/導(dǎo)出功能，可以方便地與微軟其他應(yīng)用系統(tǒng)共享數(shù)據(jù)。</p><p>　　1.2.6 獨(dú)特的開(kāi)發(fā)客戶(hù)/服務(wù)器解決方案</p><p>　　Visual Foxpro6.0系統(tǒng)通過(guò)ODBC可以方便地直接訪問(wèn)、存儲(chǔ)、檢索和處理服務(wù)器平臺(tái)上的信息，提供了客戶(hù)/服務(wù)器解決方案。</p><p>　　1.2.7 可以升級(jí)早期版本</p><p&g

23、t;　　Visual Foxpro6.0系統(tǒng)對(duì)FoxPro生成的應(yīng)用程序向下兼容。</p><p>　　1.2.8 有很好的幫助系統(tǒng)</p><p>　　Visual Foxpro6.0提供了強(qiáng)大的幫助功能，在Microsoft Visual Studio 6.0套裝系統(tǒng)軟件中有兩張MSDN(Microsoft Developer Network)Library光盤(pán)提供了VB、VF、VC

24、++、VJ++等的幫助系統(tǒng)，只要用戶(hù)將其安裝，就可以使用幫助。</p><p>　　1.3 Visual Foxpro6.0對(duì)系統(tǒng)軟硬件環(huán)境要求</p><p>　　1.3.1 硬件環(huán)境</p><p>　　安裝Visual FoxPro 必須具備以下的硬件系統(tǒng)：一臺(tái)486、586（或更高檔）處理器的PC兼容機(jī)，計(jì)算機(jī)中有8MB以上的內(nèi)存并帶有鼠標(biāo)。推薦使用VG

25、A或具有更高分辨率的監(jiān)視器。</p><p>　　Visual FoxPro 的便攜式安裝需要15MB硬盤(pán)空間，典型安裝需要100MB硬盤(pán)空間，最大安裝需要240MB的硬盤(pán)空間。</p><p>　　1.3.2 軟件環(huán)境</p><p>　　中文版Visual FoxPro6.0可以在Windows9x/2000和Windows NT 4.0版本以上（推薦使用Se

26、rvice Pack3）操作系統(tǒng)環(huán)境中使用。 </p><p>　　1.4 Visual Foxpro6.0技術(shù)指標(biāo)</p><p>　　Visual Foxpro6.0系統(tǒng)的技術(shù)指標(biāo)如下：</p><p>　　1.4.1 表和索引文件</p><p>　　單個(gè)表文件最大記錄數(shù) 1億個(gè)</p>

27、<p>　　表文件的最大長(zhǎng)度 2GB</p><p>　　每個(gè)記錄最多字符個(gè)數(shù) 65500個(gè)</p><p>　　每個(gè)記錄最多字段數(shù) 255個(gè)</p><p>　　數(shù)值字段最多字符個(gè)數(shù) 20個(gè)</p&

28、gt;<p>　　字符字段最多字符個(gè)數(shù) 254個(gè)</p><p>　　日期字段字符個(gè)數(shù) 8個(gè)</p><p>　　邏輯字段字符個(gè)數(shù) 1個(gè)</p><p>　　每表可打開(kāi)的最大索引文件數(shù) 不限</p>

29、<p>　　工作區(qū)可找開(kāi)的最大索引文件數(shù) 不限</p><p>　　關(guān)系最大數(shù) 不限</p><p>　　關(guān)系表達(dá)式值最大長(zhǎng)度 不限</p><p>　　1.4.2 內(nèi)存變量和數(shù)組</p><p>　　內(nèi)存變量默認(rèn)數(shù)

30、 1024個(gè)</p><p>　　最大內(nèi)存變量數(shù) 65000個(gè)</p><p>　　最大數(shù)組數(shù) 65000個(gè)</p><p>　　每個(gè)數(shù)組元素最大數(shù) 65000個(gè)</p><

31、p>　　1.4.3 程序和過(guò)程文件</p><p>　　源程序文件中最大行數(shù) 不限</p><p>　　編譯程序模塊的最大長(zhǎng)度 65KB</p><p>　　每一文件最大過(guò)程數(shù) 不限</p><p>　　DO命令最多嵌套層數(shù)

32、 126</p><p>　　READ嵌套最大數(shù) 5</p><p>　　嵌套結(jié)構(gòu)化命令最大層數(shù) 384</p><p>　　嵌套參數(shù)最大數(shù) 27</p><p><b>　　1.4.

33、4 報(bào)表</b></p><p>　　報(bào)表表頭最多字符數(shù) 254個(gè)</p><p>　　報(bào)表定義中對(duì)象最大數(shù) 不限</p><p>　　報(bào)表定義最大長(zhǎng)度 20層</p><p>　　最大分組層數(shù)

34、 128</p><p><b>　　1.4.5 其他</b></p><p>　　打開(kāi)窗口的最大數(shù) 不限</p><p>　　打開(kāi)Browse窗口最大數(shù) 255個(gè)</p><p>　　字符串的最大字符數(shù)

35、 2GB</p><p>　　每個(gè)命令行的最大字符數(shù) 8192個(gè)</p><p>　　報(bào)表中每個(gè)標(biāo)簽控件的最大字符數(shù) 252個(gè)</p><p>　　每個(gè)宏替換行的最大字符數(shù) 8192個(gè)</p><p>　　可打開(kāi)文件最大數(shù)

36、 受操作系統(tǒng)的限制</p><p>　　可以由SQL SELECT語(yǔ)句選擇的最大字段數(shù) 255個(gè)</p><p>　　1.5 Visual FoxPro的幫助系統(tǒng)</p><p>　　Visual FoxPro可以通過(guò)“幫助”|“Microsoft Visual FoxPro 的幫助主題”|“目錄”|“搜索”|“索引”命令等獲得

37、幫助。當(dāng)然前提是先要安裝Microsoft Studio6.0包中的MSDN Library兩張光盤(pán)，如圖1.1所示就是單擊“幫助”|“Microsoft Visual FoxPro幫助主題”命令后彈出的MSDN的界面。 </p><p><b>　　圖1.1</b></p><p>　　從圖中可見(jiàn)，用戶(hù)可以用不同的方式來(lái)使用幫助功能，如“目錄”方式、“索引”方式、“

38、搜索”方式與“書(shū)簽”方式。MSDN就是一部很好的工具書(shū)，用戶(hù)可以通過(guò)它學(xué)習(xí)一些書(shū)本中學(xué)不到的知識(shí)。</p><p>　　2 應(yīng)用程序總體設(shè)計(jì)</p><p>　　2.1 系統(tǒng)需求分析</p><p>　　數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的最終目的就是為用戶(hù)提供一個(gè)滿足長(zhǎng)期需要的軟件產(chǎn)品。因此，成功地開(kāi)發(fā)一個(gè)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的關(guān)鍵之一是要詳細(xì)地了解用戶(hù)的需求，然后再?lài)@用戶(hù)的需求進(jìn)行

39、開(kāi)發(fā)。</p><p>　　2.1.1 用戶(hù)要求：</p><p>　　① 對(duì)職工基本及其工資情況進(jìn)行系統(tǒng)管理；</p><p>　?、?能夠隨時(shí)添加、刪除、修改職工基本信息；</p><p>　?、?能夠隨時(shí)通過(guò)各種方式查詢(xún)職工工資發(fā)放情況；</p><p>　　④ 對(duì)職工借款和扣款進(jìn)行相應(yīng)處理；</p>

40、;<p>　?、?能按各種要求打印出職工工資發(fā)放表。</p><p>　　2.1.2 系統(tǒng)性能要求：</p><p>　　① 準(zhǔn)確可靠、功能齊全；</p><p>　?、?操作直觀、方便、用戶(hù)界面友好；</p><p>　?、?占用系統(tǒng)資源容量少，運(yùn)行穩(wěn)定；</p><p>　　④ 便于擴(kuò)充及維護(hù)。&l

41、t;/p><p><b>　　2.2 設(shè)計(jì)目標(biāo)</b></p><p>　　本次設(shè)計(jì)的主要目標(biāo)是通過(guò)利用當(dāng)今最流行可視化編程工具Visual Foxpro6.0設(shè)計(jì)一應(yīng)用程序。利用VF的數(shù)據(jù)庫(kù)編程，編寫(xiě)程序來(lái)實(shí)現(xiàn)用戶(hù)對(duì)工資數(shù)據(jù)的錄入、修改、檢索等操作。讓用戶(hù)方便地掌握職工的基本信息與職工出勤及扣款情況，利用編程來(lái)實(shí)現(xiàn)信息的輸入、編輯（刪、插、改）、檢索及數(shù)據(jù)備份等功能，

42、繼而完成對(duì)工資信息數(shù)據(jù)庫(kù)的必要操作。</p><p>　　2.3 數(shù)據(jù)庫(kù)設(shè)計(jì)</p><p>　　數(shù)據(jù)庫(kù)設(shè)計(jì)在數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)中是一項(xiàng)非常重要的工作，一個(gè)數(shù)據(jù)庫(kù)性能的好壞將直接影響數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的性能。</p><p>　　2.3.1 數(shù)據(jù)需求分析</p><p>　　在工資管理系統(tǒng)中，首先應(yīng)必須對(duì)每個(gè)職工的基本信息如姓名、性別、所在部門(mén)、

43、職稱(chēng)、職務(wù)、參加工作日期、上崗日期等進(jìn)行記錄并存入數(shù)據(jù)庫(kù)，以方便進(jìn)行查詢(xún)。其次同理應(yīng)當(dāng)對(duì)職工的相關(guān)資料進(jìn)行記錄并存入數(shù)據(jù)庫(kù)，以利于管理員了解職工的情況。另外，對(duì)職工出勤情況、職工借款及扣款明細(xì)等也必須進(jìn)行記錄。最后，為識(shí)別用戶(hù)身份（管理員）應(yīng)專(zhuān)門(mén)設(shè)計(jì)一個(gè)口令表，以便賦于用戶(hù)使用權(quán)。</p><p>　　2.3.2 各數(shù)據(jù)表的結(jié)構(gòu)</p><p>　　根據(jù)以上的數(shù)據(jù)需求分析，建立以下幾個(gè)數(shù)

44、據(jù)表分別為：ryb.dbf（職工信息表）、bmb.dbf（部門(mén)表）、zcb.dbf（職稱(chēng)表）、gxb.dbf（崗序表）、zwb.dbf（職務(wù)表）、kkb.dbf（扣款表）、cqb.dbf（出勤表）、mmb.dbf（用戶(hù)登錄表）各表的具體結(jié)構(gòu)如下：</p><p>　　① 所用數(shù)據(jù)表的結(jié)構(gòu)</p><p>　　1.ryb.dbf 唯一索引：bh,普通索引：bmdm</p&g

45、t;<p><b>　　表2.1</b></p><p>　　2. bmb.dbf 唯一索引：bmdm</p><p><b>　　表2.2</b></p><p>　　3. zcb.dbf </p><p><b>　　表2.3</b>&

46、lt;/p><p>　　4. gxb.dbf </p><p><b>　　表2.4</b></p><p>　　5. zwb.dbf </p><p><b>　　表2.5</b></p><p>　　6.kkb.dbf 唯一索引：bh<

47、;/p><p><b>　　表2.6</b></p><p>　　7.cqb.dbf 唯一索引：bh</p><p><b>　　表2.7</b></p><p>　　8. mmb.dbf</p><p><b>　　表2.8</b></p

48、><p><b>　　② 相關(guān)表間的關(guān)聯(lián)</b></p><p>　　根據(jù)系統(tǒng)數(shù)據(jù)數(shù)據(jù)處理的需要,相關(guān)表之間進(jìn)行了關(guān)聯(lián),關(guān)聯(lián)情況如圖2.1所示。圖中用矩形框表示表,需要關(guān)聯(lián)的兩個(gè)表用線段連接,連線上方標(biāo)出了關(guān)聯(lián)關(guān)鍵字。</p><p>　　表間關(guān)聯(lián)的設(shè)計(jì)(圖2.1)</p><p><b>　　③ 需用到的公式&l

49、t;/b></p><p>　　本系統(tǒng)用到以下幾個(gè)計(jì)算式:</p><p>　　式(2.1) 職工工資=職工日工資×職工月出勤天數(shù)+職工日工資×職工月病假天數(shù)×80%;</p><p>　　式(2.2) 職工崗位工資=職工工資×40%;</p><p>　　式(2.3) 職工效益工資=職工工資&#

50、215;40%;</p><p>　　式(2.4) 職工職能工資=職工工資×20%;</p><p>　　式(2.5) 應(yīng)付工資=職工崗位工資+職工效益工資+職工職能工資;</p><p>　　式(2.6) 扣款=職工借款-水電費(fèi)-衛(wèi)生費(fèi)-存車(chē)費(fèi);</p><p>　　式(2.7) 實(shí)付工資=應(yīng)付工資-扣款。</p>

51、<p>　　2.4 系統(tǒng)模塊劃分及各模塊包含的表單</p><p>　　登錄模塊中主要設(shè)置系統(tǒng)管理員級(jí)別的用戶(hù)。系統(tǒng)管理員登錄成功后可以進(jìn)行所有功能模塊的操作。其用戶(hù)登錄后的模塊功能如下：</p><p>　　2.4.1 數(shù)據(jù)錄入模塊 </p><p>　　此模塊實(shí)現(xiàn)對(duì)職工的基本信息，職工的出勤情況及職工的借款和扣款情況進(jìn)行登記。分別用三個(gè)表單實(shí)現(xiàn)對(duì)

52、職工信息、職工出勤、職工借(扣)款的錄入等功能。操作對(duì)象分別為ryb.dbf（職工信息表）、cqb.dbf（出勤表）和kkb.dbf（扣款表）。包含的表單分別為：rydj.scx、kqdj.scx、kkdj.scx。</p><p>　　2.4.2 工資計(jì)算模塊 </p><p>　　此模塊實(shí)現(xiàn)對(duì)所有職工的工資進(jìn)行按月計(jì)算,對(duì)某部門(mén)的全部職工按月計(jì)算工資,按月計(jì)算單個(gè)職工工資。分別用三

53、個(gè)表單實(shí)現(xiàn)上述功能。包含的表單分別為：jsqbgz.scx、jsdwgz.scx、jsdrgz.scx。</p><p>　　2.4.3 工資查詢(xún)模塊 </p><p>　　此模塊實(shí)現(xiàn)按部門(mén)查詢(xún)職工工資和按姓名查詢(xún)職工工資。分別用兩個(gè)表單實(shí)現(xiàn)上述功能。包含的表單分別為：abmcz.scx、axmcz.scx。</p><p>　　2.4.4 工資打印模塊 &

54、lt;/p><p>　　此模塊實(shí)現(xiàn)按部門(mén)打印職工工資發(fā)放表和按姓名打印職工工資條。分別用兩個(gè)表單調(diào)用相關(guān)報(bào)表實(shí)現(xiàn)上述功能。包含的表單和報(bào)表分別為：abmdy.scx、dydwgz.frx和axmdy.scx、dygrgz.frx。</p><p>　　2.4.5 系統(tǒng)設(shè)置模塊 </p><p>　　此模塊實(shí)現(xiàn)系統(tǒng)管理員設(shè)置和密碼修改兩項(xiàng)功能。分別用兩個(gè)表單實(shí)現(xiàn),操作

55、對(duì)象為mmb.dbf（用戶(hù)登錄表）。包含的表單分別為：glysz.scx、xgmm.scx。</p><p>　　2.4.6 退出系統(tǒng)模塊 </p><p>　　此模塊實(shí)現(xiàn)系統(tǒng)的退出功能,用clear events命令來(lái)實(shí)現(xiàn)。</p><p>　　2.5 系統(tǒng)數(shù)據(jù)流程圖</p><p>　　2.5.1 系統(tǒng)總體結(jié)構(gòu)模塊劃分圖</

56、p><p><b>　　(見(jiàn)圖2.2)</b></p><p>　　2.5.2 系統(tǒng)總體運(yùn)行流程圖</p><p><b>　　(見(jiàn)圖2.3)</b></p><p>　　2.5.3 重要模塊運(yùn)行流程圖</p><p>　?、?人員錄入模塊流程圖</p>&l

57、t;p><b>　　(見(jiàn)圖2.4)</b></p><p>　?、?按職工姓名計(jì)算工資模塊流程圖</p><p><b>　　(見(jiàn)圖2.5)</b></p><p>　　總體結(jié)構(gòu)圖(圖2.2)</p><p><b>　　圖2.3</b></p><

58、p><b>　　圖2.4</b></p><p>　　圖2.4所示為“人員錄入”模塊中的增加功能運(yùn)行流程,其它功能流程與此相同不再另畫(huà)。</p><p>　　2.6 系統(tǒng)總開(kāi)發(fā)環(huán)境設(shè)置</p><p>　?、?在F：\建立“畢業(yè)設(shè)計(jì)”文件夾，在VFP6.0中設(shè)置默認(rèn)目錄為F：\畢業(yè)設(shè)計(jì),并設(shè)置表單最大設(shè)計(jì)區(qū)為640×480。&

59、lt;/p><p>　　② 在畢業(yè)設(shè)計(jì)文件夾下新建立PIC文件夾，以便用來(lái)保存在表單設(shè)計(jì)中用到的圖片。</p><p>　　③ 以2.3.2中各數(shù)據(jù)表結(jié)構(gòu)為準(zhǔn)建立數(shù)據(jù)表。</p><p><b>　　圖2.5</b></p><p><b>　　3 模塊的實(shí)現(xiàn)</b></p><p

60、>　　3.1 各功能表單的編制</p><p>　　3.1.1 啟動(dòng)畫(huà)面及系統(tǒng)登錄</p><p>　?、?cshjm.scx(系統(tǒng)啟動(dòng)界面表單) </p><p><b>　　1)、表單界面</b></p><p>　　運(yùn)行程序后,將顯示如下初始化界面:(見(jiàn)圖3.1)</p><p>

61、　　2)、主要控件及事件代碼:</p><p>　　label2(單擊鼠標(biāo)左鍵進(jìn)入系統(tǒng))的click事件:</p><p>　　thisform.release</p><p>　　do form xtdl</p><p>　　執(zhí)行l(wèi)abel2(單擊鼠標(biāo)左鍵進(jìn)入系統(tǒng))按鈕的click事件后,將調(diào)用xtdl.scx表單顯示如下結(jié)果: (見(jiàn)圖3.

62、2)</p><p>　　② xtdl.scx(系統(tǒng)登錄表單)</p><p>　　1)、主要控件及事件代碼:</p><p>　　command1(確定)按鈕的click事件:</p><p>　　dlyhm=thisform.text1.value</p><p><b>　　sele 1</b&g

63、t;</p><p><b>　　use mmb</b></p><p><b>　　go top</b></p><p>　　loca for alltrim(yhm)=alltrim(dlyhm)</p><p>　　if mmb.mm==alltrim(thisform.text2.value

64、)</p><p>　　thisform.visible=.f.</p><p>　　do gzglcd.mpr</p><p>　　read event</p><p><b>　　quit</b></p><p><b>　　else</b></p><

65、;p>　　messagebox("密碼錯(cuò),禁止進(jìn)入系統(tǒng)!") </p><p>　　thisform.command2.click</p><p><b>　　endif</b></p><p>　　command2(退出)按鈕的click事件:</p><p>　　thisform.rele

66、ase</p><p>　　如果密碼輸入正確,則調(diào)用gzglcd.mpr菜單程序進(jìn)入系統(tǒng)執(zhí)行下列功能;否則就退出系統(tǒng)。</p><p><b>　　圖3.1</b></p><p><b>　　圖3.2</b></p><p>　　3.1.2 人員錄入</p><p>　　

67、rydj.scx(職工基本信息登記表單)</p><p>　?、?表單界面及包含的控件：(見(jiàn)圖3.3)</p><p>　　控件：Form1、Label1、Label2、Label3、Label4、Label5、Label6、Label7、Label8、Label9、Label10、Label11、Lblxm、Lblxb、Lblbm、Lblzw、Lblzc、Lblgx、Lblcjgzrq

68、、Lblsgrq、Lblgwgz、Text1、Text2、Text3、Text4、Text5、Text6、Text7、Text8、Text9、Text10、Combo1、Combo2、Combo3、Combo4、line1、line2、commandgroup1、check1、check2</p><p>　?、?幾個(gè)控件的重要屬性：</p><p>　　1)、form1屬性 wi

69、ndowstate:0-普通</p><p>　　2)、Combo1屬性 RowSource:bmb.bmmc, RowSourcetype:6-字段</p><p>　　Combo2屬性 RowSource:zcb.zcmc, RowSourcetype:6-字段</p><p>　　Combo3屬性 RowSource:zwb.zwmc, RowSo

70、urcetype:6-字段</p><p>　　Combo4屬性 RowSource:gxb.gxmc, RowSourcetype:6-字段</p><p><b>　　圖3.3</b></p><p>　　③ 主要的事件代碼：</p><p>　　Text6的lostfocus事件:</p>&l

71、t;p>　　&&為text1賦值,當(dāng)參加工作日期輸入完畢,則自動(dòng)計(jì)算工齡并填入text1文本框。</p><p>　　thisform.text1.value=ltrim(str(year(date())-val(thisform.text4.value)+1))</p><p>　　Text9的lostfocus事件:</p><p>　　&

72、amp;&為text2賦值,當(dāng)上崗日期輸入完畢,則自動(dòng)計(jì)算崗齡并填入text2文本框。</p><p>　　thisform.text2.value=ltrim(str(year(date())-val(thisform.text7.value)+1))</p><p>　　combo4的lostfocus事件:</p><p>　　&&為t

73、ext10賦值,當(dāng)崗序輸入完畢,則自動(dòng)計(jì)算崗位工資并填入text10文本框。</p><p><b>　　sele gxb</b></p><p><b>　　go top</b></p><p>　　gl=val(thisform.text1.value)</p><p><b>　　d

74、o case</b></p><p>　　case gl>=1 and gl<5</p><p><b>　　glgz=1*gl</b></p><p>　　case gl>=5 and gl<10</p><p><b>　　glgz=2*gl</b></

75、p><p>　　case gl>=10 </p><p><b>　　glgz=3*gl</b></p><p><b>　　endc</b></p><p>　　zggx=thisform.combo4.value</p><p>　　loca for gxmc=zggx

76、</p><p>　　zggwgz=glgz+gxb.gxgz</p><p>　　thisform.text10.value=ltrim(str(zggwgz))</p><p>　　commandgroup1的click事件:</p><p><b>　　sele ryb</b></p><p&g

77、t;<b>　　do case</b></p><p>　　case this.value=1 &&下頁(yè)</p><p>　　thisform.check1.value=0</p><p>　　thisform.check2.value=0</p><p>　　if recn()<recc()<

78、;/p><p><b>　　skip</b></p><p>　　set strictdate to 0 &&使用通常的日期格式 </p><p>　　thisform.text1.value=ltrim(str(year(date())-year(ryb.cjgzrq)+1)) &&計(jì)算工齡 </p>

79、<p>　　thisform.text2.value=ltrim(str(year(date())-year(ryb.sgrq)+1)) &&計(jì)算崗齡</p><p>　　thisform.text3.value=ryb.xm &&填寫(xiě)姓名</p><p>　　thisform.text4.value=ltrim(str(year(ryb.cj

80、gzrq)))&&填寫(xiě)參加工作年份</p><p>　　thisform.text5.value=ltrim(str(month(ryb.cjgzrq)))&&填寫(xiě)參加工作月份</p><p>　　thisform.text6.value=ltrim(str(day(ryb.cjgzrq)))&&填寫(xiě)參加工作日</p><

81、p>　　thisform.text7.value=ltrim(str(year(ryb.sgrq)))&&填寫(xiě)上崗年份</p><p>　　thisform.text8.value=ltrim(str(month(ryb.sgrq)))&&填寫(xiě)上崗月份</p><p>　　thisform.text9.value=ltrim(str(day(ryb.s

82、grq)))&&填寫(xiě)上崗日</p><p>　　thisform.text10.value=ltrim(str(ryb.gwgz))&&填寫(xiě)崗位工資</p><p>　　sele bmb&&打開(kāi)部門(mén)表</p><p><b>　　go top</b></p><p>　　s

83、zbmbm=ryb.bmdm</p><p>　　loca for bmdm=szbmbm</p><p>　　thisform.combo1.value=bmb.bmmc&&填寫(xiě)所在部門(mén)名稱(chēng)</p><p>　　sele zwb&&打開(kāi)職務(wù)表</p><p><b>　　go top</b&g

84、t;</p><p>　　zgzwbm=ryb.zwdm</p><p>　　loca for zwdm=zgzwbm</p><p>　　thisform.combo3.value=zwb.zwmc&&填寫(xiě)所擔(dān)任職務(wù)名稱(chēng)</p><p>　　sele zcb&&打開(kāi)職稱(chēng)表</p><p&g

85、t;<b>　　go top</b></p><p>　　zgzcbm=ryb.zcdm</p><p>　　loca for zcdm=zgzcbm</p><p>　　thisform.combo2.value=zcb.zcmc&&填寫(xiě)所取得職稱(chēng)名稱(chēng)</p><p>　　sele gxb&&a

86、mp;打開(kāi)崗序表</p><p><b>　　go top</b></p><p>　　gl=val(thisform.text1.value)</p><p><b>　　do case</b></p><p>　　case gl>=1 and gl<5</p><

87、p>　　zggxgz=ryb.gwgz-1*gl</p><p>　　case gl>=5 and gl<10</p><p>　　zggxgz=ryb.gwgz-2*gl</p><p>　　case gl>=10 </p><p>　　zggxgz=ryb.gwgz-3*gl</p><p>

88、;<b>　　endc </b></p><p>　　loca for gxgz=zggxgz</p><p>　　thisform.combo4.value=gxb.gxmc&&填寫(xiě)崗序名稱(chēng)</p><p>　　if ryb.xb='男'</p><p>　　thisform.check

89、1.value=1 </p><p><b>　　else </b></p><p>　　thisform.check2.value=1 </p><p>　　endif &&計(jì)算性別</p><p><b>　　endi</b></p><p>　　cas

90、e this.value=2 &&上頁(yè)</p><p>　　thisform.check1.value=0</p><p>　　thisform.check2.value=0</p><p>　　if recn()>1</p><p><b>　　skip -1</b></p><

91、;p>　　set strictdate to 0 &&使用通常的日期格式 </p><p>　　thisform.text1.value=ltrim(str(year(date())-year(ryb.cjgzrq)+1)) &&計(jì)算工齡 </p><p>　　thisform.text2.value=ltrim(str(year(date())-ye

92、ar(ryb.sgrq)+1)) &&計(jì)算崗齡</p><p>　　thisform.text3.value=ryb.xm &&填寫(xiě)姓名</p><p>　　thisform.text4.value=ltrim(str(year(ryb.cjgzrq)))&&填寫(xiě)參加工作年份</p><p>　　thisform.t

93、ext5.value=ltrim(str(month(ryb.cjgzrq)))&&填寫(xiě)參加工作月份</p><p>　　thisform.text6.value=ltrim(str(day(ryb.cjgzrq)))&&填寫(xiě)參加工作日</p><p>　　thisform.text7.value=ltrim(str(year(ryb.sgrq)))&

94、;&填寫(xiě)上崗年份</p><p>　　thisform.text8.value=ltrim(str(month(ryb.sgrq)))&&填寫(xiě)上崗月份</p><p>　　thisform.text9.value=ltrim(str(day(ryb.sgrq)))&&填寫(xiě)上崗日</p><p>　　thisform.text1

95、0.value=ltrim(str(ryb.gwgz))&&填寫(xiě)崗位工資</p><p>　　sele bmb&&打開(kāi)部門(mén)表</p><p><b>　　go top</b></p><p>　　szbmbm=ryb.bmdm</p><p>　　loca for bmdm=szbmbm&

96、lt;/p><p>　　thisform.combo1.value=bmb.bmmc&&填寫(xiě)所在部門(mén)名稱(chēng)</p><p>　　sele zwb&&打開(kāi)職務(wù)表</p><p><b>　　go top</b></p><p>　　zgzwbm=ryb.zwdm</p><p&

97、gt;　　loca for zwdm=zgzwbm</p><p>　　thisform.combo3.value=zwb.zwmc&&填寫(xiě)所擔(dān)任職務(wù)名稱(chēng)</p><p>　　sele zcb&&打開(kāi)職稱(chēng)表</p><p><b>　　go top</b></p><p>　　zgzcbm

98、=ryb.zcdm</p><p>　　loca for zcdm=zgzcbm</p><p>　　thisform.combo2.value=zcb.zcmc&&填寫(xiě)所取得職稱(chēng)名稱(chēng)</p><p>　　sele gxb&&打開(kāi)崗序表</p><p><b>　　go top</b>&l

99、t;/p><p>　　gl=val(thisform.text1.value)</p><p><b>　　do case</b></p><p>　　case gl>=1 and gl<5</p><p>　　zggxgz=ryb.gwgz-1*gl</p><p>　　case gl&

100、gt;=5 and gl<10</p><p>　　zggxgz=ryb.gwgz-2*gl</p><p>　　case gl>=10 </p><p>　　zggxgz=ryb.gwgz-3*gl</p><p><b>　　endc </b></p><p>　　loca for

101、 gxgz=zggxgz</p><p>　　thisform.combo4.value=gxb.gxmc&&填寫(xiě)崗序名稱(chēng)</p><p>　　if ryb.xb='男'</p><p>　　thisform.check1.value=1 </p><p><b>　　else </b>&

102、lt;/p><p>　　thisform.check2.value=1 </p><p>　　endif &&計(jì)算性別</p><p><b>　　endi</b></p><p>　　case this.value=3 &&首頁(yè)</p><p>　　thisform

103、.check1.value=0</p><p>　　thisform.check2.value=0</p><p><b>　　go top</b></p><p>　　set strictdate to 0 &&使用通常的日期格式 </p><p>　　thisform.text1.value=ltri

104、m(str(year(date())-year(ryb.cjgzrq)+1)) &&計(jì)算工齡 </p><p>　　thisform.text2.value=ltrim(str(year(date())-year(ryb.sgrq)+1)) &&計(jì)算崗齡</p><p>　　thisform.text3.value=ryb.xm &&填寫(xiě)姓

105、名</p><p>　　thisform.text4.value=ltrim(str(year(ryb.cjgzrq)))&&填寫(xiě)參加工作年份</p><p>　　thisform.text5.value=ltrim(str(month(ryb.cjgzrq)))&&填寫(xiě)參加工作月份</p><p>　　thisform.text6.

106、value=ltrim(str(day(ryb.cjgzrq)))&&填寫(xiě)參加工作日</p><p>　　thisform.text7.value=ltrim(str(year(ryb.sgrq)))&&填寫(xiě)上崗年份</p><p>　　thisform.text8.value=ltrim(str(month(ryb.sgrq)))&&填寫(xiě)上

107、崗月份</p><p>　　thisform.text9.value=ltrim(str(day(ryb.sgrq)))&&填寫(xiě)上崗日</p><p>　　thisform.text10.value=ltrim(str(ryb.gwgz))&&填寫(xiě)崗位工資</p><p>　　sele bmb&&打開(kāi)部門(mén)表</p

108、><p><b>　　go top</b></p><p>　　szbmbm=ryb.bmdm</p><p>　　loca for bmdm=szbmbm</p><p>　　thisform.combo1.value=bmb.bmmc&&填寫(xiě)所在部門(mén)名稱(chēng)</p><p>　　sel

109、e zwb&&打開(kāi)職務(wù)表</p><p><b>　　go top</b></p><p>　　zgzwbm=ryb.zwdm</p><p>　　loca for zwdm=zgzwbm</p><p>　　thisform.combo3.value=zwb.zwmc&&填寫(xiě)所擔(dān)任職務(wù)名

110、稱(chēng)</p><p>　　sele zcb&&打開(kāi)職稱(chēng)表</p><p><b>　　go top</b></p><p>　　zgzcbm=ryb.zcdm</p><p>　　loca for zcdm=zgzcbm</p><p>　　thisform.combo2.value

111、=zcb.zcmc&&填寫(xiě)所取得職稱(chēng)名稱(chēng)</p><p>　　sele gxb&&打開(kāi)崗序表</p><p><b>　　go top</b></p><p>　　gl=val(thisform.text1.value)</p><p><b>　　do case</b&g

112、t;</p><p>　　case gl>=1 and gl<5</p><p>　　zggxgz=ryb.gwgz-1*gl</p><p>　　case gl>=5 and gl<10</p><p>　　zggxgz=ryb.gwgz-2*gl</p><p>　　case gl>=

113、10 </p><p>　　zggxgz=ryb.gwgz-3*gl</p><p><b>　　endc </b></p><p>　　loca for gxgz=zggxgz</p><p>　　thisform.combo4.value=gxb.gxmc&&填寫(xiě)崗序名稱(chēng)</p><

114、;p>　　if ryb.xb='男'</p><p>　　thisform.check1.value=1 </p><p><b>　　else </b></p><p>　　thisform.check2.value=1 </p><p>　　endif &&計(jì)算性別</p

115、><p>　　case this.value=4 &&末頁(yè)</p><p>　　thisform.check1.value=0</p><p>　　thisform.check2.value=0</p><p><b>　　go bott</b></p><p>　　set stric

116、tdate to 0 &&使用通常的日期格式 </p><p>　　thisform.text1.value=ltrim(str(year(date())-year(ryb.cjgzrq)+1)) &&計(jì)算工齡 </p><p>　　thisform.text2.value=ltrim(str(year(date())-year(ryb.sgrq)+1))

117、 &&計(jì)算崗齡</p><p>　　thisform.text3.value=ryb.xm &&填寫(xiě)姓名</p><p>　　thisform.text4.value=ltrim(str(year(ryb.cjgzrq)))&&填寫(xiě)參加工作年份</p><p>　　thisform.text5.value=ltrim(

118、str(month(ryb.cjgzrq)))&&填寫(xiě)參加工作月份</p><p>　　thisform.text6.value=ltrim(str(day(ryb.cjgzrq)))&&填寫(xiě)參加工作日</p><p>　　thisform.text7.value=ltrim(str(year(ryb.sgrq)))&&填寫(xiě)上崗年份</

119、p><p>　　thisform.text8.value=ltrim(str(month(ryb.sgrq)))&&填寫(xiě)上崗月份</p><p>　　thisform.text9.value=ltrim(str(day(ryb.sgrq)))&&填寫(xiě)上崗日</p><p>　　thisform.text10.value=ltrim(str

120、(ryb.gwgz))&&填寫(xiě)崗位工資</p><p>　　sele bmb&&打開(kāi)部門(mén)表</p><p><b>　　go top</b></p><p>　　szbmbm=ryb.bmdm</p><p>　　loca for bmdm=szbmbm</p><p&

121、gt;　　thisform.combo1.value=bmb.bmmc&&填寫(xiě)所在部門(mén)名稱(chēng)</p><p>　　sele zwb&&打開(kāi)職務(wù)表</p><p><b>　　go top</b></p><p>　　zgzwbm=ryb.zwdm</p><p>　　loca for zwd

122、m=zgzwbm</p><p>　　thisform.combo3.value=zwb.zwmc&&填寫(xiě)所擔(dān)任職務(wù)名稱(chēng)</p><p>　　sele zcb&&打開(kāi)職稱(chēng)表</p><p><b>　　go top</b></p><p>　　zgzcbm=ryb.zcdm</p&g

123、t;<p>　　loca for zcdm=zgzcbm</p><p>　　thisform.combo2.value=zcb.zcmc&&填寫(xiě)所取得職稱(chēng)名稱(chēng)</p><p>　　sele gxb&&打開(kāi)崗序表</p><p><b>　　go top</b></p><p&g

124、t;　　gl=val(thisform.text1.value)</p><p><b>　　do case</b></p><p>　　case gl>=1 and gl<5</p><p>　　zggxgz=ryb.gwgz-1*gl</p><p>　　case gl>=5 and gl<1

125、0</p><p>　　zggxgz=ryb.gwgz-2*gl</p><p>　　case gl>=10 </p><p>　　zggxgz=ryb.gwgz-3*gl</p><p><b>　　endc </b></p><p>　　loca for gxgz=zggxgz</

126、p><p>　　thisform.combo4.value=gxb.gxmc&&填寫(xiě)崗序名稱(chēng)</p><p>　　if ryb.xb='男'</p><p>　　thisform.check1.value=1 </p><p><b>　　else </b></p><p&

127、gt;　　thisform.check2.value=1 </p><p>　　endif &&計(jì)算性別</p><p>　　case this.value=5 &&尋頁(yè)</p><p>　　do form axmdwcx</p><p>　　case this.value=6 &&增頁(yè)<

128、;/p><p>　　zy=messagebox('是要增頁(yè)嗎?',1+48+256,'確認(rèn)增加新職工')</p><p>　　&& 對(duì)話框含確定和取消按鈕,驚嘆號(hào)圖標(biāo);第2個(gè)按鈕(取消按鈕)是默認(rèn)按鈕 </p><p>　　if zy=1 &&確定按鈕</p><p>　　go bo

129、tt &&為得到當(dāng)前最大編號(hào)</p><p>　　zgbh=str(val(ryb.bh)+1,4)&&為bh字段設(shè)置賦值變量zgbh</p><p>　　zgxm=thisform.text3.value&&為xm字段設(shè)置賦值變量zgxm</p><p>　　if thisform.check1.value=1 &l