企業(yè)客戶信息管理系統(tǒng)

第一章前言目前市場上流行的專門針對中小型企業(yè)開發(fā)的客戶營銷關(guān)系管理系統(tǒng)，實現(xiàn)”以客戶為中心”的信息化管理的經(jīng)營理念。它們輔助企業(yè)建立規(guī)范、高效的營銷體系，提高企業(yè)整體營銷競爭力；及時、準(zhǔn)確、全面地把握營銷動態(tài)，降低企業(yè)營銷管理成本，提高企業(yè)的綜合競爭力，適用于所有從事產(chǎn)品營銷和服務(wù)營銷的企業(yè)。企業(yè)的外部資源：客戶資源、代理商資源、分銷商資源，供應(yīng)商資源和其他合作伙伴資源本質(zhì)上與企業(yè)內(nèi)部的其他資源一樣需要人們的悉心經(jīng)營?？蛻羰瞧髽I(yè)的利潤資源，怎么樣讓公司的員工能對客戶的各類請求和服務(wù)給出及時和完美的解決方案？能不能讓企業(yè)的客戶資源有自動更新機(jī)制，去掉沒有價值的客戶，增加能帶來利潤的客戶？作為管理層能不能知道每一個銷售人員管理的客戶的狀態(tài)？能不能隨時都能知道公司下個月潛在的銷售額？客戶的增長率情況如何？每個銷售人員的表現(xiàn)如何？所有這些都需要有一套系統(tǒng)來解決。通過客戶關(guān)系管理（CRM）可以將企業(yè)的客戶集成到企業(yè)的服務(wù)組織、生產(chǎn)級織和銷售組織中來。通過這個CRM解決方案，企業(yè)可以管理關(guān)于客戶、潛在客戶、合伙伙伴、合同、通信、文檔和需求的相關(guān)信息。并為每一個客戶，每一個代理商，每一個分銷商和每一個供應(yīng)商開放一個門戶，通過客戶門戶，客戶可以訪問他們被允許訪問的所有信息：訂單狀況、信用額度、企業(yè)最新產(chǎn)品資訊、最新產(chǎn)品報價。通過分銷商門戶，分銷商們可以被賦予權(quán)限，訪問共同客戶的信息。通過使用這套系統(tǒng)，企業(yè)可以大大提升客戶管理的水平。第二章方案的選定2.1數(shù)據(jù)庫系統(tǒng)簡介數(shù)據(jù)庫系統(tǒng)提供了在某個集中的地方存儲和維護(hù)數(shù)據(jù)信息的方法。數(shù)據(jù)庫系統(tǒng)主要由三大部分組成：數(shù)據(jù)庫管理系統(tǒng)（DBMS:它是門負(fù)責(zé)組織和管理數(shù)據(jù)信息的程序）、數(shù)據(jù)庫應(yīng)用程序（它使我們能夠獲取、顯示和更新由DBMS存儲的數(shù)據(jù)）、數(shù)據(jù)庫（按一定結(jié)構(gòu)組織在一起的相關(guān)數(shù)據(jù)的集合）。一般來說，DBMS和數(shù)據(jù)庫應(yīng)用程序駐留在同一臺計算機(jī)上并在同一臺計算機(jī)上運行，稱為單機(jī)型數(shù)據(jù)庫應(yīng)用系統(tǒng)。但是隨著DBMS技術(shù)的發(fā)展和信息網(wǎng)絡(luò)化、集成化的要求，目前的數(shù)據(jù)庫系統(tǒng)正向客戶/服務(wù)器模式和MIDAS（多層數(shù)據(jù)庫應(yīng)用系統(tǒng)）發(fā)展?？蛻?服務(wù)器數(shù)據(jù)庫將DBMS和數(shù)據(jù)庫應(yīng)用程序分開，從而提高了數(shù)據(jù)庫系統(tǒng)的處理能力。數(shù)據(jù)庫應(yīng)用程序運行在一個或多個用戶工作站上，并且通過網(wǎng)絡(luò)與運行在其他客戶機(jī)或服務(wù)器上的一個或多個數(shù)據(jù)庫管理系統(tǒng)進(jìn)行通信。VisualBasic6.0語言簡介VisualBasicforWindows（以下簡稱VB）是Windows下的應(yīng)用程序開發(fā)工具，它從根本上改變了傳統(tǒng)的程序設(shè)計模式，可以處理文本、圖像、動畫、聲音等多媒體數(shù)據(jù)，因而被計算機(jī)界稱為“最富有創(chuàng)新精神的編程工具之一”。Access簡介在辦公軟件Office套件中，最為廣大用戶熟悉的是Word和Excel,因為它們功能強(qiáng)大且方便易用，更因為它們不僅可用于辦公，還可用于個人寫作和家庭記帳理財?shù)?。同為Office套件中一部分的Access，雖然有著同樣強(qiáng)大的功能，但使用的人卻相對少些，不像Word和Excel那樣廣泛。事實上，真正用過Access的用戶，對其強(qiáng)大功能和靈活應(yīng)用都有很好的口碑。第三章數(shù)據(jù)庫設(shè)計本課題選用Access2000作為后臺數(shù)據(jù)庫。3.1、數(shù)據(jù)庫需求分析針對企業(yè)客戶信息管理系統(tǒng)的需求，通過對客戶信息處理過程的內(nèi)容和數(shù)據(jù)流程的分析。為本系統(tǒng)設(shè)計如下的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：公司基本信息表：記錄編號、國家、城市、經(jīng)營領(lǐng)域、與本公司合作領(lǐng)域、地址、電話、傳真、備注。個人信息表：記錄編號、客戶編號、客戶姓名、性別、年齡、出生年月、所屬單位、職務(wù)、住址、郵編、電話、手機(jī)、傳真、電子信箱。用戶信息表：用戶名名稱、用戶密碼。3?2、數(shù)據(jù)庫的實現(xiàn)根據(jù)功能要求在Access2000里創(chuàng)建數(shù)據(jù)庫，客戶管理信息系統(tǒng)的數(shù)據(jù)庫中的各個表格的設(shè)計如下，這里的每個表格代表數(shù)據(jù)庫中的一個獨立的表。公司基本信息表字段名稱數(shù)據(jù)類型說明ID數(shù)字記錄編號ComName文本國家Country文本城市DealDomain文本經(jīng)營領(lǐng)域Symbiosis文本與本公司合作領(lǐng)域

