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

1 畢業(yè)論文 論文題 目： 工資管理系統(tǒng) 專 業(yè) ： 小學(xué)信息技術(shù)教育 班 級(jí)： 09大專計(jì)信 班 學(xué)生姓名： 指導(dǎo)教師： 二 一一 年 十 月 十三 日 2 目 錄 摘 要 3 引 言 4 1 、 系統(tǒng)設(shè)計(jì)使用的工具、環(huán)境簡(jiǎn)介 5 1.1 VFP 的簡(jiǎn)介 5 1.2 VFP 的基本功能 5 1.3 VFP 的特點(diǎn) 5 2 、 系統(tǒng)分析 6 2.1 設(shè)計(jì)目標(biāo)和任務(wù) 6 2.2 可行性分析 6 2.3 需求分析 7 3 、 學(xué)校 工資管理系統(tǒng)功能模塊圖 7 4 、 主要功能模塊設(shè)計(jì) 8 4.1 項(xiàng)目的建立 8 4.2 用戶登陸 8 4.3 系統(tǒng)主菜單設(shè)計(jì) 9 4.4 系統(tǒng)主控表單設(shè)計(jì) 10 4.5 工資錄入表單設(shè)計(jì) 11 4.6 工資瀏覽表單設(shè)計(jì) 12 4.7 工資修改表單設(shè)計(jì) 12 4.8 工資統(tǒng)計(jì)表單設(shè)計(jì) 18 4.9 工資查找表單設(shè)計(jì) 19 4.10 工資初始化表單設(shè)計(jì) 20 4.11 工資備份表單設(shè)計(jì) 21 4.12 記錄打印表單設(shè)計(jì) 22 4.13 系統(tǒng)幫助表單設(shè)計(jì) 23 4.14 相關(guān)報(bào)表 23 5 、主程序的設(shè)計(jì) 24 6 、 程序的連編 25 7 、系統(tǒng)運(yùn)行的效果 25 附錄 A 數(shù)據(jù)庫(kù)相關(guān)數(shù)據(jù)表 26 參考文獻(xiàn) 27 致謝 28 3 學(xué)校 工資管理系統(tǒng) 【摘 要】 學(xué)校 的工資管理是 學(xué)校 管理的一個(gè)重要內(nèi)容。隨著 教職員工 數(shù)量增加，學(xué)校 的工資管理工作也變得越來(lái)越復(fù)雜。工資管理既涉及到 學(xué)校 勞動(dòng)人事的管理，同時(shí)也是 學(xué)校 財(cái)務(wù)管理的重要組成部分。工資管理 需要和人事管理相聯(lián)系，同時(shí)連接工時(shí)考勤和醫(yī)療保險(xiǎn)等等，來(lái)生成 學(xué)校 每個(gè)職工的基本工資、 補(bǔ)貼 、醫(yī)療保險(xiǎn)、保險(xiǎn)費(fèi)、實(shí)際發(fā)放工資等。早期的工資統(tǒng)計(jì)和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費(fèi)財(cái)務(wù)人員大量的時(shí)間且不易 保存，往往由于個(gè)人的因素抄寫(xiě)不慎或計(jì)算疏忽，出現(xiàn)工資發(fā)放錯(cuò)誤的現(xiàn)象。早期工資管理 都 采取紙質(zhì)材料和具有 較強(qiáng)的時(shí)間限制。基于以上原因， 學(xué)校 工資管理系統(tǒng)使用 電腦 安全保存、 快速計(jì)算、全面統(tǒng)計(jì)，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化。本 學(xué)校 工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力 ，最終滿足 學(xué)校 財(cái)務(wù)管理、員工工資發(fā)放的需要，同時(shí)也成為現(xiàn)代化 學(xué)校 管理的標(biāo)志 。 【關(guān)鍵詞】 工資管理 財(cái)務(wù)管理 系統(tǒng)化 規(guī)范化 自動(dòng) 4 引 言 隨著社會(huì)的進(jìn)步和計(jì)算機(jī)技術(shù)的發(fā)展，特別是微型計(jì)算機(jī)的大范圍普及，計(jì)算機(jī)的應(yīng)用逐漸由科學(xué)計(jì)算 、實(shí)時(shí)控制等方面向非數(shù)值處理的各個(gè)領(lǐng)域中滲透。尤其是以微型計(jì)算機(jī)為處理核心，以數(shù)據(jù)庫(kù)管理系統(tǒng)為開(kāi)發(fā)環(huán)境的管理系統(tǒng)在辦公室自動(dòng)化以及商業(yè)信息管理等方面的應(yīng)用，日益受到人們的關(guān)注。 當(dāng)今時(shí)代是飛速發(fā)展的信息時(shí)代。在各行各業(yè)中離不開(kāi)信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。 隨著社會(huì)信息量的迅速增長(zhǎng)，計(jì)算機(jī)處理的數(shù)據(jù)量不斷增加。文件管理系統(tǒng)采用的一次最多存取一個(gè)記錄的訪問(wèn)方式，以及在不同文 件之間缺乏相互聯(lián)系的結(jié)構(gòu)，越來(lái)越不能適應(yīng)管理大量數(shù)據(jù)的需要，于是數(shù)據(jù)庫(kù)管理系統(tǒng)便應(yīng)運(yùn)而生。數(shù)據(jù)庫(kù)管理系統(tǒng)是用來(lái)控制建立數(shù)據(jù)庫(kù)中的數(shù)據(jù)、數(shù)據(jù)的存取，并維護(hù)數(shù)據(jù)庫(kù)的數(shù)據(jù)。從文件管理到數(shù)據(jù)庫(kù)管理，代表了兩代不同的數(shù)據(jù)管理技術(shù)。今天，數(shù)據(jù)庫(kù)管理已成為計(jì)算機(jī)信息管理的主要方式。數(shù)據(jù)庫(kù)的應(yīng)用非常廣泛，可應(yīng)用于各行各業(yè)。尤其目前電腦發(fā)展神速，運(yùn)用廣泛，甚至每個(gè)公司、每戶都有電腦，只要是稍復(fù)雜的數(shù)據(jù)，都可制作成數(shù)據(jù)庫(kù)，交由電腦來(lái)管理。用電腦管理數(shù)據(jù)，可免除人為的疏忽，并且運(yùn)算速度快，可靠性提高。 學(xué)校 工資管理是一項(xiàng)瑣碎、復(fù) 雜而又十分細(xì)致的工作，一般不允許發(fā)生差錯(cuò)。最初的工資統(tǒng)計(jì)和發(fā)放都是使用人工方式處理，工作量大的時(shí)候，出現(xiàn)錯(cuò)誤的機(jī)率也隨之升高，不僅花費(fèi)財(cái)務(wù)人員大量的時(shí)間，而且往往由于抄寫(xiě)不慎，或者由于計(jì)算的疏忽，出現(xiàn)工資發(fā)放錯(cuò)誤的現(xiàn)象。同時(shí)工資的發(fā)放具有較強(qiáng)的時(shí)間限制，必須嚴(yán)格按照單位規(guī)定的時(shí)間完成計(jì)算和發(fā)放工作。久而久之，這種人工處理方式無(wú)論是在效率，還是正確性方面都達(dá)不到 需求。經(jīng)常性的出錯(cuò)已經(jīng)給學(xué)校帶來(lái)了諸多的不便。正是學(xué)校 工資管理的這種重復(fù)性、規(guī)律性、時(shí) 間性，使得學(xué)校工資管理計(jì)算機(jī)化成為可能。學(xué)校工資管理系統(tǒng)就是使用 電腦代替大量的人工統(tǒng)計(jì)和計(jì)算，完成眾多學(xué)校 工資信息的處理，同時(shí)使用電腦還可以安全地、完整地保 5 存大量的學(xué)校 工資記錄。 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ù)軟件。利用 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)直接查看和管理表中的數(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ū)?，用戶在操作時(shí)，只需按照向?qū)峁┑牟襟E執(zhí)行，使用起來(lái)非常方便。 1） 易于使用 2） 可視化開(kāi)發(fā) 3） 事件驅(qū)動(dòng) 4） 面向?qū)ο缶幊?5） 應(yīng)用向?qū)Ш蜕善?6） 組件庫(kù) 7） VFP基礎(chǔ)類 6 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) 學(xué)校 工資管理系統(tǒng)使用 電腦 安全保存、 快速計(jì)算、全面統(tǒng)計(jì)，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化。本 學(xué)校 工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿足 學(xué)校 財(cái)務(wù)管理、員工工資發(fā)放的需要，同時(shí)也成為現(xiàn)代化學(xué)校 管理的標(biāo)志 通過(guò)此系統(tǒng)，實(shí)現(xiàn)工資管理的完全信息化和數(shù)字化。 2.1.2 任務(wù) 為了加快學(xué)校 自動(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ì)學(xué)校 工資管理系統(tǒng)進(jìn)行可行性分析： 技術(shù)可行性、經(jīng)濟(jì)可行性、操作可行性。 技術(shù)可行性 為了確定現(xiàn)有技術(shù)能否實(shí)現(xiàn)目標(biāo)系統(tǒng)。 VFP 6.0 自帶的工具和控件， 完全可以實(shí)現(xiàn)本系統(tǒng)要求達(dá)到的各種功能。 經(jīng)濟(jì)可行性 為了確定待開(kāi)發(fā)的系統(tǒng)的經(jīng)濟(jì)效益能否超過(guò)開(kāi)發(fā)成本。學(xué)校 工資管理系統(tǒng)是一個(gè)不會(huì)直接產(chǎn)生經(jīng)濟(jì)效益的投資，但是能夠節(jié)省人員資源的消耗和浪費(fèi)，從而節(jié)約成本，提高效率。從成本效益角 度來(lái)觀察，這個(gè)系統(tǒng)的開(kāi)發(fā)成本不是很高，在使用后，能夠起到的作用也是十分可觀的。 操作可行性 學(xué)校 工資管理系統(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ù)處理具有 7 不可比擬的優(yōu)點(diǎn)和簡(jiǎn)單方便。所以叢操作可行性方面是可行的。開(kāi)發(fā)出來(lái)的界面也是十分容易使用，具有簡(jiǎn)單，容易上手的特點(diǎn)。 所以從上面三 點(diǎn)出發(fā)，可以確定系統(tǒng)分析是可行的 。 2.3 需求分析 2.3.1 總體需求 1.建立對(duì)學(xué)校教職 員工工資全面管理的信息系統(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)行打印。 3 、 學(xué)校 工資管理系統(tǒng)功能模塊圖 圖 3-1學(xué)校 工資管理系統(tǒng)功能模塊圖 登錄窗口 系統(tǒng)主窗口 工資記錄瀏覽 工資記錄統(tǒng)計(jì) 工資記錄查詢 工資記錄修改 工資記錄錄入 退出系統(tǒng) 工資記錄管理理gj理理 編輯菜單 記錄打印 退出系統(tǒng) 8 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)用程序的安全，通常要設(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用戶登陸 表單的設(shè)計(jì) 表單 form的屬性 9 Autocenter 改為： .T.-真（運(yùn)行時(shí)居中 ） BorderStyle 改為： 2-固定對(duì)話框（禁止更改表單大小） Showtips 改為： .T. 真（指定表單上的控件等是否顯示提示信息） ShowWindow 改為 ： 2-作為頂層表單 在表單的 Form_Load 事件下添加如下代碼： PUBLIC USERNAME(2) USERNAME(1)=超級(jí)用戶 USERNAME(2)=普通用戶 登陸系統(tǒng) Command1_Click事件代碼： STORE TO MYUSER,P1,P2,P3 MYUSER=THISFORM.COMBO1.VALUE P1=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,提 示信息 ) ENDIF ELSE IF P1=P2 THISFORM.RELEASE do form gzgl ELSE =MESSAGEBOX(普通用戶密碼錯(cuò)誤 ,請(qǐng)?jiān)僭囈槐?!,65,提示信息 ) ENDIF ENDIF 4.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)代碼： 10 byebye=messagebox(真的要退出系統(tǒng)嗎 ?,64+1,提示信息 ) if byebye=1 close all clear events quit endif 要注意的是，要在設(shè)計(jì)菜單結(jié)束后，選擇主菜單上的“顯示”菜單下的“常規(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=2 Windowstate=2 Showtips=.t. 11Form 表單中的 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表單的屬性如下： Autocenter=.t. Showwindow=1 相應(yīng)事件代碼設(shè)置： Txt應(yīng)發(fā)工資的 Click 和 gotfocus的代碼如下： with this.parent this.value=.TXT 職務(wù)工資 .value+.TXT 綜合補(bǔ)貼 .value+.TXT出勤補(bǔ) .value+.TXT交通補(bǔ) .value+.TXT外租房補(bǔ) .value+.TXT補(bǔ)發(fā)工資 .value endwith Txt合計(jì)扣款的 Click 和 gotfocus的代碼如下： with this.parent this.value=.TXT 養(yǎng)老保險(xiǎn) .value+.TXT 公積金 .value endwith Txt實(shí)發(fā)工資的 Click 和 gotfocus的代碼如下： 12 with this.parent this.value=.TXT 應(yīng)發(fā)工資 .value-.TXT合計(jì)扣款 .value endwith txt 所得稅、 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)行修改 13 圖 4-7-1對(duì)滿足條件的記錄修改 第二個(gè)頁(yè)面：將已查找的記錄 顯示 在屏幕上，進(jìn)行修改，即單個(gè)記錄的修改 圖 4-7-2 對(duì)已找到的記錄進(jìn)行修改 第三個(gè)頁(yè)面：批量修改已滿足條件的記錄，也可以修改某一字段的內(nèi)容。 14 圖 4-7-3批量修改 第四個(gè)頁(yè)面：瀏覽式修改記錄，在列表框中選擇一個(gè)記錄，在屏幕上顯示選定記錄的內(nèi)容，可以修改記錄。 圖 4-7-4瀏覽式修改 text1_Interactivechange 事件代碼： set exact off GETzgh1=ALLTRIM(thisform.pageframe1.page1.TEXT1.VALUE) 15 GETxm1=ALLTRIM(thisform.pageframe1.page1.TEXT2.VALUE) GETrq1=thisform.pageframe1.page1.TEXT3.VALUE s= if len(getzgh1)0 s=s+職工號(hào) =GETZGH1 endif if len(getxm1)0 s=s+.and.+姓名 =GETXM1 endif if GETRQ10 s=s+職工號(hào) =GETZGH1 endif 16 if len(getxm1)0 s=s+.and.+姓名 =GETXM1 endif if GETRQ1800 *如果工資高于 800，則有所得稅，費(fèi)為 5% .TXT所得稅 .VALUE=(this.parent.TXT 實(shí)發(fā)工資 .value-800)*0.05 endif endwith 確認(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 公積金 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 所得稅 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.REFRESH ENDIF 18 4.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 off set filter to COUNT TO XYZ SUM TO A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13 THISFORM.TXT職務(wù)工資 .VALUE=A1 THISFORM.TXT綜合補(bǔ)貼 .VALUE=A2 THISFORM.TXT出勤補(bǔ) .VALUE=A3 THISFORM.TXT交通補(bǔ) .VALUE=A4 THISFORM.TXT外租 房補(bǔ) .VALUE=A5 THISFORM.TXT補(bǔ)發(fā)工資 .VALUE=A6 THISFORM.TXT應(yīng)發(fā)工資 .VALUE=A7 THISFORM.TXT養(yǎng)老保險(xiǎn) .VALUE=A8 THISFORM.TXT公積金 .VALUE=A9 THISFORM.TXT合計(jì)扣款 .VALUE=A10 THISFORM.TXT實(shí)發(fā)工資 .VALUE=A11 THISFORM.TXT所得稅 .VALUE=A12 THISFORM.TXT實(shí)發(fā)現(xiàn)金 .VALUE=A13 19 THISFORM.TEXT1.VALUE=XYZ *THISFORM.REFRESH 4.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.setfocus 20 thisform.refresh 返回上一頁(yè) command1_Click 事件代碼： thisform.pageframe1.page1.setfocus thisform.pageframe1.page1.refresh Text1, 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=1 if file(temptemp.vfp) delete file temptemp.vfp endif copy to temptemp.vfp replace all 日期 with date () 21 thisform.refresh endif 4.11 工資備份表單設(shè)計(jì) 本模塊是對(duì)本月的工資記錄進(jìn)行備份， 該表單包括的內(nèi)容如下： 圖 4-11 數(shù)據(jù)庫(kù)備份 備份 command1_Click 事件代碼： ff=alltrim(thisform.text1.value) copy to &ff 4.12 記錄打印表單設(shè)計(jì) 本表單用來(lái)實(shí)現(xiàn)對(duì)記錄的打印，共有兩種打印模式：打印工資表和打印工資條。運(yùn)行結(jié)果如圖 4-12 所示。 22 圖 4-12 記錄打印 表單 form1的 init 事件代碼為： PARAMETERS TJ PUBLIC TIAOJIAN TIAOJIAN =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.frx envi prev else report form gzb.frx envi prev 23 endif case thisform.optiongroup1.value=3 if thisform.optiongroup2.value=1 report form gzt.frx envi prev else report form gzb.frx envi prev endif 4.13 系統(tǒng)幫助表單設(shè)計(jì) 該表單包括的內(nèi)容如下 圖 4-13 系統(tǒng)幫助 4.14 相關(guān)報(bào)表 工資表 24 圖 4-14-1 工資條 圖 4-14-2工資條 5 主程序的設(shè)計(jì) A在“項(xiàng)目管理器”窗口中，單擊“代碼”選項(xiàng)卡，選擇“程序”，并單擊“新建”按鈕 ，即可創(chuàng)建程序文件。 工資主程序的代碼內(nèi)容如下： close all clear all clear screen =setpath() do form fm 25 read events on shutdown do OnShutDown() function setpath() local lcsys16,lcprogram lcsys16=sys(16) lcprogram=substr(lcsys16,at(:,lcsys16)-1) cd left(lcprogram,rat(,lcprogram) set path to gzgl endfunc FUNCTION OnShutDow