《客戶關(guān)系管理系統(tǒng)畢業(yè)論文》由會(huì)員分享，可在線閱讀，更多相關(guān)《客戶關(guān)系管理系統(tǒng)畢業(yè)論文（36頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、 摘 要 在對(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ù)、良好的資信吸引新客戶；經(jīng)常維系與老客戶的關(guān)系，以規(guī)范的客戶管理方式、溫馨的客戶關(guān)懷、高效的客戶服務(wù)來(lái)提升老客戶的忠誠(chéng)度。由此，客戶管理系統(tǒng)應(yīng)運(yùn)而生。 關(guān)鍵詞 CRM，客戶關(guān)系管理系統(tǒng)，VB，數(shù)據(jù)庫(kù) 目 錄 摘

2、 要 4 目 錄 5 前 言 6 1 系統(tǒng)分析 7 1.1 需求分析 7 1.2 可行性分析 7 2 總體設(shè)計(jì) 8 2.1 項(xiàng)目規(guī)劃 8 2.2系統(tǒng)功能結(jié)構(gòu)圖 9 3 系統(tǒng)設(shè)計(jì) 10 3.1 設(shè)計(jì)目標(biāo) 10 3.2 開(kāi)發(fā)及運(yùn)行環(huán)境 10 3.3 數(shù)據(jù)庫(kù)設(shè)計(jì) 11 3.3.1數(shù)據(jù)庫(kù)概要說(shuō)明 11 3.3.2 數(shù)據(jù)表結(jié)構(gòu) 11 4 主要功能模塊設(shè)計(jì) 12 4.1公共模塊設(shè)計(jì)（Mdl_Link模塊） 12 4.2 主窗體設(shè)計(jì) 13 4.2.1窗體設(shè)計(jì) 13 4.2.2代碼設(shè)計(jì) 16 4.3 客戶呼叫中心 18 4.3.1 窗體設(shè)計(jì) 18

3、 4.3.2 代碼設(shè)計(jì) 20 4.4 客戶投訴 21 4.4.1窗體設(shè)計(jì) 22 4.4.2代碼設(shè)計(jì) 22 4.5 客戶投訴滿意程度分析 24 4.5.1窗體設(shè)計(jì) 24 4.5.2代碼設(shè)計(jì) 25 4.6 客戶信息查詢 26 4.6.1窗體設(shè)計(jì) 26 5 總 結(jié) 28 致 謝 29 參考文獻(xiàn) 30 附錄1 數(shù)據(jù)表 31 附錄2 36 前 言 在全球一體化、企業(yè)互動(dòng)和以INTERNET為核心的時(shí)代，企業(yè)面臨著如何發(fā)展?jié)撛诳蛻?，如何將社?huì)關(guān)系資源變?yōu)槠髽I(yè)的銷售和發(fā)展資源的一系列難辦棘手的問(wèn)題。在上述背景下，客戶管理系統(tǒng)應(yīng)運(yùn)而生。本系統(tǒng)本著把握客戶多樣

4、化和個(gè)性化的特點(diǎn)；以最快的速度響應(yīng)客戶需求；吸引新客戶，留住老客戶為原則。即從過(guò)去的以產(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è)從多渠道收集信息，快速發(fā)現(xiàn)核心客戶和潛在伙伴，進(jìn)而給企業(yè)帶來(lái)無(wú)限的利潤(rùn)。 以客戶為中心的理念在國(guó)外興起于20世紀(jì)50年代，當(dāng)時(shí)很多企業(yè)寄希望于通過(guò)改

5、進(jìn)技術(shù)、壓縮生產(chǎn)周期、改善內(nèi)部資源管理來(lái)提高生產(chǎn)增長(zhǎng)率和利潤(rùn)，但事實(shí)上見(jiàn)效甚微。這樣企業(yè)開(kāi)始從強(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)這些看似并不復(fù)雜而實(shí)際操作起來(lái)非常繁瑣的工作。試想一下，當(dāng)我們需要查找一個(gè)客戶的電話號(hào)碼時(shí)，只需敲幾下鍵盤，就可以看到客戶的詳細(xì)資料（包括姓名、公司名稱、電話、E-mail等），所有這些都是一個(gè)完善的客戶管理系統(tǒng)所能完成的。 1 系統(tǒng)分析 1.1 需求分析 根據(jù)市場(chǎng)的需求，要求系統(tǒng)具有以下

6、功能： q 由于該系統(tǒng)的使用對(duì)象較多，要求有嚴(yán)密的權(quán)限管理。 q 具有數(shù)據(jù)備份及數(shù)據(jù)恢復(fù)的功能，確保系統(tǒng)的安全性。 q 方便的全方位的數(shù)據(jù)查詢。 q 強(qiáng)大的報(bào)表打印功能。 q 在相應(yīng)的權(quán)限下，可以刪除或修改數(shù)據(jù)。 1.2 可行性分析 隨著科技的發(fā)展，競(jìng)爭(zhēng)也越發(fā)激烈、殘酷，企業(yè)傳統(tǒng)的管理方式對(duì)于現(xiàn)今社會(huì)的競(jìng)爭(zhēng)已明顯感覺(jué)到力不從心?？蛻糇鳛槭袌?chǎng)的最大資源，已成為市場(chǎng)營(yíng)銷核心，誰(shuí)爭(zhēng)取到了最多的客戶，誰(shuí)就取的了最大的成功，對(duì)客戶的把握將最終決定企業(yè)的命運(yùn)。 客戶關(guān)系管理系統(tǒng)正是在這種需求下經(jīng)過(guò)深入的市場(chǎng)調(diào)研和專家系統(tǒng)化的指導(dǎo)應(yīng)運(yùn)而生。系統(tǒng)具有完善的基礎(chǔ)信息維護(hù)和客戶信息維護(hù)，

