客戶關(guān)系管理系統(tǒng)畢業(yè)論文

1、<p><b>　　摘 要</b></p><p>　　在對(duì)目前市面上的客戶管理系統(tǒng)（CRM）的廣泛調(diào)查和研究之后，發(fā)現(xiàn)很多市面上的客戶管理系統(tǒng)大多都是以產(chǎn)品為中心，忽略了客戶管理中最重要的部分—客戶關(guān)系。隨著市場(chǎng)經(jīng)濟(jì)的不斷發(fā)展，客戶管理的重要性體現(xiàn)的越發(fā)明顯。企業(yè)要想生存發(fā)展，就必須與與之息息相關(guān)的客戶建立起良好的關(guān)系，不斷發(fā)展新客戶，以企業(yè)高質(zhì)量的產(chǎn)品、優(yōu)質(zhì)的服務(wù)、良好的資信吸

2、引新客戶；經(jīng)常維系與老客戶的關(guān)系，以規(guī)范的客戶管理方式、溫馨的客戶關(guān)懷、高效的客戶服務(wù)來提升老客戶的忠誠度。由此，客戶管理系統(tǒng)應(yīng)運(yùn)而生。</p><p>　　關(guān)鍵詞 CRM，客戶關(guān)系管理系統(tǒng)，VB，數(shù)據(jù)庫</p><p><b>　　目 錄</b></p><p><b>　　摘 要4</b></p>&l

3、t;p><b>　　目 錄5</b></p><p><b>　　前 言6</b></p><p><b>　　1 系統(tǒng)分析7</b></p><p>　　1.1 需求分析7</p><p>　　1.2 可行性分析7</p><p>

4、;<b>　　2 總體設(shè)計(jì)8</b></p><p>　　2.1 項(xiàng)目規(guī)劃8</p><p>　　2.2系統(tǒng)功能結(jié)構(gòu)圖9</p><p>　　3 系統(tǒng)設(shè)計(jì)10</p><p>　　3.1 設(shè)計(jì)目標(biāo)10</p><p>　　3.2 開發(fā)及運(yùn)行環(huán)境10</p>&l

5、t;p>　　3.3 數(shù)據(jù)庫設(shè)計(jì)11</p><p>　　3.3.1數(shù)據(jù)庫概要說明11</p><p>　　3.3.2 數(shù)據(jù)表結(jié)構(gòu)11</p><p>　　4 主要功能模塊設(shè)計(jì)12</p><p>　　4.1公共模塊設(shè)計(jì)（Mdl_Link模塊）12</p><p>　　4.2 主窗體設(shè)計(jì)13<

6、/p><p>　　4.2.1窗體設(shè)計(jì)13</p><p>　　4.2.2代碼設(shè)計(jì)16</p><p>　　4.3 客戶呼叫中心18</p><p>　　4.3.1 窗體設(shè)計(jì)18</p><p>　　4.3.2 代碼設(shè)計(jì)20</p><p>　　4.4 客戶投訴21</p>

7、<p>　　4.4.1窗體設(shè)計(jì)22</p><p>　　4.4.2代碼設(shè)計(jì)22</p><p>　　4.5 客戶投訴滿意程度分析24</p><p>　　4.5.1窗體設(shè)計(jì)24</p><p>　　4.5.2代碼設(shè)計(jì)25</p><p>　　4.6 客戶信息查詢26</p>

8、<p>　　4.6.1窗體設(shè)計(jì)26</p><p><b>　　5 總 結(jié)28</b></p><p><b>　　致 謝29</b></p><p><b>　　參考文獻(xiàn)30</b></p><p>　　附錄1 數(shù)據(jù)表31</p><

9、p><b>　　附錄236</b></p><p><b>　　前 言</b></p><p>　　在全球一體化、企業(yè)互動(dòng)和以INTERNET為核心的時(shí)代，企業(yè)面臨著如何發(fā)展?jié)撛诳蛻?，如何將社?huì)關(guān)系資源變?yōu)槠髽I(yè)的銷售和發(fā)展資源的一系列難辦棘手的問題。在上述背景下，客戶管理系統(tǒng)應(yīng)運(yùn)而生。本系統(tǒng)本著把握客戶多樣化和個(gè)性化的特點(diǎn)；以最快的速度響

10、應(yīng)客戶需求；吸引新客戶，留住老客戶為原則。即從過去的以產(chǎn)品（Product-Centric）為中心的管理策略轉(zhuǎn)向以客戶為中心的(Customer-Centric)管理理念。系統(tǒng)旨在改善企業(yè)與客戶之間的關(guān)系，建立新型的運(yùn)營(yíng)機(jī)制。本系統(tǒng)以企業(yè)級(jí)的整體客戶管理為解決方案，幫助企業(yè)建立統(tǒng)一的客戶資源、拓展銷售渠道、尋求最佳市場(chǎng)方式、規(guī)范企業(yè)銷售流程、提供科學(xué)分析方法，建立持久的客戶體系。其大容量客戶數(shù)據(jù)處理能力，讓您的企業(yè)從多渠道收集信息，快速

11、發(fā)現(xiàn)核心客戶和潛在伙伴，進(jìn)而給企業(yè)帶來無限的利潤(rùn)。</p><p>　　以客戶為中心的理念在國(guó)外興起于20世紀(jì)50年代，當(dāng)時(shí)很多企業(yè)寄希望于通過改進(jìn)技術(shù)、壓縮生產(chǎn)周期、改善內(nèi)部資源管理來提高生產(chǎn)增長(zhǎng)率和利潤(rùn)，但事實(shí)上見效甚微。這樣企業(yè)開始從強(qiáng)調(diào)降低經(jīng)營(yíng)成本的供應(yīng)方發(fā)展策略轉(zhuǎn)向了需求方策略。所謂需求方策略就是指與客戶聯(lián)系更加緊密，從客戶關(guān)系方面挖掘新能源的策略，CRM應(yīng)運(yùn)而生。所不同的是，現(xiàn)在計(jì)算機(jī)可以幫助人們實(shí)現(xiàn)

12、這些看似并不復(fù)雜而實(shí)際操作起來非常繁瑣的工作。試想一下，當(dāng)我們需要查找一個(gè)客戶的電話號(hào)碼時(shí)，只需敲幾下鍵盤，就可以看到客戶的詳細(xì)資料（包括姓名、公司名稱、電話、E-mail等），所有這些都是一個(gè)完善的客戶管理系統(tǒng)所能完成的。</p><p><b>　　1 系統(tǒng)分析</b></p><p><b>　　1.1 需求分析</b></p&g

