【正文】 組中的按鈕2獲得焦點. ENABLED=.T. amp。amp。按鈕組中的按鈕3獲得焦點. ENABLED=.T. amp。amp。按鈕組中的按鈕5獲得焦點ENDIF amp。amp。刷新表單 【最后一個】按鈕的Click時間代碼如下所示：GO BOTTOM amp。amp。指針指向第一條記錄=.T. amp。amp。該記錄獲得焦點. ENABLED=.T. amp。amp。按鈕組中的按鈕1獲得焦點. ENABLED=.T. amp。amp。按鈕組中的按鈕2獲得焦點. ENABLED=.F. amp。amp。按鈕組中的按鈕3不能獲得焦點. ENABLED=.T. amp。amp。按鈕組中的按鈕5獲得焦點 amp。amp。刷新表單關(guān)閉表單設(shè)計器，在彈出的保存對話框中保存表單，文件命名為“部門電話查詢結(jié)果”。該表單的運行如圖所示： 查詢部門電話表單是根據(jù)選擇的部門代碼查詢出的部門電話信息。單擊“查詢”按鈕，調(diào)用“部門電話查詢結(jié)果”表單。該表單的設(shè)計方法與客戶查詢表單設(shè)計一樣，所以在此不再做重復(fù)。注：該表單的設(shè)計方法與部門電話查詢表單設(shè)計的方法一樣，故此處略去！ 第五章 菜單設(shè)計 在應(yīng)用程序中，用戶登錄系統(tǒng)后首先看到的是菜單系統(tǒng)。在Visual FoxPro ，通過菜單設(shè)計器可以方便、快捷地設(shè)計菜單。另外菜單也起到組織應(yīng)用系統(tǒng)中各模塊的作用，如果菜單設(shè)計得好，用戶使用起來就比較方便。 布局菜單 創(chuàng)建菜單之前首先進行菜單的布局，在本系統(tǒng)中，主要包含以下菜單： (1) 文件：新建、打開、保存、另存為、關(guān)閉、頁面設(shè)置以及退出； (2)編輯：撤銷、重做、剪切、復(fù)制以及粘貼；(3) 數(shù)據(jù)錄入：錄入客戶信息、錄入聯(lián)系人信息、錄入服務(wù)信息。(4)信息查詢：查詢部門電話、查詢客戶、查詢區(qū)號郵編以及查詢聯(lián)系人。(5) 報表輸出：客戶信息、聯(lián)系人信息、服務(wù)信息以及區(qū)號郵編。(6)系統(tǒng)維護：修改密碼。(7)退出系統(tǒng)。(8)幫助：幫助主題和關(guān)于。 創(chuàng)建自定義菜單前面已經(jīng)布局好了菜單，下面就使用【菜單設(shè)計器】把布局好的菜單設(shè)計出來。㈠ 創(chuàng)建菜單 (1)在【項目管理器】對話框的【其他】頁面中，選中【菜單】選項。單擊【新建】按鈕，彈出【新建菜單】對話框。(2)在【新建菜單】對話框中，單擊【菜單】按鈕，彈出【菜單設(shè)計器】對話框。 【菜單設(shè)計器】對話框 (3)選中【菜單名稱】列的菜單名，在【結(jié)果】列右邊出現(xiàn)【創(chuàng)建】按鈕。單擊【創(chuàng)建】按鈕，彈出一個空的【菜單設(shè)計器】對話框。在該對話框中輸入子菜單的名稱。 (4) 單擊【插入欄】按鈕，彈出【插入系統(tǒng)菜單欄】對話框。 【插入系統(tǒng)菜單欄】對話框 (5) 在【插入系統(tǒng)菜單欄】對話框中選擇需要插入的菜單，單擊【插入】按鈕，即可插入到子菜單中。單擊【關(guān)閉】按鈕，退出【插入系統(tǒng)菜單欄】對話框，返回菜單設(shè)計器。 (6)單擊【菜單名稱】左邊的方塊，出現(xiàn)雙箭頭，通過上下拖動來調(diào)整菜單的順序。 (7)在菜單之間的合適位置插入分隔線。具體的方法是：將光標放在需要添加分隔線的位置，單擊【插入】按鈕，出現(xiàn)一個新菜單項，將菜單名稱改為“\”。插入分隔線的目的是為了增加菜單的可讀性。 插入分隔線 (8)單擊【菜單級】中的三角箭頭，選擇【菜單欄】選項，就可以返回上一級菜單設(shè)計器。 (9)重復(fù)上述步驟4 ~9設(shè)計【編輯】菜單項的子菜單。㈡ 在子菜單中調(diào)用表單 下面介紹菜單項中包含子菜單，在子菜單中調(diào)用表單的步驟。首先設(shè)計“數(shù)據(jù)錄入”菜單。(1)選中【菜單名稱】列的菜單名，在【結(jié)果】列右邊出現(xiàn)【創(chuàng)建】按鈕。單擊【創(chuàng)建】按鈕，彈出一個空的【菜單設(shè)計器】對話框。在該對話框中輸入子菜單的名稱。(2)在【錄入客戶信息】行的【結(jié)果】列中選擇【命令】選項，默認的是【子菜單】。(3)在【選項】文本框中輸入“do form D:\王梅\客戶管理系統(tǒng)\錄入客戶信息”。(3) 在菜單中使用過程在菜單中使用過程。即在結(jié)果列中選擇過程選項，然后編輯過程代碼。首先設(shè)計【退出系統(tǒng)】菜單，設(shè)計的步驟如下： (1)選中菜單名稱列的菜單名“退出系統(tǒng)”，在結(jié)果列中選擇過程選項。 (2)單擊結(jié)果列的創(chuàng)建按鈕，彈出一個空的菜單設(shè)計器過程編輯界面，在該界面中輸入過程代碼?！就顺霾藛巍康倪^程代碼如下所示：SET PROCEDURE TO set procedure to D:\VFP98\客戶管理系統(tǒng)\ amp。amp。指明該過程的位置close databases amp。amp。關(guān)閉數(shù)據(jù)庫close all amp。amp。關(guān)閉所有的表和數(shù)據(jù) clear events amp。amp。清除事件循環(huán) quit amp。amp。退出系統(tǒng) 接著設(shè)計報表輸出菜單的子菜單及其過程代碼(1)選中菜單名稱列的菜單名，在結(jié)果列右邊創(chuàng)建按鈕彈出一個【菜單設(shè)計器】對話框。(2)在【客戶信息】行的【結(jié)果】列中選擇【過程】選項，默認的是子菜單。(3)單擊結(jié)果列的創(chuàng)建按鈕，彈出一個空的菜單設(shè)計器過程編輯界面，在該界面中輸入過程代碼?？蛻粜畔⒉藛蔚倪^程代碼如下所示：SET FILTER TO amp。amp。指定訪問當(dāng)前表中記錄時滿足的條件REPORT FORM D:\VFP98\客戶管理系統(tǒng)\客戶信息 amp。amp。從客戶信息報表中輸出 同理可設(shè)計出服務(wù)信息菜單、聯(lián)系人信息菜單、區(qū)號郵編菜單的過程代碼，此處不再一一寫出。 第六章 報表設(shè)計在系統(tǒng)中需要打印出客戶信息、服務(wù)信息、聯(lián)系人信息和區(qū)號郵編信息，所以首先要設(shè)計出客戶信息報表服務(wù)信息報表、聯(lián)系人信息報表、區(qū)號郵編報信息報表。下面詳細介紹報表的使用方法以及具體報表的設(shè)計過程。 啟動報表設(shè)計器使用【報表設(shè)計器】之前，先要進行啟動，啟動【報表設(shè)計器】的步驟如下所示：(1)在【項目管理器】對話框的【文檔】頁面中，選中【報表】選項。單擊【新建】按鈕，彈出【新建報表】對話框。(2)在【新建報表】對話框中，單擊【報表向?qū)А堪粹o，彈出一個【向?qū)нx取】窗口， 【向?qū)нx取】 客戶信息報表(1) 右擊【報表設(shè)計器】窗口，在彈出的快捷菜單中選擇【數(shù)據(jù)環(huán)境】命令。 (2) 右擊【數(shù)據(jù)環(huán)境設(shè)計器】，選擇添加命令，選擇客戶表，單擊添加。 (3)選擇數(shù)據(jù)環(huán)境中的字段，將其拖動到【報表設(shè)計器】的細節(jié)區(qū)。 (4)單擊選定對象按鈕，調(diào)整字段名的位置，單擊布局工具欄的頂邊對齊。 (5)單擊工具欄中的標簽按鈕，在頁標頭區(qū)設(shè)置與細節(jié)區(qū)字段名相應(yīng)的頁標頭。 (6)通過菜單欄的【報表】==》【標題/總結(jié)】命令，彈出對話框，選擇【標題帶區(qū)】。 (7)單擊菜單欄的預(yù)覽命令，預(yù)覽界面。 (8)保存命令報表為“客戶信息”。用類似的方法設(shè)計出服務(wù)信息報表、聯(lián)系人信息報表、區(qū)號郵編報表。 第七章 主程序設(shè)計在Visual FoxPro ，主程序不是必須有的。應(yīng)用程序的入口也可以是表單或者菜單。在Visual FoxPro ，是數(shù)據(jù)庫管理系統(tǒng)最先執(zhí)行的程序。使用主程序作為主文件比較規(guī)范，盡量使用主程序作為應(yīng)用程序的入口。 主程序一般具有如下功能：(1)對系統(tǒng)進行初始化，設(shè)置系統(tǒng)的運行狀態(tài)參數(shù)。(2)定義全局變量。(3)設(shè)置系統(tǒng)工具欄。(4)調(diào)用系統(tǒng)登錄界面。(5)結(jié)束時清理環(huán)境。 建立主程序首先建立主程序，建立的步驟如下所示： (1)在【項目管理器】對話框的【代碼】頁面中，選中【程序】選項，單擊【新建】按鈕。 (2)在彈出的【程序】窗口中編寫程序代碼。在主程序中首先要初始化環(huán)境。主要使用SET命令來初始化環(huán)境，設(shè)置環(huán)境變量的初值或者狀態(tài)。主程序的代碼為：set sysmenu off amp。amp。 關(guān)閉系統(tǒng)菜單顯示set sysmenu to amp。amp。 關(guān)閉系統(tǒng)菜單set talk off amp。amp。 關(guān)閉屏幕顯示set safety off amp。amp。 關(guān)閉重名文件覆蓋信息提示do form set talk onset safety onread events amp。amp。 響應(yīng)用戶輸入=.f.關(guān)閉程序窗口，在彈出的保存對話框中，命名程序為MAINPRO。在主程序中，read events語句不可缺少，它用于啟動事件循環(huán)。如果沒有該語句，運行程序時，程序只是一閃而過，馬上就停止了。在退出時，要有相應(yīng)的清除循環(huán)的程序，系統(tǒng)才能正常退出。否則只能通過Ctrl+Alt+Del組合鍵來強制結(jié)束。 設(shè)置主文件 主程序建好后，就可以把主程序設(shè)置為主文件，作為應(yīng)用程序的入口。設(shè)置主文件的步驟如下所示：(1) 在【項目管理器】中選擇要設(shè)置為主文件的文件。在【項目管理器】中，選擇【代碼】頁面中【程序】下的程序文件MAINPRO。(2)單擊菜單欄的【項目】【設(shè)置主文件】命令。被設(shè)置的文件以粗體形式顯示。 第八章 連編應(yīng)用程序系統(tǒng) 至此，數(shù)據(jù)庫、數(shù)據(jù)庫表、表單、菜單、報表以及主文件都已經(jīng)設(shè)計完成，現(xiàn)在就可以把各個分散的功能連編成應(yīng)用程序或者可執(zhí)行文件了。在連編應(yīng)用程序之前，要把應(yīng)用程序中所用到的組件添加到項目管理器中。在VFP環(huán)境下運行表單，vfp98目錄下默認包含這兩個可視類庫，所以不需要添加。在連編應(yīng)用程序時就需要將其添加到項目中，因為連編后的應(yīng)用系統(tǒng)不一定運行在VFP環(huán)境下。添加的步驟如下所示：(1) 在【項目管理器】對話框中，單擊【添加】按鈕，彈出【打開】對話框。(2) 找到目錄D：\VFP98\客戶管理系統(tǒng)\，單擊【確定】按鈕，就可以將其添加到【項目管理器】對話框的【類】頁面中。連編應(yīng)用程序的步驟如下所示：(1)在【項目管理器】對話框的【代碼】頁面中，選擇程序中的主程序main。單擊【連編】按鈕，彈出【連編選項】對話框。 在【連編選項】對話框中，選擇【連編應(yīng)用程序】選項，則生成一個后綴為app的應(yīng)用程序；該文件需要在Visual FoxPro 系統(tǒng)下運行。選擇【連編可執(zhí)行文件】選項，如果沒有錯誤，可連編成一個后綴為EXE的可執(zhí)行文件。該文件可以不依賴于Visual FoxPro系統(tǒng)運行。(2)選擇【連編可執(zhí)行文件】選項，以及【重新編譯全部文件】和【顯示錯誤】選項。單擊【確定】按鈕，在彈出的保存對話框中，命名應(yīng)用程序為“客戶管理系統(tǒng)”。單擊【確定】按鈕，就開始進行應(yīng)用程序的連編。 【連編選項】對話框 第九章 制作安裝盤 完成了應(yīng)用系統(tǒng)的連編以后，就可以為應(yīng)用程序制作安裝程序和發(fā)布磁盤了。該過程可以通過【安裝向?qū)А縼硗瓿?。客戶管理系統(tǒng)安裝程序的制作步驟如下所示：(1) 單擊菜單欄的【工具】 【向?qū)А? 【安裝】命令，彈出【安裝向?qū)А繉υ捒颉?2)在【安裝向?qū)А坎襟E1對話框中，指定定位文件。在【發(fā)布目錄】下的文本框中輸入“D:\VFP98\”，單擊【下一步】按鈕。 (3) 在【安裝向?qū)А坎襟E2對話框中，選擇應(yīng)用程序所需的組件，單擊【下一步】按鈕。 【安裝向?qū)А坎襟E2 “Visual FoxPro運行時刻組件”：應(yīng)用程序所需要的Visual FoxPro運行時刻文件（）。該文件自動包含到應(yīng)用程序中。 “HTML幫助引擎”：為應(yīng)用程序中的幫助文件提供Microsoft HTML引擎。 (4) 在【安裝向?qū)А坎襟E3對話框中，輸入磁盤映像目錄（D:\LLXSGLXXXT\）。單擊【下一步】按鈕。 (5) 在【安裝向?qū)А坎襟E4對話框中，設(shè)置安裝屏幕的提示信息，單擊【下一步】按鈕。 (6) 在【安裝向?qū)А坎襟E5對話框中，設(shè)置安裝程序需要創(chuàng)建的目錄名。建議采用默認值。單擊【下一步】按鈕。(7) 在【安裝向?qū)А坎襟E6對話框中，改變文件設(shè)置。表格中列出應(yīng)用程序所包含的文件。(8)選擇“”后的【程序管理器】復(fù)選框按鈕。彈出【程序組菜單項】對話框。在【說明】下的文本框中輸入“學(xué)生信息管理系統(tǒng)”，在【命令行】下的文本框中輸入“%”。單擊【圖標】按鈕選擇一個圖形文件。單擊【確定】按鈕，返回【安裝向?qū)А坎襟E6對話框。然后單擊【下一步】按鈕。(9)在【安裝向?qū)А坎襟E7對話框中，單擊【完成】按鈕，安裝向?qū)ё詣由蓱?yīng)用程序的磁盤映像。 【安裝向?qū)А坎襟E7參考文獻[1] 王利，二級教程—Visual FoxPro程序設(shè)計[M]. 北京：高等教育出版社，.[2] 王晟，王松， FoxPro 數(shù)據(jù)庫開發(fā)經(jīng)典實例解析[M].清華大學(xué)出版