7、強(qiáng)大的數(shù)據(jù)查詢及圖表分析功能，基本能夠滿足中小型企業(yè)的需要。 2 總體設(shè)計(jì) 2.1 項(xiàng)目規(guī)劃 客戶管理系統(tǒng)是一個(gè)非常有特點(diǎn)的管理軟件，系統(tǒng)由基礎(chǔ)信息維護(hù)、客戶信息維護(hù)、客戶服務(wù)、信息查詢、數(shù)據(jù)管理、輔助工具、系統(tǒng)管理和幫助信息等幾個(gè)功能模塊組成，規(guī)劃系統(tǒng)功能模塊如下： q 基礎(chǔ)信息維護(hù)模塊 基礎(chǔ)信息維護(hù)模塊主要包括區(qū)域信息設(shè)置、企業(yè)性質(zhì)設(shè)置、企業(yè)類型設(shè)置、企業(yè)資信設(shè)置、客戶級(jí)別設(shè)置和客戶滿意程度設(shè)置6部分。 q 客戶信息維護(hù)模塊 客戶信息維護(hù)模塊主要包括客戶信息、聯(lián)系人信息、業(yè)務(wù)往來(lái)、客戶呼叫中心和發(fā)送郵件5個(gè)部分。 q 客戶服務(wù)模塊 客戶

8、服務(wù)模塊主要包括客戶反饋、客戶投訴、客戶反饋滿意程度分析和客戶投訴滿意程度分析4個(gè)部分。 q 信息查詢模塊 信息查詢模塊主要包括客戶信息查詢、聯(lián)系人信息查詢、客戶反饋滿意程度查詢、客戶投訴滿意程度查詢、客戶反饋查詢、客戶投訴查詢和國(guó)內(nèi)城市區(qū)號(hào)郵編查詢7個(gè)部分。 q 數(shù)據(jù)管理模塊 數(shù)據(jù)管理模塊主要包括客戶信封打印、客戶信息列表、聯(lián)系人信息列表和省份郵編信息打印4個(gè)部分。 q 輔助工具模塊 輔助工具模塊包括調(diào)用Word、調(diào)用Excel、計(jì)算器、登錄Internet和工作業(yè)務(wù)備忘5個(gè)部分。 q 系統(tǒng)管理模塊 系統(tǒng)管理模塊主要包括操作員設(shè)置、密碼修改、權(quán)限設(shè)置、系統(tǒng)數(shù)據(jù)清理、數(shù)據(jù)備份與

9、恢復(fù)5個(gè)部分。 q 幫助信息模塊 幫助信息模塊主要包括本單位信息、關(guān)于、幫助等3個(gè)部分。 2.2系統(tǒng)功能結(jié)構(gòu)圖 圖1 客戶管理系統(tǒng)功能結(jié)構(gòu)圖 3 系統(tǒng)設(shè)計(jì) 3.1 設(shè)計(jì)目標(biāo) 本系統(tǒng)是根據(jù)中小企業(yè)的實(shí)際需求而開(kāi)發(fā)的，完全能夠?qū)崿F(xiàn)企業(yè)對(duì)客戶的自動(dòng)化管理，通過(guò)本系統(tǒng)可以達(dá)到以下目標(biāo)： q 系統(tǒng)運(yùn)行穩(wěn)定，安全可靠。 q 界面設(shè)計(jì)美觀，人機(jī)交互界面友好。 q 信息查詢靈活、方便、快捷、準(zhǔn)確，數(shù)據(jù)存儲(chǔ)安全可靠。 q 滿足鍵盤和鼠標(biāo)的雙重操作，完全支持回車鍵。 q 采用多種方式查詢數(shù)據(jù)。 q 操作員可以隨時(shí)修改自己的口令。 q 對(duì)用戶輸入的數(shù)

10、據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。 q 數(shù)據(jù)保密性強(qiáng)，為每個(gè)用戶設(shè)置相應(yīng)的權(quán)限級(jí)別。 q 強(qiáng)大的圖表分析功能。 q 收錄了全國(guó)各省市縣的郵政編碼及區(qū)號(hào)信息等二千多條記錄。 q 不僅采用了傳統(tǒng)的數(shù)據(jù)報(bào)表打印方式，還可以向Word中打印輸出。 3.2 開(kāi)發(fā)及運(yùn)行環(huán)境 系統(tǒng)開(kāi)發(fā)平臺(tái)：Visual Basic 6.0 數(shù)據(jù)庫(kù)管理系統(tǒng)軟件：SQL Server 2000 運(yùn)行平臺(tái)：Windows xp/Windows 2000/Windows 98 分辨率：最佳效果 800*600 3.3 數(shù)據(jù)庫(kù)設(shè)計(jì) 本系統(tǒng)采用SQL Server 2000 數(shù)

11、據(jù)庫(kù)，系統(tǒng)數(shù)據(jù)庫(kù)名為db_Client，數(shù)據(jù)庫(kù)db_Client中包括18個(gè)數(shù)據(jù)表。下面分別給出數(shù)據(jù)庫(kù)概要說(shuō)明和數(shù)據(jù)表的結(jié)構(gòu)。 3.3.1數(shù)據(jù)庫(kù)概要說(shuō)明 如圖2所示的即為本系統(tǒng)中數(shù)據(jù)庫(kù)中的數(shù)據(jù)表的樹(shù)形結(jié)構(gòu)圖，該數(shù)據(jù)表樹(shù)型結(jié)構(gòu)圖包含系統(tǒng)所有數(shù)據(jù)表?？梢郧逦胤磻?yīng)數(shù)據(jù)庫(kù)信息。 圖2 數(shù)據(jù)庫(kù)概要說(shuō)明 3.3.2 數(shù)據(jù)表結(jié)構(gòu) 由于篇幅所限，關(guān)于數(shù)據(jù)庫(kù)中的數(shù)據(jù)表請(qǐng)參見(jiàn)附錄二 4 主要功能模塊設(shè)計(jì) 4.1公共模塊設(shè)計(jì)（Mdl_Link模塊） 通過(guò)使用模塊可以減少程序的代碼量。在本系統(tǒng)中，將通用的代碼（如：數(shù)據(jù)庫(kù)連接、Toolbar控件的按鈕設(shè)置代碼以及公共的全局變量

12、等）都集中放置在一個(gè)數(shù)據(jù)模塊Mdl_Link中，節(jié)省了代碼量，提高了編程效率。 數(shù)據(jù)模塊Mdl_Link中定義的公共變量如下所示： Public PublicStr As String '定義公共變量用于ADODC控件的數(shù)據(jù)連接，使程序模塊化 Public sql As String '定義字符變量存儲(chǔ)SQL語(yǔ)句 Public Tb As String '存儲(chǔ)數(shù)據(jù)表名稱 Public Province As String '存儲(chǔ)省份名稱 Public Myflag As Boolean '標(biāo)識(shí) 數(shù)據(jù)模塊Mdl_L

