工資管理信息系統(tǒng)設(shè)計

1、畢業(yè)綜合實踐說明書（ 屆）題目學(xué)院專業(yè)班級學(xué)號學(xué)生姓名指導(dǎo)教師完成日期 隨著信息時代的發(fā)展，企業(yè)正向著大型化、規(guī)?；l(fā)展，而對于眾多企業(yè)，員工、職稱等跟工資管理 有關(guān)的信息隨之急劇增加，在這種情況下單靠人工來處理員工的工資不但容易岀錯，而且效率極低。如果 由計算機(jī)代替人工執(zhí)行一系列操作，這樣就使辦公人員可以輕松快捷地完成工資管理的任務(wù)。本論文詳細(xì)介紹了浙江云泰塑鋼制品有限公司的工資管理系統(tǒng)的整個開發(fā)過程，包括系統(tǒng)分析、系統(tǒng) 設(shè)計、系統(tǒng)實施等方面。在整個系統(tǒng)的開發(fā)過程中，綜合運用信息管理和信息系統(tǒng)開發(fā)的方法、技術(shù)，并 充分結(jié)合在工作中遇到的實際情況。本系統(tǒng)的主要功能是用計算機(jī)對各種工資信息進(jìn)行日

2、常的管理，入輸入、查詢、修改、增加、刪除以 及打印等，迅速準(zhǔn)確地完成各種工資信息的統(tǒng)計、計算和匯總工作，實現(xiàn)企業(yè)工資信息的集中管理。關(guān)鍵詞：工資管理信息系統(tǒng)設(shè)計；SQL server 2010; Delphi 7.0引言錯誤!未定義書簽。1可行性分析錯誤！未定義書簽。1.1開發(fā)環(huán)境與開發(fā)工具11.2可行性報告21.2.1 開發(fā)必要性21.2.2 技術(shù)可行性21.2.3 經(jīng)濟(jì)可行性22系統(tǒng)分析32.1 需求分析32.1.1 系統(tǒng)背景介紹 32.1.2 系統(tǒng)介紹32.2 業(yè)務(wù)流程分析 32.3數(shù)據(jù)流程分析33系統(tǒng)設(shè)計及實施63.1系統(tǒng)總體結(jié)構(gòu)設(shè)計63.2代碼設(shè)計73.3數(shù)據(jù)結(jié)構(gòu)設(shè)計83.3.1 建

3、立關(guān)系數(shù)據(jù)庫表 83.3.2 建立數(shù)據(jù)字典 93.4系統(tǒng)實現(xiàn)114設(shè)計總結(jié)20致謝21參考文獻(xiàn)21信息化是當(dāng)今世界經(jīng)濟(jì)和社會發(fā)展的大趨勢。適應(yīng)信息技術(shù)發(fā)展要求的工資 管理信息系統(tǒng)必將成為企業(yè)提高工資管理效率和水平的有力手段，也是未來企業(yè)工資管理適應(yīng)環(huán)境變化的主要發(fā)展趨勢。工資管理信息系統(tǒng)將是一個企業(yè)不可缺 少的一部分，它對于企業(yè)的決策者和管理者都至關(guān)重要。 一直以來人們使用傳統(tǒng) 的人工的方式管理文件信息，這種管理方式存在著許多缺點，如效率低，保密性 差。另外，時間一長將產(chǎn)生大量的文件和數(shù)據(jù)，對于查找、更新和維護(hù)都帶來不 少的困難。隨著科技的不斷提高，計算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們 深

4、刻認(rèn)識并已在人類社會的各個領(lǐng)域發(fā)揮著越來越重要的作用。作為計算機(jī)應(yīng)用的一部分，使用計算機(jī)對企業(yè)的工資信息進(jìn)行管理， 具有手工管理所無法比擬的 優(yōu)點。例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長和成 本低等。這些優(yōu)點能夠極大地提高企業(yè)信息管理的效率， 也是企業(yè)的科學(xué)化、正 規(guī)化管理，與世界接軌的重要條件。1可行性分析1.1開發(fā)環(huán)境與開發(fā)工具開發(fā)環(huán)境：WINDOWS XP作為當(dāng)今的主流平臺之一， WINDOW系列系統(tǒng)可以說是構(gòu)建了微軟公司的輝 煌，擁有極為廣泛的用戶，而 WINDOWS XS是作為開發(fā)人員首選的操作平臺之 一,是當(dāng)今兼容軟件最多的系統(tǒng)。作為系統(tǒng)本身，也擁有操作簡便

