客戶管理系統(tǒng)課程設(shè)計范例

1、吉林省明日科技有限公司監(jiān)制客戶管理系統(tǒng)學(xué) 院專 業(yè)班 級學(xué) 號姓 名指導(dǎo)教師年月日 13 目錄1 系統(tǒng)2需求分析22 總體設(shè)計22.1 系統(tǒng)主要功能2.2 系統(tǒng)功能結(jié)構(gòu)圖33 系統(tǒng)設(shè)計33.1 設(shè)計目標(biāo)33.2 開發(fā)及運(yùn)行環(huán)境43.3 數(shù)據(jù)庫設(shè)計44 主要功能模塊設(shè)計54.1 公共模塊設(shè)計（Mdl_Link模塊）54.2 主窗體設(shè)計64.3 客戶呼叫中心94.4 郵件發(fā)送錯誤！未定義書簽。4.5 客戶投訴124.6 客戶投訴滿意程度分析144.7 客戶信息查詢154.8 國內(nèi)城市區(qū)號郵編查詢15附錄A 參考文獻(xiàn)15151 系統(tǒng)分析需求分析根據(jù)市場的需求，要求系統(tǒng)具有以下功能：q 由于該系統(tǒng)的使

2、用對象較多，要求有嚴(yán)密的權(quán)限管理。q 具有數(shù)據(jù)備份及數(shù)據(jù)恢復(fù)的功能，確保系統(tǒng)的安全性。q 方便的全方位的數(shù)據(jù)查詢。q 強(qiáng)大的報表打印功能。q 在相應(yīng)的權(quán)限下，可以刪除或修改數(shù)據(jù)。2 總體設(shè)計2.1 系統(tǒng)主要功能客戶管理系統(tǒng)是一個非常有特點(diǎn)的管理軟件，系統(tǒng)由基礎(chǔ)信息維護(hù)、客戶信息維護(hù)、客戶服務(wù)、信息查詢、數(shù)據(jù)管理、輔助工具、系統(tǒng)管理和幫助信息等幾個功能模塊組成，規(guī)劃系統(tǒng)功能模塊如下：q 基礎(chǔ)信息維護(hù)模塊基礎(chǔ)信息維護(hù)模塊主要包括區(qū)域信息設(shè)置、企業(yè)性質(zhì)設(shè)置、企業(yè)類型設(shè)置、企業(yè)資信設(shè)置、客戶級別設(shè)置和客戶滿意程度設(shè)置6部分。q 客戶信息維護(hù)模塊客戶信息維護(hù)模塊主要包括客戶信息、聯(lián)系人信息、業(yè)務(wù)往來、客

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

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

5、用戶設(shè)置相應(yīng)的權(quán)限級別。3.2 開發(fā)及運(yùn)行環(huán)境系統(tǒng)開發(fā)平臺：Visual FoxPro 6.0運(yùn)行平臺：Windows xp/Windows 2000/Windows 983.3 數(shù)據(jù)庫設(shè)計本系統(tǒng)采用Visual FoxPro 6.0設(shè)計數(shù)據(jù)庫，本系統(tǒng)中包括如下數(shù)據(jù)表。下面分別給出數(shù)據(jù)表的結(jié)構(gòu)。數(shù)據(jù)表結(jié)構(gòu)（1）tb_Client_mydtj（滿意度統(tǒng)計表）滿意度統(tǒng)計表主要用于在客戶滿意度分析窗體中統(tǒng)計客戶對企業(yè)滿意程度的信息。該表結(jié)構(gòu)如表B.1所示。表B.1 滿意度統(tǒng)計表字段名數(shù)據(jù)類型長度描述mydtj_mydvarchar30滿意度名稱mydtj_slnumeric9滿意度數(shù)量（2）tb_C

6、lient_lxrxx（聯(lián)系人信息表）聯(lián)系人信息表主要保存聯(lián)系人的詳細(xì)信息。該數(shù)據(jù)表的結(jié)構(gòu)如表B.2所示。表B.2 聯(lián)系人信息表字段名數(shù)據(jù)類型長度描述lxrxx_idvarchar20聯(lián)系人編號lxrxx_qymcvarchar20企業(yè)名稱lxrxx_xmvarchar30聯(lián)系人姓名lxrxx_xbvarchar5聯(lián)系人性別lxrxx_csnydatetime8出生年月lxrxx_nlvarchar5聯(lián)系人年齡lxrxx_zwvarchar30聯(lián)系人職位lxrxx_bgdhvarchar30聯(lián)系人辦公電話lxrxx_Emailvarchar50聯(lián)系人電子郵件lxrxx_sjvarchar20聯(lián)

