職工工資管理系統論文x-資料下載頁

【導讀】蒈蝿裊膂莄螈羇莇芀螇腿膀蠆螆衿肅薅螅羈羋蒁螅肅肁莇螄螃芇芃袃裊聿薁袂羈芅蕆袁肀肈莃袀袀芃荿衿膆蚈衿肄莂薄袈膇膄蒀袇袆莀莆蒃罿膃節薂肁莈薀薂螁膁蒆薁羃莆蒂薀。螆膆聿蒆袈罿莈薅薈膄芃薄蝕羇腿薃螂膃肅薂羅羅蒄薂蚄袈莀薁螆肄芆薀衿袇膂蕿薈肂肈蚈蟻裊莇蚇螃肀芃蚆裊袃腿蚆蚅聿膅蚅螇羈蒃蚄袀膇荿蚃羀芅螞螞膅膁荿螄羈肇莈袆膃莆莇薆羆莂莆螈節羋蒞袁肅膄莄羃袇蒂莄螞肅莈莃螅袆芄蒂袇肁膀蒁薇襖肆蒀蠆聿蒅葿袁袂莁蒈羄膈芇蒈蚃羈膃蕆螆膆聿蒆袈罿莈薅薈膄芃薄蝕羇腿薃螂膃肅薂羅羅蒄薂蚄袈莀薁。芄蒂袇肁膀蒁薇襖肆蒀蠆聿蒅葿袁袂莁蒈羄膈芇蒈蚃羈膃蕆螆膆聿蒆袈罿莈薅薈膄芃薄蝕羇腿薃螂膃肅薂羅羅蒄薂蚄袈莀薁螆肄芆薀衿袇膂蕿薈肂肈蚈蟻裊莇蚇螃肀芃蚆裊袃腿蚆蚅聿膅蚅螇羈蒃蚄袀膇荿蚃羀芅螞螞膅膁荿螄羈肇莈袆膃莆莇薆羆莂莆螈節羋蒞袁肅膄莄羃袇蒂莄螞肅莈莃螅袆芄蒂袇肁膀蒁薇襖肆蒀蠆聿蒅葿袁袂莁蒈羄膈芇蒈蚃羈膃蕆螆膆

　　