Address文本地址Tel文本電話Fax文本傳真Remark備注備注個人信息表字段名稱數(shù)據(jù)類型說明ID數(shù)字記錄編號ClientID文本客戶編號ClientName文本客戶姓名Gender文本性別Age數(shù)字年齡Brithday日期/時間生日Company文本所屬公司Cposition文本職務(wù)Address文本住址Code文本郵編Tel文本電話MobileTel文本手機(jī)FaxNumber文本傳真Email文本電子信箱用戶信息表字段名稱數(shù)據(jù)類型說明

UserID文本用戶名稱UserPWD文本用戶密碼第四章系統(tǒng)設(shè)計（模塊圖）第四章系統(tǒng)設(shè)計（模塊圖）4.1、功能分析開發(fā)這個系統(tǒng)的目的就是幫助企業(yè)提高工作效率以及確保客戶信息的準(zhǔn)確性和實時性，實現(xiàn)企業(yè)客戶信息管理的系統(tǒng)化、規(guī)范化和自動化。根據(jù)這個系統(tǒng)所要實現(xiàn)的目的和任務(wù)，總結(jié)出這個系統(tǒng)最終實現(xiàn)的主要功能如下：系統(tǒng)管理部分：包括添加系統(tǒng)用戶和修改密碼。個人信息管理部分：包括添加個人信息，修改個人信息、查詢個人信息。企業(yè)信息管理部分：包括修改企業(yè)信息、查詢企業(yè)信息和刪除企業(yè)信息。工具部分：包括發(fā)送電子郵件、數(shù)據(jù)導(dǎo)出等。4.2、模塊設(shè)計（1）系統(tǒng)模塊系統(tǒng)啟動的時候有一個管理員用戶，使用這個用戶登錄后，可以添加其他用戶，而且每一個用戶都可以更改自己的密碼。（2）個人信息管理A：添加個人信息：包括個人的編號、姓名、性別、年齡、生日、地址、電話、郵政編碼、傳真、手機(jī)、職務(wù)、Email。B：修改個人信息：修改所有的個人信息。C：查詢個人信息：按照公司名稱、客戶名稱查詢個人的信息。（3）企業(yè)信息管理A：修改企業(yè)信息：包括企業(yè)記錄編號、公司名稱、所屬國家、所在城市、經(jīng)營領(lǐng)域、合作領(lǐng)域、地址、電話、傳真、備注。B：查詢企業(yè)信息：根據(jù)企業(yè)名稱、經(jīng)營領(lǐng)域查詢企業(yè)信息。C：刪除企業(yè)信息：刪除不作為客戶的企業(yè)信息。（4）工具A：發(fā)送電子郵件：發(fā)送電子郵件給客戶。B：導(dǎo)出客戶信息。根據(jù)系統(tǒng)需要實現(xiàn)的主要功能，可以得到企業(yè)客戶信息管理系統(tǒng)的功能模塊圖如下

