【正文】 圖123復(fù)雜的表間關(guān)系為表單添加表格，設(shè)置“ColumnCount”屬性為6，表明表格的列數(shù)為6列。結(jié)果如圖125所示。它的設(shè)計如圖129所示。每個人員工都有自己的密碼，通過輸入員工號和密碼，進(jìn)入個人工資表。 編寫表單的Load事件代碼：public inname*設(shè)置全局變量獲得輸入的工號public flag*設(shè)置全局變量控制輸入的次數(shù)flag=0編寫“確定”按鈕Click事件代碼：inname=alltrim()*獲得輸入的工號inpswd=alltrim()*獲得輸入的密碼set order to tms_userseek inname*檢查工號是否存在if !found() cMessageTitle=39。 cMessageText=39。在神戶據(jù)庫中表與視圖屬于平行設(shè)置。字段名則為要求篩選時與參數(shù)一致的字段。視圖名為rankk。最后不要忘記設(shè)計一個“退出”按鈕，查詢結(jié)果如圖136所示。set sysmenu on*歡迎系統(tǒng)菜單sysmsnu on*打開系統(tǒng)菜單set talk onset notify onset exclusive onset safety onmodify window screen*將Visual FoxPro 主窗口返回到它啟動時的設(shè)置，如圖137所示。單擊項目管理器右側(cè)的“連編”按鈕，選擇連編選項。再將“”和“”兩個文件拷貝到連編后的文件目錄中就可以單擊生成的可執(zhí)行程序來運(yùn)行系統(tǒng)了。設(shè)定系統(tǒng)的版權(quán)。系統(tǒng)具備數(shù)據(jù)庫維護(hù)功能，及時根據(jù)用戶需求進(jìn)行數(shù)據(jù)的添加、刪除、修改、備份等操作。tableupdate(.t.)tableupdate(.t.)=.F.=.F.=.F.=.F.=.F.=.F.=.T.=.T.=.T.=.F.endifendif=.F.=.F.=.T.=.F.if =39。=39。=39。=39。=39。case flag=1 =.T.endcaseflag=do casecase flag=0=.F.=39。use rank exclusivedelete from rank where rname=getidpack=39。Public getid LPARAMETERS nButton, nShift, nXCoord, nYCoordgetid=alltrim()=.T.=.T.=.F.=.F.append blankgo bottom=.T.=.T.=39。=.T.=.T.tablerevert(.f.)endif=.F.=.F.=.F.=.F.=.F.=.F.=.T.=.F.flag=do case case flag=0=.F.=39。=.F.=.F.=.F.=.F.=.F.=.F.if =39。=39。=39。tableupdate(.t.)=.F.=.F.=.F.=.F.=.F.=.F.=.T.=.T.=.F.=.T.getid=alltrim()=39。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。 圖138 系統(tǒng)主界面的運(yùn)行結(jié)果圖139個人查詢密碼驗證界面運(yùn)行結(jié)果 圖140個人查詢顯示運(yùn)行結(jié)果圖141報表打印預(yù)覽運(yùn)行結(jié)果 結(jié)論設(shè)計的指導(dǎo)思想是一切為用戶著想，界面美觀大方、操作簡單明了，而且作為一個實用的操作系統(tǒng)具有良好的容錯性，在用戶出現(xiàn)誤操作時能及時給出警告，以便用戶及時更正。（4） 指定磁盤映象，即何種安裝磁盤。如本例中選擇“D:\salary”。將其包含到“Other（其他）”中的“Other Files（其他文件）”項中。為主程序編寫代碼，存儲為mainprg。見表113。（Inner Join）。注意在填寫實例的時候應(yīng)在參數(shù)前加上問號（？），然后才是參數(shù)名。 圖132 個人工資表顯示頁面為使表內(nèi)各資料隨員工好的改變計時更新，本表單中使用了視圖。 case nAnswer=7 messagebox(請勿偷窺他人資料,48,警告) endcaseelse if tms_pswd!=inpswd cMessageTitle=39。將Text2的PasswordChar屬性設(shè)置為“*”。報表設(shè)計完成了，要怎樣才能加到表單中去呢？下面解決這個問題。 圖128報表的細(xì)節(jié)從左至右區(qū)域的表達(dá)式設(shè)置見表111。彈出報表設(shè)計器，在Visual FoxPro的主菜單中的報表中選擇“標(biāo)題/總結(jié)”，為表單添加標(biāo)題，如圖124所示。首先為表單設(shè)計數(shù)據(jù)環(huán)境，添加表Personnel、Dept、Gongling、Rank，設(shè)置表間的關(guān)系。39。表19 控件屬性更改值控件 ControlSource TxtpidTxtpnameTxtpsexTxtpjobTxtpindateTxtprank因為本頁面顯示的是查詢結(jié)果，因此所有的數(shù)據(jù)均不能修改，將所有文本框均設(shè)為不可用，即屬性均設(shè)為”.F.”。如果使用者想查詢另一個記錄，可以單擊“查詢另一個”按鈕，它的Click事件代碼為： =39。使用者此時單擊“查詢結(jié)果”按鈕可以得到查詢結(jié)果。=.T.=.T.*根據(jù)實際情況更改各個按鈕的狀態(tài)tablerevert(.f.)*取消對表所作的操作endif=.F.=.F.=.F.=.F.=.F.=.F.=.T.=.F.*恢復(fù)各個控件的狀態(tài)上段代碼的功能為取消前面所作的操作。為“取消操作”按鈕添加Click事件代碼：if =39。39。39。39。為“修改這條記錄”按鈕添加Click事件代碼：=.F.*使“增加”按鈕不可用=.F.*使“刪除”按鈕不可用=.T.*使“取消”按鈕可用=.F.*使導(dǎo)航條可用if =39。按鈕“取消操作”的“Enabled” 屬性設(shè)為“.F.”。1.“一覽”子頁面的設(shè)計將表單數(shù)據(jù)環(huán)境中的表”Personnel”的字段添加到表單中，如圖114所示。接下來進(jìn)入其他表單的設(shè)計。因此，此時需要為表單設(shè)計事件響應(yīng)。在Picture中可以把控件的界面設(shè)為圖象，以便使用者能更形象地使用所開發(fā)的軟件。首先，展開項目管理器中的文檔，選中表單，單擊右側(cè)“新建”按鈕。 圖15 新建數(shù)據(jù)表在選擇“新建表”命令后，在彈出的對話框中將表存儲為：D:salary\datebase\。可以看出兩個空白是相同的，因此要想打印出沒有空白的表，應(yīng)將小細(xì)節(jié)的底框緊貼在表的下緣，如圖143所示。包含的數(shù)據(jù)庫項有員工號、員工姓名、員工基礎(chǔ)工資、員工崗位工資、員工工齡工資、公司福利、員工實得工資。包括的數(shù)據(jù)庫項有工資等級、工資額。2. 解決方案(或數(shù)據(jù)庫系統(tǒng)設(shè)計) ER模型設(shè)計本實例根據(jù)上面的設(shè)計規(guī)劃出的實體有：員工實體、員工工資實體、工資等級實體、部門崗位體、工資實體、公司福利實體。該系統(tǒng)的具體任務(wù)就是設(shè)計一個企業(yè)工資的數(shù)據(jù)庫管理系統(tǒng)，由計算機(jī)來代替人工執(zhí)行一系列諸如增加新員工、刪除舊員工、工資修改、查詢、統(tǒng)計、打印等操作。這個階段主要是確定基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為以后進(jìn)一步設(shè)計打下基礎(chǔ)。l 工齡的工資金額。每個表格表示在數(shù)據(jù)庫中的一個表（只列出與本例相關(guān)的字段）表1—1為員工基本狀況表PERSONNEL 員工基本狀況表列名數(shù)據(jù)類型可否為空說明PIDCHARACTER(3)NOT NULL員工號（索引）PNAMECHARACTER(10)NULL員工姓名PSEXCHARACTER(2)NULL員工性別PDEPTCHARACTER(10)NULL所在部門PJOBCHARACTER(10)NULL所在崗位PINDATECHARACTER(2)NULL工齡PRANKCHARACTER(2)NULL工資等級表1—2為工資等級表PANK工資等級表列名數(shù)據(jù)類型可否為空說明RNAMECHARACTER(2)NOT NULL工資等級(索引)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)的用戶口令表系