【正文】 amp。amp。刷新表單 【退出】按鈕的 Click事件的代碼如下所示： 關閉表單設計器，在彈出的保存對話框中保存表單。文件命名為“學生檔案瀏覽”。 在【項目管理器】對話框中，選擇【文檔】頁面中【表單】選項下的【客戶查詢結果】表單。單擊【運行】按鈕，運行后的表單如圖 所示。 圖 運行后的表單 按照與上面類似的步驟設計出按聯(lián)系人查詢的查詢結果表單。因為與上面的幾乎一樣所以在此就不重復了。 聯(lián)系人查詢結果表單 24 聯(lián)系人查詢結果表單顯示按一定條件查詢出的聯(lián)系人的信息。在該界面中可以查看第一條記錄 、前一條記錄、后一條記錄、最后一條記錄以及退出該界面。下面介紹聯(lián)系人查詢結果表單設計步驟。 聯(lián)系人查詢結果表單的設計步驟如下所示： (1)在【項目管理器】對話框的【文檔】頁面中，選中【表單】選項。單擊【新建】按鈕，彈出【新建表】對話框。 (2)單擊【新建表單】按鈕。彈出【表單設計器】窗口。一個名為 form1 的空表單也隨之出現在【表單設計器】窗口中。 (3)右擊【表單設計器】窗口，在彈出的快捷菜單中，選擇【數據環(huán)境】命令。 (4)在彈出的【添加表或視圖】對話框中，從【數據庫中的表】中選擇聯(lián)系人表，單擊【添加】 按鈕。接著添加客戶表，然后單擊【關閉】按鈕，關閉【添加表或視圖】對話框。 (5)依次把數據環(huán)境中的字段拖到空表格的合適位置。在表單上出現聯(lián)系人編號標簽、姓名標簽、性別標簽、單位名稱標簽、電話標簽、生日標簽、愛好標簽等，以及相應編輯框。 Name 屬性依次為 txt 聯(lián)系人編號、 txt 姓名、 txt 性別、 txt 單位名稱、 txt 電話、 txt 生日、 txt 愛好等文本框。 (6)添加五個按鈕，按鈕的 Caption屬性為：第一個、上一個、下一個、最后一個以及退出。 (7)在【屬性】對話框中，設置該表的 Caption屬性為：成績 瀏覽。 (8)單擊表單空間工具欄中的表格控件，在表單中添加一個表格控件。設置該表格的 childorder 屬性為：聯(lián)系人編號。設置表格的 columncount 屬性為 格的 linkmaster 屬性為：聯(lián)系人表。設置該表格的 recordsource 屬性為 :客戶表。設置該表格的 recordsourcetype 屬性為：“ 0表”。 (9)選中表格的列，設置列的數據源分別為：客戶表 .客戶編號、客戶表 .電話、客戶表 .單位名稱、客戶表 .傳真、客戶表 .郵政編碼、客戶表 .單位地址、客戶表 .區(qū)號、客戶表 .聯(lián)系 人編號以及客戶表 .。列標題分別為 。客戶編號、電話、單位名稱、傳真、郵政編碼、單位地址、區(qū)號、聯(lián)系人編號以及 。 (10)單擊表單控件工具欄中的標簽控件，在表單中添加一個標簽控件。設置該標簽控件的 caption屬性為：聯(lián)系人信息查詢結果， Fontsize 屬性值設為： 18。 25 下面設計該表單的方法程序和事件代碼。首先設計表單的 Init 事件。 Init 事件在初始化表單時運行。設計的方法是：右擊表單窗口，在彈出的快捷菜單中選擇【代碼】命令，在彈出的對話框中編寫事件程序。 因為該表單顯示的是查 詢后的結果，所以記錄只可以查看不可以修改。因此將各個文本框控件的 Enabled 屬性設置為 Init 事件程序代碼如下所示： amp。amp。刷新表單 LOCATE FOR bh=ALLTRIM(聯(lián)系人 .聯(lián)系人編號 ) 聯(lián)系人編號 .enabled=.f. amp。amp。聯(lián)系人編號文本框不可修改 姓名 .enabled=.f. amp。amp。姓名文本框不可修改 性別 .enabled=.f. amp。amp。性別文本框不可修改 單位名稱 .enabled=.f. amp。amp。單位名稱文本框不可修改 電話 .enabled=.f. amp。amp。電話文本框不可修改 生日 .enabled=.f. amp。amp。生日類型文本框不可修改 愛好 .enabled=.f. amp。amp。愛好文本框不可修改 【第一個】按鈕的 Click事件的代碼如下所示： GO TOP amp。amp。指針指向第一條記錄 =.T. amp。amp。該記錄獲得焦點 . ENABLED=.F. amp。amp。按鈕組中的按鈕 2 不能獲得焦點 . ENABLED=.T. amp。amp。按鈕組中的按鈕 3 不能獲得焦點 . ENABLED=.T. amp。amp。按鈕組中的按鈕 4 不能獲得焦點 . ENABLED=.T. amp。amp。按鈕組中的按鈕 5 不能獲得焦點 amp。amp。刷新表單 【上一個】按鈕的 Click事件的代碼如下所示： SKIP 1 amp。amp。指針指向前一條記錄 . ENABLED=.T. amp。amp。按鈕組中的按鈕 1 獲得 焦點 26 . ENABLED=.T. amp。amp。按鈕組中的按鈕 3 獲得焦點 . ENABLED=.T. amp。amp。按鈕組中的按鈕 4 獲得焦點 . ENABLED=.T. amp。amp。按鈕組中的按鈕 5 獲得焦點 amp。amp。刷新表單 IF BOF () amp。amp。判斷指針是否在表頭 =.F. amp。amp。該記錄不能獲得焦點 ELSE =.T. amp。amp。該記錄獲得焦點 ENDIF amp。amp。刷新表單 【下一個】按鈕的 Click事件的代碼如下所示： SKIP amp。amp。指針指向下一個條記錄 . ENABLED=.T. amp。amp。按鈕組中的按鈕 1 獲得焦點 IF EOF () amp。amp。判斷指針是否在表尾 =.F. amp。amp。該記錄不能獲得焦點 . ENABLED=.T. amp。amp。按鈕組中的按鈕 1 獲得焦點 . ENABLED=.T. amp。amp。按鈕組中的按鈕 2 獲得焦點 . ENABLED=.F. amp。amp。按鈕組中的按鈕 3 不能獲得焦點 . ENABLED=.T amp。amp。按鈕組中的按鈕 5 獲得焦點 amp。amp。刷新表單 ELSE =.T. . ENABLED=.T. amp。amp。按鈕組中的按鈕 1 獲得焦點 . ENABLED=.T. amp。amp。按鈕組中的按鈕 2 獲得焦點 . ENABLED=.T. amp。amp。按鈕組中的按鈕 3 獲得焦點 . ENABLED=.T. amp。amp。按鈕組中的按鈕 5 獲得焦點 ENDIF 27 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。刷新表單 【退出】按鈕的 Click事件的代碼如下所示： amp。amp。刷新表單 amp。amp。釋放表單資源 關閉表單設計器，在彈出的保存對話框中保存表單。文件命名為“聯(lián)系人查詢結果”。 在項目管理器對話框中，選擇【文檔】頁面中【表單】選項下的【聯(lián)系人查詢結果】表單。單擊【運行】按鈕，運行后的表單如圖 所示。 28 圖 表 單的運行結果 錄入客戶信息表單 錄入客戶信息表單的作用是完成客戶信息的錄入。可以添加或者刪除一條客戶記錄。 (1)在【項目管理器】對話框的【文檔】頁面中，選中【表單】選項。單擊【新建】按鈕，彈出【新建表】對話框。 (2) 單擊【新建表單】按鈕。彈出【表單設計器】窗口。一個名為 form1 的空表單也隨之出現在【表單設計器】窗口中。 (3) 右擊【表單設計器】窗口，在彈出的快捷菜單中，選擇【數據環(huán)境】命令。 (4)在彈出的【添加表或視圖】對話框中，從【數據庫中的表】中選客戶表，單擊【添加】按鈕。然 后單擊【關閉】按鈕，關閉【添加表或視圖】對話框。 (5)依次把數據環(huán)境中的字段拖到空表單的合適位置。在表單上出現客戶編號標簽、電話標簽、單位名稱標簽、傳真標簽、郵政編碼標簽、單位地址標簽、區(qū)號標簽、聯(lián)系人編號標簽以及 標簽。 Name 屬性依次為 txt 客戶編號、 txt 電話、 txt 單位名稱、 txt 傳真、 txt 郵政編碼、 txt 單位地址、 txt 聯(lián)系人編號、 txt。 (6)添加 7 個按鈕，按鈕的 Caption屬性分別為：第一個、上一個、下一個、最后一個、添加、刪除、退出。 (7)在屬性對話框中，設置該表 單的 Caption屬性為“錄入客戶信息”。 29 下面設計該表單的方法程序和事件代碼。首先設計表單的 Init 事件。 Init 事件在初始化成績錄入表單時使用。設計的方法是：雙擊表單窗口，在彈出的對話框中編寫事件程序。 因為該表單顯示的內容是可以修改的，設置文本框的 Enabled 屬性為 true。該查詢表單的 Init 事件程序代碼如下所示： Select 客戶表 amp。amp。選擇客戶表 use D:\VFP98\客戶管理系統(tǒng) \客戶表 .dbf exclusive amp。amp。以獨占的方式 打開客戶表 【添加】按鈕的 Click事件代碼如下所示： append blank amp。amp。添加一條空記錄 amp。amp。刷新表單 【刪除】按鈕的 Click事件代碼如下所示： if messagebox(39。你的確刪除該記錄嗎 ?39。,4+64+256,39。提示 39。)=6 amp。amp。是否要刪除 delete amp。amp。刪除記錄 pack amp。amp。緊接下條記錄 release thisform amp。amp。釋放表單資源 endif 【退出】按鈕的 Click事件代碼如下所示： amp。amp。刷新表單 use d:\VFP98\客戶管理系統(tǒng) \客戶表 .dbf shar amp。amp。恢復共享方式 amp。amp。釋放表單資源 第一個、上一個、下一個以及最后一個按鈕的 Click事件代碼可參照上面的例子。 關閉表單設計器，在彈出的保存對話框中保存表單。文件命名為：“錄入客戶信息”。 在【項目管理器】對話框中，選擇【文檔】頁面中【表單】選項下的【錄入客戶信息】表單。單擊【運行】按鈕，運行后的表單如圖 所示。 30 圖 表單的運行界面 錄入聯(lián)系人信息 錄入聯(lián)系人信息表單主要的作用是添加或者刪除一個聯(lián)系人的基本情況信息。 錄入聯(lián)系人表單的設計步驟如下所示： (1)在【項目管理器】對話框的【文檔】頁面中，選中【表單】選項。單擊【新建】按鈕，彈出【新建表】對話框。 (2)單擊【新建表單】按鈕。彈出【表單設計器】窗口。一個名為 form1 的空表單也隨之出現在【表單設計器】窗口中。 (3)右擊【表單設計器】窗口，在彈出的快捷菜單中，選