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

　

【文章內容簡介】 atebase\。在彈出的表設計器中填寫表的內容，如圖 16 所示。 9 圖 16 設計表的內容 與 表 16 比較，可以發現表的字段名就是列名。要注意的是在以后的編寫程序中對數據庫的數據的操作通常是引用表的字段，因此在設計字段是要挑選容易理解的名稱。 字段設置完成后，單擊“確定”按鈕后為表輸入數據。 各個功能模塊的創建 經過前面對系統功能的分析，我們將企業工資管理系統分為 4 個模塊：系統主界面、員工信息管理、工資基本設定和工資匯總。 為了讓使用者有一個輕松操作的界面，系統的主界面設計要求界面友好、功能分塊明確、美觀大方。下面將以主界面的設計為例，仔細講解表單的創建。 首先， 展開項目管理器中的文檔，選中表單，單擊右側“新建”按鈕。如圖 17 所示。 10 圖 17 新建表單 在彈出的對話框中單擊“新建”按鈕后，會彈出“表單設計器”的界面，如圖 18 所示。 圖 18 為設計的表單 可以根據界面的需要向其中添加控件如圖 19 所示。 11 圖 19 向表單中添加控件 更改各個控件的屬性值為所屬值，各更改值見表 17。 表 17 控件屬性更改值 控件 Caption Alignment Picture Stretch Form1 企業工資管理系統 Label1 歡迎使用 2中央 Command 員工基本信息 Command 員工基本設定 Command 工資匯總 Command 個人工資設定 Command 退出 Image1 D:\salary\ 2變比填充 Caption屬性表示控件的顯示名，是為了使用者方便特意設計的名稱， 為一些常用的提示信息。 Alignment為控件中 Caption的位置狀態，對于 Label（標簽），有“ 0左（缺省）”、“ 1右”、“ 2中央”等 3種設置。另外，設置 Label的 Font（字體）和 Fontsize（字體大小）屬性可以改變 Caption顯示的字體及大小。 在 Picture中可以把控件的界面設為圖象，以便使用者能更形象地使用所開發的軟件。對應 Image（圖象）控件，則表示顯示在其中的圖象。其屬性值應為要顯示的圖象的路徑和文件名。并應設置其 Streth屬性為“ 2變比填充”以使圖象能正確顯示。 更改之后的表單如圖 110所示。 12 圖 110 更改后的表單 要注意的是向容器中添加按鈕時候 ，必須先添加容器，然后在容器單擊鼠標右鍵，選擇編輯，此時容器邊緣變為綠色，表明此時容器正處于編輯狀態。此時添加按鈕到容器中才能是按鈕真正處于容器中，如果直接添加，則按鈕實際上處于與容器同一層次上。 可以通過查閱表單的結構層次來理解，如圖 111所示 圖 111 表單中的控件的結構 控件添加結束后，表單并未完成設計，此時的表單運行后會發現只有一個空殼，單擊其中的按鈕沒 有任何反應。因此，此時需要為表單設計事件響應。 選中 Command1（按鈕 1），雙擊后彈出控件“方法程序”對話框，如圖 112所示 . 13 圖 112 為控件Command1 設置Click 事件程序 填寫代碼如下： Do from salary\form\personnel *打開下級表單 pensonnel..scx, salary\form\personnel為 它的路徑 對 Command2（按鈕 2）、 Command3（按鈕 3）、 Command4（按鈕 4）、 Command5（按鈕 5）、進行同樣的操作。 Command2 的 Click 代碼為： do form salary\form\dataformat *打開下級表單 dateformat Command3 的 Click 代碼為： do form salary\form\result *打開下級表單 result Command4 的 Click 代碼為： do form salary\form\grcx *打開下級表單 grect Command5 的 Click 代碼為： clear events *釋放表單，結束程序 為了使表單更富動感，這 里設計了一個閃爍效果，閃爍的對象為“ Label”。 選擇 Timer（記時器）控件，雙擊后填寫其 Timer 的事件代碼： if i=0 =.F. *使 Label1 不可見 i=1 else =.T. *使 Label1 可見 i=0 endif 設置 Timer的 Interval屬性為“ 750”。其作用是控制 Timer的執行間隔時間，單位為 ms。既是每隔 Timer控件的 Timer事件。應用類型的方法還可 以隨時間推移轉變Image1控件里的圖像。 14 注意 Timer事件代碼中使用了變量 i來控制，因此應先聲明該變量。為表單的 Init事件添加代碼： Public i i=0 *聲明全局變量 i 到此為止，本程序的主界面已設計完成，記住要儲存為“ D:\salary\form\”，以后設計的表單都會放在“ D:salary\form”目錄下，以便其他程序員管理。接下來進入其他表單的設計。 本模塊包含的功能有：員工信息瀏覽、增加刪除修改員工記錄、根據查詢條件查詢員工記錄、顯示查詢 結果。要實現的功能較多，一個表單不可能容納下所有空件，所以需要使用表單集或頁框。這里使用頁框來實現。 新建表單 Personal,存儲 ”D:\salary\form\”。直接拉伸表單至合適大小。向表單中加入控件，如圖 113 所示 圖 113 表單的基本控件 本表單需要對數據庫中的表進行操作，因此必須將該表加入到表單的數據環境中。在表單中單擊鼠標右鍵，選擇 ”Date Enviroment”（數據環境），在彈出的對話框中添加需要的表，如本表需要添 加表 ”Personnel”。 1.“一覽”子頁面的設計 將表單數據環境中的表 ”Personnel”的字段添加到表單中，如圖 114 所示。 15 圖 114 推拽字段到表單中 注意，此時添加到表單的字段處于與頁框同一層次，將其添加到頁框的子頁面 1 種，對頁框的操作方法與容器類似。 向子頁面 1 中添加控件，如圖 115 所示。 圖 115 子頁面 1 控件 下面列出更改值，如圖表 18 所示 控件屬性更改值表 控件 Caption Alignment PageCount FontSize Form1 員工信息 Label1 員工信息 2中央 Page1 一覽 3 華文彩云 Command1 增加新記錄 Command2 修改這條記錄 Command3 刪除這條記錄 Command4 取消操作 16 Command5 退出 如圖 115所示，該頁面使用了，“類”，在 Visual FoxPro 中使用類可以大大節省開發時間，簡化系統的設計工作，并方便系統的維護和修改。如圖 116 位添加的類 —— 導航條。 圖 116 查詢子頁面 該導航條包含 4 個基本功能。 ●“上一個”按鈕使記錄后退一個； ●“第一個”按鈕使記錄后退至表首； ●“下一個”按鈕使記錄前進； ●“最后一個”按鈕使記錄前進至表尾； 下面給出按鈕的 Click 事件代碼。 按鈕“上一個”的 Click 事件代碼： Skip 1 *記錄向后退一個 If bof() *判斷是否為第一個記錄，如是， bof()返回“真”（ .T.） Messagebox（＂ 已是第一個記錄 ＂，＂ 48＂，＂ 信息窗口 ＂） =.f. =.f. skip else =.t. =.t. endif =.t. =.t. *根據實際情況給出各個按鈕的狀態 17 在按鈕“第一個”的 Click 事件中輸入如下 代碼： goto top =.f. =.t. =.t. *根據實際情況給出各個按鈕的狀態 在按鈕“下一個”的 Click 事件中輸入如下代碼： Skip If eof() *判斷是否最后一個記錄，如是， eof（）返回“真”（ .T.） Messagebox（＂ 已是最后一條記錄 ＂ ,＂ 48＂ ,＂ 信息窗口 ＂） skip 1 =.f. =.f. else =.t. =.t. endif =.t. =.t. *根據實際情況給出各個按鈕的狀態 在按鈕“最后一個”的 Click 事件如 下代碼： goto bottom =.f. =.t. =.t. *根據實際情況給出各個按鈕的狀態 為保證表中的數據不被誤操作修改，請將頁面中的各文本框的“ Enabled”屬性設為“ .F.”。按鈕“取消操作”的“ Enabled” 屬性設為“ .F.”。 為“增添新記錄”添加 Click 事件代碼： =.F. *使導航條不可用 =.F. *使“修改”按鈕不可用 =.F. *使“刪除”按鈕不可用 =.T. *使“取消”按鈕可用 if =39。增加新記錄 39。 =.T. =.T. 18 =.T. =.T. =.T. =.T. *使各文本框可用 append blank *添加空行到表的末尾 =39。增加確認 39。 *將本控件的 Caption 更改為“增加確認” *刷新本頁面 *將鼠標焦點設定到文本框 1 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。 *將本控件的 Caption 更改為“增加新記錄” tableupdate(.t.) *表單的更改確認 tableupdate(.t.) =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.T. =.F. *恢復本子頁面的各控件的狀態 endif endif 上段代碼的功能是添加一個新的員工的信息到數據庫中。 19 為“修改這條記錄”按鈕添加 Click 事件代碼： =.F. *使“增加”按鈕不可用 =.F. *使“刪除”按鈕不可用 =.T. *使“取消”按鈕可用 =.F. *使導航條可用 if =39。修改這條記錄 39。 =.T. =.T. =.T. =.T. =.T. =.T. =39。修改確認 39。 *文本框 1 獲得鼠標焦點 else =39。修改這條記錄 39。 tableupdate(.t.) *更改確認 =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.T. =.F. =.T. *恢復本子頁面各控件狀態 endif 上段代碼的功能是修改一個員工的信息并更新到數據庫中。 為“刪除這條記錄”按鈕添加 Click 事件代碼： getid=alltrim() *獲得輸入的 id 信息 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 20 =39。39。 *先將表單中數據源斷開 use personnel exclusive *以獨占方式打開 set order to pid seek getid delete pack =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 *將數據源重新接上 =.F. =.F. =.F. =.F. =.F. =.F. *設定各文本款為不可用，防止 bug出現 *本刪除操作不可取消 上段代碼的功能是刪除一個員工的信息。