第五章程序設(shè)計運行VisualBasic后，選擇“文件”f“新建工程”菜單，然后從工程模板中選擇“標(biāo)準(zhǔn)EXE”項，單擊“確定”按鈕。VisualBasic就會自動生成一個窗體，這個窗體的屬性采用的都是默認(rèn)設(shè)置。在本課題中，先刪除這個窗體，然后選擇“文件”f“保存工程”菜單，在出現(xiàn)的“文件另存為”對話框中輸入這個工程項目的名稱Client_MIS，并且選擇要保存這個工程的目錄，單擊“保存”按鈕，保存工程。為了提高代碼的效率方便維護(hù)，可以用共用模塊來存放工程中經(jīng)常使用的函數(shù)、過程和全局變量等。在這個系統(tǒng)中，每個功能模塊都要使用數(shù)據(jù)庫，因此可以使用一個共用的數(shù)據(jù)操作函數(shù)，執(zhí)行一系列的SQL語句。在項目資源管理器中為這個工程添加一個模塊，保存為Mclient.bas。添加的方法和添加窗體的方法一樣，只不過這里選擇的不是MDI窗體，而是選擇模塊。在這個模塊中添加如下代碼:首先定義幾個變量:OptionExplicitPublicstrUserNameAsString'用戶名稱PubliciflagAsInteger'是否連接成功標(biāo)PublicichangeFlagAsInteger'修改標(biāo)志PublicOptionExplicitPublicstrUserNameAsString'用戶名稱PubliciflagAsInteger'是否連接成功標(biāo)PublicichangeFlagAsInteger'修改標(biāo)志PublicstrPublicSQLAsString'傳遞SQL字符串添加返回記錄集的函數(shù):sqlAs String)Public Function getRS(ByValsqlAs String)AsADODB.Recordset樓m國袁科網(wǎng)https//www,DimconAsADODB.ConnectionDimrsAsADODB.RecordsetDimstrConnectionAsStringDimstrArrayOAsStringSetcon=NewADODB.Connection'創(chuàng)建連接Setrs=NewADODB.Recordset'創(chuàng)建記錄集OnErrorGoTogetRS_ErrorstrConnection二"Provider二Microsoft.jet.oledb.4.0;DataSource二"&App.Path&"\"strConnection二strConnection&"Client.mdb"strArray=Split(sql)con.OpenstrConnection'打開連接rs.OpenTrim$(sql),con,adOpenKeyset,adLockOptimisticSetgetRS=rs'返回記錄集iflag=1getRS_Exit:Setrs=NothingSetcon=NothingExitFunctiongetRS_Error:MsgBox"查詢錯誤："&Err.Descriptioniflag=2ResumegetRS_ExitEndFunction添加執(zhí)行SQL語句的函數(shù)：PublicSubTransactSQL(ByValsqlAsString)DimconAsADODB.ConnectionDimstrConnectionAsStringDimstrArrayOAsStringSetcon=NewADODB.Connection '創(chuàng)建連接OnErrorGoToTransactSQL_ErrorstrConnection二 "Provider二Microsoft.jet.oledb.4.0;DataSource二"&App.Path&"\"strConnection二strConnection&"Client.mdb"strArray=Split(sql)con.OpenstrConnection '打開連接con.Executesql '執(zhí)行命令iflag=1TransactSQL_Exit:Setcon=NothingExitSubTransactSQL_Error:MsgBox"查詢錯誤："&Err.Descriptioniflag=2ResumeTransactSQL_ExitEndSub添加一個轉(zhuǎn)換回車鍵的函數(shù)：PublicSubTabToEnter(KeyAsInteger)IfKey=13Then '判斷是否為回車鍵SendKeys"{TAB}" '轉(zhuǎn)換為Tab鍵EndIfEndSub添加系統(tǒng)啟動時，第一個出現(xiàn)的窗體的函數(shù)：Submain()