5、，反應(yīng)速度快， 占用內(nèi)存低，對電腦配置要求低等特點。故從各方面考慮，WINDOWS X系統(tǒng)為我們首選的開發(fā)環(huán)境。開發(fā)工具：SQL server 2010+Delphi 7.0SQL是高級的非過程話編程語言，是溝通數(shù)據(jù)庫服務(wù)器和客戶端的重要工 具，允許用戶在高層數(shù)據(jù)結(jié)構(gòu)上工作。它以記錄集合作為操作對象，所有SQL語句接受集合作為輸入，返回集合作為輸出，SQL語句可以嵌套，具有極大的靈活性和強(qiáng)大的功能，開發(fā)者用 SQL語言可以寫出非常復(fù)雜的語句。且 SQL同 樣屬于微軟公司開發(fā)設(shè)計，與本次開發(fā)所使用的 WINDOWS XP環(huán)境用更好的兼 容性。Delphi是Windows平臺下著名的快速應(yīng)用程序開

6、發(fā)工具。Delphi是一個集成 開發(fā)環(huán)境（IDE），使用的核心是由傳統(tǒng)Pascal語言發(fā)展而來的Object Pasca，以 圖形用戶界面為開發(fā)環(huán)境，透過IDE、VCL工具與編譯器，配合連結(jié)數(shù)據(jù)庫的 功能，構(gòu)成一個以面向?qū)ο蟪绦蛟O(shè)計為中心的應(yīng)用程序開發(fā)工具。1.2可行性報告1.2.1開發(fā)必要性隨著計算機(jī)技術(shù)的飛速發(fā)展，計算機(jī)在企業(yè)和大學(xué)管理中應(yīng)用的普及，利用 計算機(jī)實現(xiàn)人事工資的管理勢在必行。利用計算機(jī)支持企業(yè)高效率完成勞動人事 管理的日常事務(wù)，是適應(yīng)現(xiàn)代企業(yè)制度要求、推動企業(yè)和大學(xué)勞動人事管理走向 科學(xué)化、規(guī)范化的必要條件。工資管理是任何企業(yè)單位都需要進(jìn)行的一項工作， 因此，開發(fā)制作工資管理

7、系統(tǒng)具有較大的社會現(xiàn)實意義。而工資管理的一項瑣碎、 復(fù)雜而又十分細(xì)致的工作，工資計算、發(fā)放、核算的工作量很大，一般不允許出 錯，實行電子化的工資管理，可以讓人力資源管理人員從繁重瑣碎的案頭工作解 脫出來，去完成更重要的工作。職工工資管理信息系統(tǒng)的實現(xiàn)可以減輕比較繁瑣 的手工工資管理更加針對性、便捷性、可視化的管理職工工資。而企業(yè)單位在使用本系統(tǒng)以后，能夠簡單的處理職工工資的計算發(fā)放，職工 能明了的進(jìn)行工資信息的查詢。1.2.2技術(shù)可行性技術(shù)上的可行性分析主要分析現(xiàn)有技術(shù)條件能否順利完成開發(fā)工作，軟硬件配置能否滿足開發(fā)者需要等。本系統(tǒng)開發(fā)采用的是微軟公司自開發(fā)的 SQLServer 2010與D

