畢業(yè)設(shè)計(jì)（論文）企業(yè)工資管理系統(tǒng)

1、浙江長(zhǎng)征職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文）論文題目： 企業(yè)工資管理系統(tǒng) 系 別： 信息系 專業(yè)班級(jí)： 學(xué)生姓名： 指導(dǎo)教師： 二 九 年 五 月 十七 日 目 錄摘 要 1引 言21 系統(tǒng)設(shè)計(jì)使用的工具、環(huán)境簡(jiǎn)介21.1 vfp的簡(jiǎn)介21.2 vfp的基本功能21.3 vfp的特點(diǎn)32 系統(tǒng)分析32.1 設(shè)計(jì)目標(biāo)和任務(wù)32.2 可行性分析32.3 需求分析43 企業(yè)工資管理系統(tǒng)功能模塊圖54 主要功能模塊設(shè)計(jì)54.1 項(xiàng)目的建立54.2 用戶登陸64.3 系統(tǒng)主菜單設(shè)計(jì)74.4 系統(tǒng)主控表單設(shè)計(jì)84.5 工資錄入表單設(shè)計(jì)84.6 工資瀏覽表單設(shè)計(jì)94.7 工資修改表單設(shè)計(jì)104.8 工資統(tǒng)計(jì)表單設(shè)計(jì)

2、144.9 工資查找表單設(shè)計(jì)154.10 工資初始化表單設(shè)計(jì)164.11 工資備份表單設(shè)計(jì)174.12 記錄打印表單設(shè)計(jì)174.13 系統(tǒng)幫助表單設(shè)計(jì)184.14 相關(guān)報(bào)表195 主程序的設(shè)計(jì)196 程序的連編207 系統(tǒng)運(yùn)行的效果20附錄a 數(shù)據(jù)庫(kù)相關(guān)數(shù)據(jù)表21參考文獻(xiàn)22致謝23 浙江長(zhǎng)征職業(yè)技術(shù)學(xué)院畢業(yè)論文企業(yè)工資管理系統(tǒng)【摘 要】企業(yè)的工資管理是公司管理的一個(gè)重要內(nèi)容。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來(lái)越復(fù)雜。工資管理既涉及到企業(yè)勞動(dòng)人事的管理，同時(shí)也是企業(yè)財(cái)務(wù)管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時(shí)連接工時(shí)考勤和醫(yī)療保險(xiǎn)等等，來(lái)生成企業(yè)每個(gè)職工的基本工資

3、、補(bǔ)貼、醫(yī)療保險(xiǎn)、保險(xiǎn)費(fèi)、實(shí)際發(fā)放工資等。資金是企業(yè)生存的主要元素，資金的流動(dòng)影響到企業(yè)的整體運(yùn)作，企業(yè)員工的工資是企業(yè)資金管理的一個(gè)重要的組成部分。早期的工資統(tǒng)計(jì)和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費(fèi)財(cái)務(wù)人員大量的時(shí)間且不易保存，往往由于個(gè)人的因素抄寫(xiě)不慎或計(jì)算疏忽，出現(xiàn)工資發(fā)放錯(cuò)誤的現(xiàn)象。早期工資管理都采取紙質(zhì)材料和具有較強(qiáng)的時(shí)間限制?；谝陨显?，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計(jì)算、全面統(tǒng)計(jì)，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化。本企業(yè)工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿足企業(yè)財(cái)務(wù)管理、員工工資發(fā)放的需要，同時(shí)也成為現(xiàn)代化企業(yè)管理的標(biāo)志?！娟P(guān)鍵詞】工資管

