【正文】 (9)在【安裝向?qū)А坎襟E7對話框中，單擊【完成】按鈕，安裝向?qū)ё詣?dòng)生成應(yīng)用程序的磁盤映像。單擊【確定】按鈕，返回【安裝向?qū)А坎襟E6對話框。在【說明】下的文本框中輸入“學(xué)生信息管理系統(tǒng)”，在【命令行】下的文本框中輸入“%”。(8)選擇“”后的【程序管理器】復(fù)選框按鈕。(7) 在【安裝向?qū)А坎襟E6對話框中，改變文件設(shè)置。建議采用默認(rèn)值。 (5) 在【安裝向?qū)А坎襟E4對話框中，設(shè)置安裝屏幕的提示信息，單擊【下一步】按鈕。 (4) 在【安裝向?qū)А坎襟E3對話框中，輸入磁盤映像目錄（D:\LLXSGLXXXT\）。該文件自動(dòng)包含到應(yīng)用程序中。 (3) 在【安裝向?qū)А坎襟E2對話框中，選擇應(yīng)用程序所需的組件，單擊【下一步】按鈕。(2)在【安裝向?qū)А坎襟E1對話框中，指定定位文件。該過程可以通過【安裝向?qū)А縼硗瓿?。單擊【確定】按鈕，就開始進(jìn)行應(yīng)用程序的連編。(2)選擇【連編可執(zhí)行文件】選項(xiàng)，以及【重新編譯全部文件】和【顯示錯(cuò)誤】選項(xiàng)。選擇【連編可執(zhí)行文件】選項(xiàng)，如果沒有錯(cuò)誤，可連編成一個(gè)后綴為EXE的可執(zhí)行文件。單擊【連編】按鈕，彈出【連編選項(xiàng)】對話框。(2) 找到目錄D：\VFP98\客戶管理系統(tǒng)\，單擊【確定】按鈕，就可以將其添加到【項(xiàng)目管理器】對話框的【類】頁面中。在連編應(yīng)用程序時(shí)就需要將其添加到項(xiàng)目中，因?yàn)檫B編后的應(yīng)用系統(tǒng)不一定運(yùn)行在VFP環(huán)境下。在連編應(yīng)用程序之前，要把應(yīng)用程序中所用到的組件添加到項(xiàng)目管理器中。被設(shè)置的文件以粗體形式顯示。在【項(xiàng)目管理器】中，選擇【代碼】頁面中【程序】下的程序文件MAINPRO。 設(shè)置主文件 主程序建好后，就可以把主程序設(shè)置為主文件，作為應(yīng)用程序的入口。在退出時(shí)，要有相應(yīng)的清除循環(huán)的程序，系統(tǒng)才能正常退出。在主程序中，read events語句不可缺少，它用于啟動(dòng)事件循環(huán)。amp。amp。amp。amp。amp。主要使用SET命令來初始化環(huán)境，設(shè)置環(huán)境變量的初值或者狀態(tài)。 (2)在彈出的【程序】窗口中編寫程序代碼。(5)結(jié)束時(shí)清理環(huán)境。(3)設(shè)置系統(tǒng)工具欄。 主程序一般具有如下功能：(1)對系統(tǒng)進(jìn)行初始化，設(shè)置系統(tǒng)的運(yùn)行狀態(tài)參數(shù)。在Visual FoxPro ，是數(shù)據(jù)庫管理系統(tǒng)最先執(zhí)行的程序。 第七章 主程序設(shè)計(jì)在Visual FoxPro ，主程序不是必須有的。 (8)保存命令報(bào)表為“客戶信息”。 (6)通過菜單欄的【報(bào)表】==》【標(biāo)題/總結(jié)】命令，彈出對話框，選擇【標(biāo)題帶區(qū)】。 (4)單擊選定對象按鈕，調(diào)整字段名的位置，單擊布局工具欄的頂邊對齊。 (2) 右擊【數(shù)據(jù)環(huán)境設(shè)計(jì)器】，選擇添加命令，選擇客戶表，單擊添加。單擊【新建】按鈕，彈出【新建報(bào)表】對話框。下面詳細(xì)介紹報(bào)表的使用方法以及具體報(bào)表的設(shè)計(jì)過程。從客戶信息報(bào)表中輸出 同理可設(shè)計(jì)出服務(wù)信息菜單、聯(lián)系人信息菜單、區(qū)號郵編菜單的過程代碼，此處不再一一寫出。指定訪問當(dāng)前表中記錄時(shí)滿足的條件REPORT FORM D:\VFP98\客戶管理系統(tǒng)\客戶信息 amp?？蛻粜畔⒉藛蔚倪^程代碼如下所示：SET FILTER TO amp。(2)在【客戶信息】行的【結(jié)果】列中選擇【過程】選項(xiàng)，默認(rèn)的是子菜單。amp。amp。amp。amp。amp。 (2)單擊結(jié)果列的創(chuàng)建按鈕，彈出一個(gè)空的菜單設(shè)計(jì)器過程編輯界面，在該界面中輸入過程代碼。即在結(jié)果列中選擇過程選項(xiàng)，然后編輯過程代碼。(3)在【選項(xiàng)】文本框中輸入“do form D:\王梅\客戶管理系統(tǒng)\錄入客戶信息”。在該對話框中輸入子菜單的名稱。(1)選中【菜單名稱】列的菜單名，在【結(jié)果】列右邊出現(xiàn)【創(chuàng)建】按鈕。㈡ 在子菜單中調(diào)用表單 下面介紹菜單項(xiàng)中包含子菜單，在子菜單中調(diào)用表單的步驟。 插入分隔線 (8)單擊【菜單級】中的三角箭頭，選擇【菜單欄】選項(xiàng)，就可以返回上一級菜單設(shè)計(jì)器。具體的方法是：將光標(biāo)放在需要添加分隔線的位置，單擊【插入】按鈕，出現(xiàn)一個(gè)新菜單項(xiàng)，將菜單名稱改為“\”。 (6)單擊【菜單名稱】左邊的方塊，出現(xiàn)雙箭頭，通過上下拖動(dòng)來調(diào)整菜單的順序。 【插入系統(tǒng)菜單欄】對話框 (5) 在【插入系統(tǒng)菜單欄】對話框中選擇需要插入的菜單，單擊【插入】按鈕，即可插入到子菜單中。在該對話框中輸入子菜單的名稱。 【菜單設(shè)計(jì)器】對話框 (3)選中【菜單名稱】列的菜單名，在【結(jié)果】列右邊出現(xiàn)【創(chuàng)建】按鈕。單擊【新建】按鈕，彈出【新建菜單】對話框。 創(chuàng)建自定義菜單前面已經(jīng)布局好了菜單，下面就使用【菜單設(shè)計(jì)器】把布局好的菜單設(shè)計(jì)出來。(7)退出系統(tǒng)。(5) 報(bào)表輸出：客戶信息、聯(lián)系人信息、服務(wù)信息以及區(qū)號郵編。 布局菜單 創(chuàng)建菜單之前首先進(jìn)行菜單的布局，在本系統(tǒng)中，主要包含以下菜單： (1) 文件：新建、打開、保存、另存為、關(guān)閉、頁面設(shè)置以及退出； (2)編輯：撤銷、重做、剪切、復(fù)制以及粘貼；(3) 數(shù)據(jù)錄入：錄入客戶信息、錄入聯(lián)系人信息、錄入服務(wù)信息。在Visual FoxPro ，通過菜單設(shè)計(jì)器可以方便、快捷地設(shè)計(jì)菜單。該表單的設(shè)計(jì)方法與客戶查詢表單設(shè)計(jì)一樣，所以在此不再做重復(fù)。該表單的運(yùn)行如圖所示： 查詢部門電話表單是根據(jù)選擇的部門代碼查詢出的部門電話信息。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。所以將各個(gè)文本框控件的Enabled屬性設(shè)置為False。 (7)在【屬性】對話框中，設(shè)置該表單的Caption屬性為“部門電話”Name屬性為：form1。調(diào)整這些控件在表單上的位置。在表單上出現(xiàn)標(biāo)簽部門代碼標(biāo)簽、處室名稱標(biāo)簽、房間號標(biāo)簽、分機(jī)號標(biāo)簽、直撥電話標(biāo)簽。然后單擊【關(guān)閉】按鈕，關(guān)閉【添加表或視圖】對話框。(3)右擊【表單設(shè)計(jì)器】窗口，在彈出的快捷菜單中，選擇【數(shù)據(jù)環(huán)境】命令。彈出【表單設(shè)計(jì)器】窗口。單擊【新建】按鈕，彈出【新建表】對話框。在該界面中可以查看第一條記錄、前一條記錄、后一條記錄、最后一條記錄以及退出該界面。可分為部門電話查詢結(jié)果表單和部門電話查詢表單。因?yàn)樵O(shè)計(jì)方法與客戶查詢表單一樣，只是所調(diào)用表單有改動(dòng)，所以在此不再設(shè)計(jì)。單擊“查詢”按鈕可以調(diào)出“聯(lián)系人查詢結(jié)果”表單。接下來設(shè)計(jì)按電話查詢表單，方法與上兩個(gè)查詢表單相同，在此略去。在【項(xiàng)目管理器】對話框中，選擇【文檔】頁面下【表單】中的【聯(lián)系人查詢】表單。調(diào)用客戶查詢結(jié)果表單 【退出】按鈕的Click事件代碼如下所示：關(guān)閉表單設(shè)計(jì)器，在彈出的保存對話框中保存表單。釋放表單資源 DO FORM D:\VFP98\客戶管理系統(tǒng)\客戶查詢結(jié)果 amp。把選擇的聯(lián)系人編號信息賦值給Ix amp。：下面設(shè)置該表單的方法程序和事件代碼：首先設(shè)計(jì)表單的init事件Init事件的代碼如下所示：PUBLIC IxUSE D\王梅\客戶管理系統(tǒng)\客戶表GO TOPTHISFORM,=【查詢】按鈕的Click事件代碼如下所示：Ix=ALLTRIM() amp。 (8)設(shè)置表單的caption屬性為：聯(lián)系人編號查詢。 (7)選擇“命令按鈕”控件，在表單上放置兩個(gè)命令按鈕。設(shè)置rowsourcetype屬性為6字段。設(shè)置fontsize屬性為12。然后單擊【關(guān)閉】按鈕，關(guān)閉【添加表或視圖】對話框。(3) 右擊“表單設(shè)計(jì)器”窗口，在彈出的快捷菜單中，選擇【數(shù)據(jù)環(huán)境】命令。彈出【表單設(shè)計(jì)器】窗口。單擊【新建】按鈕，彈出【新建表】對話框。單擊【運(yùn)行】按鈕，運(yùn)行后的表單如下圖所示。文件命名為“客戶編號查詢”。amp。amp。amp。Name屬性為：mform。其caption屬性分別為“查詢”和“退出”。設(shè)置columncount為1。 (6)在表單控件工具欄選擇組合框控件，在空表單上拖出組合框，右擊添加的組合框，在【屬性】對話框中選擇【數(shù)據(jù)】頁面。 (5)在表單控件工具欄選擇標(biāo)簽控件,在空表單上拖出標(biāo)題標(biāo)簽，設(shè)置caption屬性為：按客戶編號查詢；“標(biāo)簽”控件，在表單上拖出一個(gè)標(biāo)簽，設(shè)置caption屬性為請選擇客戶的編號。 (4)在彈出的【添加表或視圖】對話框中，從【數(shù)據(jù)庫中的表】中選擇客戶表，單擊【添加】按鈕。一個(gè)名為form1的空表單也隨之出現(xiàn)在【表單設(shè)計(jì)器】窗口中。 (2)單擊【新建表單】按鈕。數(shù)據(jù)環(huán)境：客戶表按客戶編號查詢表單的設(shè)計(jì)步驟如下所示： (1)在【項(xiàng)目管理器】對話框的【文檔】頁面中，選中【表單】選項(xiàng)?？煞譃榘纯蛻艟幪柌樵儭措娫挷樵?、按聯(lián)系人編號查詢。 表單運(yùn)行結(jié)果 客戶查詢表單設(shè)計(jì)客戶查詢表單是根據(jù)一定的條件查詢出客戶的信息。 (6)添加7個(gè)按鈕，按鈕的Caption屬性分別為：第一個(gè)、上一個(gè)、下一個(gè)、最后一個(gè)、添加、刪除以及退出。Name屬性依次為txt部門代碼、txt客戶代碼、txt服務(wù)項(xiàng)目、txt服務(wù)評價(jià)、txt金額等。 (5)依次把數(shù)據(jù)環(huán)境中的字段拖到空表單的合適位置。 (4)在彈出的【添加表或視圖】對話框中，從【數(shù)據(jù)庫中的表】中選擇服務(wù)表，單擊【添加】按鈕。一個(gè)名為form1的空表單也隨之出現(xiàn)在【表單設(shè)計(jì)器】窗口中。 (2) 單擊【新建表單】按鈕。 表單的運(yùn)行界面 錄入服務(wù)信息表單 (1)在【項(xiàng)目管理器】對話框的【文檔】頁面中，選中【表單】選項(xiàng)。在【項(xiàng)目管理器】對話框中，選擇【文檔】頁面中【表單】選項(xiàng)下的【錄入聯(lián)系人信息】表單。關(guān)閉表單設(shè)計(jì)器，在彈出的保存對話框中保存表單。amp。amp。amp。amp。amp。amp。amp。提示39。你的確刪除該記錄嗎?39。amp。amp。amp。amp。因?yàn)樵摫韱物@示的內(nèi)容是可以修改的，設(shè)置文本框的Enabled屬性為true。Init事件在初始化錄入表單時(shí)運(yùn)行。下面設(shè)計(jì)錄入聯(lián)系人信息表單的方法程序和事件代碼。(6)添加7個(gè)按鈕，按鈕的Caption屬性分別為：第一個(gè)、上一個(gè)、下一個(gè)、最后一個(gè)、添加、刪除以及退出。Name屬性依次為txt聯(lián)系人編號、txt姓名、txt性別、txt單位名稱、txt電話、txt生日、txt愛好等。(5)依次把數(shù)據(jù)環(huán)境中的字段拖到空表單的合適位置。(4)在彈出的【添加表或視圖】對話框中，從【數(shù)據(jù)庫中的表】中選擇聯(lián)系人，單擊【添加】按鈕。一個(gè)名為form1的空表單也隨之出現(xiàn)在【表單設(shè)計(jì)器】窗口中。(2)單擊【新建表單】按鈕。錄入聯(lián)系人表單的設(shè)計(jì)步驟如下所示：(1)在【項(xiàng)目管理器】對話框的【文檔】頁面中，選中【表單】選項(xiàng)。單擊【運(yùn)行】按鈕。文件命名為：“錄入客戶信息”。釋放表單資源第一個(gè)、上一個(gè)、下一個(gè)以及最后一個(gè)按鈕的Click事件代碼可參照上面的例子?；謴?fù)共享方式 amp。刷新表單use d:\VFP98\客戶管理系統(tǒng)\ shar amp。釋放表單資源endif【退出】按鈕的Click事件代碼如下所示： amp。緊接下條記錄release thisform amp。刪除記錄pack amp。是否要?jiǎng)h除delete amp。)=6 amp。,4+64+256,39。刷新表單【刪除】按鈕的Click事件代碼如下所示：if messagebox(39。添加一條空記錄 amp。以獨(dú)占的方式打開客戶表【添加】按鈕的Click事件代碼如下所示：append blank amp。選擇客戶表use D:\VFP98\客戶管理系統(tǒng)\ exclusive amp。該查詢表單的Init事件程序代碼如下所示：Select 客戶表 amp。設(shè)計(jì)的方法是：雙擊表單窗口，在彈出的對話框中編寫事件程序。首先設(shè)計(jì)表單的Init事件。(7)在屬性對話框中，設(shè)置該表單的Caption屬性為“錄入客戶信息”。Name屬性依次為txt客戶編號、txt電話、txt單位名稱、txt傳真、txt郵政編碼、txt單位地址、txt聯(lián)系人編號、txt。(5)依次把數(shù)據(jù)環(huán)境中的字段拖到空表單的合適位置。(4)在彈出的【添加表或視圖】對話框中，從【數(shù)據(jù)庫中的表】中選客戶表，單擊【添加】按鈕。一個(gè)名為form1的空表單也隨之出現(xiàn)在【表單設(shè)計(jì)器】窗口中。(2) 單擊【新建表單】按鈕。(1)在【項(xiàng)目管理器】對話框的【文檔】頁面中，選中【表單】選項(xiàng)。 表單的運(yùn)行結(jié)果 錄入客戶信息表單 錄入客戶信息表單的作用是完成客戶信息的錄入。在項(xiàng)目管理器對話框中，選擇【文檔】頁面中【表單】選項(xiàng)下的【聯(lián)系人查詢結(jié)果】表單。釋放表單資源關(guān)閉表單設(shè)計(jì)器，在彈出的保存對話框中保存表單。刷新表單 amp。刷新表單【退出】按鈕的Click事件的代碼如下所示： amp。按鈕組中的按鈕5獲得焦點(diǎn) amp。按鈕組中的按鈕3不能獲得焦點(diǎn). EN