7、系人手機(jī)lxrxx_grjjtext16個人簡介lxrxx_djrqdatetime8登記日期lxrxx_xxdjrvarchar30信息登記人lxrxx_bzvarchar50備注（3）tb_khxx（客戶信息表）客戶信息表主要用于保存客戶的詳細(xì)信息。該數(shù)據(jù)表的結(jié)構(gòu)如表B.3所示表B.3 客戶信息表字段名數(shù)據(jù)類型長度描述khxx_idvarchar30客戶編號khxx_mcvarchar50企業(yè)名稱khxx_qyxzvarchar30企業(yè)性質(zhì)khxx_qylxvarchar30企業(yè)類型khxx_qyzxvarchar30企業(yè)資信khxx_qydzvarchar50企業(yè)地址khxx_szsfv

8、archar30所屬省份khxx_szcsvarchar30所屬城市khxx_gsybvarchar6公司郵編khxx_frdbvarchar20法人代表khxx_khyhvarchar50開戶銀行khxx_yhzhvarchar50銀行帳號khxx_nshvarchar50納稅號khxx_ICcardvarchar50客戶IC卡號khxx_gswzvarchar50公司網(wǎng)址khxx_gsdhvarchar20公司電話khxx_gsczvarchar20公司傳真khxx_lxrvarchar30主要聯(lián)系人khxx_lxrdhvarchar20聯(lián)系人電話khxx_khjbvarchar20客戶級

9、別khxx_bztext16備注信息4 主要功能模塊設(shè)計4.1 主窗體設(shè)計主窗體是顯示系統(tǒng)主要操作功能的面板，在系統(tǒng)主窗體的狀態(tài)欄中，可以顯示網(wǎng)址、當(dāng)前的操作員、當(dāng)前系統(tǒng)的日期、時間等信息，還可以通過菜單或單擊窗體左側(cè)的樹狀列表以及右側(cè)的功能列表來控制其他功能子窗體，并且根據(jù)不同的操作員賦予相應(yīng)的操作權(quán)限。系統(tǒng)主窗體的運(yùn)行結(jié)果如圖3所示。圖3 系統(tǒng)主窗體的運(yùn)行結(jié)果4.2 客戶呼叫中心客戶呼叫中心是客戶管理系統(tǒng)中比較重要的部分，是企業(yè)利用現(xiàn)代通信手段集中處理與客戶交互過程的機(jī)構(gòu)。在客戶呼叫中心中能夠根據(jù)客戶的電話號碼可以顯示該客戶簡單的信息，同時可以呼叫該客戶，并可查詢該號碼客戶的詳細(xì)信息，以及

10、聯(lián)系人的相關(guān)信息。在程序運(yùn)行時，單擊“客戶信息維護(hù)”主菜單下的“客戶呼叫中心”子菜單，系統(tǒng)將調(diào)用“客戶呼叫中心”窗體?！翱蛻艉艚兄行摹贝绑w的運(yùn)行結(jié)果如圖7所示。圖7 客戶呼叫中心窗體的運(yùn)行結(jié)果代碼設(shè)計在窗體加載時，向Cbx_khdh組合框中添加客戶電話，當(dāng)用戶在該文本框中選擇相應(yīng)的項(xiàng)目時，在下面的“客戶簡單信息”框架中就可以顯示出相應(yīng)的信息，其實(shí)現(xiàn)的代碼如下：Private Sub Form_Load()Dim rs1 As New ADODB.Recordset '定義數(shù)據(jù)集對象rs1.Open "select * from tb_khxx ", cnn, adO

11、penKeyset '打開數(shù)據(jù)連接If rs1.RecordCount > 0 Then '如果記錄數(shù)大于零 For i = 0 To rs1.RecordCount - 1 '從零開始到記錄總數(shù)減1作循環(huán) Cbx_Khdh.AddItem Trim(rs1.Fields("khxx_gsdh") '向Cbx_Khdb組合框中添加數(shù)據(jù)項(xiàng)目 rs1.MoveNext '數(shù)據(jù)對象向下移動一條記錄 Next i '循環(huán)加一 If Cbx_Khdh.ListCount > 0 Then '如果Cbx_Khdh中的數(shù)