4、理 財(cái)務(wù)管理 系統(tǒng)化 規(guī)范化 自動(dòng)化引 言當(dāng)今社會(huì)，資金是企業(yè)生存的主要元素，資金的流動(dòng)影響到企業(yè)的整體運(yùn)作，企業(yè)員工的工資是企業(yè)資金管理的一個(gè)重要的組成部分，因?yàn)槠髽I(yè)每個(gè)月都要涉及發(fā)放企業(yè)員工工資的問(wèn)題。而隨著企業(yè)人員數(shù)量的增加，企業(yè)的工資管理也變得越來(lái)越復(fù)雜。企業(yè)員工的人數(shù)越多，工資的統(tǒng)計(jì)工作就越多，工資的發(fā)放困難就越大。如果能夠?qū)崿F(xiàn)工資管理的自動(dòng)化，無(wú)疑將給企業(yè)管理部門(mén)帶來(lái)很大的方便。傳統(tǒng)的紙質(zhì)材料的數(shù)據(jù)信息管理方式已經(jīng)不適合現(xiàn)代企業(yè)公司的發(fā)展了，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化，將成為現(xiàn)代公司管理工資的首選。隨著計(jì)算機(jī)的誕生和普及以及計(jì)算機(jī)網(wǎng)絡(luò)的發(fā)展，我們就可以開(kāi)發(fā)一個(gè)工資管理系統(tǒng)

5、，用電腦代替大量的人工統(tǒng)計(jì)和計(jì)算，完成許多工資信息的處理，同時(shí)，使用電腦還可以安全地、完整地保存大量的工作記錄。1 系統(tǒng)設(shè)計(jì)使用的工具、環(huán)境簡(jiǎn)介系統(tǒng)設(shè)計(jì)使用的工具主要有visual foxpro 6.0 ， 現(xiàn)簡(jiǎn)介如下。1.1 vfp的簡(jiǎn)介visual foxpro 6.0 是由美國(guó)microsoft 公司于1998年推出的新一代數(shù)據(jù)庫(kù)軟件系統(tǒng)。visual foxpro 數(shù)據(jù)庫(kù)是一個(gè)關(guān)系型數(shù)據(jù)庫(kù)，主要用于windows環(huán)境。由于visual foxpro 需要很少編程就可以建立一個(gè)面向?qū)ο蟮臄?shù)據(jù)庫(kù)應(yīng)用程序，所以在眾多的數(shù)據(jù)庫(kù)軟件中，visual foxpro 拖穎而出，成為一種通用的數(shù)據(jù)庫(kù)軟

6、件。利用visual foxpro 可以設(shè)計(jì)出豐富多彩的用戶界面，在用戶界面中可以放置各種控制部件，如命令按鈕，圖形，圖片，圖表等，從而設(shè)計(jì)出完全圖形化的界面，方便用戶操作和使用。1.2 vfp的基本功能1) 可以為每一種類型的信息創(chuàng)建一個(gè)表，利用表存儲(chǔ)相應(yīng)的信息。2) 可以定義各個(gè)表之間的關(guān)系，從而很容易地將各個(gè)表中相關(guān)的數(shù)據(jù)有機(jī)地聯(lián)系在一起。3) 可以創(chuàng)建查詢搜索那些滿足指定條件的記錄，也可以根據(jù)需要對(duì)這些記錄排序和分組，并根據(jù)查詢結(jié)果創(chuàng)建報(bào)表、表及圖表。4) 使用視圖，可以從一個(gè)或多個(gè)相關(guān)聯(lián)的表中，按一定條件抽取一系列數(shù)據(jù)，并可以通過(guò)視圖更新這些表中的數(shù)據(jù)。5) 可以創(chuàng)建表單來(lái)直接查看和

7、管理表中的數(shù)據(jù)。6) 可以創(chuàng)建一個(gè)報(bào)表來(lái)分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來(lái)。1.3 vfp的特點(diǎn)與其他數(shù)據(jù)庫(kù)不同，vfp在實(shí)現(xiàn)上述功能時(shí)提供了各種向?qū)В脩粼诓僮鲿r(shí)，只需按照向?qū)峁┑牟襟E執(zhí)行，使用起來(lái)非常方便。1） 易于使用2） 可視化開(kāi)發(fā)3） 事件驅(qū)動(dòng)4） 面向?qū)ο缶幊?） 應(yīng)用向?qū)Ш蜕善?） 組件庫(kù)7） vfp基礎(chǔ)類8） 活動(dòng)文檔9） 對(duì)動(dòng)態(tài)圖形文件的支持10） 程序語(yǔ)言的增強(qiáng)11） 支持ole拖放12） 新增和改進(jìn)的生成器和編譯器2 系統(tǒng)分析2.1 設(shè)計(jì)目標(biāo)和任務(wù)2.1.1 目標(biāo) 企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計(jì)算、全面統(tǒng)計(jì)，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化。本企業(yè)工

