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