8、elphi 7.0等軟件進(jìn)行開發(fā)，功能清晰，操作方便。非常適合在裝載有 WINDOWS X環(huán)境的計算機(jī)操作，能有效的發(fā)揮出計算機(jī)的數(shù)據(jù)處理能力，擁有 開發(fā)處理快的優(yōu)勢，同時系統(tǒng)本身簡單實用。非常適合進(jìn)行短期開發(fā)。加之當(dāng)下 對企業(yè)工資管理系統(tǒng)這一類的企業(yè)財務(wù)系統(tǒng)進(jìn)行開發(fā)已有一定的時期，有很多成功的實例，可以借鑒參考，所以技術(shù)開發(fā)上不存在問題。1.2.3經(jīng)濟(jì)可行性系統(tǒng)開發(fā)方面，由于企業(yè)工資管理系統(tǒng)是一個比較小型的企業(yè)財務(wù)管理系 統(tǒng)，由我個人進(jìn)行單獨開發(fā)。所以從人力、物力、財力方面來說都是可行的。系 統(tǒng)使用與維護(hù)方面，由于系統(tǒng)占用資源小，操作簡單功能明了，員工使用培訓(xùn)極 為容易，同時系統(tǒng)簡單，維護(hù)方

9、便，不但能大大減少重復(fù)性的書面報告，降低辦 公費用，提高辦公室效率，而且能提高檢測數(shù)據(jù)效用，為企業(yè)操作提供了很大的 方便。通過以上分析，改系統(tǒng)開發(fā)可行。2系統(tǒng)分析2.1需求分析2.1.1系統(tǒng)背景介紹工資管理是公司管理的一個重要內(nèi)容。 隨著企業(yè)人員數(shù)量增加，企業(yè)的工資 管理工作也變得越來越復(fù)雜。工資管理既涉及到企業(yè)勞動人事的管理，同時也是 企業(yè)財務(wù)管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時連接工時 考勤和醫(yī)療保險等等，來生成企業(yè)每個職工的基本工資、津貼、醫(yī)療保險、保險 費、實際發(fā)放工資等。資金是企業(yè)生存的主頁元素，資金的流動影響到企業(yè)的整 體運作，企業(yè)員工的工資是企業(yè)資金管理是一個重

10、要組成部分。早期的工資統(tǒng)計 和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費財務(wù)人員大量的時間且不易保 存，往往由于個人的因素抄寫不慎或計算疏忽， 出現(xiàn)工資發(fā)放錯誤的現(xiàn)象。基于 以上原因，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計算、全面統(tǒng)計，實現(xiàn)工 資管理的系統(tǒng)化、規(guī)范化、自動化。2.1.2系統(tǒng)介紹工資管理系統(tǒng)的典型的信息管理系統(tǒng)（MIS），對企業(yè)加強(qiáng)工資管理有著極其 重要的作用，就一般的大型企業(yè)來說，它的設(shè)計內(nèi)容非常復(fù)雜而且繁多， 比如擁 有工資計算功能，工資統(tǒng)計功能，報表輸出功能，而且設(shè)計的模塊也很多，比如 工資管理模塊，工資統(tǒng)計模塊，報表設(shè)計模塊，打印輸出模塊，模糊查詢模塊等本系統(tǒng)前臺程序開

11、發(fā)工具采用 Delphi，后臺數(shù)據(jù)庫采用SQLServer數(shù)據(jù)庫 Delphi是一種面向?qū)ο蟮拈_發(fā)工具，具有組件豐富、語言簡單、功能強(qiáng)大的優(yōu) 點。SQL server數(shù)據(jù)庫具有與Delphi無縫連接、操作簡單、易于使用的優(yōu)點。 運行結(jié)果證明，本企業(yè)工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力， 最終滿足企業(yè)財務(wù)管理、員工工資發(fā)放的需要，同時也成為現(xiàn)代化企業(yè)管理的標(biāo) 志。2.2業(yè)務(wù)流程分析業(yè)務(wù)流程簡介：各部門將考勤表整理匯總，處理員工的各項工資項目數(shù)據(jù)，計算出加班工資 同時，人事部查詢檔案，得出基本月工資，基本福利，獎罰金額，最后匯總出總 工資表，交由財務(wù)處發(fā)放工資。業(yè)務(wù)流程圖：2.3數(shù)據(jù)流