8、資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿足企業(yè)財(cái)務(wù)管理、員工工資發(fā)放的需要，同時(shí)也成為現(xiàn)代化企業(yè)管理的標(biāo)志通過(guò)此系統(tǒng)，實(shí)現(xiàn)工資管理的完全信息化和數(shù)字化。2.1.2 任務(wù)為了加快企業(yè)自動(dòng)化的步伐，建立工資管理系統(tǒng)，盡可能地減少工資管理的復(fù)雜性和低效性。運(yùn)用數(shù)據(jù)庫(kù)、vfp等相關(guān)知識(shí)來(lái)編寫(xiě)系統(tǒng)，系統(tǒng)的開(kāi)發(fā)包括系統(tǒng)分析、需求設(shè)計(jì)、各功能模塊的開(kāi)發(fā)及代碼設(shè)計(jì)。系統(tǒng)應(yīng)具備基本的信息輸入、修改、查詢、統(tǒng)計(jì)及結(jié)果的輸出。2.2 可行性分析 以下從四個(gè)方面對(duì)企業(yè)工資管理系統(tǒng)進(jìn)行可行性分析：技術(shù)可行性、經(jīng)濟(jì)可行性、操作可行性和法律可行性。 技術(shù)可行性 為了確定現(xiàn)有技術(shù)能否實(shí)現(xiàn)目標(biāo)系統(tǒng)。vfp 6.0

9、 自帶的工具和控件，完全可以實(shí)現(xiàn)本系統(tǒng)要求達(dá)到的各種功能。 經(jīng)濟(jì)可行性為了確定待開(kāi)發(fā)的系統(tǒng)的經(jīng)濟(jì)效益能否超過(guò)開(kāi)發(fā)成本。企業(yè)工資管理系統(tǒng)是一個(gè)不會(huì)直接產(chǎn)生經(jīng)濟(jì)效益的投資，但是能夠節(jié)省人員資源的消耗和浪費(fèi)，從而節(jié)約成本，提高效率。從成本效益角度來(lái)觀察，這個(gè)系統(tǒng)的開(kāi)發(fā)成本不是很高，在使用后，能夠起到的作用也是十分可觀的。 操作可行性 企業(yè)工資管理系統(tǒng)是基于vfp 6.0平臺(tái)開(kāi)發(fā)的，vfp系列是被廣泛應(yīng)用于數(shù)據(jù)庫(kù)開(kāi)發(fā)和操作的一套成熟的軟件平臺(tái)，而且它對(duì)于一個(gè)小型的數(shù)據(jù)庫(kù)處理具有不可比擬的優(yōu)點(diǎn)和簡(jiǎn)單方便。所以叢操作可行性方面是可行的。開(kāi)發(fā)出來(lái)的界面也是十分容易使用，具有簡(jiǎn)單，容易上手的特點(diǎn)。 法律可行性

10、本系統(tǒng)完全是本人在指導(dǎo)老師的指導(dǎo)下獨(dú)立完成的，故不存在侵權(quán)行為或者由于本系統(tǒng)帶來(lái)的法律糾紛等問(wèn)題，所以在法律上是可行的。所以從上面四點(diǎn)出發(fā)，可以確定系統(tǒng)分析是可行的。2.3 需求分析2.3.1 總體需求1.建立對(duì)企業(yè)員工工資全面管理的信息系統(tǒng)；2.對(duì)所有的職工提供全面管理;3.對(duì)系統(tǒng)的安全提供全面管理；4.對(duì)職工信息的添加、刪除提供全面管理；2.3.2 功能需求（1） 對(duì)工資記錄進(jìn)行錄入。（2） 對(duì)工資信息進(jìn)行查找。（3） 對(duì)多個(gè)工資記錄進(jìn)行瀏覽。（4） 對(duì)記錄進(jìn)行滿足各種實(shí)際需要的修改。（5） 對(duì)各項(xiàng)工資的總和和總的人數(shù)進(jìn)行統(tǒng)計(jì)。（6） 對(duì)記錄進(jìn)行打印。2.3.3 性能需求（1） 硬件配置中

