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

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

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

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

DimfLoginAsNewfrmLoginfLogin.ShowEndSub'顯示窗體'顯示窗體PublicSubshowComTopic()DimiAsIntegerWithMe.MSFlexGridl.TextMatrix(0,0)="記錄編號".TextMatrix(0,1)="公司名稱".TextMatrix(0,2)="所屬國家".TextMatrix(0,3)="所在城市".TextMatrix(0,4)="經營領域".TextMatrix(0,5)="合作領域".TextMatrix(0,6)="地址".TextMatrix(0,7)="電話".TextMatrix(0,8)="傳真".TextMatrix(0,9)="備注"Fori=0To9對齊方式.ColAlignment(i)二4Nexti.ColWidth(0)=1000Fori=1To9.ColWidth(i)=1500'設置表頭'設置所有表格'設置每列寬9'設置表頭'設置所有表格'設置每列寬9EndWithMe.MSFlexGridl.Width=15000EndSubPublicSubshowComData(strQueryAsString) '顯示數據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在修改企業信息時，填寫好所要修改的資料，按“修改”按鈕，可以把新的資料保存在里面，代碼如下：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&〃'，Fax二'〃&Me.textComFaxsql=sql&""‘‘Remark二'〃&Me.textRemark&〃‘whereID二〃&iNumCallTransactSQL(sql) '修改記錄MsgBox〃已經更改信息！""，vbOKOnly+vbExclamation,〃提示〃sql=""select*fromCompanywhereID二〃&iNumCallfrmComResult.showComTopic ‘顯示修改結果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在查詢企業信息時，填寫好可以按企業名稱和經營領域，兩種方面查找。代碼如下:PrivateSubcmdCancel_Click()UnloadMeExitSubEndSubPrivateSubcmdOK_Click()DimsqlAsStringIfMe.checkComName.Value=vbCheckedAndMe.checkDomain.Value=vbCheckedThensql=""select*fromCompanywhereComName二'〃 &Me.textComName&〃‘and""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 '顯示查詢結果CallfrmComResult.showComData(sql)frmComResult.ShowfrmComResult.ZOrder0UnloadMeEndSub發送電子郵件，數據導出代碼如下：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'判斷是否有統計記錄SetoExcel=CreateObject("Excel.Application")SetoBook=oExcel.Workbooks.AddSetoSheet=oBook.Worksheets(1)Set oSheetoExcel.Application.Workbooks(l).Worksheets("Sheet1")oSheet.Range("Al:Ll").Select'設置單元格WithoExcel.Selection.HorizontalAlignment二xlCenter.VerticalAlignment二xlBottom.WrapText二False.Orientation二0.AddIndent二False.ShrinkToFit二False.MergeCells=FalseEndWithoExcel.Selection.Merge'設置標題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")'設置表格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=〃職務〃oSheet.Cells(2,8).Value=〃住址〃oSheet.Cells(2,9).Value=〃郵編〃oSheet.Cells(2,10).Value=〃電話〃oSheet.Cells(2,11).Value=〃手機〃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'設置邊框.Range(.Cells(l,1),.Cells(rsobj.RecordCount+2,13)).Borders.LineStyle=xlContinuousEndWithoBook.SaveAs strFilepath'保存文件IfMsgBox("是否轉到導出的Excel文件？",vbOKCancel)=vbOKThenUnloadMeoExcel.Visible=TrueElseMsgBox"已經成功導出記錄！",vbOKOnly+vbExclamation,"提示！"UnloadMeEndIfExitSubElseMsgBox"數據庫中沒有記錄！",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設置保存路徑ExitSubErrHandler:ExitSubEndSubPrivateSubForm_Load()Me.textFilePath="EndSub第六章系統的使用6.1、系統用戶登陸窗體系統用戶登錄窗體如圖6-1所示:容戶儈理1