12、程分析數(shù)據(jù)流程圖：第一層數(shù)據(jù)流程圖:圖2第一層數(shù)據(jù)流程圖第二層數(shù)據(jù)流程圖:T詢用戶圖3第二層數(shù)據(jù)流程圖第三層數(shù)據(jù)流程圖:圖4第三層數(shù)據(jù)流程圖3系統(tǒng)設(shè)計及實施3.1系統(tǒng)總體結(jié)構(gòu)設(shè)計本系統(tǒng)由職工信息管理、工資管理、系統(tǒng)維護(hù)、用戶管理四大塊組成。 職工信息管理為對職工信息管理。負(fù)責(zé)對職工的工資信息錄入增刪修改。 工資管理分為工資項目設(shè)置、工資計算公式設(shè)置、工資錄入及計算、工資查 詢。工資項目設(shè)置是輸入當(dāng)月工資的計算選項。 工資錄入及計算是輸入當(dāng)月各單 項工資并按照計算公式進(jìn)行計算。而工資查詢則是對當(dāng)月的工資進(jìn)行查詢。系統(tǒng)維護(hù)分為數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、用戶權(quán)限設(shè)置。數(shù)據(jù)備份為備份當(dāng)前的 數(shù)據(jù)庫。數(shù)據(jù)恢復(fù)

13、為恢復(fù)上次備份的數(shù)據(jù)庫。用戶權(quán)限為管理員用戶度普通用戶 的操作權(quán)限進(jìn)行設(shè)置。用戶管理則分為管理員登陸和普通用戶登錄，以及密碼修改。管理員用戶可 以對整個系統(tǒng)進(jìn)行操作，而普通用戶的操作權(quán)限由管理員用戶進(jìn)行設(shè)置。I.息加x入il用戶權(quán)隈謖貫圖5總體結(jié)構(gòu)圖3.2代碼設(shè)計對員工的編號設(shè)計如下所示，員工編號由四位數(shù)字構(gòu)成，編號前兩位表示部 門編號，后兩位表示職工在部門內(nèi)編號，兩部分一起構(gòu)成員工個人獨一無二的編 號。方便對員工信息的輸入、存儲、處理和提取。部門代碼XXL部門代例例如：00經(jīng)理室，01行政部，02人事部，03財務(wù)部，04業(yè)務(wù)部員工編號XX XXX員丁代碼制門代碼例如：總經(jīng)理0001，副總經(jīng)理

14、0002,人事部部長0101，人事部員工01033.3數(shù)據(jù)結(jié)構(gòu)設(shè)計3.3.1建立關(guān)系數(shù)據(jù)庫表該軟件的數(shù)據(jù)庫由下述四張數(shù)據(jù)表組成:員工信息表：YGXX.DBF公司部門表：GSBM.DBF基本工資表：JBGZ.DBF基礎(chǔ)福利表：JCFL.DBF考勤表：KQ.DBF工資匯總表：GZHZB.BDF登錄表：DL.BDF表1員工信息表：YGXX.DBF字段字段名類型長度允許空備注1YGBHCHAR5Not null員工編號2YGXMCHAR10Not null員工姓名3YGXBCHAR2Not null員工性別4YGNLCHAR2Not null員工年齡5YGJGCHAR10Not null員工籍貫6YG

15、SFZHCHAR18Not null員工身份證 號7YGSSBMCHAR10Not null員工所屬部 門8YGXLCHAR8Not null員工學(xué)歷9GWMCCHAR10Not null崗位名稱10YGGLCHAR2Not null員工工齡11GZDJCHAR2Not null工資等級表2公司部門表：GSBM.DBF字段字段名類型長度允許空備注1BMMCCHAR10Not null部門名稱2BMDMCHAR2Not null部門代碼3BMRSCHAR4Null部門人數(shù)表3基本工資表：JBGZ.DBF字段字段名類型長度允許空備注1YGBHCHAR5Not null員工編號2GZDJCHAR2N

16、ot null工資等級3JCGZFLOAT8Not null基礎(chǔ)工資表4基礎(chǔ)福利表：JCFL.DBF字段字段名類型長度允許空備注1YGBHCHAR5Not null員工編號2HFBTFLOAT8Null話費補(bǔ)貼3YSBTFLOAT8Null飲食補(bǔ)貼4JTBTFLOAT8Null交通補(bǔ)貼5YLBTFLOAT8Null醫(yī)療補(bǔ)貼6ZFBTFLOAT8Null住房補(bǔ)貼7FLHZFLOAT8Not null福利匯總表5考勤表：KQ.DBF字段字段名類型長度允許空備注1YGBHCHAR5Not null員工編號2CDCSCHAR2Not null遲到次數(shù)3ZTTCSCHAR2Not null早退次數(shù)4QQ

