【正文】 the e ffort to be even formally polite nearly strangled him. Even then the inspector was not brisk. He dis mounted in a leisurely fashion, and strolled into the house, chatting about the weather. Father, red in the face, handed him over to Mary who took him along to mother39。 = 600 39。關(guān)閉當(dāng)前窗體 End Sub Private Sub a2_Click() Unload Me End Sub Private Sub a3_Click() = 9345 = 12870 End Sub Private Sub b1_Click() = 8355 = 13710 End Sub Private Sub bz_Click() End Sub Private Sub c1_Click() = 9510 = 13875 End Sub Private Sub C2_Click() = 6795 = 10020 = True = 輸入群組名進(jìn)行查詢 End Sub Private Sub c3_Click() = 收入查詢 = 4200 = 4081 = 495 = 2055 = 輸入名稱 End Sub Private Sub cz_Click() 2 End Sub Private Sub dc_Click() 0 End Sub Private Sub glysx_Click() End Sub Private Sub gy_Click() End Sub Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim YesNo As Integer Dim M As Single YesNo = MsgBox(真的要退出系統(tǒng)嗎？ , vbYesNo + vbQuestion, 提示 ) If YesNo = vbYes Then EndTxt = True Unload Me Else Cancel = 1 End If End Sub Private Sub pp_Click() 1 End Sub Private Sub stsz_Click() = 6930 = 8400 End Sub Private Sub tc_Click() Unload Me End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case key1 = 8355 = 13710 Case key2 = 9510 = 13875 Case key3 = 6795 = 10020 = True = 輸入群組名進(jìn)行查詢 Case key4 Case key7 = 6930 = 8400 Case key6 Unload Me End Select End Sub 客戶信息管理： 本應(yīng)用模塊的主要功能是實(shí)現(xiàn)對(duì)客戶個(gè)人信息的錄入系統(tǒng)操作，如編號(hào)，姓名，性別，性別等基本操作。客戶管理系統(tǒng)包含客戶錄入、客戶查詢、系統(tǒng)維護(hù)等功能。 二者的結(jié)合（ DBA） 微軟的 JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及 Visual Basic 來訪問數(shù)據(jù)庫并對(duì)其進(jìn)行各種操作。如上所述， Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言 SQL 數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的 SQL 的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供了 SQL 網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶 /服務(wù)器 (client/server)方案。 面向?qū)ο蟮某绦蛟O(shè)計(jì) 版以后的 Visual Basic 支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言 (C++)不完全相同。 管理上可行：該企業(yè)的客戶分布位置很廣闊，因此公司要為每個(gè)客戶建立資料檔案，也便加強(qiáng)公司對(duì)客戶資料的管理，因此在管理上可行。 （ 6）經(jīng)過一定時(shí)間之后，為了系統(tǒng)的數(shù)據(jù)安全，將客戶資料進(jìn)行備份，并在必要時(shí)將這些數(shù)據(jù)恢復(fù)到本系統(tǒng)中。通過分析公司客戶人工管理的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理客戶的方案。 客戶關(guān)系信息 管理信息系統(tǒng)是根據(jù)某企業(yè)所屬客戶的實(shí)際管理情況進(jìn)行編寫的，主要目的是為了方便企業(yè)對(duì)客戶來往業(yè)務(wù)及客戶關(guān)系信息情況進(jìn)行集中的查詢與管理工作。基于以 上三種方法的特點(diǎn)和各自的優(yōu)缺點(diǎn)，本客戶管理系統(tǒng)利用軟件工程化思想和方法，總體上是采用結(jié)構(gòu)化生命法進(jìn)行系統(tǒng)分析和設(shè)計(jì)的，而系統(tǒng)實(shí)現(xiàn)等步驟則采用了原型法和面對(duì)對(duì)象的方法。 在軟、硬件方面對(duì)系統(tǒng)的需求，軟件要求易學(xué)，界面友好，容易掌握，可以很簡單方便的管理各種客戶信息。在 Visual Basic 環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用 Windows 內(nèi)部的應(yīng)用程序接口 (API)函數(shù)，以及動(dòng) 態(tài)鏈接庫 (DLL)、動(dòng)態(tài)數(shù)據(jù)交換 (DDE)、對(duì)象的鏈接與嵌入 (OLE)、開放式數(shù)據(jù)訪問 (ODBC)等技術(shù)，可以高效、快速地開發(fā)出 Windows 環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過一段程序來響應(yīng)。此外，通過動(dòng)態(tài)鏈接庫，還可以調(diào)用 Windows應(yīng)用程序接口 (API)函數(shù)，實(shí)現(xiàn) SDK所具有的功能。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn) 的具體方法。 3． 數(shù)據(jù)流圖 3． 1． 3 數(shù)據(jù)字典： 下面為借書業(yè)務(wù)流程圖中的每一部分編制數(shù)據(jù)字典。當(dāng)然，用戶可以在系統(tǒng)登錄時(shí)為了防止系統(tǒng)密碼的泄露而可以進(jìn)行對(duì)密碼的及時(shí)修改和更新。 = 修改記錄： Else If = Then MsgBox 姓名不能為空！ , 16, 出錯(cuò)： Else For X = 11 To 13 If Len(Trim()) 200 Then MsgBox 太長 , 16, 出錯(cuò)： Exit Sub End If Next X 39。 = True End If End Sub Private Sub Command3_Click() = True = True = True = True = True = True = True If = Or = Then MsgBox 名稱和管理員不能為空！ , 16, 出錯(cuò)： = Else MsgBox 開始新建群組！ , 64, 恭喜！ = False = False = False End If End Sub Private Sub Command4_Click() If = True And = True Then MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 16, 出錯(cuò)！ Else MsgBox 您確定要?jiǎng)h除這條信息？ , 32, 提示！ If = False Then Else MsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！ , 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ù)的安全。s history that I would prefer not to ha ve known. I was sitting quietly in the room next to my parents39。 代碼如下： Private Sub Command1_Click() = True = True = True = True = True = True = True If = True Then If = True And = True Then MsgBox 您的數(shù)據(jù)庫中沒有記錄！ , 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 太長 , 16, 出錯(cuò)： Exit Sub End If Next X = 修改記錄 = True = True = True 39。 = False = 8220 = 300 39。分別如下圖所示： 編號(hào) 姓名 性別 職務(wù) 電話 客戶管理 手機(jī) 消費(fèi)意向 生日 個(gè)人愛好 工作單位 各表的物理結(jié)構(gòu)如下： kh（客戶）表： 字段名稱 類型 寬度 小數(shù)位數(shù) 編號(hào) 字符 10 0 姓名 字符 8 0 單位 字符 20 0 性別 字符 2 0 電話 字符 11 0 手機(jī) 字符 11 0 職位 字符 10 0 個(gè)人愛好 字符 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)行程序以后，就可以看到程序的登錄界面。將 DATA 控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系 第三章系統(tǒng)總體規(guī)劃 3． 1 組織結(jié)構(gòu)調(diào)研 在對(duì)該公司客戶管理的手工管理模式和業(yè)務(wù)流程進(jìn)行認(rèn)真分析和研究的基礎(chǔ)上，經(jīng)過與該客戶部的相關(guān)人員的反復(fù)協(xié)商、論證，最后確定了該客戶管理系統(tǒng)的邏輯模型。 1． 標(biāo)識(shí)需要的數(shù)據(jù)； 2． 收集被標(biāo)識(shí)的字段到表中； 3． 標(biāo)識(shí)主關(guān)鍵字字段； 4． 繪制一個(gè)簡單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)； 6． 標(biāo)識(shí)指定字段的信息； 7． 創(chuàng)建物理表。 動(dòng)態(tài)鏈接庫 (DLL) Visual Basic是一種高級(jí)程序設(shè)計(jì)語言，不具備低級(jí)語言的功能，對(duì)訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。在設(shè)計(jì) Visual Basic 程序的過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運(yùn)行。數(shù)據(jù)庫是 MIS 中的重要支持技術(shù)，在 MIS 開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個(gè)重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫時(shí)， 應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言 Visual Basic 語言，該開發(fā)工具具有很多長處： Visual Basic 是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā) Windows 環(huán)境下的種類應(yīng)用程序。因此對(duì)用戶的需求可分為