11、央處理器：硬盤(pán) 10g內(nèi)存 16m顯卡 svga光驅(qū) cd-rom（2） 軟件環(huán)境操作系統(tǒng) windows2000/windowsxp/windows me3 企業(yè)工資管理系統(tǒng)功能模塊圖登錄窗口系統(tǒng)主窗口工資記錄瀏覽工資記錄統(tǒng)計(jì)工資記錄查詢工資記錄修改工資記錄錄入退出系統(tǒng)工資記錄管理數(shù)據(jù)初始化數(shù)據(jù)備份記錄打印系統(tǒng)幫助退出系統(tǒng)圖3-1企業(yè)工資管理系統(tǒng)功能模塊圖4 主要功能模塊設(shè)計(jì)4.1 項(xiàng)目的建立a在硬盤(pán)上建一個(gè)目錄b啟動(dòng)vfp系統(tǒng)，在“項(xiàng)目管理器”窗口中建立一個(gè)項(xiàng)目，項(xiàng)目的名稱為“工資管理系統(tǒng)”，保存到新建的目錄中，如圖4-1所示。圖4-1項(xiàng)目的建立4.2 用戶登陸為了保證應(yīng)用程序的安全，通常

12、要設(shè)計(jì)系統(tǒng)登錄表單驗(yàn)證用戶是否合法。只有合法的用戶才可進(jìn)入系統(tǒng)。本模塊是系統(tǒng)的封面表單，運(yùn)行時(shí)將通過(guò)此表單調(diào)用主控模塊，進(jìn)而管理整個(gè)工資管理系統(tǒng)。系統(tǒng)登錄模塊運(yùn)行結(jié)果。如圖4-2所示。圖4-2用戶登陸23 表單的設(shè)計(jì)表單form的屬性autocenter 改為：.t.-真（運(yùn)行時(shí)居中） borderstyle 改為：2-固定對(duì)話框（禁止更改表單大?。﹕howtips 改為：.t. 真（指定表單上的控件等是否顯示提示信息）showwindow 改為 ：2-作為頂層表單在表單的 form_load 事件下添加如下代碼：public username(2)username(1)=超級(jí)用戶userna