13、t;<p>　　根據(jù)市場(chǎng)的需求，要求系統(tǒng)具有以下功能：</p><p>　　由于該系統(tǒng)的使用對(duì)象較多，要求有嚴(yán)密的權(quán)限管理。</p><p>　　具有數(shù)據(jù)備份及數(shù)據(jù)恢復(fù)的功能，確保系統(tǒng)的安全性。</p><p>　　方便的全方位的數(shù)據(jù)查詢。</p><p>　　強(qiáng)大的報(bào)表打印功能。</p><p>　　在

14、相應(yīng)的權(quán)限下，可以刪除或修改數(shù)據(jù)。</p><p>　　1.2 可行性分析</p><p>　　隨著科技的發(fā)展，競(jìng)爭(zhēng)也越發(fā)激烈、殘酷，企業(yè)傳統(tǒng)的管理方式對(duì)于現(xiàn)今社會(huì)的競(jìng)爭(zhēng)已明顯感覺到力不從心?？蛻糇鳛槭袌?chǎng)的最大資源，已成為市場(chǎng)營(yíng)銷核心，誰爭(zhēng)取到了最多的客戶，誰就取的了最大的成功，對(duì)客戶的把握將最終決定企業(yè)的命運(yùn)。</p><p>　　客戶關(guān)系管理系統(tǒng)正是在這種需求

15、下經(jīng)過深入的市場(chǎng)調(diào)研和專家系統(tǒng)化的指導(dǎo)應(yīng)運(yùn)而生。系統(tǒng)具有完善的基礎(chǔ)信息維護(hù)和客戶信息維護(hù)，強(qiáng)大的數(shù)據(jù)查詢及圖表分析功能，基本能夠滿足中小型企業(yè)的需要。</p><p><b>　　2 總體設(shè)計(jì)</b></p><p><b>　　2.1 項(xiàng)目規(guī)劃</b></p><p>　　客戶管理系統(tǒng)是一個(gè)非常有特點(diǎn)的管理軟件，系統(tǒng)

16、由基礎(chǔ)信息維護(hù)、客戶信息維護(hù)、客戶服務(wù)、信息查詢、數(shù)據(jù)管理、輔助工具、系統(tǒng)管理和幫助信息等幾個(gè)功能模塊組成，規(guī)劃系統(tǒng)功能模塊如下：</p><p><b>　　基礎(chǔ)信息維護(hù)模塊</b></p><p>　　基礎(chǔ)信息維護(hù)模塊主要包括區(qū)域信息設(shè)置、企業(yè)性質(zhì)設(shè)置、企業(yè)類型設(shè)置、企業(yè)資信設(shè)置、客戶級(jí)別設(shè)置和客戶滿意程度設(shè)置6部分。</p><p>&l

17、t;b>　　客戶信息維護(hù)模塊</b></p><p>　　客戶信息維護(hù)模塊主要包括客戶信息、聯(lián)系人信息、業(yè)務(wù)往來、客戶呼叫中心和發(fā)送郵件5個(gè)部分。</p><p><b>　　客戶服務(wù)模塊</b></p><p>　　客戶服務(wù)模塊主要包括客戶反饋、客戶投訴、客戶反饋滿意程度分析和客戶投訴滿意程度分析4個(gè)部分。</p>

18、;<p><b>　　信息查詢模塊</b></p><p>　　信息查詢模塊主要包括客戶信息查詢、聯(lián)系人信息查詢、客戶反饋滿意程度查詢、客戶投訴滿意程度查詢、客戶反饋查詢、客戶投訴查詢和國(guó)內(nèi)城市區(qū)號(hào)郵編查詢7個(gè)部分。</p><p><b>　　數(shù)據(jù)管理模塊</b></p><p>　　數(shù)據(jù)管理模塊主要包括客

19、戶信封打印、客戶信息列表、聯(lián)系人信息列表和省份郵編信息打印4個(gè)部分。</p><p><b>　　輔助工具模塊</b></p><p>　　輔助工具模塊包括調(diào)用Word、調(diào)用Excel、計(jì)算器、登錄Internet和工作業(yè)務(wù)備忘5個(gè)部分。</p><p><b>　　系統(tǒng)管理模塊</b></p><p&

20、gt;　　系統(tǒng)管理模塊主要包括操作員設(shè)置、密碼修改、權(quán)限設(shè)置、系統(tǒng)數(shù)據(jù)清理、數(shù)據(jù)備份與恢復(fù)5個(gè)部分。</p><p><b>　　幫助信息模塊</b></p><p>　　幫助信息模塊主要包括本單位信息、關(guān)于、幫助等3個(gè)部分。</p><p>　　2.2系統(tǒng)功能結(jié)構(gòu)圖</p><p>　　圖1 客戶管理系統(tǒng)功能結(jié)構(gòu)圖&

21、lt;/p><p><b>　　3 系統(tǒng)設(shè)計(jì)</b></p><p><b>　　3.1 設(shè)計(jì)目標(biāo)</b></p><p>　　本系統(tǒng)是根據(jù)中小企業(yè)的實(shí)際需求而開發(fā)的，完全能夠?qū)崿F(xiàn)企業(yè)對(duì)客戶的自動(dòng)化管理，通過本系統(tǒng)可以達(dá)到以下目標(biāo)：</p><p>　　系統(tǒng)運(yùn)行穩(wěn)定，安全可靠。</p>

22、<p>　　界面設(shè)計(jì)美觀，人機(jī)交互界面友好。</p><p>　　信息查詢靈活、方便、快捷、準(zhǔn)確，數(shù)據(jù)存儲(chǔ)安全可靠。</p><p>　　滿足鍵盤和鼠標(biāo)的雙重操作，完全支持回車鍵。</p><p>　　采用多種方式查詢數(shù)據(jù)。</p><p>　　操作員可以隨時(shí)修改自己的口令。</p><p>　　對(duì)用戶輸入

23、的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。</p><p>　　數(shù)據(jù)保密性強(qiáng)，為每個(gè)用戶設(shè)置相應(yīng)的權(quán)限級(jí)別。</p><p>　　強(qiáng)大的圖表分析功能。</p><p>　　收錄了全國(guó)各省市縣的郵政編碼及區(qū)號(hào)信息等二千多條記錄。</p><p>　　不僅采用了傳統(tǒng)的數(shù)據(jù)報(bào)表打印方式，還可以向Word中打印輸出。</p>