DimfLoginAsNewfrmLoginfLogin.ShowEndSub'顯示窗體'顯示窗體PublicSubshowComTopic()DimiAsIntegerWithMe.MSFlexGridl.TextMatrix(0,0)="記錄編號".TextMatrix(0,1)="公司名稱".TextMatrix(0,2)="所屬國家".TextMatrix(0,3)="所在城市".TextMatrix(0,4)="經(jīng)營領(lǐng)域".TextMatrix(0,5)="合作領(lǐng)域".TextMatrix(0,6)="地址".TextMatrix(0,7)="電話".TextMatrix(0,8)="傳真".TextMatrix(0,9)="備注"Fori=0To9對齊方式.ColAlignment(i)二4Nexti.ColWidth(0)=1000Fori=1To9.ColWidth(i)=1500'設(shè)置表頭'設(shè)置所有表格'設(shè)置每列寬9'設(shè)置表頭'設(shè)置所有表格'設(shè)置每列寬9EndWithMe.MSFlexGridl.Width=15000EndSubPublicSubshowComData(strQueryAsString) '顯示數(shù)據(jù)DimrsAsNewADODB.RecordsetSetrs=getRS(strQuery)Ifrs.EOF=FalseThenWithMe.MSFlexGrid1.Rows=1WhileNotrs.EOF.Rows=.Rows+1TOC\o"1-5"\h\z.TextMatrix(.Rows — 1, 0) = rs(0).TextMatrix(.Rows — 1, 1) = rs(1).TextMatrix(.Rows — 1, 2) = rs(2).TextMatrix(.Rows — 1, 3) = rs(3).TextMatrix(.Rows — 1, 4) = rs(4).TextMatrix(.Rows — 1, 5) = rs(5).TextMatrix(.Rows — 1, 6) = rs(6).TextMatrix(.Rows — 1, 7) = rs(7).TextMatrix(.Rows — 1, 8) = rs(8).TextMatrix(.Rows — 1, 9) = rs(9)rs.MoveNextWendEndWithrs.CloseEndIfEndSub在修改企業(yè)信息時，填寫好所要修改的資料，按“修改”按鈕，可以把新的資料保存在里面，代碼如下：ptionExplicitPrivateiNumAsInteger '記錄編號PrivateSubcmdCancel_Click()UnloadMeExitSubEndSubPrivateSubcmdOK_Click()DimsqlAsStringsql=""updateCompanysetComName二'〃&Me.textComName&〃'，Country二'〃&Me.textCountrysql=sql&〃’，City二'〃&Me.textCity&〃’，DealDomain二'〃&Me.textDomain&〃'，""sql=sql&""Symbiosis二'〃&Me.textSymbiosis&""‘‘Address二'〃&Me.textComAddresssql=sql&〃'，Tel二'〃&Me.textComTel&〃'，F(xiàn)ax二'〃&Me.textComFaxsql=sql&""‘‘Remark二'〃&Me.textRemark&〃‘whereID二〃&iNumCallTransactSQL(sql) '修改記錄MsgBox〃已經(jīng)更改信息！""，vbOKOnly+vbExclamation,〃提示〃sql=""select*fromCompanywhereID二〃&iNumCallfrmComResult.showComTopic ‘顯示修改結(jié)果CallfrmComResult.showComData(sql)frmComResult.Show

