【文章內(nèi)容簡介】 當原始數(shù) 據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。 Visual Basic 提供了動態(tài)數(shù)據(jù)交換的編程技術，可以在應用程序中與其他 Windows 應用程序建立動態(tài)數(shù)據(jù)交換，在不同的應用程序之間進行通信。 對象的鏈接與嵌入 (OLE) 對象的鏈接與嵌入 (OLE)將每個應用程序都看做是一個對象 (object)，將不同的對象鏈接 (link)起來，再嵌入 (embed)某個應用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。 OLE 技術是 Microsoft 公司對象技術的戰(zhàn)略，它把多個應用程序合為一體，將每個應用程 序看做是一個對象進行鏈接和嵌入，是一種應用程序一體化的技術。利用 OLE 技術，可以方便地建立復合式文檔 (pound document)，這種文檔由來自多個不同應用程序的對象組成，文檔中的每個對象都與原來的應用程序相聯(lián)系，并可執(zhí)行與原來應用程序完全相同的操作。 動態(tài)鏈接庫 (DLL) Visual Basic是一種高級程序設計語言，不具備低級語言的功能，對訪問機器硬件的操作不太容易實現(xiàn)。但它可以通過動態(tài)鏈接庫技術將 C/C++或匯編語言編寫的程序加入到 Visual Basic應用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣 調(diào)用其他語言編寫的函數(shù)。此外，通過動態(tài)鏈接庫，還可以調(diào)用 Windows應用程序接口 (API)函數(shù)，實現(xiàn) SDK所具有的功能。 關系型數(shù)據(jù)庫的實現(xiàn) Access2020 就是關系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。 Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。 Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置 于網(wǎng)絡文件服務器，與其他網(wǎng)絡用戶共享數(shù)據(jù)庫。 Access 是一種關系數(shù)據(jù)庫工具，關系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述， Access 作為關系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關系數(shù)據(jù)庫的強大功能。 數(shù)據(jù)庫的概念 數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。數(shù)據(jù)庫的作用在于組織和表達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關系數(shù)據(jù)庫（ flatfile）和關系數(shù)據(jù)庫（ relational）。關系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含 有各個不同部分的術語，象記錄、域等。 _ 新建一個數(shù)據(jù)庫 創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細的規(guī)劃數(shù)據(jù)庫，設計必須是靈活的、有邏輯的。創(chuàng)建一個數(shù)據(jù)庫結(jié)構(gòu)的過程被認為是數(shù)據(jù)模型設計。 1． 標識需要的數(shù)據(jù)； 2． 收集被標識的字段到表中； 3． 標識主關鍵字字段； 4． 繪制一個簡單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)； 6． 標識指定字段的信息； 7． 創(chuàng)建物理表。 _ 修改已建的數(shù)據(jù)庫 數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現(xiàn) 的具體方法。 _ 實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 數(shù)據(jù)庫之間的關系指明兩個庫之間共享一個共同的關鍵字值。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關聯(lián)的各個不同的表中獲取信息時建立的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀錄中由重復數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表中使用的關鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關系。 二者的結(jié)合（ DBA） 微軟的 JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及 Visual Basic 來訪問數(shù)據(jù)庫并對其進行各種操作。 Visual Basic、 Access以及其他微軟的軟件產(chǎn)品都是通過共用 JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。 DATA 控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的 Visual Basic程序之間架起了一座橋梁。我們可以設置 DATA 控件的各個屬性，告訴它要調(diào)用那個數(shù)據(jù)庫的哪個部分。缺省情況下， DATA 控件根據(jù)數(shù)據(jù)庫中的一個或多個數(shù)據(jù)表建立一個 dynasettype（動態(tài)集合）類型的記錄集合。一個記錄集合是動態(tài)的也就意味著，當原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。DATA 控件還提供了用來瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。將 DATA 控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系 第三章系統(tǒng)總體規(guī)劃 3． 1 組織結(jié)構(gòu)調(diào)研 在對該公司客戶管理的手工管理模式和業(yè)務流程進行認真分析和研究的基礎上，經(jīng)過與該客戶部的相關人員的反復協(xié)商、論證，最后確定了該客戶管理系統(tǒng)的邏輯模型。 下面以數(shù)據(jù)流圖和數(shù)據(jù)字典的方式來描述新系統(tǒng)的邏輯功能。 3． 數(shù)據(jù)流圖 3． 1． 3 數(shù)據(jù)字典： 下面為借書業(yè)務流程圖中的每一部分編制數(shù)據(jù)字典。 （ 1）數(shù)據(jù)元素：每個客戶都有編號這個信息，其描述內(nèi)容如下： 數(shù)據(jù)元素名稱：編號 類型：字符 長度： 9 數(shù)據(jù)值類型：字符 取值范圍： 9 個字符以內(nèi) 相關的數(shù)據(jù)結(jié)構(gòu)： {姓名，性別，單位，職務，電話，地址，類型 } （ 2）數(shù)據(jù)流。數(shù)據(jù)流“客戶信息”條目如下： 數(shù)據(jù)流名稱：借戶信息 說明：客戶的個人信息 數(shù)據(jù)流來源：客戶 數(shù)據(jù)流去向：客戶管理人員 數(shù)據(jù)流組成：｛ 客戶號｝ 數(shù)據(jù)流的流通量：大約 10位 /天 （３）數(shù)據(jù)存儲：數(shù)據(jù)存儲“客戶情況”條目如下： 數(shù)據(jù)存儲名稱：客戶情況 簡述：存放的是每個客戶的個人情況 輸入數(shù)據(jù)：客戶情況 數(shù)據(jù)存儲組成：｛客戶編號，姓名，客戶類型｝ 存儲方式：按客戶的客戶編號順序排列 （４）數(shù)據(jù)處理。數(shù)據(jù)處理“查詢客戶”條目如下： 數(shù)據(jù)處理名稱：查詢客戶 數(shù)據(jù)處理編號：１ .１ 簡要描述：根據(jù)客戶的編號，姓名，性別，職務，客戶類型 輸入數(shù)據(jù)流：客戶查詢信息 輸出數(shù)據(jù)流：查詢結(jié)果 處理邏輯：根據(jù)客戶的編號，姓名，性別，職務，客戶類型進行查詢。 3． 2 軟件模塊結(jié)構(gòu)設計 3． 2． 1 系統(tǒng)方案確定。通過對系統(tǒng)調(diào)研與分析，系統(tǒng)主要應完成的功能如下：客戶信息錄入、客戶信息查詢、系統(tǒng)維護等三大模塊。 3． 2． 2 軟件結(jié)構(gòu)設計?？蛻艄芾硐到y(tǒng)包含客戶錄入、客戶查詢、系統(tǒng)維護等功能。該系統(tǒng)執(zhí)行時，先錄入數(shù)據(jù)，然后根據(jù)客戶的個人信息可以進行查詢以及按照相同的屬于進行排序，并可將結(jié)果進行預覽?？蛻艄芾硐到y(tǒng)屬于典型的事務型系統(tǒng)，其系統(tǒng)示意圖如下圖所示： 客戶管理系統(tǒng)示意圖 系統(tǒng)結(jié)構(gòu)圖示意如下： 接受數(shù)據(jù) 事務中心 客戶錄入 客戶查詢 客戶排序 客戶資料瀏覽 輸入客戶信息 備份 恢復 客戶管理系統(tǒng) 客戶采編 客戶查詢 數(shù)據(jù)處理 客戶資料瀏覽 客戶管理系統(tǒng)結(jié)構(gòu)圖 系統(tǒng)功能圖如下 3． 3 數(shù)據(jù)庫設計 數(shù)據(jù)庫采用了 Microsoft 推出的 Visual Foxpro 自帶的數(shù)據(jù)庫，這是微軟集成到VFP 中的一個桌面數(shù)據(jù)庫，能夠快速方便的和 Office 的其他套件綜合使用。由客戶管理系統(tǒng) 系統(tǒng)登陸 客戶信息錄入 客戶信息查詢 用戶管理 添加 新增 刪除 恢復 按編號 按姓名 用戶添加 密碼修改 用戶刪除 群組設置 退出系統(tǒng) 于 VFP 具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用它作為后臺數(shù)據(jù)庫。使用它的好處還在于，如果你的系統(tǒng)擴展到 Client/Server 模式的時候，可以使用 Microsoft 的數(shù)據(jù)庫服務器軟件 SQL Server，此時，程序只需要簡單的修改一下鏈接（ ADO 的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴展提供了非常有力的條件。 本系統(tǒng)涉及到的實體：（共有三個數(shù)據(jù)表，分別為： ， ， ）。 (1)本系統(tǒng)中所涉及到的主要實體及其屬性有： （客戶）表： {編號，姓名，單位，性別，職務，電話，手機，消費意向，個人愛好等 } (2)本系統(tǒng)的實體 聯(lián)系（ ER）圖 為了使 ER圖表示得更加清晰，現(xiàn)將 ER圖分成實體及其屬性圖和實體及其聯(lián)系圖。分別如下圖所示： 編號 姓名 性別 職務 電話 客戶管理 手機 消費意向 生日 個人愛好 工作單位 各表的物理結(jié)構(gòu)如下： kh（客戶）表： 字段名稱 類型 寬度 小數(shù)位數(shù) 編號 字符 10 0 姓名 字符 8 0 單位 字符 20 0 性別 字符 2 0 電話 字符 11 0 手機 字符 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)登陸界面： 雙擊圖標運行程序以后，就可以看到程序的登錄界面。需要通過系統(tǒng)管理驗證，即輸入正確的密碼進行系統(tǒng)登陸，本系統(tǒng)默認的密碼為 0。當然，用戶可以在系統(tǒng)登錄時為了防止系統(tǒng)密碼的泄露而可以進行對密碼的及時修改和更新。 代碼如下： Private Sub Command1_Click() If Trim() = Trim() And Trim() = Trim() Then 39。用戶名和密碼 Unload Me Else For X = 1 To 1 39。錯誤出現(xiàn) 3 次， If = True Then MsgBox 密碼錯誤請重新登錄 , 16, 錯誤： = = = 1 39。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。End End Sub Private Sub Form_Load() = End Sub 4． 2 系統(tǒng)主界面： 在系統(tǒng)登錄成功之后，就會看到系統(tǒng)的主界面如下所示 ： 在本系統(tǒng)主界面中，我們可以看到一個 MDI 窗體，用戶在使用時只需要點擊鼠標左鍵就可以進入相應的功能選項，快捷而方便，從這個窗體上可以清楚地看到本系統(tǒng)所具備的三個主要主要功能，即客戶數(shù)據(jù)錄入，客戶數(shù)據(jù)查詢及設置三大功能模塊。 代碼如下： Private Sub A1_Click() Unload Me 39。關閉當前窗體 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 = 輸入群組名進行查詢 End Sub Privat