【文章內(nèi)容簡介】 到系統(tǒng)登錄框。打開的系統(tǒng)主表單如圖41所示：圖41 系統(tǒng)主界面 系統(tǒng)主表單在VFP中，應(yīng)用程序的入口稱為主文件，是數(shù)據(jù)管理系統(tǒng)最先執(zhí)行的程序，本系統(tǒng)將主程序設(shè)置為主文件。運行時系統(tǒng)將從主程序開始執(zhí)行，然后由主程序調(diào)用主表單。主程序代碼如下：SET TALK OFF amp。amp。關(guān)閉對話SET ESCAPE OFF amp。amp。關(guān)閉ESCAPE鍵SET EXACT ON amp。amp。打開完全匹配SET EXCLUSIVE ON amp。amp。打開獨占SET CONSOLE ON amp。amp。將輸出結(jié)果到發(fā)送到VFP主窗口或當(dāng)前的活動窗口SET DATE TO LONG amp。amp。設(shè)置長日期SET SCORE OFF amp。amp。關(guān)閉分值欄SET SAFETY OFF amp。amp。關(guān)閉安全提示SET STATUS BAR OFF amp。amp。關(guān)閉系統(tǒng)提示欄SET CENTURY ON amp。amp。打開世紀(jì)開關(guān)SET DELETED ON amp。amp。屏閉刪除項SET SYSMENU OFF amp。amp。關(guān)閉系統(tǒng)菜單SET NOTIFY OFF amp。amp。關(guān)閉提示amp。amp。設(shè)置系統(tǒng)窗口屬性 = .T. amp。amp?？捎米畲蠡粹o = 1280 amp。amp。設(shè)置最大寬度 = 800 amp。amp。設(shè)置最大高度 = 人事管理系統(tǒng) amp。amp。設(shè)置窗口標(biāo)題 = 39。f:\pms\’ amp。amp。設(shè)置窗口背景圖片 = .T. amp。amp。指定表單初次顯示時，自動位于主窗口中央amp。amp。定義全局變量public UserName, UserType amp。amp。分別用來存儲職工號及權(quán)限PUBLIC bm amp。amp。定義公共變量bm=00000zoom window screen max amp。amp。窗口最大化modify window screen title 人事管理系統(tǒng)+space(30)+今天是。+str(year(date()),4)+年+str(month(date()),2)+月+str(day(date()),2)+日 amp。amp。修改窗口標(biāo)題，加入當(dāng)天時間DO form f:\pms\dengluform amp。amp。打開登錄表單Do f:\pms\ amp。amp。打開菜單READ events amp。amp。設(shè)置停留Procedure OnQuit amp。amp。退出的過程 CLEAR EVENTS CLOSE ALL QUITEndproc在主程序運行后，系統(tǒng)執(zhí)行到登錄表單命令，即進(jìn)入系統(tǒng)登錄框。打開的登錄框界面如圖42所示。圖42系統(tǒng)登錄界面此表單的Init過程代碼為：IF NOT USED(39。user39。) USE user IN 0ENDIFSELECT user“登錄”按鈕的Click事件代碼為：IF ALLTRIM() == 39。39。 MessageBox(請輸入職工號) RETURNENDIFIF ALLTRIM() == 39。39。 MessageBox(請輸入密碼) RETURNENDIFSELECT useramp。amp。查找指定用戶名為的記錄Locate For Allt(職工號)=Allt()If Found() == .T. amp。amp。如果找到 If Allt(密碼) == Allt() amp。amp。比較密碼，成功則進(jìn)入 MessageBox(歡迎光臨, 64, 提示信息) UserName = 職工號 amp。amp。記錄登錄用戶的職工號 UserType = 權(quán)限 amp。amp。記錄登錄用戶的權(quán)限 release thisform Else amp。amp。比較密碼不成功 MessageBox(密碼不正確, 16, 錯誤提示) EndifElse amp。amp。沒有找到指定用戶 MessageBox(該職工不存在, 16, 錯誤提示)Endif“退出” 按鈕的Click事件代碼為：ON SHUTDOWN Do OnQuitquit 系統(tǒng)菜單系統(tǒng)菜單是用來調(diào)用系統(tǒng)中包含的所有功能，該菜單將按照功能模塊的形式來組織菜單結(jié)構(gòu)，其主要包括檔案管理、培訓(xùn)管理、職稱評定、獎懲管理、調(diào)動管理、工資管理、系統(tǒng)維護(hù)、退出系統(tǒng)。 系統(tǒng)菜單結(jié)構(gòu)菜單子菜單命令檔案管理職工信息職工查詢職工情況打印職工信息Do form f:\pms\searchresultformDo form f:\pms\stuffsearchDo form f:\pms\stuffconditionReport form f:\pms\zgprint environment preview培訓(xùn)管理培訓(xùn)列表Do form f:\pms\peixunrecord職稱評定職稱評定列表Do form f:\pms\zhichengpd獎懲管理獎懲記錄Do form f:\pms\jiangchengrec調(diào)動管理部門調(diào)動職務(wù)調(diào)動Do form f:\pms\bmdiaodongDo form f:\pms\zwdiaodong工資管理計算工資打印工資條Do form f:\pms\countgongziReport form f:\pms\gzprint environment preview系統(tǒng)維護(hù)密碼修改管理用戶Do form f:\pms\codeeditDo form f:\pms\adduser退出\Quit 創(chuàng)建好菜單結(jié)構(gòu)后，生成可執(zhí)行的菜單程序完成菜單的設(shè)計。當(dāng)用戶進(jìn)入到登錄界面輸入職工號和密碼后，若密碼正確即可進(jìn)入到系統(tǒng)菜單。 檔案管理模塊本人事管理系統(tǒng)的“檔案管理”模塊分為四個子模塊，分別是：“職工信息”、“職工查詢”、“職工情況”、“打印職工信息”。以下是各個功能模塊的實現(xiàn)過程。 “職工信息”子模塊“職工信息”表單用于查詢企業(yè)職工的所有基本信息，可以實現(xiàn)從第一個職工到最后一個職工的基本信息查詢。(1)職工基本信息查詢結(jié)果表單的界面及其構(gòu)成表單由標(biāo)簽控件、文本框控件和命令按鈕控件組成，其中除標(biāo)題標(biāo)簽控件外，其余標(biāo)簽控件均與職工表字段名對應(yīng)。表單運行的數(shù)據(jù)環(huán)境為職工表“zhigong”。運行后的職工信息表單如圖43所示：圖43 職工基本信息查詢結(jié)果表單(2)職工基本信息表單查詢功能的實現(xiàn)因為該表單顯示的是既是直接的職工信息，又是通過查詢模塊查詢后的結(jié)果，所以當(dāng)此表單是由主菜單直接調(diào)用的時，可以進(jìn)行修改操作；而當(dāng)此表單是由查詢表單調(diào)用時，記錄只可以查看不可以修改。當(dāng)然，修改操作也必須在管理員權(quán)限下才可進(jìn)行。因此對該表單的修改操作有兩重限制，先把修改操作的三個按鈕：Add, Edit, .。在表單初始化時將各個文本框控件的Readonly屬性設(shè)置為True,= .。該查詢表單的基本Init事件程序代碼如下所示：PUBLIC cm amp。amp。定義公共變量,用于匹配職工號 amp。amp。刷新表單cm=ALLTRIM() amp。amp。光標(biāo)轉(zhuǎn)到與職工號匹配的記錄= .T. amp。amp。職工號文本框只讀不可修改= .T. amp。amp。設(shè)置text1~= amp。amp。鏈接數(shù)據(jù)表= amp。amp。鏈接數(shù)據(jù)表，把text1~text35每個文本框控件的數(shù)據(jù)源鏈接到“zhigong”表相對應(yīng)的項目，此處省略For(i=2。i100。i++)。IF bm=0000i amp。amp。作為查詢結(jié)果，只可顯示當(dāng)前職工信息SKIP+(i1)EndifIF UserType=1 amp。amp。權(quán)限為管理員才可進(jìn)行修改操作IF bm=00000 amp。amp。非查詢結(jié)果時才可進(jìn)行修改操作=.T.=.T.=.T.ENDIFEndif該查詢表單的Load事件程序代碼如下所示：If !used(39。zhigong39。) amp。amp。若職工表未打開，則打開職工表 Use zhigong in 0Endifselect zhigong amp。amp。若職工表已打開，則選擇職工表該查詢表單的Destroy事件程序代碼如下所示：bm=00000 amp。amp。退出此表單恢復(fù)bm的值IF UserType=2=.F. amp。amp。恢復(fù)按鈕的不可見屬性=.F.=.F.ENDif單擊表單中的“第一條”、上一條”、“下一條”、“最后一條”按鈕實現(xiàn)對第一個員工、上一個員工、下一個員工、最后一個員工的信息查詢，各個按鈕的Click事件程序代碼如下：“第一條”按鈕：GO top amp。amp。指針指向第一條記錄= .T. amp。amp。該記錄獲得焦點= .F. amp。amp。按鈕組中的按鈕1不能獲得焦點= .F. amp。amp。按鈕組中的按鈕2不能獲得焦點= .T. amp。amp。按鈕組中的按鈕3獲得焦點= .T. amp。amp。按鈕組中的按鈕4獲得焦點= .T. amp。amp。按鈕組中的按鈕5獲得焦點 amp。amp。刷新表單“上一條”按鈕：SKIP1 amp。amp。指針指向前一條記錄= .T. amp。amp。按鈕組中的按鈕1獲得焦點= .T. amp。amp。按鈕組中的按鈕3獲得焦點= .T. amp。amp。按鈕組中的按鈕4獲得焦點= .T. amp。amp。按鈕組中的按鈕5獲得焦點 amp。amp。刷新表單IF EOF() amp。amp。判斷指針是否在表頭 = .F. amp。amp。該記錄不能獲得焦點 = .F. = .F.ELSE = .T. amp。amp。該記錄獲得焦點 ENDIF amp。amp。刷新表單“下一條”按鈕：SKIP+1 amp。amp。指針指向下一條記錄= .T. amp。amp。按鈕組中的按鈕1獲得焦點IF EOF() amp。amp。判斷指針是否在表尾 = .F. amp。amp。該記錄不能獲得焦點 = .T. a