VFP課程課程設(shè)計說明書.doc

中國礦業(yè)大學(xué)礦業(yè)工程學(xué)院實驗報告課程名稱 計算機輔助設(shè)計姓名 郭元渺 班級 交運09-2班學(xué)號 01090317 日期 2012年6月成績 教師 王振軍目錄第一章 運輸企業(yè)工資管理信息系統(tǒng)概要2第二章 工資管理系統(tǒng)分析與設(shè)計 32.1系統(tǒng)功能需求簡介 42.2功能需求描述52.3目標系統(tǒng)要求52.4數(shù)據(jù)詞典分析9第三章 運輸企業(yè)工資管理系統(tǒng)的功能實現(xiàn) 103.1系統(tǒng)主表單 103.2登錄界面 113.3員工信息管理模塊123.4員工獎勵管理模塊123.5員工懲罰管理模塊133.6工資發(fā)放統(tǒng)計模塊133.7修改密碼 143.8關(guān)于系統(tǒng) 143.9報表模塊 15第四章 連編程序16第五章 程序代碼18第六章 小 結(jié)19第一章 運輸企業(yè)工資管理信息系統(tǒng)概要靠人工處理企業(yè)職員的工資既費力又極容易出錯。本系統(tǒng)采用現(xiàn)代化的信息管理手段來避免了上述問題。系統(tǒng)安排了員工信息管理、員工獎勵與懲罰管、基礎(chǔ)數(shù)據(jù)管理、工資的統(tǒng)計與發(fā)放等功能，并提供員工信息和工資發(fā)放歷史的查詢功能；同時，這里還考慮了個人所得稅的繳納。第二章 工資管理系統(tǒng)分析與設(shè)計2.1系統(tǒng)功能需求簡介工資管理信息系統(tǒng)對企業(yè)加強工資管理有著極其重要的作用，就一般的大型企業(yè)來說，它的設(shè)計內(nèi)容非常復(fù)雜而且繁多，比如擁有工資計算功能，工資統(tǒng)計功能，報表輸出功能，而且設(shè)計的模塊也很多，比如工資管理模塊，工資統(tǒng)計模塊，報表設(shè)計模塊，打印輸出模塊等。由于本軟件主要是為作者工作的一家運輸公司定制開發(fā)的。該公司是一家剛剛成立的公司，總體人員比較少，有正式員工20人，人員結(jié)構(gòu)比較簡單，學(xué)歷比較高，基本上都擁有大專以上學(xué)歷，部門劃分也很清晰，而且人員的流動性不高，所以該公司目前對工資管理的要求并不高。該工資管理系統(tǒng)的主要功能如圖2.1所示：2.1 系統(tǒng)功能模塊圖企業(yè)工資管理系統(tǒng)員工信息工資結(jié)構(gòu)設(shè)置工資統(tǒng)計資料輸入員工增刪員工查詢底薪獎勵工資懲罰工資工資統(tǒng)計工資報表 2.2功能需求描述1、員工信息模塊員工信息模塊具有員工信息輸入、員工增刪和員工信息查詢?nèi)齻€功能。員工基本信息包括員工編號、員工姓名、員工性別、所在崗位、底薪等信息。員工增刪實現(xiàn)了對數(shù)據(jù)庫中員工信息的增加和刪除。員工信息查詢可以通過員工編號或員工姓名對員工信息進行查詢。2、工資結(jié)構(gòu)設(shè)置模塊根據(jù)工資管理實際情況，本系統(tǒng)將工資結(jié)構(gòu)分為底薪、獎勵工資和懲罰工資三部分。該模塊可以對這三個工資類型進行查詢和打印報表。3、工資統(tǒng)計模塊用戶在員工信息管理模塊對該員工的基本信息進行輸入以后，在工資統(tǒng)計模塊會自動對員工工資進行匯總。用戶可以打印出工資匯總表，打印之前可以通過打印預(yù)覽功能進行打印預(yù)覽。2.3目標系統(tǒng)要求目標系統(tǒng)應(yīng)該達到以下要求： 1、時間經(jīng)濟性。優(yōu)化邏輯設(shè)計與物理設(shè)計，使系統(tǒng)運行效率高，反映速度快。2、可靠性。能連續(xù)準確的處理業(yè)務(wù)，有較強的容錯能力。3、可理解性。用戶容易理解和使用該系統(tǒng)。4、可維護性和適應(yīng)性。系統(tǒng)應(yīng)易于修改、易于擴充、易于維護，能夠適應(yīng)業(yè)務(wù)不斷發(fā)展變化的需要。5、可用性。目標系統(tǒng)功能齊全，能夠完全滿足業(yè)務(wù)需求。6、安全保密性。保證系統(tǒng)的物理安全、數(shù)據(jù)存儲和存取的安全與保密、數(shù)據(jù)傳輸?shù)陌踩c保密，做好使用人員的授權(quán)管理。2.4數(shù)據(jù)詞典分析該軟件的數(shù)據(jù)庫由下述七張數(shù)據(jù)表組成：Salaryhistory表Salarystatic表Salarytax表Staffenc表Staffinfo表Staffpun表Userinfo表 1、員工信息表：Staffinfo.DBF字段字段名類型寬度說明1員工編號字符型12主索引字段，不能為空2姓名字符型303性別字符型2默認值“男”4出生日期日期型85籍貫字符型406民族字符型107文化程度字符型108畢業(yè)院校字符型409健康狀況字符型4010身份證號碼字符型18輸入掩碼：99999999999999999911電話字符型13輸入掩碼：999999999999912電子郵件字符型1213銀行賬號字符型3014進入日期日期型815崗位名稱字符型3016備注字符型1002、工資統(tǒng)計信息表：salarystatic.DBF字段字段名類型寬度說明1員工編號字符型12普通索引字段，不能為空2員工姓名字符型303工資月份字符型124底薪浮點型82位小數(shù)5獎勵金額浮點型82位小數(shù)6懲罰金額浮點型82位小數(shù)7工資總額浮點型82位小數(shù)8所得稅額浮點型82位小數(shù)9實際工資浮點型82位小數(shù)3、工資歷史信息表：salaryhistory.DBF字段字段名類型寬度說明1員工編號字符型12普通索引字段，不能為空2員工姓名字符型303工資月份字符型124底薪浮點型82位小數(shù)5獎勵金額浮點型82位小數(shù)6懲罰金額浮點型82位小數(shù)7工資總額浮點型82位小數(shù)8所得稅額浮點型82位小數(shù)9實際工資浮點型82位小數(shù)10領(lǐng)取人字符型304、員工懲罰信息表：staffpun.DBF 字段字段名類型寬度說明1員工編號字符型12普通索引字段，不能為空2懲罰類型字符型303懲罰原因字符型1504懲罰日期日期型85懲罰金額浮動型86懲罰說明字符型1005、員工獎勵信息表：staffenc.DBF 字段字段名類型寬度說明1員工編號字符型12普通索引字段，不能為空2獎勵類型字符型303獎勵原因字符型1504獎勵日期日期型85獎勵金額浮動型86獎勵說明字符型1006、個人所得稅率表：Salarytax.Dbf字段字段名類型寬度說明1編號整型4主索引字段，不能為空2級數(shù)字符型63不計稅工資浮點型84工資下限浮點型85工資上限浮點型86所得稅率浮點型8備注浮點型1007、系統(tǒng)用戶表：userinfo.dbf字段字段名類型寬度說明1用戶名字符型30主索引字段，不能為空2密碼字符型303姓名字符型20第三章 運輸企業(yè)工資管理系統(tǒng)的功能實現(xiàn)3.1、系統(tǒng)主表單1.1菜單系統(tǒng)設(shè)計本系統(tǒng)中主菜單的作用是調(diào)用系統(tǒng)中提供的所有的功能，該主菜單按照功能模塊的形式來組織菜單的結(jié)構(gòu)。四個主菜單分別為數(shù)據(jù)管理、獎懲操作、工資管理和系統(tǒng)管理，其中獎懲操作下有子菜單員工獎勵管理和員工懲罰管理，系統(tǒng)管理有子菜單修改密碼、關(guān)于系統(tǒng)，退出系統(tǒng)。主菜單設(shè)計子菜單設(shè)計子菜單設(shè)計2、登錄界面登錄系統(tǒng)的設(shè)計是直接給用戶的第一印象，所以采用了面向用戶的設(shè)計方法，比較人性化的操作，具有方便性。3、員工信息管理模塊 “員工信息管理”表單用來管理企業(yè)中員工的基本信息，在該表單中可以查詢、新增、添加、修改和刪除員工的基本信息。4、員工獎勵管理模塊 “員工獎勵管理”表單用來對員工進行獎勵，對員工進行獎勵產(chǎn)生的金額、獎勵類型、獎勵原因和獎勵說明都將出現(xiàn)在統(tǒng)計結(jié)果中，方便用戶的查閱。5、員工懲罰管理模塊 “員工懲罰管理”表單用來對員工進行懲罰，對員工進行懲罰產(chǎn)生的金額、懲罰類型、懲罰原因和懲罰說明都將出現(xiàn)在統(tǒng)計結(jié)果中，方便用戶的查閱。6、工資發(fā)放統(tǒng)計模塊“工資統(tǒng)計發(fā)放”用來統(tǒng)計并發(fā)放“員工信息”表中所有員工的工資，同時還可以打印統(tǒng)計的報表。7、修改密碼對于系統(tǒng)用戶來說，長期使用一個密碼對于系統(tǒng)來說是非常不安全的，較安全的作法就是定期更換密碼，本系統(tǒng)中通過修改密碼表單就可以實現(xiàn)對密碼的修改。8、關(guān)于系統(tǒng)9、報表模塊 該模塊提供了報表的功能，同時還可以打印報表，方便統(tǒng)一集中的查看統(tǒng)計信息。第四章 連編程序連編應(yīng)用程序項目本設(shè)計的收尾工作。通過連編將項目資源，如視圖、查詢、表單、報表、菜單、類、過程這些包含于項目管理器中的文件信息結(jié)合在一起，生成一個擴展名為salary.exe可執(zhí)行文件，或擴展名為.app的應(yīng)用程序。連編程序之前，要進行設(shè)置主文件、確定包含或排除文件、設(shè)置項目信息等操作。完成這些操作后，運行主程序，當主程序沒有錯誤后，即可連編項目。第五章 程序代碼1、系統(tǒng)登錄代碼locate for alltrim(userinfo.用戶名)=alltrim(thisform.text1.value);and alltrim(userinfo.密碼)=alltrim(thisform.text2.value)if !eof() =messagebox(歡迎使用系統(tǒng)！) do mainmenu.mpr _screen.showelse =messagebox(用戶名和密碼不正確，請重新輸入！) endif thisform.release2、員工信息查詢代碼Public FindStringFindString =.T.IF .NOT. EMPTY(ALLTRIM(ALLTRIM(THISFORM.text1.Value)FindString=FindString + and +ALLTRIM(THISFORM.text1.Value) + $ 員工編號 ENDIFIF .NOT. EMPTY(ALLTRIM(THISFORM.text2.Value)FindString=FindString + and +ALLTRIM(THISFORM.text2.Value) + $ 姓名 ENDIFIF .NOT. EMPTY(ALLTRIM(THISFORM.text3.Value)FindString=FindString + and 性別=+ALLTRIM(THISFORM.text3.Value) + ENDIfIF .NOT. EMPTY(ALLTRIM(THISFORM.text4.Value)FindString=FindString+ and 民族=+ ALLTRIM(THISFORM.text4.Value) + ENDIFIF .NOT. EMPTY(ALLTRIM(THISFORM.text5.Value)FindString=FindString + and +ALLTRIM(THISFORM.text5.Value) + $ 崗位名稱 ENDIFSELECT StaffInfoSET FILTER TOSET FILTER TO &FindStringTHISFORM.Refresh3、信息添加代碼x1=thisform.text1.valuex2=thisform.text2.valuex3=thisform.text3.valuex4=thisform.text4.valuex5=thisform.text5.valueif empty(x1) or empty(x2) or empty(x3) or empty(x4) or empty(x5)messagebox(信息不能為空)elseinsert into staffinfo (員工編號,姓名,性別,民族,崗位名稱) values (x1,x2,x3,x4,x5) messagebox(添加成功！,48,信息) thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value= thisform.text5.value=endif4、員工信息修改代碼x2=thisform.text2.valuex3=thisform.text3.valuex4=thisform.text4.valuex5=thisform.text5.valueif empty(x1) or empty(x2) or empty(x3) or empty(x4) or empty(x5)messagebox(信息不能為空)elsereplace staffinfo.員工編號 with x1replace staffinfo.姓名 with x2replace staffinfo.性別 with x3replace staffinfo.民族 with x4replace staffinfo.崗位名稱 with x5messagebox(修改成功！)endif5、員工信息刪除代碼n=messagebox(確定要刪除嗎？,1+48+256,信息)if n=1thisform.dataenvironment.closetables(staffinfo)use staffinfo exclusivedelete from staffinfo where 員工編號=alltrim(thisform.text1.value)packusethisform.dataenvironment.opentables(staffinfo)thisform.refreshendifmessagebox(刪除成功！)6、信息瀏覽的代碼do case case this.value=1 goto top case this.value=2 if ! eof() skip endif case this.value=3 if ! bof() skip -1 endif case this.value=4 goto bottom endcase thisform.refresh7、密碼修改代碼locate for alltr(userinfo.用戶名)=alltrim(thisform.text1.value) if alltr(userinfo.密碼)alltr(thisform.text2.value) =messageb(原密碼有誤,請重新輸入!) thisform.text2.value= thisform.text2.setfocus returnelseif alltr(thisform.text3.value)alltr(thisform.text4.value) =messageb(新密碼輸入不一致，請重新輸入!) thisform.text3.value= thisform.text4.value= thisform.text3.setfocus return else replace userinfo.密碼 with alltr(thisform.text2.value) =messageb(密碼修改成功 ,請您記好新密碼!) thisform.release endif endif8、工資統(tǒng)計代碼iYear=YEAR(DATE()iMonth=MONTH(DATE()iDate=DAY(DATE()IF iDate25MESSAGEBOX(尚未到工資統(tǒng)計時間,48,運輸企業(yè)工資管理系統(tǒng))RETURNELSEsYear=ALLTRIM(STR(iYear)sMonth=ALLTRIM(STR(iMonth)YF=sYear+年+sMonth+月SELECT SalaryHistoryLOCATE FOR 工資月份=YFIF FOUND()MESSAGEBOX(YF+工資已經(jīng)統(tǒng)計,48,運輸企業(yè)工資管理系統(tǒng))RETURNENDIFSELECT SalaryStaticLOCATE FOR 工資月份=YFIF FOUND()MESSAGEBOX(YF+工資已