【正文】 值——“工資等級(jí)”、“工資額”。設(shè)置表單的Load事件代碼：Public getid *設(shè)置全局變量getid設(shè)置表格的Mouse Up事件代碼：LPARAMETERS nButton, nShift, nXCoord, nYCoordgetid=alltrim()*取得鼠標(biāo)在表格中的標(biāo)記“修改”按鈕Click代碼：=.T.=.T.“修改確認(rèn)”按鈕Click代碼：=.F.=.F.“添加”按鈕Click代碼：append blankgo bottom=.T.=.T.“刪除”按鈕Click代碼：=39。use rank exclusivedelete from rank where rname=getid*刪除選定的記錄，請(qǐng)先將表格數(shù)據(jù)源斷開，刪除后再重新接上 pack*刪除已做標(biāo)記的記錄=39?！巴顺觥卑粹o Click代碼： do form salary\form\dataformat*釋放本表單，打開“基礎(chǔ)設(shè)施”的過渡表單 “崗位工資設(shè)定”、“工齡工資設(shè)定”、表單設(shè)計(jì)的結(jié)果圖120和圖121所示。根據(jù)各個(gè)員工的工資等級(jí)，工作崗位和工齡的資料，表單計(jì)算相應(yīng)的工資額并做出統(tǒng)計(jì)，從而簡(jiǎn)化會(huì)計(jì)的工作。 圖122 工資表一覽表單在提供了工資一覽的同時(shí)，還提供了工資報(bào)表預(yù)覽及打印的功能。如圖123所示。為防止表數(shù)據(jù)被修改，將各Column的Text1的“Enabled”屬性為“.F.”。表150 控件屬性更改值控件 ControlSourceColumn1Column2Column3Column4Column5Column6++接下來就是預(yù)覽及打印的設(shè)置了，Visual Foxpro 只能打印報(bào)表，因此若要打印記錄，必須先設(shè)計(jì)報(bào)表。打卡項(xiàng)目管理器的文檔，選中Reports（報(bào)表），選擇新建報(bào)表。 圖124 標(biāo)題/總結(jié)選擇本表單指添加標(biāo)題，故選中“標(biāo)題帶區(qū)”，然后單擊“確定”按鈕。為本表單設(shè)計(jì)Title（標(biāo)題）較簡(jiǎn)單，注意設(shè)計(jì)時(shí)要加入時(shí)間，使用Date()函數(shù)，如圖126所示。設(shè)置報(bào)表的數(shù)據(jù)環(huán)境。 圖125 添加標(biāo)題后的報(bào)表 圖126 報(bào)表標(biāo)題 圖127 報(bào)表的頁(yè)標(biāo)題報(bào)表的Detail（細(xì)節(jié)）即報(bào)表的數(shù)據(jù)區(qū)，它的位置要與報(bào)表的頁(yè)標(biāo)頭相對(duì)應(yīng)，如圖131所示。 區(qū)域?qū)傩愿闹? Field（區(qū)域） 表達(dá)式123456++報(bào)表的頁(yè)注腳也是不可或缺的。 圖129 報(bào)表的頁(yè)注腳區(qū)域的表達(dá)式填寫“頁(yè)+alltrim(str(_pageno))”。設(shè)計(jì)的結(jié)果如圖130所示。保存路徑為“D:\salary\from”。在剛才的表單中添加“打印預(yù)覽”按鈕，填寫Click事件代碼：report form salary\form\result to print preview*預(yù)覽該表單在“打印”按鈕中填寫Click事件代碼：report form salary\form\result to print*將報(bào)表送到打印機(jī) 本模塊的目標(biāo)是設(shè)計(jì)一個(gè)員工查詢個(gè)人工資的功能。密碼驗(yàn)證界面如圖131所示。 員工號(hào)和密碼本例均設(shè)為數(shù)字，員工號(hào)為3位數(shù)，密碼為6位數(shù)，修改TextText2的屬性見表112。 為保證使用者的密碼安全性，要求在密碼框中（Text2）顯示“*”覆蓋密碼真實(shí)值。為表單添加數(shù)據(jù)環(huán)境，設(shè)為表TMS。設(shè)備管理系統(tǒng)39。用戶名錯(cuò)誤，請(qǐng)重新輸入39。39。設(shè)備管理系統(tǒng)39。密碼錯(cuò)誤，請(qǐng)重新輸入39。39。設(shè)計(jì)個(gè)人工資表顯示的界面如圖132所示。下面介紹試圖的創(chuàng)建過程。找到“本地試圖”，單擊“新建”按鈕后，選擇“新建視圖”命令,添加表dept、personnel，視圖的設(shè)置如圖133所示。選擇表之間的連接關(guān)系：（Inner Join）。設(shè)置視圖的篩選條件，如圖134所示.。此參數(shù)名與剛才設(shè)置的參數(shù)名一致。本例中為Personnel表中的pid字段。如圖135所示。建立視圖2，其中表為Personnel、Rank。參數(shù)為par1。建立視圖3，其中表為Personnel、gongling。（Inner Join）參數(shù)為par1。設(shè)置各文本框的ControlSource為對(duì)應(yīng)視圖字段。表113 控件屬性更改值控件ControlSource Value EnabledTxtPid.F.TxtPname.F.TxtRsalary.F.TxtJobsalary.F.TxtGsalary.F.Txte1=++.F.為表單添加數(shù)據(jù)庫(kù)環(huán)境，為視圖job、視圖gl、視圖rankk。要注意的是為了使資料中的信息處于不能任意修改的狀態(tài)，應(yīng)該將各個(gè)文本框的Enabled屬性更改為“.F.”。 圖136 查詢結(jié)果 系統(tǒng)主程序的設(shè)計(jì)系統(tǒng)要執(zhí)行，需要一個(gè)主程序。系統(tǒng)主程序的設(shè)計(jì)步驟如下：在“項(xiàng)目管理器”中選擇“代碼”中的“程序”，單擊“新建”按鈕，為系統(tǒng)新建一個(gè)主程序。clear screen clear events*打開數(shù)據(jù)庫(kù)open database database\salary*執(zhí)行開始菜單do form form\ksjm設(shè)置系統(tǒng)環(huán)境配置do setting *開始響應(yīng)事件read events*收到“Clear Events”命令后關(guān)閉數(shù)據(jù)庫(kù)，還原系統(tǒng)環(huán)境配置close databasedo reset 設(shè)置系統(tǒng)環(huán)境配置：set sysmenu off*將系統(tǒng)菜單關(guān)閉set sysmenu toset status bar off*不顯示圖形狀態(tài)框set talk off*指定在Visual FoxPro主窗口、系統(tǒng)信息窗口、圖形狀態(tài)欄、或用戶自定義窗口中不顯示命令結(jié)果set clock status*將時(shí)鐘在指定的位置上顯示，而不放在圖形狀態(tài)欄中set palette off*不使用Visual FoxPro 默認(rèn)的調(diào)色板set bell on *打開計(jì)算機(jī)喇叭，使計(jì)算機(jī)在指定的時(shí)候發(fā)聲set safety off*指定在覆蓋已有的文件時(shí)不打開一個(gè)對(duì)話框set escape on*指定在按下ESC鍵后，中斷命令和程序的運(yùn)行set confirm onset exact on*指定在創(chuàng)建新紀(jì)錄時(shí)，將當(dāng)前紀(jì)錄所有字段的數(shù)據(jù)復(fù)制到新紀(jì)錄中set confirm onset exact on*指定兩個(gè)表達(dá)式必須長(zhǎng)度相等才能進(jìn)行比較set near onset ansi offset lock on*指定在執(zhí)行某些需要只讀訪問一個(gè)表的命令時(shí)，具體自動(dòng)鎖定表的功能set exclusive off*指定在網(wǎng)格上任何用戶可以共享和修改網(wǎng)上打開的表set multilocks onset delete on*表示在命令中使用范圍參數(shù)處理紀(jì)錄時(shí)，不妨問標(biāo)有刪除標(biāo)記的記錄set optimize on*指定可以使用Rushmore優(yōu)化技術(shù)set refresh to 0,5*設(shè)定網(wǎng)格中表的刷新時(shí)間set collate to ‘stroke’*設(shè)定字符型字段的排序結(jié)果set default to sys(5)+curdir*設(shè)置默認(rèn)文件目錄set path to sys(5)+curdir*指定查找文件目錄set sysformats off*指定當(dāng)修改Windows系統(tǒng)設(shè)置修改時(shí)，不更新Visual FoxPro系統(tǒng)設(shè)置以下設(shè)置關(guān)系時(shí)間、貨幣，是否設(shè)置不影響整個(gè)程序set seconds onset century offset currency leftset currency to ‘nt$’set hours to 12set date to usaset decimals to 2set fdow to 1set fweek to 1set mark to ‘.’set separator to ‘,’set point to ‘.’，包括恢復(fù)系統(tǒng)菜單和其它一些開發(fā)環(huán)境必需的配置。圖137設(shè)置主文件1. 系統(tǒng)的編譯設(shè)計(jì)系統(tǒng)的目的就是要使使用者即使部安裝Visual FoxPro ，也能運(yùn)行該程序。系統(tǒng)的編譯過程簡(jiǎn)述如下。需要注意的是主界面中用到的圖片文件需要手工添加進(jìn)來。無用的表單、數(shù)據(jù)表等都要?jiǎng)h除，最后將它們的源文件從系統(tǒng)目錄中刪除，如本例為“D：\salary”，請(qǐng)將無關(guān)文件從中刪除。請(qǐng)首先選擇“重新連編全部文件”命令，它的功能是將項(xiàng)目管理器中包含的文件作檢查，如果在連編后刪掉某些文件，就需要使用這個(gè)按鈕重新編譯。如有錯(cuò)誤系統(tǒng)會(huì)自動(dòng)彈出提示。即可執(zhí)行文件，請(qǐng)選擇“連編可執(zhí)行文件”命令系統(tǒng)會(huì)彈出對(duì)話框選擇保存路徑，請(qǐng)選擇系統(tǒng)的文件目錄。這樣系統(tǒng)的連編就完成了。2系統(tǒng)的發(fā)行系統(tǒng)的發(fā)行可使“向?qū)А敝械摹鞍惭b向?qū)А眮硗瓿伞＃?） 制作發(fā)布樹。（3） 指定應(yīng)用程序需要的組件。（5） 設(shè)置安裝設(shè)置，如“安裝對(duì)話框”、“版權(quán)信息”等。（6） 指定默認(rèn)安裝路徑。（7） 改變文件的位置。圖13圖13圖140圖141為本章示例中的主要表單的運(yùn)行結(jié)果。系統(tǒng)采用模塊化程序設(shè)計(jì)方法，既便于系統(tǒng)功能的各種組合和修改，又便于未參與開發(fā)的技術(shù)維護(hù)人員進(jìn)行補(bǔ)充、維護(hù)。通過做課程設(shè)計(jì)，我掌握了信息管理系統(tǒng)的開發(fā)方法和步驟。增加新記錄39。增加確認(rèn)39。增加新記錄39。修改這條記錄39。修改確認(rèn)39。修改這條記錄39。39。39。39。39。39。39。39。39。39。39。39。39。增加確認(rèn)39。增加新記錄39。修改確認(rèn)39。修改這條記錄39。39。39。39。39。39。rank