24、<p>　　3.2 開發(fā)及運(yùn)行環(huán)境</p><p>　　系統(tǒng)開發(fā)平臺(tái)：Visual Basic 6.0</p><p>　　數(shù)據(jù)庫管理系統(tǒng)軟件：SQL Server 2000</p><p>　　運(yùn)行平臺(tái)：Windows xp/Windows 2000/Windows 98</p><p>　　分辨率：最佳效果 800*600&

25、lt;/p><p>　　3.3 數(shù)據(jù)庫設(shè)計(jì)</p><p>　　本系統(tǒng)采用SQL Server 2000 數(shù)據(jù)庫，系統(tǒng)數(shù)據(jù)庫名為db_Client，數(shù)據(jù)庫db_Client中包括18個(gè)數(shù)據(jù)表。下面分別給出數(shù)據(jù)庫概要說明和數(shù)據(jù)表的結(jié)構(gòu)。</p><p>　　3.3.1數(shù)據(jù)庫概要說明</p><p>　　如圖2所示的即為本系統(tǒng)中數(shù)據(jù)庫中的數(shù)據(jù)表的樹

26、形結(jié)構(gòu)圖，該數(shù)據(jù)表樹型結(jié)構(gòu)圖包含系統(tǒng)所有數(shù)據(jù)表?？梢郧逦胤磻?yīng)數(shù)據(jù)庫信息。</p><p>　　圖2 數(shù)據(jù)庫概要說明</p><p>　　3.3.2 數(shù)據(jù)表結(jié)構(gòu)</p><p>　　由于篇幅所限，關(guān)于數(shù)據(jù)庫中的數(shù)據(jù)表請(qǐng)參見附錄二</p><p>　　4 主要功能模塊設(shè)計(jì)</p><p>　　4.1公共模塊設(shè)計(jì)（Md

27、l_Link模塊）</p><p>　　通過使用模塊可以減少程序的代碼量。在本系統(tǒng)中，將通用的代碼（如：數(shù)據(jù)庫連接、Toolbar控件的按鈕設(shè)置代碼以及公共的全局變量等）都集中放置在一個(gè)數(shù)據(jù)模塊Mdl_Link中，節(jié)省了代碼量，提高了編程效率。</p><p>　　數(shù)據(jù)模塊Mdl_Link中定義的公共變量如下所示：</p><p>　　Public PublicSt

28、r As String '定義公共變量用于ADODC控件的數(shù)據(jù)連接，使程序模塊化</p><p>　　Public sql As String '定義字符變量存儲(chǔ)SQL語句</p><p>　　Public Tb As String '存儲(chǔ)數(shù)據(jù)表名稱</p><p>　　Public Prov

29、ince As String '存儲(chǔ)省份名稱</p><p>　　Public Myflag As Boolean '標(biāo)識(shí)</p><p>　　數(shù)據(jù)模塊Mdl_Link中提供連接數(shù)據(jù)庫的程序代碼如下所示：</p><p><b>　　數(shù)據(jù)連接模塊</b></p><p>　　Public

30、 Function cnn() As ADODB.Connection '定義函數(shù)</p><p>　　Set cnn = New ADODB.Connection </p><p><b>　　'打開數(shù)據(jù)連接</b></p><p>　　cnn.Open "Provider=SQLOLEDB.1;Persist

31、 Security Info=False;User ID=sa;Initial Catalog=db_Client" </p><p>　　PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Client"</p><p>

32、;　　End Function </p><p>　　數(shù)據(jù)模塊Mdl_Link中關(guān)于Toolbar控件設(shè)置按鈕狀態(tài)的通用代碼如下所示：</p><p>　　定義設(shè)置Toolbar控件上按鈕狀態(tài)的函數(shù)</p><p>　　Public Function tlbState(tlb As Toolbar, state As Boolean)</p><

33、;p><b>　　With tlb</b></p><p>　　If state = True Then '如果狀態(tài)變量為True</p><p>　　.Buttons(1).Enabled = False : </p><p>　　.Buttons(2).Enabled = False</p>

34、<p>　　.Buttons(3).Enabled = False</p><p>　　.Buttons(6).Enabled = False</p><p>　　.Buttons(4).Enabled = True</p><p>　　.Buttons(5).Enabled = True</p><p>　　Else

35、 '如果狀態(tài)變量為False</p><p>　　.Buttons(1).Enabled = True</p><p>　　.Buttons(2).Enabled = True</p><p>　　.Buttons(3).Enabled = True</p><p>　　.Buttons(6).Enabled = True<

36、;/p><p>　　.Buttons(4).Enabled = False</p><p>　　.Buttons(5).Enabled = False</p><p><b>　　End If</b></p><p><b>　　End With</b></p><p>　　En

37、d Function</p><p><b>　　4.2 主窗體設(shè)計(jì)</b></p><p>　　主窗體是顯示系統(tǒng)主要操作功能的面板，在系統(tǒng)主窗體的狀態(tài)欄中，可以顯示網(wǎng)址、當(dāng)前的操作員、當(dāng)前系統(tǒng)的日期、時(shí)間等信息，還可以通過菜單或單擊窗體左側(cè)的樹狀列表以及右側(cè)的功能列表來控制其他功能子窗體，并且根據(jù)不同的操作員賦予相應(yīng)的操作權(quán)限。</p><p&g

38、t;　　系統(tǒng)主窗體的運(yùn)行結(jié)果如圖3所示。</p><p>　　圖3 系統(tǒng)主窗體的運(yùn)行結(jié)果</p><p><b>　　4.2.1窗體設(shè)計(jì)</b></p><p>　?。?）在“工程”中新建一個(gè)窗體，將窗體的“名稱”設(shè)置為frm_Main，MaxButton屬性設(shè)置為False，Caption屬性設(shè)置為“客戶管理系統(tǒng)”，StartUpPosit

39、ion屬性設(shè)置為2-屏幕中心。</p><p>　?。?）利用VB提供的菜單編輯器設(shè)計(jì)菜單。從“工具”菜單上，選取“菜單編輯器”命令即可打開菜單編輯器，也可以在“工具欄”上單擊【菜單編輯器】按鈕。用菜單編輯器可以創(chuàng)建應(yīng)用程序的菜單，在已有的菜單上可以增加新的菜單項(xiàng)，或者修改和刪除已有的菜單和菜單項(xiàng)。</p><p>　　通過菜單編輯器建立的菜單如圖3所示，在菜單編輯器對(duì)話框中設(shè)計(jì)菜單時(shí)的界