13、ink中提供連接數(shù)據(jù)庫(kù)的程序代碼如下所示： 數(shù)據(jù)連接模塊 Public Function cnn() As ADODB.Connection '定義函數(shù) Set cnn = New ADODB.Connection '打開(kāi)數(shù)據(jù)連接 cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Client" PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User

14、ID=sa;Initial Catalog=db_Client" End Function 數(shù)據(jù)模塊Mdl_Link中關(guān)于Toolbar控件設(shè)置按鈕狀態(tài)的通用代碼如下所示： 定義設(shè)置Toolbar控件上按鈕狀態(tài)的函數(shù) Public Function tlbState(tlb As Toolbar, state As Boolean) With tlb If state = True Then '如果狀態(tài)變量為True .Buttons(1).Enabled = False : .Butt

15、ons(2).Enabled = False .Buttons(3).Enabled = False .Buttons(6).Enabled = False .Buttons(4).Enabled = True .Buttons(5).Enabled = True Else '如果狀態(tài)變量為False .Buttons(1).Enabled = True .Buttons(2).Enabled = True .Buttons(3).Enabled = Tr

16、ue .Buttons(6).Enabled = True .Buttons(4).Enabled = False .Buttons(5).Enabled = False End If End With End Function 4.2 主窗體設(shè)計(jì) 主窗體是顯示系統(tǒng)主要操作功能的面板，在系統(tǒng)主窗體的狀態(tài)欄中，可以顯示網(wǎng)址、當(dāng)前的操作員、當(dāng)前系統(tǒng)的日期、時(shí)間等信息，還可以通過(guò)菜單或單擊窗體左側(cè)的樹(shù)狀列表以及右側(cè)的功能列表來(lái)控制其他功能子窗體，并且根據(jù)不同的操作員賦予相應(yīng)的操作權(quán)限。 系統(tǒng)主窗體的運(yùn)行結(jié)果如圖3所示

17、。 圖3 系統(tǒng)主窗體的運(yùn)行結(jié)果 4.2.1窗體設(shè)計(jì) （1）在“工程”中新建一個(gè)窗體，將窗體的“名稱”設(shè)置為frm_Main，MaxButton屬性設(shè)置為False，Caption屬性設(shè)置為“客戶管理系統(tǒng)”，StartUpPosition屬性設(shè)置為2-屏幕中心。 （2）利用VB提供的菜單編輯器設(shè)計(jì)菜單。從“工具”菜單上，選取“菜單編輯器”命令即可打開(kāi)菜單編輯器，也可以在“工具欄”上單擊【菜單編輯器】按鈕。用菜單編輯器可以創(chuàng)建應(yīng)用程序的菜單，在已有的菜單上可以增加新的菜單項(xiàng)，或者修改和刪除已有的菜單和菜單項(xiàng)。 通過(guò)菜單編輯器建立的菜單如圖3所示，在菜單編輯器對(duì)話框中設(shè)計(jì)菜單

18、時(shí)的界面如圖4所示。 | 圖4 菜單編輯器 本系統(tǒng)的菜單設(shè)置如圖5所示。 圖5 客戶管理系統(tǒng)菜單設(shè)置 （3）向窗體上添加1個(gè)控件，設(shè)置其Align屬性設(shè)置為1-vbAlignTop（默認(rèn)設(shè)置）。1個(gè)ImageList控件，并將其與Toolbar控件相連，同時(shí)添加按鈕和圖片。 （4）將Toolbar控件與ImageList控件相連。 （5）向窗體上添加1個(gè)TreeView控件并將其與ImageList控件連接。 （6）向窗體中添加1個(gè)StatusBar控件，在StatusBar控件上單擊鼠標(biāo)右鍵選擇“屬性”，在彈出的屬性頁(yè)對(duì)話框中選擇“窗格”選項(xiàng)卡，如圖6所示，在

19、圖中單擊【插入窗格】按鈕，可以在StatusBar控件中添加窗格，同時(shí)可以設(shè)置添加后窗格的文本內(nèi)容、工具欄提示文本信息和寬度等信息，如果想刪除窗格，則通過(guò)“索引”旁邊的箭頭，選中要?jiǎng)h除的窗格，然后單擊【刪除窗格】按鈕即可刪除。 圖6 設(shè)置StatusBar控件中的窗格 （7）向窗體上添加ListView控件。 4.2.2代碼設(shè)計(jì) 通過(guò)主窗體當(dāng)中的菜單項(xiàng)，可以控制系統(tǒng)中各個(gè)子窗體，現(xiàn)以“輔助工具”菜單為例，介紹調(diào)用系統(tǒng)子窗體的代碼。 Private Sub Menu6_Click(Index As Integer) Select Case Index '輔助工具

20、Case 0 '調(diào)用Word ShellExecute Me.hWnd, "open", "winword.exe", "", 1, 5 Case 1 '調(diào)用Excel ShellExecute Me.hWnd, "open", "excel.exe", "", 1, 5 Case 2 '調(diào)用計(jì)算器 ShellExecute Me.hWnd, "open", "CALC.EXE", "", 1, 5 Case 3 '登錄Internet ShellExecute Me.hWnd, "open", "", 1, 1, 5 Cas

21、e 5 '工作備忘 Load Frm_Fzgj_Gzbw Frm_Fzgj_Gzbw.Show 1 End Select End Sub 在窗體啟動(dòng)的時(shí)候，首先查看工作備忘表（tb_Client_gzbw）中是否有要提醒的信息，如果有，則提示相應(yīng)的信息，否則直接加載窗體。其實(shí)現(xiàn)的關(guān)鍵代碼下： Dim rs1 As New ADODB.Recordset '定義數(shù)據(jù)集對(duì)象 '打開(kāi)數(shù)據(jù)連接 rs1.Open "select * from tb_Client_gzbw where gzbw_txrq='" + Str(Date) + "'", cnn, ad

22、OpenKeyset If rs1.RecordCount > 0 Then '如果記錄數(shù)大于零 If MsgBox("今日重要工作：" & Trim(rs1.Fields("gzbw_bt")) & ",是否查看詳細(xì)信息？", 4, "信息提示") = vbYes Then '將SQL語(yǔ)句賦給sql變量 sql = "select * from tb_Client_gzbw where gzbw_txrq='" + Str(Date) + "'" '顯示工作備忘窗體 Load Frm_Fzgj_Gzbw Frm_Fzg

