【正文】 ................................................................................................ 45 前 言 企業(yè)通過設計合理的專業(yè)性客戶關系信息管理系統(tǒng) ,可以合理控制客戶關系信息各個環(huán)節(jié) ,提高資金的利用率和結(jié)算速度 ,實現(xiàn)管理的高效率、實時性 、安全性、科學化、現(xiàn)代化和智能化。 客戶關系信息 管理信息系統(tǒng)是根據(jù)某企業(yè)所屬客戶的實際管理情況進行編寫的，主要目的是為了方便企業(yè)對客戶來往業(yè)務及客戶關系信息情況進行集中的查詢與管理工作。 摘 要 隨著信息技術在管理上越來越深入而廣泛的應用，管理信息系統(tǒng)的實施在技術上已逐步成熟。文章介紹了客戶管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務流程分析等；系統(tǒng)設計部分主要介紹了系統(tǒng)功能設計 和數(shù)據(jù)庫設計及代碼設計；系統(tǒng)實現(xiàn)部分說明了幾個主要模塊的算法，并附帶了一些主要的窗口和程序。信息和材料、能源一樣成為一種社會的基本生產(chǎn)資料，在人類的社會生產(chǎn)活動中發(fā)揮著重要的作用?；谝?上三種方法的特點和各自的優(yōu)缺點，本客戶管理系統(tǒng)利用軟件工程化思想和方法，總體上是采用結(jié)構化生命法進行系統(tǒng)分析和設計的，而系統(tǒng)實現(xiàn)等步驟則采用了原型法和面對對象的方法。 下面繪制出客戶管理業(yè)務中的流程圖。 得出該客戶業(yè)務流程圖如下所示： 1． 2 現(xiàn)行系統(tǒng)存在的問題 以前該公司的客戶管理工作大部分還是進行著手工管理，工作起來效率 很低，并且不能及時了解各類客戶的實際情況，也無法快速地進行客戶信息的查詢等操作，不便于動態(tài)及時地調(diào)整客戶資料，以便更好地適應當前經(jīng)濟形勢發(fā)展的需要和本企業(yè)的管理的先進性。 客戶信息系統(tǒng)的建立，需要進行用戶的需求調(diào)查與分析，以確定系統(tǒng)目標，提出解決問題的詳細方案，這是系統(tǒng)建設的重要環(huán)節(jié)。 在軟、硬件方面對系統(tǒng)的需求，軟件要求易學，界面友好，容易掌握，可以很簡單方便的管理各種客戶信息。 技術上可行：該系統(tǒng)所需硬件設備，市場上銷售且價格較低，甚至可以使用原有的設備，軟件上，操作系統(tǒng)采用 Windows 系列操作系統(tǒng)，數(shù)據(jù)庫管理系統(tǒng)采用 Visual ，這些軟件 在 MIS 開發(fā)中已被大量應用，技術上都比較成熟。另外，客戶部和上級領導對開發(fā)該系統(tǒng)也是大力支持的，同時制定了培訓計劃，并進行了實施MIS 的物質(zhì)準備和工作準備。然而，語言的彈性和工具 的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數(shù)倍的工夫來處理，使得原來所標榜的效率提高的優(yōu)點失去了作用；相反，如果只強調(diào)程語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴重地浪費程序設計師的寶貴時間。在 Visual Basic 環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設計工具，使用 Windows 內(nèi)部的應用程序接口 (API)函數(shù)，以及動 態(tài)鏈接庫 (DLL)、動態(tài)數(shù)據(jù)交換 (DDE)、對象的鏈接與嵌入 (OLE)、開放式數(shù)據(jù)訪問 (ODBC)等技術，可以高效、快速地開發(fā)出 Windows 環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。 Visual Basic 提供了可視化設計工具，把 Windows 界面設計的復雜性“封裝”起來，開發(fā)人員不必為界面設計而編寫大量程序代碼。在一般的面向?qū)?象程序設計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而 Visual Basic 則是應用面向?qū)ο蟮某绦蛟O計方法 (OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應有的屬性，使對象成為實在的東西。 Visual Basic 語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調(diào)試器和編譯器。一個對象可能會產(chǎn)生多個事件，每個事件都可以通過一段程序來響應。 訪問數(shù)據(jù)庫 Visual Basic 具有強大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能。 動態(tài)數(shù)據(jù)交換 (DDE) 利用動態(tài)數(shù)據(jù)交換 (Dynamic Data Exchange)技術，可以把一種應用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應用程序中，使兩種完全不同的應用程序建立起一條動態(tài)數(shù)據(jù)鏈路。 OLE 技術是 Microsoft 公司對象技術的戰(zhàn)略，它把多個應用程序合為一體，將每個應用程 序看做是一個對象進行鏈接和嵌入，是一種應用程序一體化的技術。此外，通過動態(tài)鏈接庫，還可以調(diào)用 Windows應用程序接口 (API)函數(shù)，實現(xiàn) SDK所具有的功能。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。 數(shù)據(jù)庫的概念 數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。 _ 新建一個數(shù)據(jù)庫 創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細的規(guī)劃數(shù)據(jù)庫，設計必須是靈活的、有邏輯的。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現(xiàn) 的具體方法。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀錄中由重復數(shù)據(jù)的組合字段。 Visual Basic、 Access以及其他微軟的軟件產(chǎn)品都是通過共用 JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。一個記錄集合是動態(tài)的也就意味著，當原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。 3． 數(shù)據(jù)流圖 3． 1． 3 數(shù)據(jù)字典： 下面為借書業(yè)務流程圖中的每一部分編制數(shù)據(jù)字典。 3． 2 軟件模塊結(jié)構設計 3． 2． 1 系統(tǒng)方案確定。該系統(tǒng)執(zhí)行時，先錄入數(shù)據(jù)，然后根據(jù)客戶的個人信息可以進行查詢以及按照相同的屬于進行排序，并可將結(jié)果進行預覽。 本系統(tǒng)涉及到的實體：（共有三個數(shù)據(jù)表，分別為： ， ， ）。當然，用戶可以在系統(tǒng)登錄時為了防止系統(tǒng)密碼的泄露而可以進行對密碼的及時修改和更新。ADO 是錯誤退出，正確進入 Else If Trim() = Trim() And Trim() = Trim() Then = Unload Me Else X = X 1 End If End If Next X End If = End Sub Private Sub Command2_Click() Unload Me 39。從而完成本系統(tǒng)的客戶信息管 理。 = False 39。 = 修改記錄： Else If = Then MsgBox 姓名不能為空！ , 16, 出錯： Else For X = 11 To 13 If Len(Trim()) 200 Then MsgBox 太長 , 16, 出錯： Exit Sub End If Next X 39。 = True 39。 = 1500 39。MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯！ End If End If End Sub Private Sub Command7_Click() If = Or = Then MsgBox 編號或姓名不能為空！ , 16, 出錯： = Else MsgBox 信息保存完畢！ , 16, 恭喜！ = True = True = True End If End Sub Private Sub Command8_Click() Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) If = True Then Cancel = 0 Else MsgBox 請編輯完這條記錄再退出！若不編程請選擇任一 記錄保存后退出 , 64, 提示： Cancel = 1 End If End Sub 客戶信息查詢： 本功能模塊是本系統(tǒng)的查詢功能模塊，用戶可以在本模塊上進行按條件進行查詢，也可以按編號和姓名進行查詢。 = True End If End Sub Private Sub Command3_Click() = True = True = True = True = True = True = True If = Or = Then MsgBox 名稱和管理員不能為空！ , 16, 出錯： = Else MsgBox 開始新建群組！ , 64, 恭喜！ = False = False = False End If End Sub Private Sub Command4_Click() If = True And = True Then MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯！ Else MsgBox 您確定要刪除這條信息？ , 32, 提示！ If = False Then Else MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯！ End If End If End Sub Private Sub Form_Unload(Cancel As Integer) If = True Then Cancel = 0 Else MsgBox 請編輯完這條記錄再退出！ , 64, 提示： Cancel = 1 End If End Sub 4． 6 用戶管理 一個完整的應用系統(tǒng)，必須要能夠具備適當?shù)挠脩艄芾砉δ?，以防系統(tǒng)數(shù)據(jù)的安全。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高 這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導。 their rifles were wet and under their capes the two leather cartridgeboxes on the front of the belts, gray leather boxes heavy with the packs of clips of thin, long mm. cartridges, bulged forward under the capes so that the men, passing on the road, marched as though they were six months gone with。 主要參考文獻 [1] Visual Basic 使用指南 作者 ： Bob Reselman , Richard Peasley , Wayne Pruchniak. 出版社：電子工業(yè)出版社 [2] 中文版 Microsoft Office 2021 自學通 作者： Ned Snell 出版 社：機械工業(yè)出版社 [3] Visual Basic 中文版控件大全 作者： Microsoft 出版社；電子工業(yè)出版社 [4] 中文 Access 2021 24學時教程 作者： Craig Eddy ， Timothy Buchanan 出版社：機械工業(yè)出版社 [5]、《中文版 Access2021 入門及提高》 作者：王成輝 . In the late summer of that year we lived in a house in a village that looked across the river and the plain to the mountains. In the bed of the river there were pebbles and boulders, dry and white in the sun, and the water was clear and swiftly moving and blue in the channels. Troops went by the house and dow n the road and the dust they raised powdered the leaves of the trees. The trunks of t he trees too were dusty and the leaves fell early that year and