【文章內(nèi)容簡介】 par1=inname do form salary\form\gresult endif endif 按“退出”按鈕就釋放表單。 1 gresult 主要是被 grcx (工資查詢 )調(diào)用，當然生成器 里連接了其它表。 1 gwgz(崗位工資 ) 對崗位工資的管理。同 gzgl 功能一樣。 1 gcgz(等級 )也同 gzgl 功能一樣 jm（密碼表） 代碼在“確定按鈕里” click 事件： sele mab loca for allt( )==allt() and allt( )==allt() if foun() do C:\修改工資管理 3\ read events =.f. = release thisform else = messagebox(你沒有權(quán)限，請輸入正確密碼 ,0+16+0,出錯 ) endi 2 personnel 它包含一個頁框，頁框下有三個選項分別是： ●瀏覽 它可以對員工信息進行瀏覽。還可以增加刪 除員工信息 瀏覽掉用的類庫的命令按鈕組。具有瀏覽功能。 格式如下： 按鈕“增加新記錄”命令如下： =.F. =.F. =.F. =.T. if =39。增加新記錄 39。 =.T. =.T. =.T. =.T. =.T. =.T. append blank =39。增加確認 39。 else getid=alltrim() getname=alltrim() getsex=alltrim() getjob=alltrim() getindate=alltrim() getrank=alltrim() if empty(getid) or empty(getname) or empty(getsex) or empty(getjob) or empty(getindate) or empty(getrank) messagebox(資料不足 ,48,錯誤 ) else =39。增加新記錄 39。 tableupdate(.t.) =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.T. =.F. endif endif 按鈕“修改這條記錄”如下 =.F. =.F. =.T. =.F. if =39。修改這條記錄 39。 =.T. =.T. =.T. =.T. =.T. =.T. =39。修改確認 39。 else =39。修改這條記錄 39。 tableupdate(.t.) =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.F. =.T. endif 按鈕“刪除這條記錄“如下： getid=alltrim() =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 use personnel exclusive set order to pid seek getid delete pack =39。d39。 =39。personne39。 =39。personnel.psex39。 =39。personnel.pjob39。 =39。personn39。 =39。personnel.prank39。 =.F. =.F. =.F. =.F. =.F. =.F. ● 查詢 （ 3） 可以根據(jù)員工號和員工姓名查詢 ● 查詢結(jié)果 退出查詢 8 類庫 —— fy_____fy 上一個 這個主要用于瀏覽 9|、代碼 有一個程序文件： mainmpr set sysmenu off clear screen clear events do form salary\form\jm open database database\salary read events 其它 1連編生成一個 EXE 文件 (gzgl)_ 五、最終介面 介面 2 本系統(tǒng)實用于小行企業(yè)進行工資管理及查詢。 畢業(yè)論文說明書 名 稱： 工資查詢系統(tǒng) 學 生 姓 名 ： 專 業(yè)： 計算機信息管理 層 次 類 別 ： 指 導 教 師 ： 日 期： 工資查詢系統(tǒng) 系統(tǒng)分析 一、需求分析 需求分析的任務(wù)，在于完全志弄清用戶對所開發(fā)的數(shù)據(jù)庫應(yīng)用系統(tǒng)的確切要求。開發(fā)人員要向用戶展開調(diào)查研究， 開清用戶到底需要應(yīng)用系統(tǒng)具備哪些功能，需要完成那些任務(wù)。 工資查詢系統(tǒng)是企業(yè)對員工進行管理所必須的，工資查詢系統(tǒng)包括對員工的工資進行基本工資設(shè)定，工資情況、個人工資查詢、打印預覽、打印退出等操作。一直以來，工資查詢工作都是人工直接來完成的，如果對于一個大型企業(yè)來說工作量就很大，而且很容易出錯。隨著科技的發(fā)展，實現(xiàn)現(xiàn)代化和自動化管理既可能也很有心要。 二、系統(tǒng)功能 （ 19） 員工信息：可以對員工工資情況進行瀏覽，查詢，增加，刪除，修改。 （ 20） 員工工資設(shè)定：包括基本工資，崗位工資，工齡工資分別可以對他們內(nèi)容進行修改、修 改確定、添加、刪除等功能。 （ 21） 打印預覽：可以打印預覽。打印出工資單。 （ 22） 個人查詢：輸入個要員工號和密碼。 （ 23） 最后是退出程序。 （ 24） 權(quán)限設(shè)置：只有管理員才能進行此操作。 三、系統(tǒng)結(jié)構(gòu) 總體介面 四、項目管理器 做 VF 首先建一個項目管理器；它包括許多內(nèi)容，也被稱做后臺數(shù)據(jù)庫，功能也比較強大。本項目管理器里包括： 數(shù)據(jù)庫 歡迎界面 退出 退出 打印預覽 工資查詢庫 員工信息 員工工資設(shè)定 基本工資 崗位工資 打印預覽 工齡工資 瀏覽 主菜單 個人工資 查詢 個人查詢 所用的表。 文檔 制作的表單 接后的就是類庫、代碼、其它，這里就不多說了，想了解就往下看。后面還有精彩的約。 五 、具體功能 首先，介紹一下表單 2 gzgl 它包括： 1 個表格， 5 個命令按鈕 ① 表格，連接的 gongling表。 ② 按鈕包括： ⑴修改按鈕。 命令如下： click事件：=.T. =.T. ⑵ 修改確認按鈕 click 事件： =.F. =.F. ⑶ 添加按鈕： click 事件： append blank go bottom =.T. =.T. ⑷ 刪除按 鈕： click 事件： =39。39。 use database\gongling exclusive delete from gongling where gname=getgname pack =39。gongling39。 ⑸退出按鈕： click 事件： 總體介面如下： 2 grcx (工資查詢 ) 這個表單的是實現(xiàn)按工號查詢，沒一個工號有一個固定的密碼查詢的結(jié)果是 職工的基本情況。當然工號和密碼要連接生成器。代碼在“確定”按鈕里具體如下： inname=alltrim() inpswd=alltrim() set order to tms_user seek inname if !found() cMessageTitle=39。設(shè)備管理系統(tǒng) 39。 cMessageText=39。用戶名錯誤，請重新輸入 39。 nDialogType=4+32 nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 =39。39。 case nAnswer=7 messagebox(請勿偷窺他人資料 ,48,警告 ) endcase else if tms_pswd!=inpswd cMessageTitle=39。設(shè)備管理系統(tǒng) 39。 cMessageText=39。密碼錯誤，請重新輸入 39。 nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 if flag2 =39。39。 flag=flag+1 else messagebox(請勿偷窺他人資料 ,48,警告 ) endif case nAnswer=7 messagebox(請勿偷窺他人資料 ,48,警告 ) endcase else par1=inname do form salary\form\gresult endif endif 按“退出”按鈕就釋放表單。 2 gresult 主要是被 grcx (工資查詢 )調(diào)用，當然生成器里連接了其它表。 2 gwgz(崗位工資 ) 對崗位工資的管理。同 gzgl 功能一樣。 2 gcgz(等級 )也同 gzgl 功能一樣 2 jm（密碼表） 代碼在“確定按鈕里” click 事件： sele mab loca for allt( )==allt() and allt( )==allt() if foun() do C:\修改工資管理 3\ read events =.f. = release thisform else = messagebox(你沒有權(quán)限，請輸入正確密碼 ,0+16+0,出錯 ) endi 2 personnel 它包含一個頁框，頁框下有三個選項分別是： ●瀏覽 它可以對員工信息進行瀏覽。還可以增加刪除員工信息 瀏覽掉用的類 庫的命令按鈕組。具有瀏覽功能。 格式如下： 按鈕“增加新記錄”命令如下： =.F. =.F. =.F. =.T. if =39。增加新記錄 39。 =.T. =.T. =.T. =.T. =.T. =.T. append blank =39。增加確認 39。 else getid=alltrim() getname=alltrim() getsex=alltrim() getjob=alltrim() getindate=alltrim() getrank=alltrim() if empty(getid) or empty(getname) or empty(getsex) or empty(getjob) or empty(getindate) or empty(getrank) messagebox(資料不足 ,48,錯誤 ) else =39。增加新記錄 39。 tableupdate(.t.) =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.T. =.F. endif endif 按鈕“修改這條記錄”如下 =.F. =.F. =.T. =.F. if =39。修改這條記錄 39。 =.T. =.T. =.T. =.T. =.T. =.T. =39。修改確認 39。 else =39。修改這條記錄 39。 tableupdate(.t.) =.F. =