40、面如圖4所示。</p><p><b>　　|</b></p><p><b>　　圖4 菜單編輯器</b></p><p>　　本系統(tǒng)的菜單設(shè)置如圖5所示。</p><p>　　圖5 客戶管理系統(tǒng)菜單設(shè)置</p><p>　?。?）向窗體上添加1個(gè)控件，設(shè)置其Align

41、屬性設(shè)置為1-vbAlignTop（默認(rèn)設(shè)置）。1個(gè)ImageList控件，并將其與Toolbar控件相連，同時(shí)添加按鈕和圖片。</p><p>　　（4）將Toolbar控件與ImageList控件相連。</p><p>　?。?）向窗體上添加1個(gè)TreeView控件并將其與ImageList控件連接。</p><p>　?。?）向窗體中添加1個(gè)StatusBar

42、控件，在StatusBar控件上單擊鼠標(biāo)右鍵選擇“屬性”，在彈出的屬性頁對(duì)話框中選擇“窗格”選項(xiàng)卡，如圖6所示，在圖中單擊【插入窗格】按鈕，可以在StatusBar控件中添加窗格，同時(shí)可以設(shè)置添加后窗格的文本內(nèi)容、工具欄提示文本信息和寬度等信息，如果想刪除窗格，則通過“索引”旁邊的箭頭，選中要?jiǎng)h除的窗格，然后單擊【刪除窗格】按鈕即可刪除。</p><p>　　圖6 設(shè)置StatusBar控件中的窗格</p

43、><p>　　（7）向窗體上添加ListView控件。</p><p><b>　　4.2.2代碼設(shè)計(jì)</b></p><p>　　通過主窗體當(dāng)中的菜單項(xiàng)，可以控制系統(tǒng)中各個(gè)子窗體，現(xiàn)以“輔助工具”菜單為例，介紹調(diào)用系統(tǒng)子窗體的代碼。</p><p>　　Private Sub Menu6_Click(Index As In

44、teger)</p><p>　　Select Case Index '輔助工具</p><p>　　Case 0 '調(diào)用Word</p><p>　　ShellExecute Me.hWnd, "open", "winword.exe", "", 1, 5</p>&l

45、t;p>　　Case 1 '調(diào)用Excel</p><p>　　ShellExecute Me.hWnd, "open", "excel.exe", "", 1, 5</p><p>　　Case 2 '調(diào)用計(jì)算器</p><p>　　ShellExecute Me.hWnd,

46、"open", "CALC.EXE", "", 1, 5</p><p>　　Case 3 '登錄Internet</p><p>　　ShellExecute Me.hWnd, "open", "http://www.mingrisoft.com", 1, 1, 5</p

47、><p>　　Case 5 '工作備忘</p><p>　　Load Frm_Fzgj_Gzbw Frm_Fzgj_Gzbw.Show 1</p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　在窗體啟動(dòng)的時(shí)候，首先查看工作

48、備忘表（tb_Client_gzbw）中是否有要提醒的信息，如果有，則提示相應(yīng)的信息，否則直接加載窗體。其實(shí)現(xiàn)的關(guān)鍵代碼下：</p><p>　　Dim rs1 As New ADODB.Recordset '定義數(shù)據(jù)集對(duì)象</p><p><b>　　'打開數(shù)據(jù)連接</b></p><p>　　rs1.Open "

49、;select * from tb_Client_gzbw where gzbw_txrq='" + Str(Date) + "'", cnn, adOpenKeyset</p><p>　　If rs1.RecordCount > 0 Then '如果記錄數(shù)大于零</p><p>　　If MsgBox("今日重要工

50、作：" & Trim(rs1.Fields("gzbw_bt")) & ",是否查看詳細(xì)信息？", 4, "信息提示") = vbYes Then</p><p>　　'將SQL語句賦給sql變量</p><p>　　sql = "select * from tb_Client_gzbw

51、 where gzbw_txrq='" + Str(Date) + "'"</p><p><b>　　'顯示工作備忘窗體</b></p><p>　　Load Frm_Fzgj_Gzbw</p><p>　　Frm_Fzgj_Gzbw.Show 1</p><p>

52、<b>　　End If</b></p><p><b>　　End If</b></p><p>　　rs1.Close '關(guān)閉數(shù)據(jù)對(duì)象</p><p>　　在程序運(yùn)行時(shí)，可通過單擊Toolbar控件上的按鈕，來調(diào)用相應(yīng)的子功能窗體，實(shí)現(xiàn)增加、刪除、修改和查找功能。其實(shí)現(xiàn)的代碼如下：</p>&

53、lt;p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Index</p><p><b>　　Case 1</b></p><p>　　Load Frm_Khxxwh_kh &

54、#39;調(diào)用客戶信息窗體</p><p>　　Frm_Khxxwh_kh.Show 1</p><p><b>　　Case 2</b></p><p>　　Load Frm_Khxxwh_Lxr '調(diào)用聯(lián)系人信息窗體</p><p>　　Frm_Khxxwh_Lxr.Show 1</p>&

55、lt;p><b>　　Case 3</b></p><p>　　Load Frm_Khxxwh_Yjfs '調(diào)用發(fā)送郵件窗體</p><p>　　Frm_Khxxwh_Yjfs.Show 1</p><p><b>　　Case 4</b></p><p>　　Load Frm_

56、Xxcx_Khxxcx '調(diào)用客戶信息查詢窗體</p><p>　　Frm_Xxcx_Khxxcx.Show 1</p><p><b>　　Case 7</b></p><p>　　End '關(guān)閉退出</p><p>　　End Select</p><p><b

57、>　　End Sub</b></p><p>　　在程序運(yùn)行時(shí)，當(dāng)用鼠標(biāo)單擊TreeView控件中的節(jié)點(diǎn)時(shí)，在右邊的ListView控件中就可以顯示該節(jié)點(diǎn)下的相應(yīng)的子功能圖標(biāo)。該功能的實(shí)現(xiàn)是通過在TreeView1控件的NodeClick事件實(shí)現(xiàn)的。下面以“基礎(chǔ)信息維護(hù)”菜單為例介紹其主要實(shí)現(xiàn)的方法。</p><p>　　If TreeView1.SelectedItem

