【正文】 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。在這里，有幾個(gè)實(shí)用的功能，一是系統(tǒng)密碼修改功能，以防止系統(tǒng)的密碼泄露之后，管理員能夠及時(shí)地進(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ù)庫(kù)中沒(méi)有記錄！ , 16, 出錯(cuò)： 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ù) 按編號(hào) 按姓名 用戶添加 密碼修改 用戶刪除 群組設(shè)置 退出系統(tǒng) 3． 3 數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)采用了 Microsoft 推出的 Visual Foxpro 自帶的數(shù)據(jù)庫(kù)，這是微軟集成到VFP 中的一個(gè)桌面數(shù)據(jù)庫(kù)，能夠快速方便的和 Office 的其他套件綜合使用。 （ 1）數(shù)據(jù)元素：每個(gè)客戶都有編號(hào)這個(gè)信息，其描述內(nèi)容如下： 數(shù)據(jù)元素名稱：編號(hào) 類型：字符 長(zhǎng)度： 9 數(shù)據(jù)值類型：字符 取值范圍： 9 個(gè)字符以內(nèi) 相關(guān)的數(shù)據(jù)結(jié)構(gòu)： {姓名，性別，單位，職務(wù)，電話，地址，類型 } （ 2）數(shù)據(jù)流。 DATA 控件在數(shù)據(jù)庫(kù)中的信息與將信息顯示給用戶看的 Visual Basic程序之間架起了一座橋梁。 _ 實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系 數(shù)據(jù)庫(kù)之間的關(guān)系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn) Access2020 就是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。當(dāng)原始數(shù) 據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊“ (CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來(lái)實(shí)現(xiàn)指定的操作。在設(shè)計(jì)對(duì)象時(shí)，不必編寫(xiě)建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫(huà)在界面上， Visual Basic 自動(dòng)生成對(duì)象的程序代碼并封裝起來(lái)?？偟膩?lái)說(shuō)， Visual Basic 具有以下特點(diǎn)： 可視化編程： 用傳統(tǒng)程序設(shè)計(jì)語(yǔ)言設(shè)計(jì)程序時(shí)，都是通過(guò)編寫(xiě)程序代碼來(lái)設(shè)計(jì)用戶界面，在設(shè)計(jì)過(guò)程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。 綜上所述，開(kāi)發(fā)客戶管理系統(tǒng)在技術(shù)上、經(jīng)濟(jì)上、管理上都是可行的。硬件的配置要求不能太高，這樣可以很好的適應(yīng)當(dāng)前的客戶管理。手工管理還存在這許多弊端，由于不可避免的人為因素，經(jīng)常造成數(shù)據(jù)的遺漏、誤報(bào)。 管理信息系統(tǒng)的開(kāi)發(fā)是一個(gè)開(kāi)發(fā)周期長(zhǎng)、技術(shù)要求高、影響因素多的復(fù)雜系統(tǒng)工程，因此制定一個(gè)完善、可行、合理的開(kāi)發(fā)計(jì)劃，不僅是系統(tǒng)開(kāi)發(fā)成功的保證，而且可以提高效率、節(jié)省時(shí)間、降低成本。本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。在社會(huì)主義經(jīng)濟(jì)高速發(fā)展的今天，如果企業(yè)對(duì) 客戶關(guān)系信息 的各項(xiàng)管理運(yùn)做仍然停滯在以紙、筆為主要工具的階 段，就會(huì)因?yàn)樾畔⒘康目焖僭鲩L(zhǎng)而無(wú)法迅速、準(zhǔn)確的完成各項(xiàng)管理工作，這樣，必將成為企業(yè)各方面發(fā)展的一個(gè)瓶頸。 它是一個(gè)典型的信息管理系統(tǒng)。 本文介紹了在 Visual 環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開(kāi)發(fā)”的策略開(kāi)發(fā)一個(gè)管理信息系統(tǒng)的過(guò)程。 管理信息系統(tǒng)的開(kāi)發(fā)方法有生命周期法、原型法和面向?qū)ο蟮拈_(kāi)發(fā)方法等。 （ 5）然后在用戶可將（ 3）和（ 4）的操作結(jié)果進(jìn)行打印。因此對(duì)用戶的需求可分為幾個(gè)方面：一方面是客戶管理人員可以通過(guò)計(jì)算機(jī)來(lái)管理各類客戶，分類編號(hào)，調(diào)整客戶數(shù)據(jù)，增加客戶數(shù)量，適應(yīng)客戶管理的需求；二方面是相關(guān)部門(mén)的人員能通過(guò)計(jì)算機(jī)來(lái)查詢和瀏覽客戶中的客戶，來(lái)確定自已需要查找的客戶，為業(yè)務(wù)的更好開(kāi)展做好準(zhǔn)備；三方面是相關(guān)工作人員對(duì)客戶數(shù)據(jù) 的排序，也是說(shuō)可以根據(jù)需要按照某一字段進(jìn)行排序，從而找出具有共同性的客戶，并可將這些查詢和排序的結(jié)果進(jìn)行打印操作；四方面是對(duì)客戶數(shù)據(jù)的備份和恢復(fù)工作，這也是本系統(tǒng)的一個(gè)重要的功能，以防本系統(tǒng)在發(fā)生人為的損壞時(shí)能夠及時(shí)恢復(fù)這些資料。 經(jīng)濟(jì)上可行：由于公司急需采用計(jì)算機(jī)來(lái)進(jìn)行客戶的管理，因此對(duì)開(kāi)發(fā)客戶管理系統(tǒng)大力支持，開(kāi)發(fā)經(jīng)費(fèi)沒(méi)有問(wèn)題。數(shù)據(jù)庫(kù)是 MIS 中的重要支持技術(shù)，在 MIS 開(kāi)發(fā)過(guò)程中，如何選擇數(shù)據(jù)庫(kù)管理是一個(gè)重要的問(wèn)題，目前，數(shù)據(jù)庫(kù)產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫(kù)時(shí)， 應(yīng)考慮數(shù)據(jù)庫(kù)應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫(kù)語(yǔ)言 Visual Basic 語(yǔ)言，該開(kāi)發(fā)工具具有很多長(zhǎng)處： Visual Basic 是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā) Windows 環(huán)境下的種類應(yīng)用程序。 Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。在設(shè)計(jì) Visual Basic 程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運(yùn)行。 Visual Basic 提供開(kāi)放式數(shù)據(jù)連接，即 ODBC 功能，可通過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如 SQL Server， Oracle 等。 動(dòng)態(tài)鏈接庫(kù) (DLL) Visual Basic是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。 Access 是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開(kāi)發(fā)的最通用的數(shù)據(jù)庫(kù)之一。 1． 標(biāo)識(shí)需要的數(shù)據(jù)； 2． 收集被標(biāo)識(shí)的字段到表中； 3． 標(biāo)識(shí)主關(guān)鍵字字段； 4． 繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)； 6． 標(biāo)識(shí)指定字段的信息； 7． 創(chuàng)建物理表。在表中使用的關(guān)鍵字類型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。將 DATA 控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫(kù)之間建立聯(lián)系 第三章系統(tǒng)總體規(guī)劃 3． 1 組織結(jié)構(gòu)調(diào)研 在對(duì)該公司客戶管理的手工管理模式和業(yè)務(wù)流程進(jìn)行認(rèn)真分析和研究的基礎(chǔ)上，經(jīng)過(guò)與該客戶部的相關(guān)人員的反復(fù)協(xié)商、論證，最后確定了該客戶管理系統(tǒng)的邏輯模型。 3． 2． 2 軟件結(jié)構(gòu)設(shè)計(jì)。分別如下圖所示： 編號(hào) 姓名 性別 職務(wù) 電話 客戶管理 手機(jī) 消費(fèi)意向 生日 個(gè)人愛(ài)好 工作單位 各表的物理結(jié)構(gòu)如下： kh（客戶）表： 字段名稱 類型 寬度 小數(shù)位數(shù) 編號(hào) 字符 10 0 姓名 字符 8 0 單位 字符 20 0 性別 字符 2 0 電話 字符 11 0 手機(jī) 字符 11 0 職位 字符 10 0 個(gè)人愛(ài)好 字符 6 0 消費(fèi)意向 字符 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)功能實(shí)現(xiàn) 系統(tǒng)登陸界面： 雙擊圖標(biāo)運(yùn)行程序以后，就可以看到程序的登錄界面。 代碼如下： 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ù)庫(kù)中沒(méi)有記錄！ , 16, 出錯(cuò)： Else If = 修改記錄 Then = 設(shè)置完畢 = False = False = False = False = 8220 = 300 = True = 修改記錄： 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 = 修改記錄 = 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é)時(shí)教程 作者： Craig Eddy ， Timothy Buchanan 出版社：機(jī)械工業(yè)出版社 [5]、《中文版 Access2020 入門(mén)及提高》 作者：王成輝 . 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, 出錯(cuò)： = Else