23、j_Gzbw.Show 1 End If End If rs1.Close '關(guān)閉數(shù)據(jù)對(duì)象 在程序運(yùn)行時(shí)，可通過(guò)單擊Toolbar控件上的按鈕，來(lái)調(diào)用相應(yīng)的子功能窗體，實(shí)現(xiàn)增加、刪除、修改和查找功能。其實(shí)現(xiàn)的代碼如下： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Load Frm_Khxxwh_kh '調(diào)用客戶信息窗體 Frm_Khxxwh_kh.Show 1 Case 2 Load Fr

24、m_Khxxwh_Lxr '調(diào)用聯(lián)系人信息窗體 Frm_Khxxwh_Lxr.Show 1 Case 3 Load Frm_Khxxwh_Yjfs '調(diào)用發(fā)送郵件窗體 Frm_Khxxwh_Yjfs.Show 1 Case 4 Load Frm_Xxcx_Khxxcx '調(diào)用客戶信息查詢窗體 Frm_Xxcx_Khxxcx.Show 1 Case 7 End '關(guān)閉退出 End Select End Sub 在程序運(yùn)行時(shí)，當(dāng)用鼠標(biāo)單擊TreeView控件中的節(jié)點(diǎn)時(shí)，在右邊的ListView控件中就可以顯示該節(jié)點(diǎn)下的相應(yīng)的子功

25、能圖標(biāo)。該功能的實(shí)現(xiàn)是通過(guò)在TreeView1控件的NodeClick事件實(shí)現(xiàn)的。下面以“基礎(chǔ)信息維護(hù)”菜單為例介紹其主要實(shí)現(xiàn)的方法。 If TreeView1.SelectedItem.key = "基礎(chǔ)信息維護(hù)" Then ListView1.ListItems.Clear '清除ListView中的項(xiàng)目 '向ListView控件中添加項(xiàng)目并設(shè)置圖片 Set itmX = ListView1.ListItems.Add(, , "區(qū)域信息設(shè)置", 3) Set itmX = ListView1.ListItem

26、s.Add(, , "企業(yè)性質(zhì)設(shè)置", 4) Set itmX = ListView1.ListItems.Add(, , "企業(yè)類型設(shè)置", 6) Set itmX = ListView1.ListItems.Add(, , "企業(yè)資信設(shè)置", 5) Set itmX = ListView1.ListItems.Add(, , "客戶級(jí)別設(shè)置", 7) Set itmX = ListView1.ListItems.Add(, , "客戶滿意程度設(shè)置", 8) Exit Sub '退出本事件 End

27、 If 在程序運(yùn)行時(shí)，StatusBar控件中的時(shí)間顯示的是當(dāng)前系統(tǒng)的時(shí)間，并跟隨系統(tǒng)時(shí)間發(fā)生變化。其實(shí)現(xiàn)方式是：向窗體中添加時(shí)鐘控件，并將其Enabled屬性設(shè)置為True，Interval屬性設(shè)置為60。并添加如下的代碼： Private Sub Timer1_Timer() '顯示系統(tǒng)時(shí)間 Frm_Main.StatusBar1.Panels(3).Text = Format(Date, "long date") + Format(Now, " hh點(diǎn)mm分ss秒") End Sub 4.3 客戶呼叫中心 客戶呼叫中心是客戶管理系統(tǒng)中比較重要的部分，是企

28、業(yè)利用現(xiàn)代通信手段集中處理與客戶交互過(guò)程的機(jī)構(gòu)。在客戶呼叫中心中能夠根據(jù)客戶的電話號(hào)碼可以顯示該客戶簡(jiǎn)單的信息，同時(shí)可以呼叫該客戶，并可查詢?cè)撎?hào)碼客戶的詳細(xì)信息，以及聯(lián)系人的相關(guān)信息。 在程序運(yùn)行時(shí)，單擊“客戶信息維護(hù)”主菜單下的“客戶呼叫中心”子菜單，系統(tǒng)將調(diào)用“客戶呼叫中心”窗體?！翱蛻艉艚兄行摹贝绑w的運(yùn)行結(jié)果如圖7所示。 圖7 客戶呼叫中心窗體的運(yùn)行結(jié)果 4.3.1 窗體設(shè)計(jì) （1）在“工程”中新建一個(gè)窗體，將窗體的“名稱”設(shè)置為Frm_Khxxwh_Hjzx，MaxButton屬性設(shè)置為False。Caption屬性設(shè)置為“客戶呼叫中心”。 （2）向窗體上添加1

29、個(gè)Frame控件，設(shè)置其Caption屬性為空，在窗體中用于標(biāo)識(shí)分組，使窗體顯得規(guī)整。并向其中添加1個(gè)Label控件，將該標(biāo)簽控件的Caption屬性設(shè)置為“請(qǐng)輸入或選擇客戶公司電話”。 （3）向窗體上添加1個(gè)ComboBox控件，設(shè)置其“名稱”屬性為Cbx_Khdh，Text屬性為Cbx_Khdh，Style屬性為0–Dropdown Combo。該控件用于顯示客戶的公司電話。 （4）向窗體上添加2個(gè)Frame控件，分別設(shè)置其Caption屬性值為“客戶簡(jiǎn)單信息”和空，并向其中添加若干Label控件。 （5）向窗體上添加若干TextBox控件，并將其設(shè)置為控件數(shù)組。 （6）向窗體中添

30、加1個(gè)MSComm控件，由于該控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱。添加方法如下： 在“工程”/“部件”對(duì)話框中勾選“Microsoft Comm Control 6.0”列表項(xiàng)，如圖8所示。單擊【確定】按鈕之后即可將MSComm控件添加到工具箱當(dāng)中。 圖8 添加MSComm控件 （7）在窗體上添加4個(gè)CommandButton控件，分別將其“名稱”屬性和Caption屬性設(shè)置為Cmd_Hj和“開(kāi)始呼叫”、Cmd_Kh和“客戶詳細(xì)信息”、Cmd_Lxr和“聯(lián)系人信息”、Cmd_Exit和“退出”。其擺放位置如圖9所示。 圖9 客戶呼叫中心

31、窗體的設(shè)計(jì)界面 4.3.2 代碼設(shè)計(jì) 在窗體加載時(shí)，向Cbx_khdh組合框中添加客戶電話，當(dāng)用戶在該文本框中選擇相應(yīng)的項(xiàng)目時(shí)，在下面的“客戶簡(jiǎn)單信息”框架中就可以顯示出相應(yīng)的信息，其實(shí)現(xiàn)的代碼如下： Private Sub Form_Load() Dim rs1 As New ADODB.Recordset '定義數(shù)據(jù)集對(duì)象 rs1.Open "select * from tb_khxx ", cnn, adOpenKeyset '打開(kāi)數(shù)據(jù)連接 If rs1.RecordCount > 0 Then '如果記錄數(shù)大于零 For i = 0 To rs1.R