58、.key = "基礎(chǔ)信息維護(hù)" Then</p><p>　　ListView1.ListItems.Clear '清除ListView中的項(xiàng)目</p><p>　　'向ListView控件中添加項(xiàng)目并設(shè)置圖片</p><p>　　Set itmX = ListView1.ListItems.Add(, , "區(qū)域信

59、息設(shè)置", 3)</p><p>　　Set itmX = ListView1.ListItems.Add(, , "企業(yè)性質(zhì)設(shè)置", 4)</p><p>　　Set itmX = ListView1.ListItems.Add(, , "企業(yè)類型設(shè)置", 6)</p><p>　　Set itmX = ListV

60、iew1.ListItems.Add(, , "企業(yè)資信設(shè)置", 5)</p><p>　　Set itmX = ListView1.ListItems.Add(, , "客戶級(jí)別設(shè)置", 7)</p><p>　　Set itmX = ListView1.ListItems.Add(, , "客戶滿意程度設(shè)置", 8)</

61、p><p>　　Exit Sub '退出本事件</p><p><b>　　End If</b></p><p>　　在程序運(yùn)行時(shí)，StatusBar控件中的時(shí)間顯示的是當(dāng)前系統(tǒng)的時(shí)間，并跟隨系統(tǒng)時(shí)間發(fā)生變化。其實(shí)現(xiàn)方式是：向窗體中添加時(shí)鐘控件，并將其Enabled屬性設(shè)置為True，Interval屬性設(shè)置為60。并添加如下的代碼：

62、</p><p>　　Private Sub Timer1_Timer()</p><p><b>　　'顯示系統(tǒng)時(shí)間</b></p><p>　　Frm_Main.StatusBar1.Panels(3).Text = Format(Date, "long date") + Format(Now, " h

63、h點(diǎn)mm分ss秒")</p><p><b>　　End Sub</b></p><p>　　4.3 客戶呼叫中心</p><p>　　客戶呼叫中心是客戶管理系統(tǒng)中比較重要的部分，是企業(yè)利用現(xiàn)代通信手段集中處理與客戶交互過程的機(jī)構(gòu)。在客戶呼叫中心中能夠根據(jù)客戶的電話號(hào)碼可以顯示該客戶簡(jiǎn)單的信息，同時(shí)可以呼叫該客戶，并可查詢?cè)撎?hào)碼客戶

64、的詳細(xì)信息，以及聯(lián)系人的相關(guān)信息。</p><p>　　在程序運(yùn)行時(shí)，單擊“客戶信息維護(hù)”主菜單下的“客戶呼叫中心”子菜單，系統(tǒng)將調(diào)用“客戶呼叫中心”窗體?！翱蛻艉艚兄行摹贝绑w的運(yùn)行結(jié)果如圖7所示。</p><p>　　圖7 客戶呼叫中心窗體的運(yùn)行結(jié)果</p><p>　　4.3.1 窗體設(shè)計(jì)</p><p>　?。?）在“工程”中新建一個(gè)

65、窗體，將窗體的“名稱”設(shè)置為Frm_Khxxwh_Hjzx，MaxButton屬性設(shè)置為False。Caption屬性設(shè)置為“客戶呼叫中心”。</p><p>　　（2）向窗體上添加1個(gè)Frame控件，設(shè)置其Caption屬性為空，在窗體中用于標(biāo)識(shí)分組，使窗體顯得規(guī)整。并向其中添加1個(gè)Label控件，將該標(biāo)簽控件的Caption屬性設(shè)置為“請(qǐng)輸入或選擇客戶公司電話”。</p><p>　　

66、（3）向窗體上添加1個(gè)ComboBox控件，設(shè)置其“名稱”屬性為Cbx_Khdh，Text屬性為Cbx_Khdh，Style屬性為0–Dropdown Combo。該控件用于顯示客戶的公司電話。</p><p>　?。?）向窗體上添加2個(gè)Frame控件，分別設(shè)置其Caption屬性值為“客戶簡(jiǎn)單信息”和空，并向其中添加若干Label控件。</p><p>　　（5）向窗體上添加若干Text

67、Box控件，并將其設(shè)置為控件數(shù)組。</p><p>　?。?）向窗體中添加1個(gè)MSComm控件，由于該控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱。添加方法如下：</p><p>　　在“工程”/“部件”對(duì)話框中勾選“Microsoft Comm Control 6.0”列表項(xiàng)，如圖8所示。單擊【確定】按鈕之后即可將MSComm控件添加到工具箱當(dāng)中。</p

68、><p>　　圖8 添加MSComm控件</p><p>　?。?）在窗體上添加4個(gè)CommandButton控件，分別將其“名稱”屬性和Caption屬性設(shè)置為Cmd_Hj和“開始呼叫”、Cmd_Kh和“客戶詳細(xì)信息”、Cmd_Lxr和“聯(lián)系人信息”、Cmd_Exit和“退出”。其擺放位置如圖9所示。</p><p>　　圖9 客戶呼叫中心窗體的設(shè)計(jì)界面</

69、p><p>　　4.3.2 代碼設(shè)計(jì)</p><p>　　在窗體加載時(shí)，向Cbx_khdh組合框中添加客戶電話，當(dāng)用戶在該文本框中選擇相應(yīng)的項(xiàng)目時(shí)，在下面的“客戶簡(jiǎn)單信息”框架中就可以顯示出相應(yīng)的信息，其實(shí)現(xiàn)的代碼如下：</p><p>　　Private Sub Form_Load()</p><p>　　Dim rs1 As New ADOD

70、B.Recordset '定義數(shù)據(jù)集對(duì)象</p><p>　　rs1.Open "select * from tb_khxx ", cnn, adOpenKeyset '打開數(shù)據(jù)連接</p><p>　　If rs1.RecordCount > 0 Then '如果記錄數(shù)大于零</p><p>　　F

71、or i = 0 To rs1.RecordCount - 1 '從零開始到記錄總數(shù)減1作循環(huán)</p><p>　　Cbx_Khdh.AddItem Trim(rs1.Fields("khxx_gsdh")) '向Cbx_Khdb組合框中添加數(shù)據(jù)項(xiàng)目</p><p>　　rs1.MoveNext '數(shù)據(jù)對(duì)象向下移動(dòng)一條記錄<

72、;/p><p>　　Next i '循環(huán)加一</p><p>　　If Cbx_Khdh.ListCount > 0 Then '如果Cbx_Khdh中的數(shù)據(jù)項(xiàng)目數(shù)不為零</p><p>　　Cbx_Khdh.ListIndex = 0 '在Cbx_Khdh中顯示第一條數(shù)據(jù)項(xiàng)</p><p>　　Else

73、 '否則</p><p>　　Cbx_Khdh.Text = "請(qǐng)選擇" '顯示“請(qǐng)選擇”信息</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　rs1.Close '

74、;關(guān)閉數(shù)據(jù)集對(duì)象</p><p><b>　　End Sub</b></p><p>　　根據(jù)公司的電話號(hào)碼，單擊【開始呼叫】按鈕，可以呼叫該用戶。如下面的代碼所示：</p><p>　　Private Sub Cmd_Hj_Click() '開始呼叫</p><p>　　If Cbx_Khdh.Text

75、= "" Then '如果組合框?yàn)榭?lt;/p><p>　　MsgBox "請(qǐng)您輸入電話號(hào)碼!", vbInformation, "客戶管理系統(tǒng)"</p><p>　　Cbx_Khdh.SetFocus '將焦點(diǎn)設(shè)置在組合框上</p><p>　　Else '否則<

76、;/p><p>　　MSComm1.CommPort = 1 '設(shè)置通信端口號(hào)</p><p>　　MSComm1.Settings = "4800,N,8,1" '設(shè)置波特率、奇偶校驗(yàn)位、數(shù)據(jù)位和停止位參數(shù)</p><p>　　MSComm1.PortOpen = True</p><p>　　MSComm1

77、.Output = "ATDT" & Cbx_Khdh.Text & vbCr</p><p>　　MsgBox "請(qǐng)聽電話！", vbpuestion, "客戶管理系統(tǒng)"</p><p>　　MSComm1.PortOpen = False</p><p><b>　　End I

78、f</b></p><p><b>　　End Sub</b></p><p>　　單擊【客戶詳細(xì)信息】按鈕，可以調(diào)用“客戶信息”窗體。通過定義的公共字符變量sql，可以在調(diào)用“客戶信息”窗體時(shí)，直接顯示該客戶的信息。其實(shí)現(xiàn)的關(guān)鍵代碼如下：</p><p>　　Private Sub Cmd_Kh_Click() '調(diào)用客

79、戶詳細(xì)信息</p><p>　　Dim rs3 As New ADODB.Recordset '定義數(shù)據(jù)集變量</p><p><b>　　'打開數(shù)據(jù)對(duì)象</b></p><p>　　rs3.Open "select * from tb_khxx where khxx_gsdh='" + Cbx_

80、Khdh.Text + "'", cnn, adOpenKeyset</p><p>　　If rs3.RecordCount > 0 Then '如果數(shù)據(jù)記錄大于零</p><p>　　sql = "select * from tb_khxx where khxx_gsdh='" + Cbx_Khdh.Text +

81、 "'" '將SQL語句賦給sql字符變量</p><p>　　Load Frm_Khxxwh_kh '調(diào)用客戶信息窗體</p><p>　　Frm_Khxxwh_kh.Show 1</p><p><b>　　End If</b></p><p><b>

82、;　　End Sub</b></p><p>　　在本窗體關(guān)閉前，將sql變量清空，避免對(duì)其他窗體造成影響。其實(shí)現(xiàn)代碼如下：</p><p>　　Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)</p><p>　　sql = "" &#

