【正文】 要添加表”Personnel”。這里使用頁框來實(shí)現(xiàn)。為表單的Init事件添加代碼：Public ii=0*聲明全局變量i到此為止，本程序的主界面已設(shè)計(jì)完成，記住要儲(chǔ)存為“D:\salary\form\”，以后設(shè)計(jì)的表單都會(huì)放在“D:salary\form”目錄下，以便其他程序員管理。選擇Timer（記時(shí)器）控件，雙擊后填寫其Timer的事件代碼：if i=0 =.F.*使Label1不可見i=1else =.T.*使Label1可見 i=0endif設(shè)置Timer的Interval屬性為“750”?？梢酝ㄟ^查閱表單的結(jié)構(gòu)層次來理解，如圖111所示圖111 表單中的控件的結(jié)構(gòu)控件添加結(jié)束后，表單并未完成設(shè)計(jì)，此時(shí)的表單運(yùn)行后會(huì)發(fā)現(xiàn)只有一個(gè)空殼，單擊其中的按鈕沒有任何反應(yīng)。并應(yīng)設(shè)置其Streth屬性為“2變比填充”以使圖象能正確顯示。另外，設(shè)置Label的Font（字體）和Fontsize（字體大?。傩钥梢愿淖僀aption顯示的字體及大小。 圖18 為設(shè)計(jì)的表單可以根據(jù)界面的需要向其中添加控件如圖19所示。下面將以主界面的設(shè)計(jì)為例，仔細(xì)講解表單的創(chuàng)建。要注意的是在以后的編寫程序中對(duì)數(shù)據(jù)庫的數(shù)據(jù)的操作通常是引用表的字段，因此在設(shè)計(jì)字段是要挑選容易理解的名稱。下面以表6為例。例如D:\ FoxPro的文件中選擇“新建”→“項(xiàng)目”。圖142 錯(cuò)誤的報(bào)表這是由于報(bào)表欄中的細(xì)節(jié)欄設(shè)計(jì)又有誤，下面是對(duì)應(yīng)的設(shè)計(jì)，如圖142所示。每個(gè)表格表示在數(shù)據(jù)庫中的一個(gè)表（只列出與本例相關(guān)的字段）表1—1為員工基本狀況表PERSONNEL 員工基本狀況表列名數(shù)據(jù)類型可否為空說明PIDCHARACTER(3)NOT NULL員工號(hào)（索引）PNAMECHARACTER(10)NULL員工姓名PSEXCHARACTER(2)NULL員工性別PDEPTCHARACTER(10)NULL所在部門PJOBCHARACTER(10)NULL所在崗位PINDATECHARACTER(2)NULL工齡PRANKCHARACTER(2)NULL工資等級(jí)表1—2為工資等級(jí)表PANK工資等級(jí)表列名數(shù)據(jù)類型可否為空說明RNAMECHARACTER(2)NOT NULL工資等級(jí)(索引)RSALARYNUMERIC(10,2)NULL相應(yīng)工資額表1—3為工作崗位情況表DEPT 工作崗位情況表列名數(shù)據(jù)類型可否為空說明JOBNAMECHARACTER(10)NULL工作崗位名稱（索引）JOBSALARYNUMERIC(10,2)NULL崗位工資表1—4為工齡工資表GONGLING工齡工資表列名數(shù)據(jù)類型可否為空說明GNAMECHARACTER(2)NOT NULL工齡（索引）GSALARYNUMERIC(10,2)NULL 工齡工資額表1—5為公司福利表WELFARE為公司福利表列名數(shù)據(jù)類型可否為空說明WNAMECHARACTER(10)NOT NULL福利名稱（索引）WMONEYNUMERIC(10,2)NULL福利費(fèi)用表1—6為系統(tǒng)的用戶口令表系統(tǒng)的用戶口令表USER_PSWD列名數(shù)據(jù)類型可否為空說明TMS_USERCHARACTER(10)NOT NULL用戶名（索引）TMS_PSWDCHARACTER(10)NOT NULL口令3系統(tǒng)實(shí)現(xiàn)開發(fā)工具：Visual FoxPro 。l 工資信息。l 工齡的工資金額。l 工資級(jí)別和工資金額。這個(gè)階段主要是確定基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為以后進(jìn)一步設(shè)計(jì)打下基礎(chǔ)。開發(fā)的總體任務(wù)是使辦公人員可以輕松快捷的完成工資管理任務(wù)。該系統(tǒng)的具體任務(wù)就是設(shè)計(jì)一個(gè)企業(yè)工資的數(shù)據(jù)庫管理系統(tǒng)，由計(jì)算機(jī)來代替人工執(zhí)行一系列諸如增加新員工、刪除舊員工、工資修改、查詢、統(tǒng)計(jì)、打印等操作。l 盡量利用企業(yè)現(xiàn)有的軟硬件環(huán)境，采用先進(jìn)的管理系統(tǒng)開發(fā)方案，達(dá)到充分利用企業(yè)現(xiàn)有資源，提高系統(tǒng)開發(fā)水平和應(yīng)用效果的目的；l 系統(tǒng)符合企業(yè)工資管理的規(guī)定，滿足企業(yè)相關(guān)人員日常使用的需要，并達(dá)到操作過程中的直觀、方便、使用、安全等要求；l 系統(tǒng)采用模塊化程序設(shè)計(jì)方法，既便于系統(tǒng)功能的各種組合和修改，又便于未參與開發(fā)的技術(shù)維護(hù)人員進(jìn)行補(bǔ)充、維護(hù)。2. 解決方案(或數(shù)據(jù)庫系統(tǒng)設(shè)計(jì)) ER模型設(shè)計(jì)本實(shí)例根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體有：員工實(shí)體、員工工資實(shí)體、工資等級(jí)實(shí)體、部門崗位體、工資實(shí)體、公司福利實(shí)體。在仔細(xì)調(diào)查企業(yè)工資管理過程的基礎(chǔ)上，我們得到本系統(tǒng)所處理的數(shù)據(jù)流程，如圖12所示。包括的數(shù)據(jù)庫項(xiàng)有工資等級(jí)、工資額。包括的數(shù)據(jù)庫項(xiàng)有工齡及對(duì)應(yīng)工資額。包含的數(shù)據(jù)庫項(xiàng)有員工號(hào)、員工姓名、員工基礎(chǔ)工資、員工崗位工資、員工工齡工資、公司福利、員工實(shí)得工資。運(yùn)行環(huán)境：Windows 9X 或Windows 2000?？梢钥闯鰞蓚€(gè)空白是相同的，因此要想打印出沒有空白的表，應(yīng)將小細(xì)節(jié)的底框緊貼在表的下緣，如圖143所示。打開salary項(xiàng)目后，在項(xiàng)目管理器中展開數(shù)據(jù)文件夾，鼠標(biāo)選中數(shù)據(jù)庫，單擊右鍵的“新建”按鈕，如圖14所示，存儲(chǔ)為D:\salary\datebase\。 圖15 新建數(shù)據(jù)表在選擇“新建表”命令后，在彈出的對(duì)話框中將表存儲(chǔ)為：D:salary\datebase\。字段設(shè)置完成后，單擊“確定”按鈕后為表輸入數(shù)據(jù)。首先，展開項(xiàng)目管理器中的文檔，選中表單，單擊右側(cè)“新建”按鈕。 圖19 向表單中添加控件更改各個(gè)控件的屬性值為所屬值，各更改值見表17。在Picture中可以把控件的界面設(shè)為圖象，以便使用者能更形象地使用所開發(fā)的軟件。更改之后的表單如圖110所示。因此，此時(shí)需要為表單設(shè)計(jì)事件響應(yīng)。其作用是控制Timer的執(zhí)行間隔時(shí)間，單位為ms。接下來進(jìn)入其他表單的設(shè)計(jì)。新建表單Personal,存儲(chǔ)”D:\salary\form\”。1.“一覽”子頁面的設(shè)計(jì)將表單數(shù)據(jù)環(huán)境中的表”Personnel”的字段添加到表單中，如圖114所示。如圖116位添加的類——導(dǎo)航條。按鈕“取消操作”的“Enabled” 屬性設(shè)為“.F.”。增加確認(rèn)39。為“修改這條記錄”按鈕添加Click事件代碼：=.F.*使“增加”按鈕不可用=.F.*使“刪除”按鈕不可用=.T.*使“取消”按鈕可用=.F.*使導(dǎo)航條可用if =39。*文本框1獲得鼠標(biāo)焦點(diǎn) else =39。39。39。39。39。39。39。為“取消操作”按鈕添加Click事件代碼：if =39。=.T.=.T.=.T.tablerevert(.f.)*放棄對(duì)表的數(shù)據(jù)更改操作endifif =39。=.T.=.T.*根據(jù)實(shí)際情況更改各個(gè)按鈕的狀態(tài)tablerevert(.f.)*取消對(duì)表所作的操作endif=.F.=.F.=.F.=.F.=.F.=.F.=.T.=.F.*恢復(fù)各個(gè)控件的狀態(tài)上段代碼的功能為取消前面所作的操作。提供了按“員工號(hào)”和“員工姓名”查詢的功能。使用者此時(shí)單擊“查詢結(jié)果”按鈕可以得到查詢結(jié)果。39。如果使用者想查詢另一個(gè)記錄，可以單擊“查詢另一個(gè)”按鈕，它的Click事件代碼為： =39。*將文本框1和2清空，等待下次輸入。表19 控件屬性更改值控件 ControlSource TxtpidTxtpnameTxtpsexTxtpjobTxtpindateTxtprank因?yàn)楸卷撁骘@示的是查詢結(jié)果，因此所有的數(shù)據(jù)均不能修改，將所有文本框均設(shè)為不可用，即屬性均設(shè)為”.F.”。 圖119基礎(chǔ)工資設(shè)定表單 表單數(shù)據(jù)環(huán)境為Rank數(shù)據(jù)表。39。 圖120 崗位工資設(shè)定界面 圖121 工齡工資設(shè)定界面本模塊的功能是實(shí)現(xiàn)對(duì)所有員工的工資匯總，包括他們的基礎(chǔ)工資、崗位工資和工齡工資等。首先為表單設(shè)計(jì)數(shù)據(jù)環(huán)境，添加表Personnel、Dept、Gongling、Rank，設(shè)置表間的關(guān)系。各Column的屬性修改見表150。彈出報(bào)表設(shè)計(jì)器，在Visual FoxPro的主菜單中的報(bào)表中選擇“標(biāo)題/總結(jié)”，為表單添加標(biāo)題，如圖124所示。設(shè)計(jì)報(bào)表的Page Header（頁標(biāo)頭），在Visual Foxpro 的菜單中選擇“顯示”“報(bào)表控件工具欄”，可使用其中的線條和標(biāo)簽實(shí)現(xiàn)頁標(biāo)頭的設(shè)計(jì)，如圖127所示。 圖128報(bào)表的細(xì)節(jié)從左至右區(qū)域的表達(dá)式設(shè)置見表111。它的功能是顯示報(bào)表當(dāng)前頁面的頁數(shù)碼。報(bào)表設(shè)計(jì)完成了，要怎樣才能加到表單中去呢？下面解決這個(gè)問題。 圖131密碼驗(yàn)證界面如圖所示添加個(gè)控件，修改Caption及Alignment屬性。將Text2的PasswordChar屬性設(shè)置為“*”。 cMessageText=39。 case nAnswer=7 messagebox(請(qǐng)勿偷窺他人資料,48,警告) endcaseelse if tms_pswd!=inpswd cMessageTitle=39。 nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6*如果連續(xù)輸入超過3此則自動(dòng)退出 if flag2 =39。 圖132 個(gè)人工資表顯示頁