【正文】 附錄：源代碼清單 Do from salary\form\personnel do form salary\form\dataformat do form salary\form\result do form salary\form\grcx clear events 。 系統(tǒng)具備數(shù)據(jù)庫(kù)維護(hù)功能，及時(shí)根據(jù)用戶需求進(jìn)行數(shù)據(jù)的添加、刪除、修改、備份等操作。 39 圖 138 系統(tǒng)主界面的運(yùn)行結(jié)果 圖 139 個(gè)人查詢密碼驗(yàn)證界面運(yùn)行結(jié)果 40 圖 140 個(gè)人查詢顯示運(yùn)行結(jié)果 圖 141報(bào)表打印預(yù)覽運(yùn)行結(jié)果 結(jié)論 設(shè)計(jì)的指導(dǎo)思想是一切為用戶著想，界面美觀 大方、操作簡(jiǎn)單明了，而且作為一個(gè)實(shí)用的操作系統(tǒng)具有良好的容錯(cuò)性，在用戶出現(xiàn)誤操作時(shí)能及時(shí)給出警告，以便用戶及時(shí)更正。 （ 8） 完成安裝過程。 指定在安裝時(shí)提供用戶的默認(rèn)路徑。 設(shè)定系統(tǒng)的版權(quán)。 （ 4） 指定磁盤 映象，即何種安裝磁盤。 將系統(tǒng)文件的目錄設(shè)為發(fā)布樹目錄。它的主要步驟是： （ 1） 了解應(yīng)用程序的基本結(jié)構(gòu)。再將“ ”和“ ”兩個(gè)文件拷貝到連編后的文件目錄中就可以單擊生成的可執(zhí)行程序來運(yùn)行系統(tǒng)了。如本例中選擇“ D:\salary”。讀者應(yīng) 根據(jù)提示修改錯(cuò)誤。 編譯結(jié)束后，如沒有錯(cuò)誤，就可以生成可執(zhí)行文件了。 單擊項(xiàng)目管理器右側(cè)的“連編”按鈕，選擇連編選項(xiàng)。將其包含到“ Other（其他）”中的“ Other Files（其他文件）”項(xiàng)中。 首先將系統(tǒng)中涉及到的文件全部包含進(jìn)“ Project Manager （項(xiàng)目管理器）”。要想系統(tǒng)脫離 Visual FoxPro 環(huán)境運(yùn)行，需要對(duì)系統(tǒng)進(jìn)行編譯，制作出可單獨(dú)運(yùn)行的可執(zhí)行程序。 set sysmenu on *歡迎系統(tǒng)菜單 sysmsnu on *打開系統(tǒng)菜單 set talk on set notify on set exclusive on set safety on modify window screen *將 Visual FoxPro 主窗口返回到它啟動(dòng)時(shí)的設(shè)置 將 ，如圖 137 所示。為主程序編寫代碼，存儲(chǔ)為 mainprg。由主程序設(shè)置系統(tǒng)的環(huán)境后，打開程序主表單，等待使用者的操作。設(shè)置方法前文有介紹。最后不要忘記設(shè)計(jì)一個(gè)“退出”按鈕，查詢結(jié)果如圖 136 所示。見表 113。 試圖名為 g1。 要顯示的字段為 。 視圖名為 rankk。 連接為 內(nèi)連接（ Inner Join）。建 立視圖 2，其中表為 Personnel、Rank。如圖 135 所示。本例中為 Personnel表中的 pid 字段。此參數(shù)名與剛才設(shè)置的參數(shù)名一致。設(shè)置視圖的篩選條件，如圖 134 所示 .。選擇表之間的連接關(guān)系： 連接（ Inner Join）。找到“本地試圖”，單擊“新建”按鈕后，選擇“新建視圖”命令 ,添加表 dept、 personnel，視圖的設(shè)置如圖 133 所示。下面介紹試圖的創(chuàng)建過程。設(shè)計(jì)個(gè)人工資表顯示的界面如圖 132 所示。39。密碼錯(cuò)誤，請(qǐng)重新輸入 39。設(shè)備管理系統(tǒng) 39。39。用戶名錯(cuò)誤，請(qǐng)重新輸入 39。設(shè)備管理系統(tǒng) 39。 為表單添加數(shù)據(jù)環(huán)境，設(shè)為表 TMS。 為保證使用者的密碼安全性，要求在密碼框中（ Text2）顯示“ *”覆蓋密碼真實(shí)值。 員工號(hào)和密碼本例均設(shè)為數(shù)字，員工號(hào)為 3 位數(shù)，密碼為 6 位數(shù)，修改 Text Text2的屬性見表 112。 31 密碼驗(yàn)證界面如圖 131 所示。 在剛才的表單中添加“打印預(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è)人工資的功能。保存路徑為“ D:\salary\from”。 設(shè)計(jì)的結(jié)果如圖 130 所示。 圖 129 報(bào)表的頁(yè)注腳 區(qū)域的表達(dá)式填寫“ 頁(yè) +alltrim(str(_pageno))”。 30 區(qū)域?qū)傩愿闹? Field（區(qū)域） 表達(dá)式 1 2 3 4 5 6 ++ 報(bào)表的頁(yè)注腳也是不可或缺的。 29 圖 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 所示。 設(shè)置報(bào)表的數(shù)據(jù)環(huán)境。 為本表單設(shè)計(jì) Title（標(biāo)題）較簡(jiǎn) 單，注意設(shè)計(jì)時(shí)要加入時(shí)間，使用 Date()函數(shù)，如圖 126所示。 圖 124 標(biāo)題 /總結(jié)選擇 本表單指添加標(biāo)題，故選中“標(biāo)題帶區(qū)”，然后單擊“確定”按鈕。 打卡項(xiàng)目管理器的文檔，選中 Reports（報(bào)表），選擇新建報(bào)表。 表 150 控件屬性更改值 控件 ControlSource Column1 Column2 Column3 28 Column4 Column5 Column6 + + 接下來就是預(yù)覽及打印的設(shè)置了， Visual Foxpro 只能打印報(bào)表，因此若要打印記錄，必須先設(shè)計(jì)報(bào)表。為防止表數(shù)據(jù)被修改，將各 Column 的 Text1 的“ Enabled”屬性為“ .F.”。如圖 123 所示。 27 圖 122 工資表一覽 表單在提供了工資一覽的同時(shí)，還提供了工資報(bào)表預(yù)覽及打印的功能。根據(jù)各個(gè)員工的工資等級(jí)，工作崗位和工齡的資料，表單計(jì)算 相應(yīng)的工資額并做出統(tǒng)計(jì)，從而簡(jiǎn)化會(huì)計(jì)的工作。 “退出”按鈕 Click 代碼： do form salary\form\dataformat *釋放本表單，打開“基礎(chǔ)設(shè)施”的過渡表單 “崗位工資設(shè)定”、“工齡工資設(shè)定”、表單設(shè)計(jì)的結(jié)果圖 120 和圖 121 所示。 use rank exclusive delete from rank where rname=getid *刪除選定的記錄，請(qǐng)先將表格數(shù)據(jù)源斷開，刪除后再重新接上 pack *刪除已做標(biāo)記的記錄 =39。 設(shè)置表單的 Load 事件代碼： Public getid *設(shè)置全局變量 getid 設(shè)置表格的 Mouse Up 事件代碼： LPARAMETERS nButton, nShift, nXCoord, nYCoord getid=alltrim() *取得鼠標(biāo)在表格中的標(biāo)記 “修改”按鈕 Click 代碼： =.T. =.T. “修改確認(rèn)”按鈕 Click 代碼： =.F. =.F. “添加”按鈕 Click 代碼： append blank go bottom =.T. =.T. “刪除”按鈕 Click 代碼： =39。表格是從數(shù)據(jù)環(huán)境中直接推拽到表單中的，更改表格Column（列）的 Header（標(biāo)頭）的 Caption 屬性為所需值 —— “工資等級(jí)”、“工資額”。 “基礎(chǔ)工資”按鈕中 Click 事件代碼為： do form salary\form\jcgz “基礎(chǔ)工資設(shè) 定”表單如圖 119 所示。 最后，為本表的“退出”按鈕填寫 Click 事件代碼 : *釋放本表單 設(shè)計(jì)一個(gè)過渡表單以便使用者進(jìn)行不同功能的選擇，如圖 118 所示。設(shè)置如表 19 所示。 3.“查詢結(jié)果”子頁(yè)面的設(shè)計(jì) 設(shè)計(jì)子頁(yè)面 3 的界面如圖 117 所示。39。39。 case flag=1 =.T. endcase “查詢”按鈕 Click 事件代碼： 22 getpid=alltrim() getpname=alltrim() flag1= flag2=*判斷復(fù)選框選中情況 if flag1=0 and flag2=0 messagebox(請(qǐng)輸入查詢條件 ,48,錯(cuò)誤 ) Endif if flag1=1 and flag2=0 *“工號(hào)”欄此時(shí)被選中 set order to pid *設(shè)置查詢索引為 pid seek getpid if found() messagebox(查到記錄 ,48,注意 ) select * from personnel where pid=getpid into cursor ling *查詢到記錄后將結(jié)果輸入鄰時(shí)表 ling =.T. *將 Page3 激活為可用 else messagebox(沒有這條記錄 ,48,注意 ) endif endif if flag1=0 and flag2=1 *”姓名 ”欄此時(shí)被選中 set order to pname *設(shè)置查詢索引為 Pname seek getpname if found() messagebox(查到記錄 ,48,注意 ) select * from personnel where pname=getpname into cursor ling *將查詢得到 的結(jié)果輸入到臨時(shí)表 ling中 =.T. *子頁(yè)面 3 此時(shí)被激活，使用者可以查看結(jié)果 else messagebox(沒有這條記錄 ,48,注意 ) endif endif if flag1=1 and flag2=1 *此時(shí)兩個(gè)條件均被選中 set order to pid seek getpid 23 if =getpname messagebox(查到記錄 ,48,注意 ) select * from personnel where pid=getpid and pname=getpname into cursor ling *將查詢到的結(jié)果輸入到臨時(shí)表 ling中 =.T. *激活子頁(yè)面 3 else messagebox(沒有這條記錄 ,48,注意 ) *沒有記錄時(shí)給出提示 endif endif 上段代碼的功能是根據(jù)使用者輸入的信息查詢“員工基本信息”數(shù)據(jù)表，并在查找后 進(jìn)行相關(guān)操作。 case flag=1 =.T. endcase “員工姓名” Click 事件代碼： flag= do case case flag=0 *判斷本復(fù)選框是否為選中狀態(tài)， 0 為未選， 1 為選中 =.F. =39。 “員工號(hào)” Click 事件代碼： flag= do case case flag=0 *判斷本復(fù)選框是否為選中狀態(tài)， 0 為未選， 1 為選中 =.F. =39。如未查到記錄也會(huì)顯示相應(yīng)提示。同時(shí)“查詢結(jié)果”子頁(yè)面被激活為可用。 設(shè)計(jì)思路是當(dāng)使用者單擊復(fù)選框時(shí)，下面的文本框相應(yīng)變?yōu)榭捎脿顟B(tài)，否則為不可用狀態(tài)。 本頁(yè)面主要實(shí)現(xiàn)了填寫查詢條件的功能，讓使用者根據(jù)提示查詢到需要的紀(jì)錄。 2.“查詢”字頁(yè)面的設(shè)計(jì) 本子頁(yè)面中使用了 tableupdate（）和 tablerever（）函數(shù)，這兩個(gè)函數(shù)要求先用函數(shù) cursorsetprop（）啟動(dòng)記錄或表緩沖，否則將會(huì)產(chǎn)生錯(cuò)誤。修改這條記錄 39。修改確認(rèn) 39。增加新記錄 39。增加確認(rèn) 39。 *將數(shù)據(jù)源重新接上 =.F. =.F. =.F. =.F. =.F. =.F. *設(shè)定各文本款為不可用，防止 bug出現(xiàn) *本刪除操作不可取消 上段代碼的功能是刪除一個(gè)員工的信息。 =39。 =39。 =39。 =39。 =39。 *先將表單中數(shù)據(jù)源斷開 use personnel exclusive *以獨(dú)占方式打開 set order to pid seek getid delete pack =39。 20 =39。 =39。 =39。 =39。 =39。 為“刪除這條記錄”按鈕添加 Click 事件代碼： getid=alltrim() *獲得輸入的 id 信息 =39。修改這條記錄 39。修改確認(rèn) 39。修改這條記錄 39。 *將本控件的 Caption 更改為“增加新記錄” tableupdate(.t.) *表單的更改確認(rèn) tableupdate(.t.) =.F. =.F. =.F. =.F. =.F. =.F. =.T.