12、據(jù)項(xiàng)目數(shù)不為零 Cbx_Khdh.ListIndex = 0 '在Cbx_Khdh中顯示第一條數(shù)據(jù)項(xiàng) Else '否則 Cbx_Khdh.Text = "請選擇" '顯示“請選擇”信息 End IfEnd Ifrs1.Close '關(guān)閉數(shù)據(jù)集對象End Sub根據(jù)公司的電話號碼，單擊【開始呼叫】按鈕，可以呼叫該用戶。如下面的代碼所示：Private Sub Cmd_Hj_Click() '開始呼叫If Cbx_Khdh.Text = "" Then '如果組合框?yàn)榭誐sgBox "請您輸入電話號碼

13、!", vbInformation, "客戶管理系統(tǒng)"Cbx_Khdh.SetFocus '將焦點(diǎn)設(shè)置在組合框上Else '否則MSComm1.CommPort = 1 '設(shè)置通信端口號MSComm1.Settings = "4800,N,8,1" '設(shè)置波特率、奇偶校驗(yàn)位、數(shù)據(jù)位和停止位參數(shù)MSComm1.PortOpen = TrueMSComm1.Output = "ATDT" & Cbx_Khdh.Text & vbCrMsgBox "請聽電話！",

14、 vbpuestion, "客戶管理系統(tǒng)"MSComm1.PortOpen = FalseEnd IfEnd Sub單擊【客戶詳細(xì)信息】按鈕，可以調(diào)用“客戶信息”窗體。通過定義的公共字符變量sql，可以在調(diào)用“客戶信息”窗體時，直接顯示該客戶的信息。其實(shí)現(xiàn)的關(guān)鍵代碼如下：Private Sub Cmd_Kh_Click() '調(diào)用客戶詳細(xì)信息Dim rs3 As New ADODB.Recordset '定義數(shù)據(jù)集變量'打開數(shù)據(jù)對象rs3.Open "select * from tb_khxx where khxx_gsdh='&q

15、uot; + Cbx_Khdh.Text + "'", cnn, adOpenKeysetIf rs3.RecordCount > 0 Then '如果數(shù)據(jù)記錄大于零 sql = "select * from tb_khxx where khxx_gsdh='" + Cbx_Khdh.Text + "'" '將SQL語句賦給sql字符變量 Load Frm_Khxxwh_kh '調(diào)用客戶信息窗體 Frm_Khxxwh_kh.Show 1End IfEnd Sub在本窗體關(guān)閉前，將s

16、ql變量清空，避免對其他窗體造成影響。其實(shí)現(xiàn)代碼如下：Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)sql = "" '清空sql變量End Sub4.3 客戶投訴客戶投訴是企業(yè)了解客戶意見的重要手段之一。在本系統(tǒng)中用戶可以通過點(diǎn)擊客戶服務(wù)菜單下的客戶投訴子菜單，進(jìn)入到客戶投訴窗體中。該窗體具有對客戶投訴信息進(jìn)行增加、刪除、修改和查找的功能，并可以通過單擊DataGrid控件來瀏覽客戶投訴信息?？蛻敉对V窗體的運(yùn)行結(jié)果如圖13所示。圖13 客戶投訴窗體的運(yùn)行結(jié)果代碼設(shè)計在“客

17、戶投訴”窗體加載的時候，首先建立數(shù)據(jù)連接，然后調(diào)用自定義過程來設(shè)置數(shù)據(jù)表的表頭。并將客戶名稱和客戶滿意度信息添加到ComboBox控件中，并設(shè)置其顯示第一條記錄。其實(shí)現(xiàn)的關(guān)鍵代碼如下：Private Sub Form_Load() Adodc1.ConnectionString = PublicStr '連接數(shù)據(jù)庫 Call Dgr_Title '調(diào)用本模塊中的過程 tlbState Toolbar1, False '調(diào)用公共模塊中的自定義過程 Dim rs2 As New ADODB.Recordset '定義數(shù)據(jù)集對象 rs2.Open "sele

18、ct * from tb_khxx ", cnn, adOpenKeyset '建立數(shù)據(jù)連接 If rs2.RecordCount > 0 Then '如果記錄數(shù)大于零 For i = 0 To rs2.RecordCount - 1 '從零到記錄數(shù)減1作循環(huán) Cbx_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.ListCoun