17、CHAR2Not null全勤5JBSCFLOAT8Not null加班時長表6工資匯總表：GZHZB.BDF字段字段名類型長度允許空備注1YGBHCHAR5Not null員工編號2GZDJCHAR2Not null工資等級3JCGZFLOAT8Not null基礎(chǔ)工資4JCFLFLOAT8Not null基礎(chǔ)福利5JBGZFLOAT8Not null加班工資6JJFLOAT8Not null獎金7FKFLOAT8Not null罰款8ZGZFLOAT8Not null總工資表7登錄表：DL.BDF字段字段名類型長度允許空備注1User nameCHAR5Not null數(shù)字2Passwor

18、dCHAR5Not null數(shù)字332建立數(shù)據(jù)字典表8數(shù)據(jù)項（數(shù)據(jù)元素）編號名稱類型長度說明I1部門名稱VARCHAR50漢字I2部門代碼CHAR2數(shù)字I3部門人數(shù)VARCHAR50數(shù)字I4員工編號CHAR5數(shù)字I5員工姓名CHAR10小于等于5個漢 字16員工性別CHAR2“男”或“女”17員工年齡CHAR21-99之間18員工籍貫VARCHAR50P漢字19員工身份證號CHAR18數(shù)字110員工學(xué)歷CHAR8小于4個漢字111崗位名稱CHAR20小于等于10個漢 字I12員工工齡CHAR21-99之間I13工資等級CHAR2P 1-99之間I14基礎(chǔ)工資FLOAT81-9999之間115話

19、費補(bǔ)貼FLOAT40-9999之間116飲食補(bǔ)貼FLOAT4P 0-9999 之間I17交通補(bǔ)貼FLOAT40-9999之間I18醫(yī)療補(bǔ)貼FLOAT40-9999之間I19住房補(bǔ)貼FLOAT4P 0-9999 之間I20遲到次數(shù)CHAR2數(shù)字I21早退次數(shù)CHAR2數(shù)字I22全勤CHAR2:“是”或“否”I23加班時長CHAR4數(shù)字I24基礎(chǔ)福利FLOAT40-9999之間I25加班工資FLOAT4:0-9999 之間I26獎金FLOAT40-9999 之間I27罰款FLOAT40-9999之間表9數(shù)據(jù)流編 號名稱來源去處組成流量說明F1基本工資表人事部財務(wù)處F1基礎(chǔ)福利表財務(wù)處財務(wù)處F1考勤

20、表各部門財務(wù)處1F2工資匯總表財務(wù)處財務(wù)處表10處理邏輯編號名稱輸入處理邏輯概況輸出P4計算總工資F1 :考勤表、 基礎(chǔ)福利表、基本工資表計算各個員工 當(dāng)月總工資工資匯總表表11外部實體編號名稱描述輸入輸出S1各部門統(tǒng)計考勤信息考勤表S2人事部提供員工信息檔案信息S3財務(wù)部計算并發(fā)放工資各項工資工資匯總表3.4系統(tǒng)實現(xiàn)登錄:圖6登錄界面具體代碼如下：Procedure TForml.Butt on 1Click(Se nder:TObject);VarSqls,user name,password:stri ng;BeginUsername:=Edit1.Text;Password;=Edit

21、2.Text;Sqls:= SELECT * FROM DL WHERE username = + username+ and password = + password + ;With ADOQueryl doBegi nSQL.Clear;SQL.Add(sqls);ExecSQL;Ope n;if Recordset.RecordCo un t0 the nbeginform2.ShowModal;endelsebeginshowmessage(用戶名或密碼錯誤！請重新輸入！);edit1.SetFocus;en d;en d;en d;procedure TForml.Butt on

