【導(dǎo)讀】施在技術(shù)上已逐步成熟。越來(lái)越多的企業(yè)開始中心信息化管理，客戶管理信息系。等）的有效管理，建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)?？蛻艄芾淼暮诵氖瞧髽I(yè)與客戶的關(guān)系。在傳統(tǒng)經(jīng)濟(jì)時(shí)代，企業(yè)不做市場(chǎng)和。護(hù)的一種適度、有限的關(guān)系，制約了企業(yè)和社會(huì)的發(fā)展。業(yè)完全按照市場(chǎng)和客戶的需求生產(chǎn)各種產(chǎn)品?？蛻暨x擇商品具有很大的自主權(quán)，整個(gè)市場(chǎng)處于買方市場(chǎng)。此時(shí)的客戶管理以企業(yè)獲取利潤(rùn)最大化為目標(biāo)，不僅要。和客戶滿意度，力求在企業(yè)和客戶之間建立和保持一種長(zhǎng)期、良好的合作關(guān)系，單明朗，使企業(yè)資源可以得到充分合理的利用，促進(jìn)企業(yè)的高速發(fā)展。雜繁多的相關(guān)資料已不再現(xiàn)實(shí)可行，并且紙質(zhì)文檔容易丟失、難整理、查閱不便?？蛻艄芾戆ㄓ脩舻卿?、數(shù)據(jù)錄入、信息查詢、報(bào)表輸出等多方面的管理。據(jù)管理、報(bào)表打印、系統(tǒng)管理四個(gè)功能模塊的設(shè)計(jì)。通過(guò)本設(shè)計(jì)成功實(shí)現(xiàn)了對(duì)客。創(chuàng)建安裝盤等幾個(gè)階段的開發(fā)模式，

　　