83、39;清空sql變量</p><p><b>　　End Sub</b></p><p><b>　　4.4 客戶投訴</b></p><p>　　客戶投訴是企業(yè)了解客戶意見的重要手段之一。在本系統(tǒng)中用戶可以通過點(diǎn)擊客戶服務(wù)菜單下的客戶投訴子菜單，進(jìn)入到客戶投訴窗體中。該窗體具有對(duì)客戶投訴信息進(jìn)行增加、刪除、修改和查找的

84、功能，并可以通過單擊DataGrid控件來瀏覽客戶投訴信息。</p><p>　　客戶投訴窗體的運(yùn)行結(jié)果如圖13所示。</p><p>　　圖13 客戶投訴窗體的運(yùn)行結(jié)果</p><p><b>　　4.4.1窗體設(shè)計(jì)</b></p><p>　?。?）在“工程”中新建一個(gè)窗體，將窗體的“名稱”設(shè)置為Frm_Khfw_

85、Khts，Caption屬性設(shè)置為“客戶投訴”，MaxButton屬性設(shè)置為False。</p><p>　?。?）向窗體上添加1個(gè)Toolbar控件，1個(gè)ImageList控件，并將兩個(gè)控件相連。</p><p>　?。?）向窗體上添加2個(gè)ComboBox控件，將控件的Style屬性設(shè)置為0–Dropdown Combo?！懊Q”屬性分別設(shè)置為Cbx_Khmc和Cbx_Myd，分別用于存

86、儲(chǔ)客戶名稱和客戶滿意度信息。</p><p>　?。?）向窗體上添加1個(gè)DTPicker控件，“名稱”屬性設(shè)置為Dtp_Tsrq，用于顯示客戶投訴日期。</p><p>　　（5）向窗體上添加1個(gè)ADO控件和1個(gè)DataGrid控件，設(shè)置DataGrid控件的“名稱”為Dgr_Khts，DataSource屬性設(shè)置為Adodc1，AllowUpdate屬性設(shè)置為False。Adodc1控件

87、的RecordSource屬性設(shè)置為tb_Client_khts，CommandType屬性設(shè)置為2–adCmdTable，Visible屬性設(shè)置為False。其中ADO控件用于連接客戶投訴表，DataGrid控件用于顯示客戶投訴表中的數(shù)據(jù)信息。</p><p>　　（6）向窗體上添加若干個(gè)Label控件和TextBox控件，并設(shè)置TextBox控件為控件名為Text1的控件數(shù)組。</p><

88、p><b>　　4.4.2代碼設(shè)計(jì)</b></p><p>　　在“客戶投訴”窗體加載的時(shí)候，首先建立數(shù)據(jù)連接，然后調(diào)用自定義過程來設(shè)置數(shù)據(jù)表的表頭。并將客戶名稱和客戶滿意度信息添加到ComboBox控件中，并設(shè)置其顯示第一條記錄。其實(shí)現(xiàn)的關(guān)鍵代碼如下：</p><p>　　Private Sub Form_Load()</p><p>

