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