32、ecordCount - 1 '從零開(kāi)始到記錄總數(shù)減1作循環(huán) Cbx_Khdh.AddItem Trim(rs1.Fields("khxx_gsdh")) '向Cbx_Khdb組合框中添加數(shù)據(jù)項(xiàng)目 rs1.MoveNext '數(shù)據(jù)對(duì)象向下移動(dòng)一條記錄 Next i '循環(huán)加一 If Cbx_Khdh.ListCount > 0 Then '如果Cbx_Khdh中的數(shù)據(jù)項(xiàng)目數(shù)不為零 Cbx_Khdh.ListIndex = 0 '在Cbx_Khdh中顯示第一條數(shù)據(jù)項(xiàng) Else

33、'否則 Cbx_Khdh.Text = "請(qǐng)選擇" '顯示“請(qǐng)選擇”信息 End If End If rs1.Close '關(guān)閉數(shù)據(jù)集對(duì)象 End Sub 根據(jù)公司的電話號(hào)碼，單擊【開(kāi)始呼叫】按鈕，可以呼叫該用戶。如下面的代碼所示： Private Sub Cmd_Hj_Click() '開(kāi)始呼叫 If Cbx_Khdh.Text = "" Then '如果組合框?yàn)榭? MsgBox "請(qǐng)您輸入電話號(hào)碼!", vbInformation, "客戶管理系統(tǒng)" Cbx_Khdh.SetFocus '將焦點(diǎn)設(shè)置在組合框上 Else

34、 '否則 MSComm1.CommPort = 1 '設(shè)置通信端口號(hào) MSComm1.Settings = "4800,N,8,1" '設(shè)置波特率、奇偶校驗(yàn)位、數(shù)據(jù)位和停止位參數(shù) MSComm1.PortOpen = True MSComm1.Output = "ATDT" & Cbx_Khdh.Text & vbCr MsgBox "請(qǐng)聽(tīng)電話！", vbpuestion, "客戶管理系統(tǒng)" MSComm1.PortOpen = False End If End Sub 單擊【客戶詳細(xì)信息】按鈕，可以調(diào)用“客戶信息”窗體。通過(guò)定義的公共字符變量sql，可以在調(diào)用“客戶信息”

35、窗體時(shí)，直接顯示該客戶的信息。其實(shí)現(xiàn)的關(guān)鍵代碼如下： Private Sub Cmd_Kh_Click() '調(diào)用客戶詳細(xì)信息 Dim rs3 As New ADODB.Recordset '定義數(shù)據(jù)集變量 '打開(kāi)數(shù)據(jù)對(duì)象 rs3.Open "select * from tb_khxx where khxx_gsdh='" + Cbx_Khdh.Text + "'", cnn, adOpenKeyset If rs3.RecordCount > 0 Then '如果數(shù)據(jù)記錄大于零 sql = "select * from tb_khxx where khxx_gsdh

36、='" + Cbx_Khdh.Text + "'" '將SQL語(yǔ)句賦給sql字符變量 Load Frm_Khxxwh_kh '調(diào)用客戶信息窗體 Frm_Khxxwh_kh.Show 1 End If End Sub 在本窗體關(guān)閉前，將sql變量清空，避免對(duì)其他窗體造成影響。其實(shí)現(xiàn)代碼如下： Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) sql = "" '清空sql變量 End Sub 4.4 客戶投訴 客戶投訴是企業(yè)了解客戶意見(jiàn)的重要手段之一

37、。在本系統(tǒng)中用戶可以通過(guò)點(diǎn)擊客戶服務(wù)菜單下的客戶投訴子菜單，進(jìn)入到客戶投訴窗體中。該窗體具有對(duì)客戶投訴信息進(jìn)行增加、刪除、修改和查找的功能，并可以通過(guò)單擊DataGrid控件來(lái)瀏覽客戶投訴信息。 客戶投訴窗體的運(yùn)行結(jié)果如圖13所示。 圖13 客戶投訴窗體的運(yùn)行結(jié)果 4.4.1窗體設(shè)計(jì) （1）在“工程”中新建一個(gè)窗體，將窗體的“名稱”設(shè)置為Frm_Khfw_Khts，Caption屬性設(shè)置為“客戶投訴”，MaxButton屬性設(shè)置為False。 （2）向窗體上添加1個(gè)Toolbar控件，1個(gè)ImageList控件，并將兩個(gè)控件相連。 （3）向窗體上添加2個(gè)ComboBox控件，

38、將控件的Style屬性設(shè)置為0–Dropdown Combo?！懊Q”屬性分別設(shè)置為Cbx_Khmc和Cbx_Myd，分別用于存儲(chǔ)客戶名稱和客戶滿意度信息。 （4）向窗體上添加1個(gè)DTPicker控件，“名稱”屬性設(shè)置為Dtp_Tsrq，用于顯示客戶投訴日期。 （5）向窗體上添加1個(gè)ADO控件和1個(gè)DataGrid控件，設(shè)置DataGrid控件的“名稱”為Dgr_Khts，DataSource屬性設(shè)置為Adodc1，AllowUpdate屬性設(shè)置為False。Adodc1控件的RecordSource屬性設(shè)置為tb_Client_khts，CommandType屬性設(shè)置為2–adCmdTa

39、ble，Visible屬性設(shè)置為False。其中ADO控件用于連接客戶投訴表，DataGrid控件用于顯示客戶投訴表中的數(shù)據(jù)信息。 （6）向窗體上添加若干個(gè)Label控件和TextBox控件，并設(shè)置TextBox控件為控件名為Text1的控件數(shù)組。 4.4.2代碼設(shè)計(jì) 在“客戶投訴”窗體加載的時(shí)候，首先建立數(shù)據(jù)連接，然后調(diào)用自定義過(guò)程來(lái)設(shè)置數(shù)據(jù)表的表頭。并將客戶名稱和客戶滿意度信息添加到ComboBox控件中，并設(shè)置其顯示第一條記錄。其實(shí)現(xiàn)的關(guān)鍵代碼如下： Private Sub Form_Load() Adodc1.ConnectionString = PublicStr