89、　　Adodc1.ConnectionString = PublicStr '連接數(shù)據(jù)庫</p><p>　　Call Dgr_Title '調(diào)用本模塊中的過程</p><p>　　tlbState Toolbar1, False '調(diào)用公共模塊中的自定義過程</p><p>　　Dim rs2 As New ADODB.Reco

90、rdset '定義數(shù)據(jù)集對(duì)象</p><p>　　rs2.Open "select * from tb_khxx ", cnn, adOpenKeyset '建立數(shù)據(jù)連接</p><p>　　If rs2.RecordCount > 0 Then '如果記錄數(shù)大于零</p><p>　　For i = 0

91、 To rs2.RecordCount - 1 '從零到記錄數(shù)減1作循環(huán)</p><p>　　Cbx_Khmc.AddItem Trim(rs2.Fields("khxx_mc")) '向添加Cbx_Khmc中添加數(shù)據(jù)項(xiàng)</p><p>　　rs2.MoveNext '數(shù)據(jù)記錄移至下一條</p><p>　　Next

92、 i '循環(huán)加一</p><p><b>　　End If</b></p><p>　　If Cbx_Khmc.ListCount = 0 Then '如果Cbx_Khmc中的數(shù)據(jù)項(xiàng)為0</p><p>　　Cbx_Khmc.Text = "" '顯示空</p><p&g

93、t;　　Else '否則</p><p>　　Cbx_Khmc.ListIndex = 0 '顯示第一條記錄</p><p><b>　　End If</b></p><p>　　rs2.Close '關(guān)閉記錄集</p><p>　　Dim rs3 As New ADODB.Rec

94、ordset</p><p>　　rs3.Open "select * from tb_Client_khmyd ", cnn, adOpenKeyset</p><p>　　If rs3.RecordCount > 0 Then</p><p>　　For i = 0 To rs3.RecordCount - 1</p>&

95、lt;p>　　Cbx_Myd.AddItem Trim(rs3.Fields("khmyd_myd")) '向Cbx_Myd中添加數(shù)據(jù)項(xiàng)</p><p>　　rs3.MoveNext</p><p><b>　　Next i</b></p><p><b>　　End If</b>&l

96、t;/p><p>　　If Cbx_Myd.ListCount = 0 Then</p><p>　　Cbx_Myd.Text = ""</p><p><b>　　Else</b></p><p>　　Cbx_Myd.ListIndex = 0</p><p><b>

97、　　End If</b></p><p><b>　　rs3.Close</b></p><p>　　Call view_data '調(diào)用本模塊中的子定義過程顯示數(shù)據(jù)信息</p><p>　　For i = 0 To Text1.UBound</p><p>　　Text1(i).Enabled

98、= False</p><p><b>　　Next i</b></p><p>　　Dtp_Tsrq.Value = Date: Cbx_Khmc.Enabled = False : Cbx_Myd.Enabled = False : Dtp_Tsrq.Enabled = False</p><p><b>　　End Sub<

99、;/b></p><p>　　本系統(tǒng)中的數(shù)據(jù)庫采用的是英文字段，因此在數(shù)據(jù)表顯示的時(shí)候，將會(huì)顯示英文字段，所以，在程序運(yùn)行時(shí)，當(dāng)遇到用于顯示數(shù)據(jù)信息的時(shí)候，先調(diào)用自定義過程，設(shè)置DataGrid控件中的表頭為中文，自定義過程的代碼如下：</p><p>　　Sub Dgr_Title() '設(shè)置DataGrid控件的標(biāo)題</p><p>　　Dgr_

100、Khts.Columns(0).Caption = "客戶投訴編號(hào)" : Dgr_Khts.Columns(1).Caption = "企業(yè)名稱"</p><p>　　Dgr_Khts.Columns(2).Caption = "投訴人" : Dgr_Khts.Columns(3).Caption = "投訴主題"</p>

101、<p>　　Dgr_Khts.Columns(4).Caption = "投訴內(nèi)容" : Dgr_Khts.Columns(5).Caption = "投訴日期"</p><p>　　Dgr_Khts.Columns(6).Caption = "處理辦法" : Dgr_Khts.Columns(7).Caption = "客戶滿意

102、度"</p><p>　　Dgr_Khts.Columns(8).Caption = "投訴受理人" : Dgr_Khts.Columns(9).Caption = "備注信息"</p><p><b>　　End Sub</b></p><p>　　在本窗體中將數(shù)據(jù)信息顯示定義為自定義過程，在

103、顯示數(shù)據(jù)信息時(shí)，調(diào)用自定義過程，這樣可避免同樣的代碼重復(fù)編寫，提高程序代碼的可重用性。數(shù)據(jù)信息顯示自定義過程的關(guān)鍵代碼如下：</p><p>　　Sub view_data()</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p>　　Text1(0).Text = Dgr_Khts.Column

104、s(0) : Cbx_Khmc.Text = Dgr_Khts.Columns(1)</p><p>　　Text1(1).Text = Dgr_Khts.Columns(2) : Text1(2).Text = Dgr_Khts.Columns(3)</p><p>　　Text1(3).Text = Dgr_Khts.Columns(4) : Dtp_Tsrq.Value = Dgr_

105、Khts.Columns(5)</p><p>　　Text1(4).Text = Dgr_Khts.Columns(6) : Cbx_Myd.Text = Dgr_Khts.Columns(7)</p><p>　　Text1(5).Text = Dgr_Khts.Columns(8) : Text1(6).Text = Dgr_Khts.Columns(9)</p>&l

106、t;p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.5 客戶投訴滿意程度分析</p><p>　　“客戶投訴滿意程度分析”窗體可以根據(jù)客戶投訴的滿意程度，以不同的形式（條形、線形、三維、列表）顯示客戶對(duì)投訴處理的滿意程度。在程序運(yùn)行時(shí)，單擊“客戶服務(wù)

107、”主菜單下的“客戶投訴滿意程度分析”子菜單，即可進(jìn)入到“客戶投訴滿意程度分析”窗體中。該窗體的運(yùn)行結(jié)果如圖14所示。</p><p>　　圖14 客戶滿意程度分析運(yùn)行結(jié)果</p><p><b>　　4.5.1窗體設(shè)計(jì)</b></p><p>　?。?）在“工程”中新建一個(gè)窗體，將窗體的“名稱”設(shè)置為Frm_Khfw_Tsmydfx，Capt