frmComResult.ZOrder0UnloadMeEndSubPrivateSubForm_Load()'PrivateSubForm_Load()'初始化DimrsAsNewADODB.RecordsetDimrsAsNewADODB.RecordsetSetrs=getRS(strPublicSQL)Ifrs.EOF=FalseThenSetrs=getRS(strPublicSQL)Ifrs.EOF=FalseTheniNum=rs(0)Me.textComName=rs(1)Me.textCountry=rs(2)Me.textCity二rs(3)Me.textDomain=rs(4)Me.textSymbiosis=rs(Me.textComAddress=rsMe.textComTel=rs(7)Me.textComFax=rs(8)Me.textRemark=rs(9)EndIfrs.CloseEndSub在查詢企業(yè)信息時，填寫好可以按企業(yè)名稱和經(jīng)營領(lǐng)域，兩種方面查找。代碼如下:PrivateSubcmdCancel_Click()UnloadMeExitSubEndSubPrivateSubcmdOK_Click()DimsqlAsStringIfMe.checkComName.Value=vbCheckedAndMe.checkDomain.Value=vbCheckedThensql=""select*fromCompanywhereComName二'〃 &Me.textComName&〃‘a(chǎn)nd""sql=sql&""DealDomain二'〃&Me.textDomain&〃‘〃ElselfMe.checkComName.Value=vbCheckedThensql=""select*fromCompanywhereComName二'〃 &Me.textComName&〃‘〃ElselfMe.checkDomain.Value=vbCheckedThensql=""select*fromCompanywhereDealDomainlike'%""&Me.textDomain&""%'""Elsesql=""select*fromCompanyorderbyID"EndIfCallfrmComResult.showComTopic '顯示查詢結(jié)果CallfrmComResult.showComData(sql)frmComResult.ShowfrmComResult.ZOrder0UnloadMeEndSub發(fā)送電子郵件，數(shù)據(jù)導(dǎo)出代碼如下：OptionExplicitPublicstrFilepathAsStringPrivateSubcmdCancel_Click()UnloadMeExitSubEndSubPrivateSubcmdOK_Click()DimiAsIntegerDimrsobjAsNewADODB.RecordsetDimsqlAsStringDimfirstdayAsStringDimdaysAsIntegerDimlastdayAsStringDimoExcelAsObjectDimoBookAsObjectDimoSheetAsObjectOnErrorGoToCommand1_Click_ErrorIf Me.textFilePath = "" Then'判斷輸入MsgBox"請選擇文件保存位置！",vbOKOnly+vbExclamation,〃提示！〃Elsesql="select*fromPersonalorderbyID"Setrsobj=getRS(sql)If rsobj.EOF = False Then'判斷是否有統(tǒng)計記錄SetoExcel=CreateObject("Excel.Application")SetoBook=oExcel.Workbooks.AddSetoSheet=oBook.Worksheets(1)Set oSheetoExcel.Application.Workbooks(l).Worksheets("Sheet1")oSheet.Range("Al:Ll").Select'設(shè)置單元格WithoExcel.Selection.HorizontalAlignment二xlCenter.VerticalAlignment二xlBottom.WrapText二False.Orientation二0.AddIndent二False.ShrinkToFit二False.MergeCells=FalseEndWithoExcel.Selection.Merge'設(shè)置標(biāo)題oSheet.Range("Al:Ll").SelectoExcel.ActiveCell.FormulaRlCl="客戶信息列表"With oExcel.ActiveCell.Characters(Start:=l,Length:=26).Font.Name="宋體".FontStyle="加粗".Size=18.Strikethrough=False.Superscript二False.Subscript二False.OutlineFont二False.Shadow=False.Underline=xlUnderlineStyleNone.Colorindex=xlAutomaticEndWithSet oSheetoExcel.Application.Workbooks(l).Worksheets("Sheet1")'設(shè)置表格oSheet.Cells(2,l).Value=〃編號〃oSheet.Cells(2,2).Value=〃姓名〃oSheet.Cells(2,3).Value=〃性別〃oSheet.Cells(2,4).Value=〃年齡〃oSheet.Cells(2,5).Value=〃生日〃oSheet.Cells(2,6).Value=〃公司〃oSheet.Cells(2,7).Value=〃職務(wù)〃oSheet.Cells(2,8).Value=〃住址〃oSheet.Cells(2,9).Value=〃郵編〃oSheet.Cells(2,10).Value=〃電話〃oSheet.Cells(2,11).Value=〃手機(jī)〃oSheet.Cells(2,12).Value=〃傳真〃oSheet.Cells(2,13).Value="Email"oSheet.Columns("A:A").ColumnWidth=8oSheet.Columns("B:B").ColumnWidth=6oSheet.Columns("C:C").ColumnWidth=2oSheet.Columns("D:D").ColumnWidth=2oSheet.Columns("E:E").ColumnWidth=8oSheet.Columns("F:F").ColumnWidth=4oSheet.Columns("G:G").ColumnWidth=4oSheet.Columns("H:H").ColumnWidth=4oSheet.Columns("I:I").ColumnWidth=6oSheet.Columns("J:J").ColumnWidth=6oSheet.Columns("K:K").ColumnWidth=4oSheet.Columns("L:L").ColumnWidth=6oSheet.Columns("M:M").ColumnWidth=6rsobj.MoveFirstFori=3Torsobj.RecordCount+2oSheet.Cells(i,1).Value=rsobj(l)oSheet.Cells(i,2).Value=rsobj(2)oSheet.Cells(i,3).Value=rsobj(3)oSheet.Cells(i,4).Value=rsobj(4)oSheet.Cells(i,5).Value= Format(rsobj(5)."mm-dd")oSheet.Cells(i,6).Valuersobj(6)oSheet.Cells(i,7).Valuersobj(7)oSheet.Cells(i,8).Valuersobj(8)oSheet.Cells(i,9).Value=rsobj(9)oSheet.Cells(i,10).Value=rsobj(lO)oSheet.Cells(i,11).Value=rsobj(ll)oSheet.Cells(i,12).Value=rsobj(12)oSheet.Cells(i,13).Value=rsobj(13)rsobj.MoveNextNextiWith oSheet'設(shè)置邊框.Range(.Cells(l,1),.Cells(rsobj.RecordCount+2,13)).Borders.LineStyle=xlContinuousEndWithoBook.SaveAs strFilepath'保存文件IfMsgBox("是否轉(zhuǎn)到導(dǎo)出的Excel文件？",vbOKCancel)=vbOKThenUnloadMeoExcel.Visible=TrueElseMsgBox"已經(jīng)成功導(dǎo)出記錄！",vbOKOnly+vbExclamation,"提示！"UnloadMeEndIfExitSubElseMsgBox"數(shù)據(jù)庫中沒有記錄！",vbOKOnly+vbExclamation,提示！"Me.ZOrder0EndIfEndIfCommandl_Click_Error:ExitSubEndSubPrivateSubcmdPath_Click()CommonDialogl.CancelError=TrueOnErrorGoToErrHandlerCommonDialogl.Flags=cdlOFNHideReadOnlyCommonDialogl.Filter="AllFiles(*.*)|*.*〔ExcelFiles"&_"(*.xls)|*.xls"CommonDialogl.FilterIndex=2CommonDialogl.ShowSaveMe.textFilePath=CommonDialogl.FileNamestrFilepath=CommonDialogl.FileName設(shè)置保存路徑ExitSubErrHandler:ExitSubEndSubPrivateSubForm_Load()Me.textFilePath="EndSub第六章系統(tǒng)的使用6.1、系統(tǒng)用戶登陸窗體系統(tǒng)用戶登錄窗體如圖6-1所示:容戶儈理1