22、2Click(Se nder:TObject); beginform1.Close;en d;endMai nmenu:圖7 Mainmenu界面職工信息添加:圖8職工信息添加界面具體代碼如下：Procedure TForm3.Butt on 1Click(Se nder:TObject);VarSqls:stri ng;YGBH,YGXM,YGXB,YGNL,YGJG,YGSFZH,YGSSBM,YGXL,GWMC,YGGL,GZDJ:stri ng;BeginYGBH:=Edit1.Text;YGXM:=Edit2.Text;YGXB:=Edit3.Text;YGNL:=Edit4.Tex

23、t;YGJG:=Edit5.Text;YGSFZH:=Edit6.Text;YGSSBM:=Edit7.Text;YGXL:=Edit8.Text;GWMC:=Edit9.Text;YGGL:=Edit10.Text;GZDJ:=Edit11.Text;Sqls:= INSERT INTOYGXXB(YGBH,YGXM,YGXB,YGNL,YGJG,YGSFZH,YGSSBM,YGXL,GWMC,YGGL,GZDJ)VALUES( +YGBH+ ,+YGXM,，+YGXB+ ,，+YGNL+,+YGJG+ ,+ YGSFZH+ ,，+YGSSBM+，,，+YGXL+,+GWMC+,+YGGL+

24、 ,，+ GZDJ+，）;With ADOQuery1 doBegi nSQL.Clear;SQL.Add(sqls);ExecSQL;/ope n;/if Recordset.RecordCou nt0 the n/begi nDBGrid1.ShowModa1;/end/else/begi n/showmessage(輸入信息錯誤！請重新輸入！);/edit1.SetFocus;en d;En d;Begi nShowmessage(添加成功！);Exit;End;End;Procedure TForm3.Butt on 2Click(Se nder:TObject);BeginForm3

25、.close;Form2.show;End;End職工信息修改:圖9職工信息修改界面 具體代碼如下：Procedure TForm8.BitBt n1Click(Se nder:TObject);BeginIf DataSource1.DataSet.State in dsEdit,dslnsert thenDataSource1.DataSet.PostEnd;Procedure TForm8.BitBt n2Click(Se nder:TObject);BeginForm8.close;End;End職工信息刪除:圖10職工信息刪除界面Procedure TForm7.Butt on 1C

26、lick(Se nder:TObject);varsqls,YGBH:stri ng;beginYGBH:=Edit1.Text;Sqls: = DELETE FROM YGXXB WHERE YGBH= +YGBH+ With ADOQuery1 doBegi nSQL.Clear;SQL.Add(sqls);ExecSQL;/ope n;/if Recordset.RecordCou nt0 the n/begi nDBGrid1.ShowModa1;/end/else/begin/showmessage(輸入信息錯誤！請重新輸入！);/edit1.SetFocus;en d;En d;B

27、eginIf DataSource1.DataSet.State in dsEdit,dsl nsert the nDataSource1.DataSet.PostEnd;End;Procedure TForm7.Butt on 2Click(Se nder:TObject);BeginForm7.close;Form2.show;End;End工資錄入及計算:圖11工資錄入及計算界面 具體代碼如下：Procedure TForm3.Butt on 1Click(Se nder:TObject);VarSqls:stri ng;YGBH,GZDJ,JCGZ,JCFL,JBG Z, JJ,FK,

28、ZGZ:stri ng;BeginYGBH:=Edit1.Text;GZDJ:=Edit2.Text;JCGZ:=Edit3.Text;JCFL:=Edit4.Text;JBGZ:=Edit5.Text;JJ:=Edit6.Text;FK:=Edit7.Text;ZGZ:=Edit8.Text;Sqls:= INSERT INTO GZHZ(YGBH,GZDJ,JCGZ,JCFL,JBGZ,JJ,FK,ZGZ)VALUES( +YGBH+ , + GZDJ +JCFL+ , +JBGZ+ , + JJ+ );,+ JCGZ + , +,+FK+ , +ZGZ+);With ADOQuery1