108、ion屬性設(shè)置為“客戶投訴滿意程度分析”，MaxButton屬性設(shè)置為False。</p><p>　?。?）向窗體中添加1個(gè)MSChart控件，由于該控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱。添加方法如下：</p><p>　　在“工程”/“部件”對(duì)話框中勾選“Microsoft Chart Control 6.0 (SP4)”列表項(xiàng)，單擊【確定】按鈕之后

109、即可將MSChart控件添加到工具箱當(dāng)中。MSChart控件用于圖形顯示分析結(jié)果。</p><p>　?。?）向窗體中添加1個(gè)DataGrid控件和1個(gè)ADO控件，設(shè)置DataGrid控件的“名稱”屬性為Dgr_Mydfx，設(shè)置Caption屬性為“客戶滿意程度分析表”，DataSource屬性為Adodc1。CommandType屬性設(shè)置為2–adCmdTable，Adodc1的RecordSorce屬性設(shè)置為

110、tb_Client_mydtj， Visible屬性設(shè)置為False。其中ADO控件用于連接滿意度統(tǒng)計(jì)表，DataGrid控件用于顯示滿意度統(tǒng)計(jì)信息。</p><p>　?。?）向窗體上添加5個(gè)CommandButton控件。</p><p><b>　　4.5.2代碼設(shè)計(jì)</b></p><p>　　在窗體加載時(shí)，統(tǒng)計(jì)客戶投訴表中的數(shù)據(jù)信息，

111、并根據(jù)客戶滿意度設(shè)置表中的滿意度級(jí)別，將相應(yīng)的滿意度級(jí)別和該級(jí)別的數(shù)量統(tǒng)計(jì)并添加到滿意度統(tǒng)計(jì)表中，根據(jù)該表中的數(shù)據(jù)信息在MSChart控件或DataGrid控件中顯示相應(yīng)的信息。</p><p>　　Private Sub Form_Load()</p><p>　　Adodc1.ConnectionString = PublicStr '數(shù)據(jù)連接</p><

112、;p>　　'清空滿意度統(tǒng)計(jì)數(shù)據(jù)表中的數(shù)據(jù)信息</p><p>　　cnn.Execute "delete tb_Client_mydtj select * from tb_Client_mydtj"</p><p>　　rs1.Open "select * from tb_Client_khmyd", cnn, adOpenKeyset

113、 '打開數(shù)據(jù)連接</p><p>　　If rs1.RecordCount > 0 Then '如果記錄數(shù)大于零</p><p>　　S1 = rs1.RecordCount '將記錄數(shù)賦給變量S1</p><p>　　For i = 0 To rs1.RecordCount - 1 '從零到記錄總數(shù)減一作循

114、環(huán)</p><p>　　Mystr = rs1.Fields("khmyd_myd") '將字段khmyd_myd中的記錄賦給Mystr變量</p><p>　　'打開數(shù)據(jù)集對(duì)象，查看滿意程度為Mystr變量中存儲(chǔ)的字符串的記錄數(shù)量</p><p>　　rs2.Open "select * from tb_Client

115、_khts where khts_khmyd='" + Mystr + "'", cnn, adOpenKeyset </p><p>　　If rs2.RecordCount >= 0 Then '如果記錄數(shù)大于等于零</p><p>　　rs3.Open "select * from tb_Client_mydt

116、j", cnn, adOpenKeyset, adLockOptimistic '打開數(shù)據(jù)集對(duì)象</p><p>　　'向tb_Client_mydtj表中添加數(shù)據(jù)記錄</p><p>　　rs3.AddNew '添加一條新記錄</p><p>　　rs3.Fields(&qu

117、ot;mydtj_myd") = Mystr '將Mystr賦給mydtj_myd字段</p><p>　　rs3.Fields("mydtj_sl") = rs2.RecordCount '將該滿意程度的記錄數(shù)賦給mydtj_sl字段</p><p>　　rs3.Update '刷

118、新</p><p>　　rs3.Close '關(guān)閉數(shù)據(jù)集對(duì)象</p><p><b>　　End If</b></p><p>　　rs2.Close '關(guān)閉數(shù)據(jù)集對(duì)象</p><p>　　rs1.

119、MoveNext '記錄加一</p><p>　　Next i '循環(huán)加一</p><p><b>　　End If</b></p><p>　　rs1.Close ' 關(guān)閉數(shù)據(jù)集對(duì)象</p>

120、<p>　　'打開tb_Client_mydtj表的數(shù)據(jù)集對(duì)象</p><p>　　rs4.Open "select * from tb_Client_mydtj order by mydtj_sl desc", cnn, adOpenKeyset</p><p>　　If rs4.RecordCount > 0 Then '如果記錄

121、數(shù)大于零</p><p>　　ReDim arrValues(1 To S1, 1 To 2) '定義動(dòng)態(tài)數(shù)組</p><p>　　For i = 1 To S1 '給數(shù)組賦值</p><p>　　arrValues(i, 1) = " " & rs4!mydtj_myd</p><

122、;p>　　arrValues(i, 2) = rs4!mydtj_sl</p><p>　　rs4.MoveNext</p><p><b>　　Next i</b></p><p>　　MSChart1.ChartData = arrValues '圖表顯示數(shù)據(jù)</p><p>　　MSChart

123、1.Title = " 客戶滿意度分析圖 " '設(shè)置圖表名稱</p><p>　　MSChart1.Title.VtFont.Size = 15</p><p>　　rs4.Close '關(guān)閉數(shù)據(jù)集對(duì)象</p><p><b>　　End If</b></p>&

124、lt;p>　　Adodc1.Refresh '刷新ADODC控件</p><p>　　Set Dgr_Mydfx.DataSource = Adodc1 '設(shè)置DataGrid的DataSource屬性</p><p>　　Call Dgr_Title '調(diào)用自定義程序設(shè)置DataGrid控件中的數(shù)據(jù)表表頭</p><p>

125、　　Dgr_Mydfx.Visible = False 'DataGrid控件不可見</p><p>　　Cmd_Tx_Click ' 執(zhí)行條形顯示事件</p><p><b>　　End Sub</b></p><p>　　4.6 客戶信息查詢</p><p>　　在“客戶信息查詢”窗體中，用戶