40、 '連接數(shù)據(jù)庫(kù) Call Dgr_Title '調(diào)用本模塊中的過(guò)程 tlbState Toolbar1, False '調(diào)用公共模塊中的自定義過(guò)程 Dim rs2 As New ADODB.Recordset '定義數(shù)據(jù)集對(duì)象 rs2.Open "select * from tb_khxx ", cnn, adOpenKeyset '建立數(shù)據(jù)連接 If rs2.RecordCount > 0 Then '如果記錄數(shù)大于零 For i = 0 To rs2.RecordCount - 1 '從零到記錄數(shù)減1作循環(huán) Cb

41、x_Khmc.AddItem Trim(rs2.Fields("khxx_mc")) '向添加Cbx_Khmc中添加數(shù)據(jù)項(xiàng) rs2.MoveNext '數(shù)據(jù)記錄移至下一條 Next i '循環(huán)加一 End If If Cbx_Khmc.ListCount = 0 Then '如果Cbx_Khmc中的數(shù)據(jù)項(xiàng)為0 Cbx_Khmc.Text = "" '顯示空 Else '否則 Cbx_Khmc.ListIndex = 0 '顯示第一條記錄 End If rs2.Close '關(guān)閉記錄集 D

42、im rs3 As New ADODB.Recordset rs3.Open "select * from tb_Client_khmyd ", cnn, adOpenKeyset If rs3.RecordCount > 0 Then For i = 0 To rs3.RecordCount - 1 Cbx_Myd.AddItem Trim(rs3.Fields("khmyd_myd")) '向Cbx_Myd中添加數(shù)據(jù)項(xiàng) rs3.MoveNext Next i End If If Cbx_Myd.ListCoun

43、t = 0 Then Cbx_Myd.Text = "" Else Cbx_Myd.ListIndex = 0 End If rs3.Close Call view_data '調(diào)用本模塊中的子定義過(guò)程顯示數(shù)據(jù)信息 For i = 0 To Text1.UBound Text1(i).Enabled = False Next i Dtp_Tsrq.Value = Date: Cbx_Khmc.Enabled = False : Cbx_Myd.Enabled = False : Dtp_Tsrq.Enabled =

44、 False End Sub 本系統(tǒng)中的數(shù)據(jù)庫(kù)采用的是英文字段，因此在數(shù)據(jù)表顯示的時(shí)候，將會(huì)顯示英文字段，所以，在程序運(yùn)行時(shí)，當(dāng)遇到用于顯示數(shù)據(jù)信息的時(shí)候，先調(diào)用自定義過(guò)程，設(shè)置DataGrid控件中的表頭為中文，自定義過(guò)程的代碼如下： Sub Dgr_Title() '設(shè)置DataGrid控件的標(biāo)題 Dgr_Khts.Columns(0).Caption = "客戶投訴編號(hào)" : Dgr_Khts.Columns(1).Caption = "企業(yè)名稱" Dgr_Khts.Columns(2).Caption = "投訴人" : Dgr_Khts.Columns(3).Captio

45、n = "投訴主題" Dgr_Khts.Columns(4).Caption = "投訴內(nèi)容" : Dgr_Khts.Columns(5).Caption = "投訴日期" Dgr_Khts.Columns(6).Caption = "處理辦法" : Dgr_Khts.Columns(7).Caption = "客戶滿意度" Dgr_Khts.Columns(8).Caption = "投訴受理人" : Dgr_Khts.Columns(9).Caption = "備注信息" End Sub 在本窗體中將數(shù)據(jù)信息顯示定義為自定義過(guò)程，在顯示數(shù)據(jù)信息時(shí)，調(diào)用自定義過(guò)程，這樣可避免同樣的

46、代碼重復(fù)編寫(xiě)，提高程序代碼的可重用性。數(shù)據(jù)信息顯示自定義過(guò)程的關(guān)鍵代碼如下： Sub view_data() If Adodc1.Recordset.RecordCount > 0 Then Text1(0).Text = Dgr_Khts.Columns(0) : Cbx_Khmc.Text = Dgr_Khts.Columns(1) Text1(1).Text = Dgr_Khts.Columns(2) : Text1(2).Text = Dgr_Khts.Columns(3) Text1(3).Text = Dgr_Khts.Columns(4

47、) : Dtp_Tsrq.Value = Dgr_Khts.Columns(5) Text1(4).Text = Dgr_Khts.Columns(6) : Cbx_Myd.Text = Dgr_Khts.Columns(7) Text1(5).Text = Dgr_Khts.Columns(8) : Text1(6).Text = Dgr_Khts.Columns(9) End If End Sub 4.5 客戶投訴滿意程度分析 “客戶投訴滿意程度分析”窗體可以根據(jù)客戶投訴的滿意程度，以不同的形式（條形、線形、三維、列表）顯示客戶對(duì)投訴處理的滿意

48、程度。在程序運(yùn)行時(shí)，單擊“客戶服務(wù)”主菜單下的“客戶投訴滿意程度分析”子菜單，即可進(jìn)入到“客戶投訴滿意程度分析”窗體中。該窗體的運(yùn)行結(jié)果如圖14所示。 圖14 客戶滿意程度分析運(yùn)行結(jié)果 4.5.1窗體設(shè)計(jì) （1）在“工程”中新建一個(gè)窗體，將窗體的“名稱”設(shè)置為Frm_Khfw_Tsmydfx，Caption屬性設(shè)置為“客戶投訴滿意程度分析”，MaxButton屬性設(shè)置為False。 （2）向窗體中添加1個(gè)MSChart控件，由于該控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱。添加方法如下： 在“工程”/“部件”對(duì)話框中勾選“Microsoft C

49、hart Control 6.0 (SP4)”列表項(xiàng)，單擊【確定】按鈕之后即可將MSChart控件添加到工具箱當(dāng)中。MSChart控件用于圖形顯示分析結(jié)果。 （3）向窗體中添加1個(gè)DataGrid控件和1個(gè)ADO控件，設(shè)置DataGrid控件的“名稱”屬性為Dgr_Mydfx，設(shè)置Caption屬性為“客戶滿意程度分析表”，DataSource屬性為Adodc1。CommandType屬性設(shè)置為2–adCmdTable，Adodc1的RecordSorce屬性設(shè)置為tb_Client_mydtj， Visible屬性設(shè)置為False。其中ADO控件用于連接滿意度統(tǒng)計(jì)表，DataGrid控件用