29、doBegi nSQL.CIear;SQL.Add(sqls);ExecSQL;/ope n;/if Recordset.RecordCou nt0 the n/begi nDBGrid1.ShowModa1;/end/else/begi n/showmessage(輸入信息錯誤！請重新輸入！);edit1.SetFocus;en d;En d;Begi nShowmessage(添加成功！);Exit;End;End;Procedure TForm9.Butt on 4Click(Se nder:TObject);BeginIf DataSource1.DataSet.State in ds

30、Edit,dsl nsert the nDataSource1.DataSet.PostEnd;Procedure TForm9.Butt on 2Click(Se nder:TObject);BeginForm9.close;End;Procedure TForm9.Butt on 3Click(Se nder:TObject);BeginForm9.adotable1.close();Form9.adotable1.ope n();End;Procedure TForm9.FormCreate(Se nder:TObject);BeginDBgrid1.colu mn s.ltems0.T

31、itle.captio n:=員工編號DBgrid1.colu mn s.Items1.Title.captio n:=員工姓名DBgrid1.colu mn s.Items2.Title.captio n:=工資等級DBgrid1.colu mn s.ltems3.Title.captio n:=基礎(chǔ)工資DBgridl.colu mns.l tems4.Title.captio n:=基礎(chǔ)福利；DBgridl.colu mns.l tems5.Title.captio n:=加班工資；DBgridl.colu mns.l tems6.Title.captio n:=獎金；DBgridl.co

32、lu mns.l tems7.Title.captio n:=罰款；DBgridl.colu mns.l tems8.Title.captio n:=總工資；End;End;Procedure TForm9.Edit8Cha nge(Se nder: TObject);BeginEdit8= Edit+ Edit1+ Edit2+ Edit3+ Edit4+ Edit5+ Edit6+ Edit7;End;End工資查詢:圖12工資查詢界面 具體代碼如下：Procedure TForm4.Butt on 1Click(Se nder: TObject);VarSqls,macco un t:s

33、tri ng;i,j:i nteger;beginmacco un t:=Edit1.Textsqls:= SELECT * FROM GZHZ WHER員工編號= +maccount+ With ADOQueryl doBegi nSQL.Clear;SQL.Add(sqls);ExecSQL;Ope n;if Recordset.RecordCo un t0 the nbeginEdit2.Text:=fieldbyname( Product.no ).AsString;For i:=0 to Recordset.Fields.Cou nt-1 doBegi nFor j:=0 to Re

34、cordset.Fields.Cou nt-1 doBeginstrin gGrid1.Cellsi+1,0:=Recordset.Fieldsi.Name;stri ngGrid1.Cells0,j+1:=i nttostr(j+1);stri ngGrid1.Cellsi+1,j+i:=ADOQuery1.Fieldsi.AsStri ng;en d;en d;DBGrid1.DataSource.DataSet.Locate( m_account ,Editl.Text,); / DBGrid 跟隨editl的內(nèi)容瀏覽數(shù)據(jù)EndElsebeginshowmessage(對不起，沒有該用戶

35、！請重新輸入！);edit1.SetFoucus;en d;en d;en d;Procedure TForm4.Butt on 2Click(Se nder: TObject);BeginForm4.close;Form2.show;End;End修改密碼:圖13修改密碼界面 具體代碼如下：Procedure TForm6.Butt on 1Click(Se nder: TObject);beginIf DataSource1.DataSet.State in dsEdit,dsl nsert the nDataSource1.DataSet.PostEnd;Procedure TForm6.Butt on 2Click(Se nder: TObject); beginform6.close;en d;end about:圖14 about界面4設(shè)計總結(jié)工資管理系統(tǒng)是一個典型的信息管理系統(tǒng)，其主要通過選擇課題、需求分析、 總體設(shè)計、選用工具、程序模塊、系統(tǒng)測試等幾個步驟來實現(xiàn)。開發(fā)本系統(tǒng)的過 程中，首先要對企業(yè)工資管理進(jìn)行系分析，熟悉企業(yè)財務(wù)、人事、工資發(fā)放管理 的流程、步驟：其次在系統(tǒng)需求分析過程中，要透過現(xiàn)象看本質(zhì)，敏銳觀察到工 資管理中存在的各種問題，并在總體設(shè)計把握好對問題的分析、 理解，進(jìn)