【正文】 度的數字。 為保證使用者的密碼安全性，要求在密碼框中（ Text2）顯示“ *”覆蓋密碼真實值。 將 Text2 的 PasswordChar 屬性設置為“ *”。 為表單添加數據環境，設為表 TMS。 編寫表單的 Load 事件代碼： public inname *設置全局變量獲得輸入的工號 public flag *設置全局變量控制輸入的次數 flag=0 編寫“確定”按鈕 Click 事件代碼： inname=alltrim() *獲得輸入的工號 inpswd=alltrim() *獲得輸入的密碼 set order to tms_user seek inname *檢查工號是否存在 if !found() cMessageTitle=39。設備管理系統 39。 32 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。設備管理系統 39。 cMessageText=39。密碼錯誤，請重新輸入 39。 nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 *如果連續輸入超過 3 此則自動退出 if flag2 =39。39。 flag=flag+1 else messagebox(請勿偷窺他人資料 ,48,警告 ) *發出警告 endif case nAnswer=7 messagebox(請勿偷窺他人資料 ,48,警告 ) endcase else par1=inname *將通過檢查的工號賦值給參數 par1，此參數為試圖參數 do form salary\form\gresult endif endif 上段代碼的功能是檢查員工輸入的工號及個人密碼是否合法，通過后顯示該員工的工資資料。設計個人工資表顯示的界面如圖 132 所示。 33 圖 132 個人工資表顯示頁面 為使表內各資料隨員工好的改變計時更新，本表單中使用了視圖。下面介紹試圖的創建過程。在神戶據 庫中表與視圖屬于平行設置。找到“本地試圖”，單擊“新建”按鈕后，選擇“新建視圖”命令 ,添加表 dept、 personnel，視圖的設置如圖 133 所示。 圖 133 視圖設置 1 選擇要顯示的字段： 、 、 .。選擇表之間的連接關系： 連接（ Inner Join）。選擇 Visual FoxPro 工具欄中的“ Query(查詢 )”中的“ View Parameters（視圖參數）”命令，為試圖設置參數為 par1。設置視圖的篩選條件，如圖 134 所示 .。 注意在填寫實例的時候應在參數前加上問號（？），然后才是參數名。此參數名與剛才設置的參數名一致。字段名則為要求篩選時與參數一致的字段。本例中為 Personnel表中的 pid 字段。 將更新條件中的所有字段選中，讓他們隨參數 par1 的在值變化更新。如圖 135 所示。 34 圖 134 視圖設置 2 圖 135 視圖設置 3 此時，視圖的設置變化完成了，保存并命名為“ job”。建 立視圖 2，其中表為 Personnel、Rank。要顯示的字段為 。 連接為 內連接（ Inner Join）。 參數為 par1。 視圖名為 rankk。 建立視圖 3，其中表為 Personnel、 gongling。 要顯示的字段為 。 連接為 內連接（ Inner Join） 參數為 par1。 試圖名為 g1。 設置各文本框的 ControlSource 為對應視圖字段。見表 113。 表 113 控件屬性更改值 控件 ControlSource Value Enabled TxtPid .F. TxtPname .F. 35 TxtRsalary .F. TxtJobsalary .F. TxtGsalary .F. Txte1 =++ .F. 為表單添加數據庫環境，為視圖 job、視圖 gl、視圖 rankk。最后不要忘記設計一個“退出”按鈕，查詢結果如圖 136 所示。 要注意的是為了使資料中的信息處于不能任意修改的狀態，應該將各個文本框的 Enabled屬性更改為“ .F.”。設置方法前文有介紹。 圖 136 查詢結果 系統主程序的設計 系統要執行，需要一個主程序。由主程序設置系統的環境后，打開程序主表單，等待使用者的操作。系統主程序的設計步驟如下： 在 “項目管理器”中選擇“代碼”中的“程序”，單擊“新建”按鈕，為系統新建一個主程序。為主程序編寫代碼，存儲為 mainprg。 clear screen clear events *打開數據庫 open database database\salary *執行開始菜單 do form form\ksjm 設置系統環境配置 do setting *開始響應事件 read events *收到“ Clear Events”命令后關閉數據庫，還原系統環境配置 close database 36 do reset 新建程 序 設置系統環境配置： set sysmenu off *將系統菜單關閉 set sysmenu to set status bar off *不顯示圖形狀態框 set talk off *指定在 Visual FoxPro 主窗口、系統信息窗口、圖形狀態欄、或用戶自定義窗口中不顯示命令結果 set clock status *將時鐘在指定的位置上顯示，而不放在圖形狀態欄中 set palette off *不使用 Visual FoxPro 默認的調色板 set bell on *打開計算機喇叭，使計算機在指定的時候發聲 set safety off *指定在覆蓋已有的文件時不打開一個對話框 set escape on *指定在按下 ESC 鍵后，中斷命令和程序的運行 set confirm on set exact on *指定在創建新紀錄時，將當前紀錄所有字段的數據復制到新紀錄中 set confirm on set exact on *指定兩個表達式必須長度相等才能進行比較 set near on set ansi off set lock on *指定在執行某些需 要只讀訪問一個表的命令時，具體自動鎖定表的功能 set exclusive off *指定在網格上任何用戶可以共享和修改網上打開的表 set multilocks on set delete on *表示在命令中使用范圍參數處理紀錄時，不妨問標有刪除標記的記錄 set optimize on *指定可以使用 Rushmore 優化技術 set refresh to 0,5 *設定網格中表的刷新時間 set collate to ?stroke? *設定字符型字段的排序結果 set default to sys(5)+curdir *設置默認文件目錄 set path to sys(5)+curdir 37 *指定查找文件目錄 set sysformats off *指定當修改 Windows 系統設置修改時，不更新 Visual FoxPro 系統設置 以下設置關系時間、貨幣，是否設置不影響整個程序 set seconds on set century off set currency left set currency to ?nt$? set hours to 12 set date to usa set decimals to 2 set fdow to 1 set fweek to 1 set mark to ?.? set separator to ?,? set point to ?.? 新建程序 ，包括恢復系統菜單和其它一些開發環境必需的配置。 set sysmenu on *歡迎系統菜單 sysmsnu on *打開系統菜單 set talk on set notify on set exclusive on set safety on modify window screen *將 Visual FoxPro 主窗口返回到它啟動時的設置 將 ，如圖 137 所示。 38 圖 137 設置主文件 系統的編譯和發行 1. 系統的編譯 設計系統的目的就是要使使用者即使部安裝 Visual FoxPro ，也能運行該程序。要想系統脫離 Visual FoxPro 環境運行，需要對系統進行編譯，制作出可單獨運行的可執行程序。系統的編譯過程簡述如下。 首先將系統中涉及到的文件全部包含進“ Project Manager （項目管理器）”。需要注意 的是主界面中用到的圖片文件需要手工添加進來。將其包含到“ Other（其他）”中的“ Other Files（其他文件）”項中。 無用的表單、數據表等都要刪除，最后將它們的源文件從系統目錄中刪除，如本例為“ D：\salary”，請將無關文件從中刪除。 單擊項目管理器右側的“連編”按鈕，選擇連編選項。請首先選擇“重新連編全部文件”命令，它的功能是將項目管理器中包含的文件作檢查，如果在連編后刪掉某些文件，就需要使用這個按鈕重新編譯。 編譯結束后，如沒有錯誤，就可以生成可執行文件了。如有錯誤系統會自動彈出提示。讀者應 根據提示修改錯誤。本例中是生成 .EXE 文件，即可執行文件，請選擇“連編可執行文件”命令系統會彈出對話框選擇保存路徑，請選擇系統的文件目錄。如本例中選擇“ D:\salary”。 這樣系統的連編就完成了。再將“ ”和“ ”兩個文件拷貝到連編后的文件目錄中就可以單擊生成的可執行程序來運行系統了。 2 系統的發行 系統的發行可使“向導”中的“安裝向導”來完成。它的主要步驟是： （ 1） 了解應用程序的基本結構。 （ 2） 制作發布樹。 將系統文件的目錄設為發布樹目錄。 （ 3） 指定應用程序需要的組件。 （ 4） 指定磁盤 映象，即何種安裝磁盤。 （ 5） 設置安裝設置，如“安裝對話框”、“版權信息”等。 設定系統的版權。 （ 6） 指定默認安裝路徑。 指定在安裝時提供用戶的默認路徑。 （ 7） 改變文件的位置。 （ 8） 完成安裝過程。 運行結果 圖 13圖 13圖 140 圖 141 為本章示例中的主要表單的運行結果。 39 圖 138 系統主界面的運行結果 圖 139 個人查詢密碼驗證界面運行結果 40 圖 140 個人查詢顯示運行結果 圖 141報表打印預覽運行結果 結論 設計的指導思想是一切為用戶著想，界面美觀 大方、操作簡單明了，而且作為一個實用的操作系統具有良好的容錯性，在用戶出現誤操作時能及時給出警告，以便用戶及時更正。 系統采用模塊化程序設計方法，既便于系統功能的各種組合和修改，又便于未參與開發的技術維護人員進行補充、維護。 系統具備數據庫維護功能，及時根據用戶需求進行數據的添加、刪除、修改、備份等操作。 41 通過做課程設計， 我掌握了信息管理系統的開發方法和步驟 。 附錄：源代碼清單 Do from salary\form\personnel do form salary\form\dataformat do form salary\form\result do form salary\form\grcx clear events