19、t = 0 Then '如果Cbx_Khmc中的數(shù)據(jù)項(xiàng)為0 Cbx_Khmc.Text = "" '顯示空 Else '否則 Cbx_Khmc.ListIndex = 0 '顯示第一條記錄 End If rs2.Close '關(guān)閉記錄集 Dim rs3 As New ADODB.Recordset rs3.Open "select * from tb_Client_khmyd ", cnn, adOpenKeyset If rs3.RecordCount > 0 Then For i = 0 To rs3.R

20、ecordCount - 1 Cbx_Myd.AddItem Trim(rs3.Fields("khmyd_myd") '向Cbx_Myd中添加數(shù)據(jù)項(xiàng) rs3.MoveNext Next i End If If Cbx_Myd.ListCount = 0 Then Cbx_Myd.Text = "" Else Cbx_Myd.ListIndex = 0 End If rs3.Close Call view_data '調(diào)用本模塊中的子定義過程顯示數(shù)據(jù)信息 For i = 0 To Text1.UBound Text1(i).Enabled

21、 = False Next i Dtp_Tsrq.Value = Date: Cbx_Khmc.Enabled = False : Cbx_Myd.Enabled = False : Dtp_Tsrq.Enabled = FalseEnd Sub4.4 客戶信息查詢在“客戶信息查詢”窗體中，用戶可以根據(jù)客戶信息(tb_khxx)表中的任何關(guān)鍵字及查詢條件，查詢客戶的相關(guān)信息。單擊“信息查詢”菜單下的“客戶信息查詢”子菜單，即可進(jìn)入到客戶信息查詢窗體中，該窗體的運(yùn)行結(jié)果如圖15所示。圖15 客戶信息查詢窗體運(yùn)行結(jié)果代碼設(shè)計在窗體加載時，將客戶表中的字段信息，添加到Cbx_Field控件中，其實(shí)現(xiàn)

22、的關(guān)鍵代碼如下：Private Sub Form_Load() Adodc1.ConnectionString = PublicStr Adodc1.RecordSource = "select * from tb_khxx " Adodc1.Refresh Set Dgr_Kh.DataSource = Adodc1 Call Dgr_Title '調(diào)用過程 Cbx_Field.AddItem Dgr_Kh.Columns(i).Caption '向控件中添加數(shù)據(jù)項(xiàng) Next i Cbx_Field.ListIndex = 0 '顯示數(shù)據(jù)項(xiàng)中的第一

23、條記錄 Cbx_Oper.AddItem ("like"): Cbx_Oper.AddItem (">"): Cbx_Oper.AddItem ("=") Cbx_Oper.AddItem (">="): Cbx_Oper.AddItem ("<"): Cbx_Oper.AddItem ("<=") Cbx_Oper.AddItem ("<>"): Cbx_Oper.ListIndex = 0End Sub當(dāng)用戶選擇和輸

24、入相應(yīng)的查詢條件，單擊【確定】按鈕，觸發(fā)該控件的Click事件的時候，執(zhí)行相應(yīng)的查詢語句，實(shí)現(xiàn)的代碼如下：Private Sub Cmd_Ok_Click() Case 200 '字符數(shù)據(jù) If Cbx_Oper.Text = "like" Then sql = "select * from tb_khxx where " & Fld1 & " like+ '%'+'" + Txt_Key + "'+'%'" Else sql = "

25、select * from tb_khxx where " & Fld1 & Cbx_Oper & "'" + Txt_Key + "'" End If Case 135 '日期數(shù)據(jù) If Cbx_Oper.Text = "like" Then MsgBox "日期型數(shù)據(jù)不能選用“Like”作為運(yùn)算符！", , "提示窗口" Cbx_Oper.ListIndex = 1 End If If IsDate(Txt_Key) = False

26、Then MsgBox "請輸入正確的日期！", , "提示窗口" rs.Close Exit Sub End If sql = "select * from tb_khxx where " & Fld1 & Cbx_Oper & "'" + Txt_Key + "'" Case 6 '貨幣數(shù)據(jù) If IsNumeric(Txt_Key) = False Then MsgBox "請輸入正確的數(shù)據(jù)！", , "提示窗口

27、" rs.Close Exit Sub End If If Cbx_Oper.Text = "like" Then MsgBox "貨幣數(shù)據(jù)不能選用“Like”作為運(yùn)算符！", , "提示窗口" Cbx_Oper.ListIndex = 1 End If sql = "select * from tb_khxx where " & Fld1 & Txt_Key Case 131 '數(shù)字?jǐn)?shù)據(jù) If Cbx_Oper.Text = "like" Then MsgBox "數(shù)字?jǐn)?shù)