13、me(2)=普通用戶登陸系統(tǒng)command1_click事件代碼：store to myuser,p1,p2,p3myuser=thisform.combo1.valuep1=alltrim(thisform.text1.value)p2=left(alltrim(time(),2)+substr(alltrim(time(),4,2)p3=alltrim(str(year(date()if myuser=username(1) if p1=p3 thisform.release do form gzgl else =messagebox(超級(jí)用戶密碼錯(cuò)誤,請(qǐng)?jiān)僭囈槐?,65,提示信息) en

14、difelse if p1=p2 thisform.release do form gzgl else =messagebox(普通用戶密碼錯(cuò)誤,請(qǐng)?jiān)僭囈槐?,65,提示信息) endifendif4.3 系統(tǒng)主菜單設(shè)計(jì)a 在“項(xiàng)目管理器”窗口中，選擇“其他”選項(xiàng)卡b 在“其他”選項(xiàng)卡中，選擇“菜單”，“新建”，“菜單”，系統(tǒng)進(jìn)入“菜單設(shè)計(jì)器”窗口，如圖4-3所示。圖4-3系統(tǒng)菜單設(shè)計(jì)器退出過(guò)程相應(yīng)代碼：byebye=messagebox(真的要退出系統(tǒng)嗎?,64+1,提示信息)if byebye=1 close all clear events quit endif要注意的是，要在設(shè)計(jì)菜單結(jié)

15、束后，選擇主菜單上的“顯示”菜單下的“常規(guī)選項(xiàng)”命令，再選擇頂層表單復(fù)選框。然后保存文件，再選擇生成菜單選項(xiàng)。4.4 系統(tǒng)主控表單設(shè)計(jì)主控表單用來(lái)調(diào)用系統(tǒng)菜單，以形成對(duì)整個(gè)工資管理系統(tǒng)的控制與管理。運(yùn)行結(jié)果。如圖4-4所示。圖4-4系統(tǒng)主控表單本表單form的屬性需做相應(yīng)設(shè)置：show window=2windowstate=2showtips=.t.form 表單中的load事件代碼為do xtcd.mpr with this ,.t.4.5 工資錄入表單設(shè)計(jì)工資錄入模塊是用來(lái)錄入工資記錄的，在具體操作時(shí)有些數(shù)據(jù)需要自動(dòng)生成。運(yùn)行結(jié)果，如圖4-5所示。圖4-5工資錄入表form1表單的屬性如

16、下：autocenter=.t.showwindow=1相應(yīng)事件代碼設(shè)置：txt應(yīng)發(fā)工資的 click 和gotfocus的代碼如下：with this.parentthis.value=.txt職務(wù)工資.value+.txt綜合補(bǔ)貼.value+.txt出勤補(bǔ).value+.txt交通補(bǔ).value+.txt外租房補(bǔ).value+.txt補(bǔ)發(fā)工資.valueendwithtxt合計(jì)扣款的 click 和gotfocus的代碼如下：with this.parentthis.value=.txt養(yǎng)老保險(xiǎn).value+.txt公積金.valueendwithtxt實(shí)發(fā)工資的 click 和gotf

17、ocus的代碼如下：with this.parent this.value=.txt應(yīng)發(fā)工資.value-.txt合計(jì)扣款.value endwithtxt 所得稅、txt實(shí)發(fā)現(xiàn)金的代碼與其類似略去。各個(gè)按鈕的功能比較簡(jiǎn)單，在此略去。4.6 工資瀏覽表單設(shè)計(jì)本表單用來(lái)對(duì)多個(gè)記錄進(jìn)行瀏覽，運(yùn)行結(jié)果，如圖4-6所示。圖4-6工資瀏覽此表單功能較簡(jiǎn)單，其中所用控件代碼，在此省略。4.7 工資修改表單設(shè)計(jì)此表單由頁(yè)框控件組成，該頁(yè)框由四個(gè)頁(yè)面組成。第一個(gè)頁(yè)面：對(duì)查找滿足條件的記錄進(jìn)行修改圖4-7-1對(duì)滿足條件的記錄修改第二個(gè)頁(yè)面：將已查找的記錄顯示在屏幕上，進(jìn)行修改，即單個(gè)記錄的修改圖4-7-2對(duì)已找

18、到的記錄進(jìn)行修改第三個(gè)頁(yè)面：批量修改已滿足條件的記錄，也可以修改某一字段的內(nèi)容。圖4-7-3批量修改第四個(gè)頁(yè)面：瀏覽式修改記錄，在列表框中選擇一個(gè)記錄，在屏幕上顯示選定記錄的內(nèi)容，可以修改記錄。圖4-7-4瀏覽式修改text1_interactivechange事件代碼：set exact offgetzgh1=alltrim(thisform.pageframe1.page1.text1.value)getxm1=alltrim(thisform.pageframe1.page1.text2.value)getrq1=thisform.pageframe1.page1.text3.value

19、s=if len(getzgh1)0 s=s+職工號(hào)=getzgh1endifif len(getxm1)0 s=s+.and.+姓名=getxm1endifif getrq1/ s=s+.and.+dtoc(日期)=dtoc(getrq1)endifif left(s,5)=.and.or.left(s,5)=.and. s=subst(s,6)endifif len(alltrim(s)=0 set filter to else set filter to &s endifgo topthisform.pageframe1.page2.caption=姓名+的詳細(xì)內(nèi)容thisform.pa

20、geframe1.page1.refreshthisform.pageframe1.page2.refreshtext2, text3,text4,的interactivechange事件代碼也類似，在此省略。查找記錄command1_click事件代碼：if not empty(thisform.pageframe1.page1.text4.value) n=val(alltrim(thisform.pageframe1.page1.text4.value) go n thisform.pageframe1.page2.setfocus thisform.pageframe1.page2.c

21、aption=姓名+ 的記錄內(nèi)容 thisform.refreshelse set exact offgetzgh1=alltrim(thisform.pageframe1.page1.text1.value)getxm1=alltrim(thisform.pageframe1.page1.text2.value)getrq1=thisform.pageframe1.page1.text3.values=if len(getzgh1)0 s=s+職工號(hào)=getzgh1endifif len(getxm1)0 s=s+.and.+姓名=getxm1endifif getrq1/ s=s+.and

22、.+dtoc(日期)=dtoc(getrq1)endifif left(s,5)=.and.or.left(s,5)=.and. s=subst(s,6)endifif len(alltrim(s)=0 set filter to else set filter to &s endifgo topendifthisform.pageframe1.page2.caption=姓名+的詳細(xì)內(nèi)容thisform.pageframe1.page1.refreshthisform.pageframe1.page2.refresh刪除記錄command2_click事件代碼：inotice=message

23、box(確定刪除指定的記錄嗎?,65,重要提示)if inotice=1 delete record recno() anotice=messagebox(確定物理刪除指定的記錄嗎?+chr(13)+一經(jīng)刪除,不能恢復(fù)!,65,重要提示) if anotice=1 use use gzb pack use thisform.release endif thisform.refreshendif恢復(fù)記錄command3_click事件代碼：inotice=messagebox(恢復(fù)所有邏輯刪除的記錄嗎?,65,提示信息)if inotice=1 recall allendif自動(dòng)計(jì)算click事

24、件代碼：with this.parent.txt應(yīng)發(fā)工資.value=.txt職務(wù)工資.value+.txt綜合補(bǔ)貼.value+.txt出勤補(bǔ).value+.txt交通補(bǔ).value+.txt外租房補(bǔ).value+.txt補(bǔ)發(fā)工資.value.txt合計(jì)扣款.value=.txt養(yǎng)老保險(xiǎn).value+.txt公積金.value.txt實(shí)發(fā)工資.value=.txt應(yīng)發(fā)工資.value-.txt合計(jì)扣款.value.txt實(shí)發(fā)現(xiàn)金.value=.txt實(shí)發(fā)工資.value-.txt所得稅.value if this.parent.txt實(shí)發(fā)工資.value800*如果工資高于800，則有所得稅

25、，費(fèi)為5%.txt所得稅.value=(this.parent.txt實(shí)發(fā)工資.value-800)*0.05endifendwith確認(rèn)修改click事件代碼a=messagebox(確定更改指定的項(xiàng)目嗎?,65,提示信息)if a=1 &選擇確定按鈕時(shí)執(zhí)行 replace all 職務(wù)工資 with 職務(wù)工資+this.parent.text4.value replace all 應(yīng)發(fā)工資 with 應(yīng)發(fā)工資+this.parent.text4.value replace all 實(shí)發(fā)工資 with 實(shí)發(fā)工資+this.parent.text4.value replace all 公積金

26、with 公積金+this.parent.text5.value replace all 應(yīng)發(fā)工資 with 應(yīng)發(fā)工資+this.parent.text5.value replace all 實(shí)發(fā)工資 with 實(shí)發(fā)工資+this.parent.text5.value replace all 養(yǎng)老保險(xiǎn) with 養(yǎng)老保險(xiǎn)+this.parent.text6.value replace all 應(yīng)發(fā)工資 with 應(yīng)發(fā)工資+this.parent.text6.value replace all 實(shí)發(fā)工資 with 實(shí)發(fā)工資+this.parent.text6.value replace all

27、所得稅 with iif(實(shí)發(fā)工資-8000,(實(shí)發(fā)工資-800)*0.05 ,0) replace all 實(shí)發(fā)現(xiàn)金 with 實(shí)發(fā)工資- 所得稅 this.parent.text4.value=0 this.parent.text5.value=0 this.parent.text6.value=0 thisform.refreshendif4.8 工資統(tǒng)計(jì)表單設(shè)計(jì)本表單用來(lái)統(tǒng)計(jì)各項(xiàng)工資的總和以及總的人數(shù)，運(yùn)行結(jié)果，如圖4-8所示。圖4-8數(shù)據(jù)統(tǒng)計(jì)模塊開(kāi)始計(jì)算command1_click事件代碼：set talk offset filter tocount to xyzsum to a1,

28、a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13thisform.txt職務(wù)工資.value=a1thisform.txt綜合補(bǔ)貼.value=a2thisform.txt出勤補(bǔ).value=a3thisform.txt交通補(bǔ).value=a4thisform.txt外租房補(bǔ).value=a5thisform.txt補(bǔ)發(fā)工資.value=a6thisform.txt應(yīng)發(fā)工資.value=a7thisform.txt養(yǎng)老保險(xiǎn).value=a8thisform.txt公積金.value=a9thisform.txt合計(jì)扣款.value=a10thisform.txt實(shí)

29、發(fā)工資.value=a11thisform.txt所得稅.value=a12thisform.txt實(shí)發(fā)現(xiàn)金.value=a13thisform.text1.value=xyz*thisform.refresh4.9 工資查找表單設(shè)計(jì)該模塊主要功能是實(shí)現(xiàn)對(duì)工資信息的查找工作。圖4-9-1查找滿足條件的記錄第二頁(yè)面圖4-9-2詳細(xì)內(nèi)容查看詳細(xì)內(nèi)容command1_click事件代碼：thisform.pageframe1.page2.setfocusthisform.refresh返回上一頁(yè)command1_click事件代碼：thisform.pageframe1.page1.setfocus

30、thisform.pageframe1.page1.refreshtext1, text2,text3,的interactivechange事件代碼與修改中也類似，在此省略。4.10 工資初始化表單設(shè)計(jì)本模塊是對(duì)下個(gè)月的工資記錄進(jìn)行初始化，該表單包括的內(nèi)容如下：圖4-10數(shù)據(jù)初始化初始化command1_click事件代碼：set path to a=下面要進(jìn)行初始化,將對(duì)原來(lái)的內(nèi)容進(jìn)行改變,所以一定要先進(jìn)行備份,否則原來(lái)的數(shù)據(jù)將丟失,+chr(13)+進(jìn)行備份嗎?inotice=messagebox(a,65,提示信息)if inotice=1if file(temptemp.vfp)del

31、ete file temptemp.vfpendifcopy to temptemp.vfpreplace all 日期 with date ()thisform.refreshendif4.11 工資備份表單設(shè)計(jì)本模塊是對(duì)本月的工資記錄進(jìn)行備份，該表單包括的內(nèi)容如下：圖4-11數(shù)據(jù)庫(kù)備份備份command1_click事件代碼：ff=alltrim(thisform.text1.value)copy to &ff4.12 記錄打印表單設(shè)計(jì)本表單用來(lái)實(shí)現(xiàn)對(duì)記錄的打印，共有兩種打印模式：打印工資表和打印工資條。運(yùn)行結(jié)果如圖4-12所示。圖4-12記錄打印表單form1的init事件代碼為：par

32、ameters tjpublic tiaojiantiaojian =tj打印command1_click事件代碼：xyz=recno()do case case thisform.optiongroup1.value=1 if thisform.optiongroup2.value=1 report form gzt.frx envi prev else report form gzb.frx envi prev endif case thisform.optiongroup1.value=2 if thisform.optiongroup2.value=1 report form gzt.

33、frx envi prev else report form gzb.frx envi prev endif case thisform.optiongroup1.value=3 if thisform.optiongroup2.value=1 report form gzt.frx envi prev else report form gzb.frx envi prev endif4.13 系統(tǒng)幫助表單設(shè)計(jì)該表單包括的內(nèi)容如下圖4-13系統(tǒng)幫助4.14 相關(guān)報(bào)表工資表圖4-14-1工資條圖4-14-2工資條5 主程序的設(shè)計(jì)a在“項(xiàng)目管理器”窗口中，單擊“代碼”選項(xiàng)卡，選擇“程序”，并單擊“新建”按鈕，即可創(chuàng)建程序文件。 工資主程序的代碼內(nèi)容如下：close allclear allclear screen=setpath()do form fmread eventson shutdown do onshutdown()function setpath() local lcsy