【文章內容簡介】 圖 登錄界面表單 布局完登錄表單的控件后，開始設計表單的方法程序和事件代碼。 (1) Load 事件 Load 事件在加載登錄表單時運行。右擊表單窗口，在彈出的快捷菜單中選擇【代碼】命令。 登錄表單的 Load 事件代碼如下所示： set talk off amp。amp。關閉返回執(zhí)行狀態(tài)的顯示，默認為開 set safety off amp。amp。設置 safety為關，刪除數據庫時不會出現提示， 與新建的數據庫 同名時直接覆蓋 close all amp。amp。關閉所有的數據庫 open database d:\VFP98\客戶管理系統(tǒng) .dbc exclusive amp。amp。以獨占方式打開數據庫“客戶管理系統(tǒng)” select a amp。amp。選擇工作區(qū) A use d:\客戶管理系統(tǒng) \操作員 .dbf amp。amp。在工作區(qū) A 中打開操作員表 17 (2) Unload 事件 caozuoyuan=39。39。 amp。amp。變量 caozuoyuan為空 return caozuoyuan amp。amp。返回變量值 close all amp。amp。關閉所有打開的數據庫以及數據表 【確定】按鈕的 Click事件的代碼如下所示： Private zj,mm,st amp。amp。定義私有變量 st=39。密碼不正確，請重新輸入 !39。 amp。amp。提示信息 zj=alltrim() amp。amp。把輸入的用戶名值賦給變量 zj mm=alltrim() amp。amp。把輸入密碼賦值給 mm locate for zj==alltrim(操作員 .證件號 ) amp。amp。查找人員配置表與 zj 相等的證件號 if found() and alltrim(操作員 .密碼 )==mm amp。amp。如果找到相同的比較密碼是否相同 caozuoyuan=alltrim(操作員 .證件號 ) amp。amp。變量 caozuoyuan值為操作員表中證件號 =.f. amp。amp。如果都正確，該界面不在顯 示 do amp。amp。執(zhí)行菜單 else wait window st timeout 2 amp。amp。程序運行等 2 秒，顯示密碼不正確的提示信息 =39。39。 amp。amp。密碼文本框為空 amp。amp。密碼文本框獲得焦點 endif 【退出】按鈕的 Click事件代碼如下所示： tuichu=messagebox(39。您確定要退出客戶管理系統(tǒng)嗎 ?39。,4+32+0,39。客戶管理系統(tǒng) 39。) if tuichu=6 caozuoyuan=39。39。 release thisform endif quit 18 關閉表單設計器，在彈出的保存對話框中保存表單。文件命名為“登錄表單“。 在【項目管理器】對話框中，選擇【文檔】頁面下【表單】中的【登錄表單】。單擊【運行】按鈕。 修改密碼表單設計 修改密碼表單主要用來完成修改密碼的功能。為了系統(tǒng)的安全起見，密碼用一段時間就要進行更換。在該表單中，單擊“確定”按鈕，進行密碼的修改。單擊“取消”按鈕，取消密碼修改的操作。 表單的創(chuàng)建和登錄表單的創(chuàng)建步驟相同，其中只有幾個屬性不同。 (1) 在數據環(huán)境中添加操作員表，將密碼拖到表單的相應位置。把密碼標簽修改成“舊密碼”，設置 txt 密碼文本框的 passwordchar 屬性為星號“ *”，輸入時顯示占位符。 (2)單擊表單控件工具欄的標簽控件，在表單中添加三個標簽控件。標簽控件的Caption屬性分別為“密碼修改”、“證件號”、“新密碼”， FontSize 屬性值依次設為 1 12。 (3)單擊表單控件工具欄中的文本框控件，在表單中添加一個文本框控件和一個組合框控件。設置該文本框的 Name 屬性為 password2。 Passwordchar 屬性為星號“ *”，輸入時顯示占位符?！?Combo1”控件的 Rowsource 屬性值為：操作員 .證件號； Rowsourcetype 屬性值為： 6—— 字段。 (4)添加 3 個按鈕，按鈕的 Caption屬性為：“確定”、“取消”以及“退出”。 (5) 在【屬性】對話框中，設置該表單的 Caption屬性為：密碼修改。 下面設計密碼修改表單的方法程序和事件代碼。 【確定】按鈕的 Click事件代碼如下所示： public x select a amp。amp。選擇工作區(qū) a use d:\VFP98\客戶管理系統(tǒng) \操作員 .dbf x=alltrim( 密碼 .value) amp。amp。用 x保存舊密碼 replace 操作員 .密碼 with alltrim() amp。amp。新密碼代替舊密碼 messagebox(密碼已修改 ,0+48,提示 ) 19 【取消】按鈕的 Click事件代碼如下所示： replace 操作員 .密碼 with x messagebox(放棄密碼修改 ,0+48,提示 ) 【退出】按鈕的 Click事件代碼如下所示： 關閉表單設計器，在彈出的保存對話框中保存表單。文件命名為【密碼修改】 在【項目管理器】對話框中，選擇【文檔】頁面下【表單】中的【密碼修改】。單擊【運行】按鈕。運行后的登錄表單，如圖 所示。 圖 運行結果 客戶查詢結果表單 客戶查詢結果表單顯示按一定條件查詢出的客戶 的基本情況信息。查詢條件有按客戶編號查詢、按聯系人編號以及電話查詢。這類表單由后面的客戶查詢表單調用。在表單界面中可以查看第一條記錄、前一條記錄、后一條記錄、最后一條記錄以及退出該界面。下面以按客戶編號查詢出的查詢結果表單為例進行介紹。 客戶查詢結果表單的設計步驟如下所示： 20 (1) 在【項目管理器】對話框的【文檔】頁面中，選中【表單】選項。單擊【新建】按鈕，彈出【新建表】對話框。 (2)單擊【新建表單】按鈕。彈出【表單設計器】窗口。一個名為 form1 的空表單也隨之出現在【表單設計器】窗口中。 (3)右擊【表 單設計器】窗口，在彈出的快捷菜單中，選擇【數據環(huán)境】命令。 (4)在彈出的【添加表或視圖】對話框中，從【數據庫中的表】中選擇客戶表，單擊【添加】按鈕，再添加聯系人表。然后單擊【關閉】按鈕，關閉【添加表或視圖】對話框。 (5)依次把數據環(huán)境中的字段拖到空表單的合適位置。在表單上出現客戶編號標簽、電話標簽、單位名稱標簽、傳真標簽、郵政編碼標簽、 Email 標簽、單位地址標簽、區(qū)號標簽以及聯系人編號標簽。 Name 屬性依次為 txt 客戶編號、 txt 電話、 txt 單位地址、 txt 傳真、 txt 郵政編碼、 txtEmail、 txt 單位地址 txt 區(qū)號、 txt聯系人編號等文本框。調整這些控件在表單上的位置。 (6)添加五個按鈕，按鈕的 Caption屬性分別為：“第一個”、“上一個”、“下一個”、“最后一個”以及“退出”。 (7)在【屬性】對話框中，設置該表單的 Caption 屬性為：查詢結果， name 屬性為： tquery。 (8)單擊表單空間工具欄中的表格控件，在表單中添加一個表格控件。設置該表格的 childorder 屬性為：聯系人編號。設置表格的 columncount 屬性為： 格的 linkmaster 屬性為：客戶表。設置該 表格的 recordsource 屬性為 :聯系人表。設置該表格的 recordsourcetype 屬性為：” 0表“ 下面設計表單的方法程序和事件代碼。首先設計表單的 Init 事件程序。 因為該表單顯示的是查詢后的結果，所以只可以查看記錄而不可以修改。因此將各個文本框的 Enabled 屬性設置為 Init 事件程序代碼如下所示： amp。amp。刷新表單 locate for kh=alltrim(客戶表 .客戶編號 ) amp。amp。光 標轉到與客戶編號匹配的記錄 客戶編號 .enabled=.f. amp。amp。客戶編號文本框不可修改 電話 .enabled=.f. amp。amp。電話文本框不可修改 21 單位名稱 .enabled=.f. amp。amp。單位名稱文本框不可修改 傳真 .enabled=.f. amp。amp。傳真文本框不可修改 郵政編碼 .enabled=.f. amp。amp。郵政編碼 文本框不可修改 EMAIL別 .enabled=.f. amp。amp。EMAIL文本框不可修改 單位地址 .enabled=.f. amp。amp。單位地址文本框不可修改 區(qū)號 .enabled=.f. amp。amp。區(qū)號文本框不可修改 聯系人編號 .enabled=.f. amp。amp。聯系人編號文本框不可修改 【第一個】按鈕的 Click事件的代碼如下所示： GO TOP amp。amp。指針指向第一條記錄 =.T. amp。amp。該記錄獲得焦點 =.F. amp。amp。按鈕組中的按鈕 2不能獲得焦點 =.T. amp。amp。按鈕組中的按鈕 3獲得焦點 =.T. amp。amp。按鈕組中的按鈕 4獲得焦點 =.T. amp。amp。按鈕組中的按鈕 5獲得焦點 amp。amp。刷新表單 【上一個】按鈕的 Click事件的代碼如下所示： 【上一個】按鈕的 Click事件的代碼如下所示： SKIP 1 amp。amp。指針指向前一條記錄 =.T. amp。amp。按鈕組中得按鈕 1獲得焦點 =.T. amp。amp。按鈕組中得按鈕 3獲得焦點 =.T. amp。amp。按鈕組中得按鈕 4獲得焦點 =.T. amp。amp。按鈕組中得按鈕 5獲得焦點 amp。amp。刷新表單 IF BOF() amp。amp。判斷指針是否在表頭 =.F. amp。amp。該記錄不能獲得焦點 ELSE =.T. amp。amp。該記錄獲得焦點 ENDIF 22 amp。amp。刷新表單 skip 1 amp。amp。指針指向前一條記錄 if bof() amp。amp。判斷指 針是否在表頭 =.t. =.f. =.f. =.t. else =.t. =.t. =.t. =.t. endif amp。amp。刷新表單 【下一個】按鈕的 Click事件的代碼如下所示： SKIP amp。amp。指針指向下一條記錄 =.T. amp。amp。按鈕組中的按鈕 1獲得焦點 IF EOF() amp。amp。判斷指針是否在表尾 =.F. amp。amp。該記錄不能獲得焦點 =.T. amp。amp。按鈕組中的按鈕 1獲得焦點 =.T. amp。amp。按鈕組中的按鈕 2獲得焦點 =.F. amp。amp。按鈕組中的按鈕 3不能獲得焦點 =.T. amp。amp。按鈕組中的按鈕 5獲得焦點 amp。amp。刷新表單 ELSE =.T. amp。amp。該記錄獲得焦點 =.T. amp。amp。按鈕組中的按鈕 1獲得焦點 =.T. amp。amp。按鈕組中的按鈕 2獲得焦點 =.T. amp。amp。按鈕組中的按鈕 3獲得焦點 23 =.T. amp。amp。按鈕組中的按鈕 5獲得焦點 ENDIF