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