【正文】 擇【數(shù)據(jù)環(huán)境】命令。 (4)在彈出的【添加表或視圖】對(duì)話框中，從【數(shù)據(jù)庫(kù)中的表】中選擇聯(lián)系人，單擊【添加】按鈕 。然后單擊【關(guān)閉】按鈕，關(guān)閉【添加表或視圖】對(duì)話框。 (5)依次把數(shù)據(jù)環(huán)境中的字段拖到空表單的合適位置。在表單上出現(xiàn)標(biāo)簽聯(lián)系人編號(hào)標(biāo)簽、姓名稱標(biāo)簽、性別標(biāo)簽、單位名稱標(biāo)簽、電話標(biāo)簽、生日標(biāo)簽、愛好標(biāo)簽。 Name 屬性依次為 txt 聯(lián)系人編號(hào)、 txt 姓名、 txt 性別、 txt 單位名稱、 txt電話、 txt 生日、 txt 愛好等。調(diào)整這些控件在表單上的位置。 (6)添加 7 個(gè)按鈕，按鈕的 Caption屬性分別為：第一個(gè)、上一個(gè)、下一個(gè)、最后一個(gè)、添加、刪除以及退出。 (7)在【屬性】對(duì)話框中，設(shè)置該表單的 Caption屬性為 “錄入聯(lián)系人”。 下面設(shè)計(jì)錄入聯(lián)系人信息表單的方法程序和事件代碼。首先設(shè)計(jì)表單的 Init 事件程序。 31 Init 事件在初始化錄入表單時(shí)運(yùn)行。設(shè)計(jì)的方法是：雙擊表單窗口，在彈出的對(duì)話框中編寫事件代碼。 因?yàn)樵摫韱物@示的內(nèi)容是可以修改的，設(shè)置文本框的 Enabled 屬性為 true。該數(shù)據(jù)錄入表單的 Init 事件程序代碼如下所示： Select 聯(lián)系人 amp。amp。選擇聯(lián)系人表 use D:\VFP98\客戶管理系統(tǒng) \聯(lián)系人 .dbf exclusive amp。amp。以獨(dú)占方式打開 聯(lián)系人表 【添加】按鈕的 Click事件代碼如下所示： append blank amp。amp。添加一條空記錄 amp。amp。刷新表單 【刪除】按鈕的 Click事件代碼如下所示： if messagebox(39。你的確刪除該記錄嗎 ?39。,4+64+256,39。提示 39。)=6 amp。amp。是否要?jiǎng)h除 delete amp。amp。刪除記錄 pack amp。amp。緊接下條記錄 release thisform amp。amp。釋放表單 endif 【退出】按鈕的 Click事件代碼如下所示： amp。amp。刷新表單 use d:\VFP98\客戶管理系統(tǒng) \聯(lián)系人 .dbf shar amp。amp?；謴?fù)共享方式 amp。amp。釋放表單資源 第一個(gè)、上一個(gè)、下一個(gè)、最后一個(gè)按鈕的 Click事件代碼可參照上面的例子。 關(guān)閉表單設(shè)計(jì)器，在彈出的保存對(duì)話框中保存表單。文件命名為：“錄入聯(lián)系人信息”。 在【項(xiàng)目管理器】對(duì)話框中，選擇【文檔】頁(yè)面中【表單】選項(xiàng)下的【錄入聯(lián)系人信息】表單。單擊【運(yùn)行】按鈕，運(yùn)行后的表單如圖 所示。 32 圖 表單的運(yùn)行界面 錄入服務(wù)信息表單 (1)在【項(xiàng)目管理器】對(duì)話框的【文檔】頁(yè)面中，選中【表單】選項(xiàng)。單擊【新建】按鈕，彈出【新建表】對(duì)話框。 (2) 單擊【新建表單】按鈕。彈出【表單設(shè)計(jì)器】窗口。一個(gè)名為 form1 的空表單也隨之出現(xiàn)在【表單設(shè)計(jì)器】窗口中。 (3)右擊【表單設(shè)計(jì)器】窗口，在彈出的快捷菜單中，選擇【數(shù)據(jù)環(huán)境】命令。 (4)在彈出的【添加表或視圖】對(duì)話框中，從【數(shù)據(jù)庫(kù)中的表】中選擇服務(wù)表，單擊【添加】按鈕。然后單擊【關(guān)閉】按鈕，關(guān)閉【添加表或視圖】 對(duì)話框。 (5)依次把數(shù)據(jù)環(huán)境中的字段拖到空表單的合適位置。在表單上出現(xiàn)標(biāo)簽部門代碼標(biāo)簽、客戶代碼稱標(biāo)簽、服務(wù)項(xiàng)目標(biāo)簽、服務(wù)評(píng)價(jià)標(biāo)簽、金額標(biāo)簽。 Name屬性依次為 txt 部門代碼、 txt 客戶代碼、 txt 服務(wù)項(xiàng)目、 txt 服務(wù)評(píng)價(jià)、 txt 金額等。調(diào)整這些控件在表單上的位置。 (6)添加 7 個(gè)按鈕，按鈕的 Caption 屬性分別為：第一個(gè)、上一個(gè)、下一個(gè)、最后一個(gè)、添加、刪除以及退出。 (7)在【屬性】對(duì)話框中，設(shè)置該表單的 Caption屬性為“錄入服務(wù)信息”。 33 圖 表單運(yùn)行結(jié)果 客戶查詢表單設(shè)計(jì) 客戶查詢表單是根據(jù)一定的條件查詢出客戶的信息。單擊“查詢”按鈕，調(diào)出“客戶查詢結(jié)果”表單?？煞譃榘纯蛻艟幪?hào)查詢、按電話查詢、按聯(lián)系人編號(hào)查詢。 按客戶編號(hào)查詢表單 通過(guò)選擇客戶的客戶編號(hào)，調(diào)用“客戶查詢結(jié)果”表單，查詢出客戶的信息。 數(shù)據(jù)環(huán)境：客戶表 按客戶編號(hào)查詢表單的設(shè)計(jì)步驟如下所示： (1)在【項(xiàng)目管理器】對(duì)話框的【文檔】頁(yè)面中，選中【表單】選項(xiàng)。單擊【新建】按鈕，彈出【新建表】對(duì)話框。 (2)單擊【新建表單】按鈕。彈出 【表單設(shè)計(jì)器】窗口。一個(gè)名為 form1 的空表單也隨之出現(xiàn)在【表單設(shè)計(jì)器】窗口中。 (3)右擊“表單設(shè)計(jì)器”窗口，在彈出的快捷菜單中，選擇【數(shù)據(jù)環(huán)境】命令。 (4)在彈出的【添加表或視圖】對(duì)話框中，從【數(shù)據(jù)庫(kù)中的表】中選擇客戶表，單擊【添加】按鈕。然后單擊【關(guān)閉】按鈕，關(guān)閉【添加表或視圖】對(duì)話框。 (5)在表單控件工具欄選擇 標(biāo)簽 控件 ,在空表單上拖出標(biāo)題標(biāo)簽，設(shè)置 caption屬性為：按客戶編號(hào)查詢；設(shè)置 fontsize 屬性為 “標(biāo)簽”控件，在 34 表單上拖出一個(gè)標(biāo)簽，設(shè)置 caption屬性為請(qǐng)選擇客戶的編號(hào)。設(shè)置 fontsize 屬性為 12。 (6)在表單控件工具欄選擇組合框控件，在空表單上拖出組合框，右擊添加的組合框，在【屬性】對(duì)話框中選擇【數(shù)據(jù)】頁(yè)面，設(shè)置 controlsource 屬性為客戶表 .客戶編號(hào)。設(shè)置 Rowsource 屬性為客戶表 .客戶編號(hào)。設(shè)置 rowsourcetype 屬性為 6字段。設(shè)置 columncount 為 1。 (7)選擇“命令按鈕”控件，在表單上放置兩個(gè)命令按鈕。其 caption屬性分別為“查詢”和“退出”。 (8)設(shè)置表單的 caption 屬性為 ：客戶編號(hào)查詢。 Name 屬性為： mform。設(shè)計(jì)完成的表單如圖 所示： 下面設(shè)置該表單的方法程序和事件代碼： 首先設(shè)計(jì)表單的 init 事件 Init 事件的代碼如下所示： PUBLIC kh USE D\VFP98\客戶管理系統(tǒng) \客戶表 GO TOP THISFORM,=客戶表 .客戶編號(hào) 【查詢】按鈕的 Click事件代碼如下所示： kh=ALLTRIM() amp。amp。把選擇的電話信息賦值給 Dh amp。amp。釋放表單資源 DO FORM D:\VFP98\客戶管理系統(tǒng) \客戶查詢結(jié)果 amp。amp。調(diào)用客戶查詢結(jié)果表單 【退出】按鈕的 Click事件代碼如下所示： 關(guān)閉表單設(shè)計(jì)器，在彈出的保存對(duì)話框中保存表單。文件命名為“客戶編號(hào)查詢”。 在【項(xiàng)目管理器】對(duì)話框中，選擇【文檔】頁(yè)面下【表單】中的【客戶編號(hào)查詢】表單。單擊【運(yùn)行】按鈕，運(yùn)行后的表單如下圖所示。 35 圖 表單運(yùn) 行界面 按聯(lián)系人查詢表單 按聯(lián)系人查詢表單的設(shè)計(jì)步驟如下所示： (1)在【項(xiàng)目管理器】對(duì)話框的【文檔】頁(yè)面中，選中【表單】選項(xiàng)。單擊【新建】按鈕，彈出【新建表】對(duì)話框。 (2)單擊【新建表單】按鈕。彈出【表單設(shè)計(jì)器】窗口。一個(gè)名為 form1 的空表單也隨之出現(xiàn)在【表單設(shè)計(jì)器】窗口中。 (3) 右擊“表單設(shè)計(jì)器”窗口，在彈出的快捷菜單中，選擇【數(shù)據(jù)環(huán)境】命令。 (4)在彈出的【添加表或視圖】對(duì)話框中，從【數(shù)據(jù)庫(kù)中的表】中選擇客戶表，單擊【添加】按鈕。然后單擊【關(guān)閉】按鈕，關(guān)閉【添加表或視圖】對(duì) 話框。 (5)在表單控件工具欄選擇 標(biāo)簽 控件 ,在空表單上拖出標(biāo)題標(biāo)簽，設(shè)置caption 屬性為：按聯(lián)系人編號(hào)查詢；設(shè)置 fontsize 屬性為 “標(biāo)簽”控件，在表單上拖出一個(gè)標(biāo)簽，設(shè)置 caption 屬性為請(qǐng)選擇客戶的聯(lián)系人編號(hào)。設(shè)置 fontsize 屬性為 12。 (6)在表單控件工具欄選擇組合框控件，在空表單上拖出組合框，右擊添加的組合框，在【屬性】對(duì)話框中選擇【數(shù)據(jù)】頁(yè)面，設(shè)置 controlsource 屬性為客戶表 .聯(lián)系人編號(hào)。設(shè)置 Rowsource 屬性為客戶表 .聯(lián)系人編號(hào)。設(shè)置 rowsourcetype屬性為 6字段。設(shè)置 columncount 為 1。 (7)選擇“命令按鈕”控件，在表單上放置兩個(gè)命令按鈕。其 caption屬性分別為“查詢”和“退出”。 36 (8)設(shè)置表單的 caption 屬性為：聯(lián)系人編號(hào)查詢。 Name 屬性為： mform。設(shè)計(jì)完成的表單如圖 所示： 下面設(shè)置該表單的方法程序和事件代碼： 首先設(shè)計(jì)表單的 init 事件 Init 事件的代碼如下所示： PUBLIC Ix USE D\王梅 \客戶管理系統(tǒng) \客戶表 GO TOP THISFORM,=客戶表 .聯(lián)系人編號(hào) 【查詢】按鈕的 Click事件代碼如下所示： Ix=ALLTRIM() amp。amp。把選擇的聯(lián)系人編號(hào)信息賦值給 Ix amp。amp。釋放表單資源 DO FORM D:\VFP98\客戶管理系統(tǒng) \客戶查詢結(jié)果 amp。amp。調(diào)用客戶查詢結(jié)果表單 【退出】按鈕的 Click事件代碼如下所示： 關(guān)閉 表單設(shè)計(jì)器，在彈出的保存對(duì)話框中保存表單。文件命名為“聯(lián)系人查詢”。 在【項(xiàng)目管理器】對(duì)話框中，選擇【文檔】頁(yè)面下【表單】中的【聯(lián)系人查詢】表單。單擊【運(yùn)行】按鈕，運(yùn)行后的表單如下圖所示。 接下來(lái)設(shè)計(jì)按電話查詢表單，方法與上兩個(gè)查詢表單相同，在此略去。 聯(lián)系人查詢表單設(shè)計(jì) 聯(lián)系人查詢表單的功能是根據(jù)一定的條件查詢出聯(lián)系人的基本信息。單擊“查詢”按鈕可以調(diào)出“聯(lián)系人查詢結(jié)果”表單。共分為聯(lián)系人編號(hào)查詢、聯(lián)系熱恩姓名查詢和聯(lián)系人生日查詢。因?yàn)樵O(shè)計(jì)方法與客戶查詢表單一樣，只是所調(diào)用表單有改動(dòng)，所以在此不 再設(shè)計(jì)。 查詢部門電話表單設(shè)計(jì) 37 查詢部門電話表單主要的作用是根據(jù)部門的代碼查詢出該部門的所有電話信息。可分為部門電話查詢結(jié)果表單和部門電話查詢表單。 部門電話查詢結(jié)果表單 部門電話查詢結(jié)果表單是根據(jù)部門代碼查詢出的部門電話信息表單。在該界面中可以查看第一條記錄、前一條記錄、后一條記錄、最后一條記錄以及退出該界面。 部門電話查詢結(jié)果表單的設(shè)計(jì)步驟如下所示： (1)在【項(xiàng)目管理器】對(duì)話框的【文檔】頁(yè)面中，選中【表單】選項(xiàng)。單擊【新建】按鈕，彈出【新建表】對(duì)話框。 (2)單擊【新建表單】按 鈕。彈出【表單設(shè)計(jì)器】窗口。一個(gè)名為 form1 的空表單也隨之出現(xiàn)在【表單設(shè)計(jì)器】窗口中。 (3)右擊【表單設(shè)計(jì)器】窗口，在彈出的快捷菜單中，選擇【數(shù)據(jù)環(huán)境】命令。 (4)在彈出的【添加表或視圖】對(duì)話框中，從【數(shù)據(jù)庫(kù)中的表】中選擇部門電話表，單擊【添加】按鈕。然后單擊【關(guān)閉】按鈕，關(guān)閉【添加表或視圖】對(duì)話框。 (5)依次把數(shù)據(jù)環(huán)境中的字段拖到空表單的合適位置。在表單上出現(xiàn)標(biāo)簽部門代碼標(biāo)簽、處室名稱標(biāo)簽、房間號(hào)標(biāo)簽、分機(jī)號(hào)標(biāo)簽、直撥電話標(biāo)簽。 Name屬性依次為 txt 部門代碼、 txt 處室名稱、 txt 房間號(hào) 、 txt 分機(jī)號(hào)、 txt 直撥電話等。調(diào)整這些控件在表單上的位置。 (6)添加 5 個(gè)按鈕，按鈕的 Caption 屬性分別為：第一個(gè)、上一個(gè)、下一個(gè)、最后一個(gè)以及退出。 (7)在【屬性】對(duì)話框中，設(shè)置該表單的 Caption屬性為“部門電話” Name 屬性為： form1。 表單的方法程序和事件代碼： 表單的 Init 事件代碼程序，應(yīng)記錄只可以查看不可以修改。所以將各個(gè)文本框控件的 Enabled 屬性設(shè)置為 False。 amp。amp。刷新表單 LOCATE FOR dm=ALLTRIM(部門電話 .部門代碼 ) 38 .enabled=.f. amp。amp。部門代碼文本框不可修改 .enabled=.f. amp。amp。處室名稱文本框不可修改 房間號(hào) .enabled=.f. amp。amp。房間號(hào)文本框不可修改 分機(jī)號(hào) .enabled=.f. amp。amp。分機(jī)文本框不可修改 直撥電話 .enabled=.f. amp。amp。直播電話文本框不可修改 【退出】按鈕的 Click時(shí)間代碼如下所示： 【第一個(gè)】按鈕的 Click時(shí)間代碼如下所示： GO TOP amp。amp。指針指向第一條記錄 =.T. amp。amp。該記錄獲得焦點(diǎn) . ENABL