50、于顯示滿意度統(tǒng)計(jì)信息。 （4）向窗體上添加5個(gè)CommandButton控件。 4.5.2代碼設(shè)計(jì) 在窗體加載時(shí)，統(tǒng)計(jì)客戶投訴表中的數(shù)據(jù)信息，并根據(jù)客戶滿意度設(shè)置表中的滿意度級(jí)別，將相應(yīng)的滿意度級(jí)別和該級(jí)別的數(shù)量統(tǒng)計(jì)并添加到滿意度統(tǒng)計(jì)表中，根據(jù)該表中的數(shù)據(jù)信息在MSChart控件或DataGrid控件中顯示相應(yīng)的信息。 Private Sub Form_Load() Adodc1.ConnectionString = PublicStr '數(shù)據(jù)連接 '清空滿意度統(tǒng)計(jì)數(shù)據(jù)表中的數(shù)據(jù)信息 cnn.Execute "delete tb_Client_mydtj select *

51、 from tb_Client_mydtj" rs1.Open "select * from tb_Client_khmyd", cnn, adOpenKeyset '打開(kāi)數(shù)據(jù)連接 If rs1.RecordCount > 0 Then '如果記錄數(shù)大于零 S1 = rs1.RecordCount '將記錄數(shù)賦給變量S1 For i = 0 To rs1.RecordCount - 1 '從零到記錄總數(shù)減一作循環(huán) Mystr = rs1.Fields("khmyd_myd") '將字段khmyd_myd中的記錄賦給Mystr變量

52、'打開(kāi)數(shù)據(jù)集對(duì)象，查看滿意程度為Mystr變量中存儲(chǔ)的字符串的記錄數(shù)量 rs2.Open "select * from tb_Client_khts where khts_khmyd='" + Mystr + "'", cnn, adOpenKeyset If rs2.RecordCount >= 0 Then '如果記錄數(shù)大于等于零 rs3.Open "select * from tb_Client_mydtj", cnn, adOpenKeyset, adLockOptimistic '打開(kāi)數(shù)據(jù)集對(duì)象 '向tb_Client_m

53、ydtj表中添加數(shù)據(jù)記錄 rs3.AddNew '添加一條新記錄 rs3.Fields("mydtj_myd") = Mystr '將Mystr賦給mydtj_myd字段 rs3.Fields("mydtj_sl") = rs2.RecordCount '將該滿意程度的記錄數(shù)賦給mydtj_sl字段 rs3.Update '刷新 rs3.Close '關(guān)閉數(shù)據(jù)集對(duì)象

54、 End If rs2.Close '關(guān)閉數(shù)據(jù)集對(duì)象 rs1.MoveNext '記錄加一 Next i '循環(huán)加一 End If rs1.Close ' 關(guān)閉數(shù)據(jù)集對(duì)象 '打開(kāi)tb_Client_mydtj表的數(shù)據(jù)集對(duì)象 rs4.Open "select * from tb_Client_mydtj order by mydtj_sl desc", cnn, adOpenKe

55、yset If rs4.RecordCount > 0 Then '如果記錄數(shù)大于零 ReDim arrValues(1 To S1, 1 To 2) '定義動(dòng)態(tài)數(shù)組 For i = 1 To S1 '給數(shù)組賦值 arrValues(i, 1) = " " & rs4!mydtj_myd arrValues(i, 2) = rs4!mydtj_sl rs4.MoveNext Next i MSChart1.ChartData = arrValues '圖表

56、顯示數(shù)據(jù) MSChart1.Title = " 客戶滿意度分析圖 " '設(shè)置圖表名稱 MSChart1.Title.VtFont.Size = 15 rs4.Close '關(guān)閉數(shù)據(jù)集對(duì)象 End If Adodc1.Refresh '刷新ADODC控件 Set Dgr_Mydfx.DataSource = Adodc1 '設(shè)置DataGrid的DataSource屬性 Call Dgr_Title '調(diào)用自定義程序設(shè)置DataGrid控件中的數(shù)據(jù)表表頭 Dgr_Mydfx.Visible = False 'DataGr

57、id控件不可見(jiàn) Cmd_Tx_Click ' 執(zhí)行條形顯示事件 End Sub 4.6 客戶信息查詢 在“客戶信息查詢”窗體中，用戶可以根據(jù)客戶信息(tb_khxx)表中的任何關(guān)鍵字及查詢條件，查詢客戶的相關(guān)信息。單擊“信息查詢”菜單下的“客戶信息查詢”子菜單，即可進(jìn)入到客戶信息查詢窗體中，該窗體的運(yùn)行結(jié)果如圖15所示。 圖15 客戶信息查詢窗體運(yùn)行結(jié)果 4.6.1窗體設(shè)計(jì) （1）在“工程”中新建一個(gè)窗體，將窗體的“名稱”設(shè)置為Frm_Xxcx_Khxxcx，Caption屬性設(shè)置為“客戶信息查詢”，MaxButton屬性設(shè)置為False。 （2）向窗體上

58、添加2個(gè)ComboBox控件，設(shè)置其“名稱”分別為Cbx_Field和Cbx_Oper，分別用于存儲(chǔ)查詢的字段名和查詢方式。 （3）向窗體中添加1個(gè)DataGrid控件和1個(gè)ADO控件，設(shè)置DataGrid控件的“名稱”為Dgr_Kh，DataSource屬性為Adodc1。Adodc1的RecordSource屬性設(shè)置為select * from tb_khxx order by khxx_id，Visible屬性設(shè)置為False。其中DataGrid控件用于顯示客戶表中的數(shù)據(jù)信息，ADO控件用于連接客戶信息表。

59、 5 總 結(jié) 此次畢業(yè)設(shè)計(jì)，經(jīng)過(guò)了經(jīng)過(guò)了幾個(gè)月時(shí)間的VB程序開(kāi)發(fā)，在指導(dǎo)老師的幫助下，完成了此次畢業(yè)設(shè)計(jì)。它是我從學(xué)校走向社會(huì)開(kāi)始從事軟件設(shè)計(jì)開(kāi)發(fā)，科學(xué)實(shí)驗(yàn)和科學(xué)研究的初步嘗試。 在這短短的一段時(shí)間中，我對(duì)SQL語(yǔ)言、SQL server2000 和VB語(yǔ)言有了更深入的了解，我不僅鞏固了以前在課堂上學(xué)到的基礎(chǔ)專業(yè)知識(shí)，比如VB的圖形界面設(shè)計(jì)。也更進(jìn)一步學(xué)到了較為具體的專業(yè)知識(shí)，比如，軟件的設(shè)計(jì)流程，C/S模式的程序開(kāi)發(fā)等。也讓我明白到要實(shí)現(xiàn)一個(gè)好的系統(tǒng)，團(tuán)隊(duì)的合作和協(xié)作是十分重要的。這些知識(shí)對(duì)于我來(lái)說(shuō)是一筆寶貴的財(cái)富。通過(guò)此次畢業(yè)設(shè)計(jì)也讓我感受到先進(jìn)的科學(xué)技術(shù)給我們的生活帶

