【文章內(nèi)容簡(jiǎn)介】 到系統(tǒng)登錄框。打開的系統(tǒng)主表單如圖41所示：圖41 系統(tǒng)主界面 系統(tǒng)主表單在VFP中，應(yīng)用程序的入口稱為主文件，是數(shù)據(jù)管理系統(tǒng)最先執(zhí)行的程序，本系統(tǒng)將主程序設(shè)置為主文件。運(yùn)行時(shí)系統(tǒng)將從主程序開始執(zhí)行，然后由主程序調(diào)用主表單。主程序代碼如下：SET TALK OFF amp。amp。關(guān)閉對(duì)話SET ESCAPE OFF amp。amp。關(guān)閉ESCAPE鍵SET EXACT ON amp。amp。打開完全匹配SET EXCLUSIVE ON amp。amp。打開獨(dú)占SET CONSOLE ON amp。amp。將輸出結(jié)果到發(fā)送到VFP主窗口或當(dāng)前的活動(dòng)窗口SET DATE TO LONG amp。amp。設(shè)置長(zhǎng)日期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。屏閉刪除項(xiàng)SET SYSMENU OFF amp。amp。關(guān)閉系統(tǒng)菜單SET NOTIFY OFF amp。amp。關(guān)閉提示amp。amp。設(shè)置系統(tǒng)窗口屬性 = .T. amp。amp。可用最大化按鈕 = 1280 amp。amp。設(shè)置最大寬度 = 800 amp。amp。設(shè)置最大高度 = 人事管理系統(tǒng) amp。amp。設(shè)置窗口標(biāo)題 = 39。f:\pms\’ amp。amp。設(shè)置窗口背景圖片 = .T. amp。amp。指定表單初次顯示時(shí)，自動(dòng)位于主窗口中央amp。amp。定義全局變量public UserName, UserType amp。amp。分別用來存儲(chǔ)職工號(hào)及權(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)天時(shí)間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在主程序運(yùn)行后，系統(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(請(qǐng)輸入職工號(hào)) RETURNENDIFIF ALLTRIM() == 39。39。 MessageBox(請(qǐng)輸入密碼) RETURNENDIFSELECT useramp。amp。查找指定用戶名為的記錄Locate For Allt(職工號(hào))=Allt()If Found() == .T. amp。amp。如果找到 If Allt(密碼) == Allt() amp。amp。比較密碼，成功則進(jìn)入 MessageBox(歡迎光臨, 64, 提示信息) UserName = 職工號(hào) amp。amp。記錄登錄用戶的職工號(hào) UserType = 權(quán)限 amp。amp。記錄登錄用戶的權(quán)限 release thisform Else amp。amp。比較密碼不成功 MessageBox(密碼不正確, 16, 錯(cuò)誤提示) EndifElse amp。amp。沒有找到指定用戶 MessageBox(該職工不存在, 16, 錯(cuò)誤提示)Endif“退出” 按鈕的Click事件代碼為：ON SHUTDOWN Do OnQuitquit 系統(tǒng)菜單系統(tǒng)菜單是用來調(diào)用系統(tǒng)中包含的所有功能，該菜單將按照功能模塊的形式來組織菜單結(jié)構(gòu)，其主要包括檔案管理、培訓(xùn)管理、職稱評(píng)定、獎(jiǎng)懲管理、調(diào)動(dòng)管理、工資管理、系統(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職稱評(píng)定職稱評(píng)定列表Do form f:\pms\zhichengpd獎(jiǎng)懲管理獎(jiǎng)懲記錄Do form f:\pms\jiangchengrec調(diào)動(dòng)管理部門調(diào)動(dòng)職務(wù)調(diào)動(dòng)Do form f:\pms\bmdiaodongDo form f:\pms\zwdiaodong工資管理計(jì)算工資打印工資條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è)計(jì)。當(dāng)用戶進(jìn)入到登錄界面輸入職工號(hào)和密碼后，若密碼正確即可進(jìn)入到系統(tǒng)菜單。 檔案管理模塊本人事管理系統(tǒng)的“檔案管理”模塊分為四個(gè)子模塊，分別是：“職工信息”、“職工查詢”、“職工情況”、“打印職工信息”。以下是各個(gè)功能模塊的實(shí)現(xiàn)過程。 “職工信息”子模塊“職工信息”表單用于查詢企業(yè)職工的所有基本信息，可以實(shí)現(xiàn)從第一個(gè)職工到最后一個(gè)職工的基本信息查詢。(1)職工基本信息查詢結(jié)果表單的界面及其構(gòu)成表單由標(biāo)簽控件、文本框控件和命令按鈕控件組成，其中除標(biāo)題標(biāo)簽控件外，其余標(biāo)簽控件均與職工表字段名對(duì)應(yīng)。表單運(yùn)行的數(shù)據(jù)環(huán)境為職工表“zhigong”。運(yùn)行后的職工信息表單如圖43所示：圖43 職工基本信息查詢結(jié)果表單(2)職工基本信息表單查詢功能的實(shí)現(xiàn)因?yàn)樵摫韱物@示的是既是直接的職工信息，又是通過查詢模塊查詢后的結(jié)果，所以當(dāng)此表單是由主菜單直接調(diào)用的時(shí)，可以進(jìn)行修改操作；而當(dāng)此表單是由查詢表單調(diào)用時(shí)，記錄只可以查看不可以修改。當(dāng)然，修改操作也必須在管理員權(quán)限下才可進(jìn)行。因此對(duì)該表單的修改操作有兩重限制，先把修改操作的三個(gè)按鈕：Add, Edit, .。在表單初始化時(shí)將各個(gè)文本框控件的Readonly屬性設(shè)置為True,= .。該查詢表單的基本Init事件程序代碼如下所示：PUBLIC cm amp。amp。定義公共變量,用于匹配職工號(hào) amp。amp。刷新表單cm=ALLTRIM() amp。amp。光標(biāo)轉(zhuǎn)到與職工號(hào)匹配的記錄= .T. amp。amp。職工號(hào)文本框只讀不可修改= .T. amp。amp。設(shè)置text1~= amp。amp。鏈接數(shù)據(jù)表= amp。amp。鏈接數(shù)據(jù)表，把text1~text35每個(gè)文本框控件的數(shù)據(jù)源鏈接到“zhigong”表相對(duì)應(yīng)的項(xià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é)果時(shí)才可進(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單擊表單中的“第一條”、上一條”、“下一條”、“最后一條”按鈕實(shí)現(xiàn)對(duì)第一個(gè)員工、上一個(gè)員工、下一個(gè)員工、最后一個(gè)員工的信息查詢，各個(gè)按鈕的Click事件程序代碼如下：“第一條”按鈕：GO top amp。amp。指針指向第一條記錄= .T. amp。amp。該記錄獲得焦點(diǎn)= .F. amp。amp。按鈕組中的按鈕1不能獲得焦點(diǎn)= .F. amp。amp。按鈕組中的按鈕2不能獲得焦點(diǎn)= .T. amp。amp。按鈕組中的按鈕3獲得焦點(diǎn)= .T. amp。amp。按鈕組中的按鈕4獲得焦點(diǎn)= .T. amp。amp。按鈕組中的按鈕5獲得焦點(diǎn) amp。amp。刷新表單“上一條”按鈕：SKIP1 amp。amp。指針指向前一條記錄= .T. amp。amp。按鈕組中的按鈕1獲得焦點(diǎn)= .T. amp。amp。按鈕組中的按鈕3獲得焦點(diǎn)= .T. amp。amp。按鈕組中的按鈕4獲得焦點(diǎn)= .T. amp。amp。按鈕組中的按鈕5獲得焦點(diǎn) amp。amp。刷新表單IF EOF() amp。amp。判斷指針是否在表頭 = .F. amp。amp。該記錄不能獲得焦點(diǎn) = .F. = .F.ELSE = .T. amp。amp。該記錄獲得焦點(diǎn) ENDIF amp。amp。刷新表單“下一條”按鈕：SKIP+1 amp。amp。指針指向下一條記錄= .T. amp。amp。按鈕組中的按鈕1獲得焦點(diǎn)IF EOF() amp。amp。判斷指針是否在表尾 = .F. amp。amp。該記錄不能獲得焦點(diǎn) = .T. a