【正文】 my enraged father, still with a faint air of uncertainty. He had, of course, no real doubt in his mind, or he would have called for another opinion。在這里，有幾個實用的功能，一是系統(tǒng)密碼修改功能，以防止系統(tǒng)的密碼泄露之后，管理員能夠及時地進(jìn)行密碼更新，以防系統(tǒng)的資料被別人竊取和修改。 = False 39。 = 修改記錄 39。 代碼如下： Private Sub Command1_Click() = True = True = True = True = True = True = True = True = True = True = True If = True Then If = True And = True Then MsgBox 您的數(shù)據(jù)庫中沒有記錄！ , 16, 出錯： Else If = 修改記錄 Then 39。 代碼如下： Private Sub Command1_Click() If Trim() = Trim() And Trim() = Trim() Then 39?？蛻艄芾硐到y(tǒng)屬于典型的事務(wù)型系統(tǒng)，其系統(tǒng)示意圖如下圖所示： 客戶管理系統(tǒng)示意圖 接受數(shù)據(jù) 事務(wù)中心 客戶錄入 客戶查詢 客戶排序 客戶資料瀏覽 系統(tǒng)結(jié)構(gòu)圖示意如下： 客戶管理系統(tǒng)結(jié)構(gòu)圖 系統(tǒng)功能圖如下 輸入客戶信息 備份 恢復(fù) 客戶管理系統(tǒng) 客戶采編 客戶查詢 數(shù)據(jù)處理 客戶資料瀏覽 客戶管理系統(tǒng) 系統(tǒng)登陸 客戶信息錄入 客戶信息查詢 用戶管理 添加 新增 刪除 恢復(fù) 按編號 按姓名 用戶添加 密碼修改 用戶刪除 群組設(shè)置 退出系統(tǒng) 3． 3 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫采用了 Microsoft 推出的 Visual Foxpro 自帶的數(shù)據(jù)庫，這是微軟集成到VFP 中的一個桌面數(shù)據(jù)庫，能夠快速方便的和 Office 的其他套件綜合使用。 （ 1）數(shù)據(jù)元素：每個客戶都有編號這個信息，其描述內(nèi)容如下： 數(shù)據(jù)元素名稱：編號 類型：字符 長度： 9 數(shù)據(jù)值類型：字符 取值范圍： 9 個字符以內(nèi) 相關(guān)的數(shù)據(jù)結(jié)構(gòu)： {姓名，性別，單位，職務(wù)，電話，地址，類型 } （ 2）數(shù)據(jù)流。 DATA 控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的 Visual Basic程序之間架起了一座橋梁。 _ 實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 數(shù)據(jù)庫之間的關(guān)系指明兩個庫之間共享一個共同的關(guān)鍵字值。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。 關(guān)系型數(shù)據(jù)庫的實現(xiàn) Access2020 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。當(dāng)原始數(shù) 據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。例如，命令按鈕是一個對象，當(dāng)用戶單擊該按鈕時，將產(chǎn)生一個“單擊“ (CLICK)事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上， Visual Basic 自動生成對象的程序代碼并封裝起來?？偟膩碚f， Visual Basic 具有以下特點： 可視化編程： 用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，都是通過編寫程序代碼來設(shè)計用戶界面，在設(shè)計過程中看不到界面的實際顯示效果，必須編譯后運行程序才能觀察。 綜上所述，開發(fā)客戶管理系統(tǒng)在技術(shù)上、經(jīng)濟(jì)上、管理上都是可行的。硬件的配置要求不能太高，這樣可以很好的適應(yīng)當(dāng)前的客戶管理。手工管理還存在這許多弊端，由于不可避免的人為因素，經(jīng)常造成數(shù)據(jù)的遺漏、誤報。 管理信息系統(tǒng)的開發(fā)是一個開發(fā)周期長、技術(shù)要求高、影響因素多的復(fù)雜系統(tǒng)工程，因此制定一個完善、可行、合理的開發(fā)計劃，不僅是系統(tǒng)開發(fā)成功的保證，而且可以提高效率、節(jié)省時間、降低成本。本系統(tǒng)界面友好，操作簡單，比較實用。在社會主義經(jīng)濟(jì)高速發(fā)展的今天，如果企業(yè)對 客戶關(guān)系信息 的各項管理運做仍然停滯在以紙、筆為主要工具的階 段，就會因為信息量的快速增長而無法迅速、準(zhǔn)確的完成各項管理工作，這樣，必將成為企業(yè)各方面發(fā)展的一個瓶頸。 它是一個典型的信息管理系統(tǒng)。 本文介紹了在 Visual 環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開發(fā)”的策略開發(fā)一個管理信息系統(tǒng)的過程。 管理信息系統(tǒng)的開發(fā)方法有生命周期法、原型法和面向?qū)ο蟮拈_發(fā)方法等。 （ 5）然后在用戶可將（ 3）和（ 4）的操作結(jié)果進(jìn)行打印。因此對用戶的需求可分為幾個方面：一方面是客戶管理人員可以通過計算機(jī)來管理各類客戶，分類編號，調(diào)整客戶數(shù)據(jù)，增加客戶數(shù)量，適應(yīng)客戶管理的需求；二方面是相關(guān)部門的人員能通過計算機(jī)來查詢和瀏覽客戶中的客戶，來確定自已需要查找的客戶，為業(yè)務(wù)的更好開展做好準(zhǔn)備；三方面是相關(guān)工作人員對客戶數(shù)據(jù) 的排序，也是說可以根據(jù)需要按照某一字段進(jìn)行排序，從而找出具有共同性的客戶，并可將這些查詢和排序的結(jié)果進(jìn)行打印操作；四方面是對客戶數(shù)據(jù)的備份和恢復(fù)工作，這也是本系統(tǒng)的一個重要的功能，以防本系統(tǒng)在發(fā)生人為的損壞時能夠及時恢復(fù)這些資料。 經(jīng)濟(jì)上可行：由于公司急需采用計算機(jī)來進(jìn)行客戶的管理，因此對開發(fā)客戶管理系統(tǒng)大力支持，開發(fā)經(jīng)費沒有問題。數(shù)據(jù)庫是 MIS 中的重要支持技術(shù)，在 MIS 開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時， 應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言 Visual Basic 語言，該開發(fā)工具具有很多長處： Visual Basic 是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā) Windows 環(huán)境下的種類應(yīng)用程序。 Visual Basic自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計的效率。在設(shè)計 Visual Basic 程序的過程中，隨時可以運行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運行。 Visual Basic 提供開放式數(shù)據(jù)連接，即 ODBC 功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如 SQL Server， Oracle 等。 動態(tài)鏈接庫 (DLL) Visual Basic是一種高級程序設(shè)計語言，不具備低級語言的功能，對訪問機(jī)器硬件的操作不太容易實現(xiàn)。 Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。 1． 標(biāo)識需要的數(shù)據(jù)； 2． 收集被標(biāo)識的字段到表中； 3． 標(biāo)識主關(guān)鍵字字段； 4． 繪制一個簡單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)； 6． 標(biāo)識指定字段的信息； 7． 創(chuàng)建物理表。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。將 DATA 控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系 第三章系統(tǒng)總體規(guī)劃 3． 1 組織結(jié)構(gòu)調(diào)研 在對該公司客戶管理的手工管理模式和業(yè)務(wù)流程進(jìn)行認(rèn)真分析和研究的基礎(chǔ)上，經(jīng)過與該客戶部的相關(guān)人員的反復(fù)協(xié)商、論證，最后確定了該客戶管理系統(tǒng)的邏輯模型。 3． 2． 2 軟件結(jié)構(gòu)設(shè)計。分別如下圖所示： 編號 姓名 性別 職務(wù) 電話 客戶管理 手機(jī) 消費意向 生日 個人愛好 工作單位 各表的物理結(jié)構(gòu)如下： kh（客戶）表： 字段名稱 類型 寬度 小數(shù)位數(shù) 編號 字符 10 0 姓名 字符 8 0 單位 字符 20 0 性別 字符 2 0 電話 字符 11 0 手機(jī) 字符 11 0 職位 字符 10 0 個人愛好 字符 6 0 消費意向 字符 30 0 生日 字符 2 0 備注 字符 8 0 (群組 )表： 字段名稱 類型 寬度 小數(shù)位數(shù) 群組名稱 字符 10 0 管理員 字符 10 0 群組人數(shù) 數(shù)字 5 0 電話 數(shù)字 11 0 職能 文本 10 0 收入 貨幣 10 2 第四章 系統(tǒng)功能實現(xiàn) 系統(tǒng)登陸界面： 雙擊圖標(biāo)運行程序以后，就可以看到程序的登錄界面。 代碼如下： Private Sub A1_Click() Unload Me 39。 = False = 8220 = 300 39。 = 5728 39。 代碼如下： Private Sub Command1_Click() = True = True = True = True = True = True = True If = True Then If = True And = True Then MsgBox 您的數(shù)據(jù)庫中沒有記錄！ , 16, 出錯： Else If = 修改記錄 Then = 設(shè)置完畢 = False = False = False = False = 8220 = 300 = True = 修改記錄： Else If = Then MsgBox 姓名不能為空！ , 16, 出錯： Else For X = 11 To 13 If Len(Trim()) 200 Then MsgBox 太長 , 16, 出錯： Exit Sub End If Next X = 修改記錄 = True = True = True 39。 主要參考文獻(xiàn) [1] Visual Basic 使用指南 作者 ： Bob Reselman , Richard Peasley , Wayne Pruchniak. 出版社：電子工業(yè)出版社 [2] 中文版 Microsoft Office 2020 自學(xué)通 作者： Ned Snell 出版 社：機(jī)械工業(yè)出版社 [3] Visual Basic 中文版控件大全 作者： Microsoft 出版社；電子工業(yè)出版社 [4] 中文 Access 2020 24學(xué)時教程 作者： Craig Eddy ， Timothy Buchanan 出版社：機(jī)械工業(yè)出版社 [5]、《中文版 Access2020 入門及提高》 作者：王成輝 . t was not until midafternoon that the inspector ambled up on his pony. My father pulled himself together, and went out to receive him。s history that I would prefer not to ha ve known. I was sitting quietly in the room next to my parents39。s room. Then followed the worst wait of all. Mary said afterwards that he hummed and ha39。 = True End If End Sub Private Sub Command3_Click() = True = True = True = True = True = True = True If = Or = Then MsgBox 名稱和管理員不能為空！ , 16, 出錯： = Else