60、來(lái)的方便、效率和財(cái)富。 這次畢業(yè)設(shè)計(jì)我完成了，所有程序編寫(xiě)，完成率數(shù)據(jù)庫(kù)的設(shè)計(jì)。由于以前沒(méi)能真正使用過(guò)數(shù)據(jù)庫(kù)進(jìn)行大型的設(shè)計(jì)，本次設(shè)計(jì)難免會(huì)有不足之處，比如數(shù)據(jù)庫(kù)的不完善，安全機(jī)制不完善等。 致 謝 ? ? 畢業(yè)論文設(shè)計(jì)即將結(jié)束之際，我要感謝在這一學(xué)期在畢業(yè)設(shè)計(jì)階段所有幫助過(guò)我的人。 ? ? 首先，我要最衷心地感謝的是——我的各位老師，本文是在各位老師悉心指導(dǎo)下完成的，老師們嚴(yán)謹(jǐn)?shù)闹螌W(xué)作風(fēng)、求實(shí)的工作態(tài)度使我受益匪淺，更重要的是從各位老師身上學(xué)到了對(duì)待任何事情的那種精益求精和一絲不茍的精神和態(tài)度。 在這個(gè)學(xué)期的畢業(yè)設(shè)計(jì)中，各

61、位老師給與了我許多關(guān)心和指導(dǎo)，各位老師認(rèn)真工作的精神、敏銳的洞察力、科學(xué)的工作方法、真誠(chéng)的性格永遠(yuǎn)是我學(xué)習(xí)的榜樣。 ? ? 其次，我要感謝課題組的各位同學(xué)在我的論文完成過(guò)程中給與我的指導(dǎo)和幫助，他們?cè)谲浖牟僮骱脱芯康母鱾€(gè)方面都給了我巨大的啟發(fā)。 同時(shí)，我還要感謝有一批在畢設(shè)期間在學(xué)業(yè)和生活上都給予我莫大幫助的朋友們，是你們給了我巨大的鼓舞和動(dòng)力 ? 再次，我還要感謝大學(xué)三年來(lái)所有的任課老師，是他們把科學(xué)的方法和知識(shí)傳授給了我。 ? 最后，感謝所有在畢業(yè)設(shè)計(jì)期間給與我?guī)椭睦蠋?，同學(xué)和朋友們，衷心的謝謝大家！ 參考文獻(xiàn) 1．

62、Visual Basic精彩編程200例 機(jī)械工業(yè)出版社 賽奎春、高春艷等 2003年1月 2．Visual Basic數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 劉志銘、高春艷等 2003年8月 3．ASP數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 李嚴(yán)、于亞芳、王國(guó)輝 2004年12月 4．Visual Basic工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 高春艷、李俊民等 2005年1月 5．Visual C＋＋工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 張雨、阮偉良等 2005年1月 6．JSP工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 陳威、白偉明、李楠 2005年2

63、月 7．ASP工程應(yīng)用與項(xiàng)目實(shí)踐 機(jī)械工業(yè)出版社 王國(guó)輝、牛強(qiáng)、李南南 2005年4月 8．Visual Basic 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 高春艷、李俊民等 2005年7月 9．ASP 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 王國(guó)輝、牛強(qiáng)、李南南等 2005年7月 10．Visual basic數(shù)據(jù)庫(kù)開(kāi)發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 高春艷 2004年5月 11．Visual C++ 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 人民郵電出版社 明日科技 2005年7月 12．Visual Basic 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 人

64、民郵電出版社 明日科技 2005年7月 13．SQL Server數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 宋昆、李嚴(yán)等 2006年1月 14．Access數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 李俊民、高春燕等 2006年1月 附錄1 數(shù)據(jù)表 （1）tb_Client_mydtj（滿意度統(tǒng)計(jì)表） 滿意度統(tǒng)計(jì)表主要用于在客戶滿意度分析窗體中統(tǒng)計(jì)客戶對(duì)企業(yè)滿意程度的信息。該表結(jié)構(gòu) 表B.1 滿意度統(tǒng)計(jì)表 字段名 數(shù)據(jù)類型 長(zhǎng)度 描述 my

65、dtj_myd varchar 30 滿意度名稱 mydtj_sl numeric 9 滿意度數(shù)量 （2）tb_Client_lxrxx（聯(lián)系人信息表） 聯(lián)系人信息表主要保存聯(lián)系人的詳細(xì)信息。該數(shù)據(jù)表的結(jié)構(gòu)如表B.2所示。 表B.2 聯(lián)系人信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度 描述 lxrxx_id varchar 20 聯(lián)系人編號(hào) lxrxx_qymc varchar 20 企業(yè)名稱 lxrxx_xm varchar 30 聯(lián)系人姓名 lxrxx_xb varchar 5 聯(lián)系人性別 lxrxx_csny datetime

66、 8 出生年月 lxrxx_nl varchar 5 聯(lián)系人年齡 lxrxx_zw varchar 30 聯(lián)系人職位 lxrxx_bgdh varchar 30 聯(lián)系人辦公電話 lxrxx_Email varchar 50 聯(lián)系人電子郵件 lxrxx_sj varchar 20 聯(lián)系人手機(jī) lxrxx_grjj text 16 個(gè)人簡(jiǎn)介 lxrxx_djrq datetime 8 登記日期 lxrxx_xxdjr varchar 30 信息登記人 lxrxx_bz varchar 50 備注 （3）tb_khxx（客戶信息表） 客戶信息表主要用于保存客戶的詳細(xì)信息。該數(shù)據(jù)表的結(jié)構(gòu)如表B.3所示 表B.3 客戶信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度 描述 khxx_id varchar 30 客戶編號(hào) khxx_mc varchar 50 企業(yè)名稱 khxx_qyxz varchar 30 企業(yè)性質(zhì) khxx_qylx v