職工工資管理系統論文x(編輯修改稿)

　

【文章內容簡介】 使用者根據提示查詢到需要的紀錄。提供了按“員工號”和“員工姓名”查詢的功能。設計思路是當使用者單擊復選框時，下面的文本框相應變為可用狀態，否則為不可用狀態。當使用者填入查詢條件后，單擊“查詢”按鈕，如果查到相應記錄，系統會自動提示。同時“查詢結果”子頁面被激活為可用。使用者此時單擊“查詢結果”按鈕可以得到查詢結果。如未查到記錄也會顯示相應提示。為復選框填寫Click事件代碼。“員工號”Click事件代碼：flag=do case case flag=0*判斷本復選框是否為選中狀態，0為未選，1為選中=.F.=39。39。 case flag=1 =.T.endcase“員工姓名”Click事件代碼：flag=do casecase flag=0*判斷本復選框是否為選中狀態，0為未選，1為選中=.F.=39。39。case flag=1=.T.endcase“查詢”按鈕Click事件代碼：getpid=alltrim()getpname=alltrim()flag1=flag2=*判斷復選框選中情況if flag1=0 and flag2=0 messagebox(請輸入查詢條件,48,錯誤)Endifif flag1=1 and flag2=0*“工號”欄此時被選中set order to pid*設置查詢索引為pidseek getpid if found() messagebox(查到記錄,48,注意) select * from personnel where pid=getpid into cursor ling*查詢到記錄后將結果輸入鄰時表ling=.T.*將Page3激活為可用 else messagebox(沒有這條記錄,48,注意) endifendifif flag1=0 and flag2=1*”姓名”欄此時被選中set order to pname*設置查詢索引為Pnameseek getpname if found() messagebox(查到記錄,48,注意) select * from personnel where pname=getpname into cursor ling*將查詢得到的結果輸入到臨時表ling中 =.T.*子頁面3此時被激活，使用者可以查看結果 else messagebox(沒有這條記錄,48,注意) endifendifif flag1=1 and flag2=1*此時兩個條件均被選中set order to pidseek getpid if =getpname messagebox(查到記錄,48,注意) select * from personnel where pid=getpid and pname=getpname into cursor ling*將查詢到的結果輸入到臨時表ling中 =.T.*激活子頁面3 else messagebox(沒有這條記錄,48,注意)*沒有記錄時給出提示 endifendif上段代碼的功能是根據使用者輸入的信息查詢“員工基本信息”數據表，并在查找后進行相關操作。如果使用者想查詢另一個記錄，可以單擊“查詢另一個”按鈕，它的Click事件代碼為： =39。39。=39。39。*將文本框1和2清空，等待下次輸入。3.“查詢結果”子頁面的設計設計子頁面3的界面如圖117所示。 圖117 查詢結果子頁面將文本框的數據源與生成的臨時表相連。設置如表19所示。表19 控件屬性更改值控件 ControlSource TxtpidTxtpnameTxtpsexTxtpjobTxtpindateTxtprank因為本頁面顯示的是查詢結果，因此所有的數據均不能修改，將所有文本框均設為不可用，即屬性均設為”.F.”。最后，為本表的“退出”按鈕填寫Click事件代碼:*釋放本表單設計一個過渡表單以便使用者進行不同功能的選擇，如圖118所示。 圖118 基本設定過渡表單表單中的按鈕功能為執行下級表單。“基礎工資”按鈕中Click事件代碼為：do form salary\form\jcgz “基礎工資設定”表單如圖119所示。 圖119基礎工資設定表單 表單數據環境為Rank數據表。表格是從數據環境中直接推拽到表單中的，更改表格Column（列）的Header（標頭）的Caption屬性為所需值——“工資等級”、“工資額”。為防止誤修改表中數據，表格的Column的Text的Enabled屬性應設為”.F.”。設置表單的Load事件代碼：Public getid *設置全局變量getid設置表格的Mouse Up事件代碼：LPARAMETERS nButton, nShift, nXCoord, nYCoordgetid=alltrim()*取得鼠標在表格中的標記“修改”按鈕Click代碼：=.T.=.T.“修改確認”按鈕Click代碼：=.F.=.F.“添加”按鈕Click代碼：append blankgo bottom=.T.=.T.“刪除”按鈕Click代碼：=39。39。use rank exclusivedelete from rank where rname=getid*刪除選定的記錄，請先將表格數據源斷開，刪除后再重新接上 pack*刪除已做標記的記錄=39。rank39。“退出”按鈕 Click代碼： do form salary\form\dataformat*釋放本表單，打開“基礎設施”的過渡表單 “崗位工資設定”、“工齡工資設定”、表單設計的結果圖120和圖121所示。 圖120 崗位工資設定界面 圖121 工齡工資設定界面本模塊的功能是實現對所有員工的工資匯總，包括他們的基礎工資、崗位工資和工齡工資等。根據各個員工的工資等級，工作崗位和工齡的資料，表單計算相應的工資額并做出統計，從而簡化會計的工作。設計的表單界面如圖122所示。 圖122 工資表一覽表單在提供了工資一覽的同時，還提供了工資報表預覽及打印的功能。首先為表單設計數據環境，添加表Personnel、Dept、Gongling、Rank，設置表間的關系。如圖123所示。 圖123復雜的表間關系為表單添加表格，設置“ColumnCount”屬性為6，表明表格的列數為6列。為防止表數據被修改，將各Column的Text1的“Enabled”屬性為“.F.”。各Column的屬性修改見表150。表150 控件屬性更改值控件 ControlSourceColumn1Column2Column3Column4Column5Column6++接下來就是預覽及打印的設置了，Visual Foxpro 只能打印報表，因此若要打印記錄，必須先設計報表。下面介紹制作報表的方法。打卡項目管理器的文檔，選中Reports（報表），選擇新建報表。彈出報表設計器，在Visual FoxPro的主菜單中的報表中選擇“標題/總結”，為表單添加標題，如圖124所示。 圖124 標題/總結選擇本表單指添加標題，故選中“標題帶區”，然后單擊“確定”按鈕。結果如圖125所示。為本表單設計Title（標題）較簡單，注意設計時要加入時間，使用Date()函數，如圖126所示。設計報表的Page Header（頁標頭），在Visual Foxpro 的菜單中選擇“顯示”“報表控件工具欄”，可使用其中的線條和標簽實現頁標頭的設計，如圖127所示。設置報表的數據環境。添加表Personnel、Dept、Gongling和Rank,其連接關系如圖122所示。 圖125 添加標題后的報表 圖126 報表標題 圖127 報表的頁標題報表的Detail（細節）即報表的數據區，它的位置要與報表的頁標頭相對應，如圖131所示。 圖128報表的細節從左至右區域的表達式設置見表111。 區域屬性更改值 Field（區域） 表達式123456++報表的頁注腳也是不可或缺的。它的設計如圖129所示。 圖129 報表的頁注腳區域的表達式填寫“頁+alltrim(str(_pageno))”。它的功能是顯示報表當前頁面的頁數碼。設計的結果如圖130所示。 圖130 設計完成的報表。保存路徑為“D:\salary\from”。報表設計完成了，要怎樣才能加到表單中去呢？下面解決這個問題。在剛才的表單中添加“打印預覽”按鈕，填寫Click事件代碼：report form salary\form\result to print preview*預覽該表單在“打印”按鈕中填寫Click事件代碼：report form salary\form\result to print*將報表送到打印機 本模塊的目標是設計一個員工查詢個人工資的功能。每個人員工都有自己的密碼，通過輸入員工號和密碼，進入個人工資表。密碼驗證界面如圖131所示。 圖131密碼驗證界面如圖所示添加個控件，修改Caption及Alignm