【正文】 少網(wǎng)絡(luò)的通信量，明顯提高數(shù)據(jù)傳輸效率。 遠(yuǎn)程數(shù)據(jù)訪問(wèn) 在 VB中，用數(shù)據(jù)庫(kù)引擎和數(shù)據(jù)訪問(wèn)對(duì)象 DAO 可以創(chuàng)建功能強(qiáng)大的客戶 /服務(wù)器應(yīng)用程序。對(duì)遠(yuǎn)程數(shù)據(jù)庫(kù)的訪問(wèn)是開(kāi)發(fā)這類應(yīng)用程序的關(guān)鍵，本文將介紹在VB中用 DAO 通過(guò)數(shù)據(jù)庫(kù)引擎訪問(wèn)遠(yuǎn)程數(shù)據(jù)庫(kù)的方法。 用 DAO 訪問(wèn)遠(yuǎn)程數(shù)據(jù)庫(kù)可以通過(guò)三步來(lái)實(shí)現(xiàn)，即數(shù)據(jù)連 接、數(shù)據(jù)處理和斷開(kāi)連接。下面主要介紹數(shù)據(jù)連接和數(shù)據(jù)處理的具體操作。 數(shù)據(jù)連接 DAO 通過(guò)鏈接遠(yuǎn)程表的方式來(lái)進(jìn)行數(shù)據(jù)連接。這樣，數(shù)據(jù)雖然駐留在遠(yuǎn)程數(shù)據(jù)源上，但在本地的數(shù)據(jù)庫(kù)中可以存儲(chǔ)與遠(yuǎn)程數(shù)據(jù)的永久性連接，同時(shí)緩存鏈接的表結(jié)構(gòu)信息，從而在下一次訪問(wèn)該表時(shí)， 不用再次從服務(wù)器中檢索這些結(jié)構(gòu)信息，加快了連接速度。一旦鏈接了一個(gè)表，該鏈接便會(huì)保留在各會(huì)話期間，直到連接斷開(kāi)。鏈接遠(yuǎn)程表的具體操作是： 用 Open Database 方法打開(kāi)將要包含該鏈接的本地?cái)?shù)據(jù)庫(kù)，用 CreateTableDef 方 法在該數(shù)據(jù)庫(kù)中創(chuàng)建一個(gè)新的 TableDef 對(duì)象，將 TableDef 對(duì)象的 Connect 屬性設(shè)置為一個(gè)合法的連接字符串，標(biāo)識(shí)要訪問(wèn)的遠(yuǎn)程數(shù)據(jù)庫(kù)類型、數(shù)據(jù)文件的路徑以及用戶名和遠(yuǎn)程數(shù)據(jù)源密碼等。將 TableDef 對(duì)象的 SourceTableName 屬性設(shè)置為遠(yuǎn)程數(shù)據(jù)庫(kù)中要訪問(wèn)的表的名稱。 添加 TableDef 對(duì)象到 TableDefs 集合中。 數(shù)據(jù)處理 數(shù)據(jù)連接建立后，可以用 OpenRecordset 方法打開(kāi)一個(gè)記錄集，并可用 DBGrid 控件和 Data 控件方便地瀏覽整個(gè)記錄集。 如果使用表類型（ Tabletype）記錄對(duì)象，則對(duì)應(yīng)的是一個(gè)實(shí)際存在的數(shù)據(jù)庫(kù)表，在多用戶環(huán)境下，其它用戶對(duì)數(shù)據(jù)的修改會(huì)立即反映到表中；如果使用動(dòng)態(tài)集類型（ Dynasettype）記錄對(duì)象，則對(duì)應(yīng)的既可以是一個(gè)表中全部記錄，又可以是一個(gè)查詢的結(jié)果，并且可以更新記錄集中的記錄；如果使用快照類型（ Snapshottype）記錄對(duì)象，則對(duì)應(yīng)的可以是表中的全部記錄，也可以是一個(gè)查詢結(jié)果，但不能進(jìn)行記錄的增加、刪除和修改操作。此外，還可以建立其它類型的記錄對(duì)象，如僅向前型（ Forward Onlytype）記錄 對(duì)象和動(dòng)態(tài)型（ Dynamictype）記錄對(duì)象。 斷開(kāi)連接可以通過(guò)關(guān)閉應(yīng)用程序或設(shè)置連接超時(shí)來(lái)實(shí)現(xiàn)。注意：如果對(duì)數(shù)據(jù)庫(kù)對(duì)象使用 Close 方法，則由于在 Microsoft Jet 數(shù)據(jù)庫(kù)引擎內(nèi)部緩存了連接，實(shí)際上連接并未取消 。 客戶端利用 Winsock 的 Send Data 方法將待查內(nèi)容發(fā)送到服務(wù)器端，服務(wù)器端利用 data 控件對(duì)數(shù)據(jù)庫(kù)進(jìn)行查詢，最終利用 Winsock 的 Send Data 方法將查詢結(jié)果發(fā)送到客戶端。 5 系統(tǒng)的功能及結(jié)構(gòu) 1. 卡管理，查詢，報(bào)表，系統(tǒng)管理 2. 較強(qiáng)的操作 性，快捷方便 3. 可設(shè)置大金額密碼功能 7. 可按人分部門設(shè)置管理限權(quán) 8. 可多機(jī)聯(lián)網(wǎng)使用 6. 可 24 小時(shí)全天候運(yùn)營(yíng) 9. 可備份，還原數(shù)據(jù) 系統(tǒng)的總體結(jié)構(gòu)圖 數(shù)據(jù)庫(kù)為： Access2021 庫(kù)名： 服務(wù)務(wù)器 掛失與撤消掛失 回收卡 補(bǔ)辦卡 發(fā)行新卡 卡消費(fèi) 預(yù)付金額 按用戶查詢用戶消費(fèi)情況 查詢操作員情況 按日期查詢收入情況 按網(wǎng)點(diǎn)查詢用戶情況 查詢卡情況 卡信息 消費(fèi)信息 日志 操作員管理 數(shù)據(jù)備份 數(shù)據(jù)恢復(fù) 卡管理 查 詢 報(bào) 表 系統(tǒng)管理 表名及字段設(shè)置 ?管理員 表 管理員 字段名稱 管理代碼 管理密碼 管理權(quán)限 字段值 字符 字符 字符 字段名稱 字段值 卡號(hào) 字符 學(xué)號(hào) 字符 系別 字符 班級(jí) 字符 姓名 字符 金額 字符 身份 字符 標(biāo)記 字符 日期 字符 補(bǔ)辦標(biāo)記 字符 字段名稱 字段值 卡號(hào) 字符 消費(fèi)金額 字符 日期 字符 預(yù)付金額 字符 設(shè)計(jì)思想 運(yùn)用操作員代碼和操作員口令進(jìn)行系統(tǒng)的初步登錄，并根據(jù)相應(yīng)的操作代碼分配相應(yīng)的管理權(quán)限。 模塊功能 進(jìn)行系統(tǒng)的登錄時(shí)，用戶和密碼都將以“ *”顯示，這樣可以為系統(tǒng)提高一定的安全性，系統(tǒng)還具體管理權(quán)限的分配。 相關(guān)代碼 系統(tǒng)登錄相關(guān)代碼： = select * from 管理員 管理代碼 = 39。 amp。 () amp。 39。 If Then If TIM = 3 Then MsgBox 密碼輸入錯(cuò)誤 ,請(qǐng)向系統(tǒng)管理員查詢 !, 0, 系統(tǒng)管理 End If If = Then MsgBox 請(qǐng)輸入操作員代號(hào) !, , 系統(tǒng)管理 End If If (管理密碼 ) Then MsgBox 密碼錯(cuò)誤 ,請(qǐng)重新輸入密碼 !, , 系統(tǒng)管理 模塊流程 N 開(kāi)始 輸入用戶名和密碼 驗(yàn)證用戶 Y 設(shè)計(jì)思想 運(yùn)用 VB中的 Data 數(shù)據(jù)控件對(duì)數(shù)據(jù)庫(kù)進(jìn)行增加，修改，刪除等操作。在這些操作中，為了讓一些卡管理功能能具別清楚，把新卡，補(bǔ)辦卡，掛失卡與撤消掛失，卡回收分別做了相應(yīng)的標(biāo)記 ，如：新卡標(biāo)記為“１”，補(bǔ)辦卡標(biāo)記為“０”，身份，教工用“－１”，學(xué)生卡用“１”，其它用“０”以便查詢和身份的具別。在對(duì)掛失卡的處理，只要此卡號(hào)處于掛失狀態(tài)，在消費(fèi)，預(yù)付金額，卡回收時(shí)都有限制。在對(duì)此模塊中的操作都是先經(jīng)過(guò)數(shù)據(jù)庫(kù)中的查詢命來(lái)實(shí)現(xiàn)，并進(jìn)行相應(yīng)的操作。 模塊功能 模塊功能：預(yù)付金額，發(fā)行新卡，補(bǔ)辦卡，掛失與撤消掛失，卡回收等。 相關(guān)代碼 = amp。 \ ’ 自動(dòng)搜索數(shù)據(jù)源 發(fā)行新卡： If Then’ 判斷此卡號(hào)是否在庫(kù)中存在 MsgBox 此卡號(hào)已存在 !, , 卡管理 Else (標(biāo)記 ) = 1’ 新卡標(biāo)記 ’ 發(fā)行新卡 預(yù)付金額： (金額 ) = ’ 預(yù)付金額 是合法用戶 進(jìn)入主界面 結(jié) 束 分配權(quán)限 掛失與解掛： (標(biāo)記 ) = 1’ 掛失標(biāo)記 (標(biāo)記 ) = 1’ 解掛標(biāo)記 補(bǔ)辦與回收： ’ 回收卡 模塊流程 卡模塊分類 卡管理模塊包括 :預(yù)付金額、卡消費(fèi)、發(fā)行新卡、補(bǔ)辦卡、回收卡和掛失 /撤消掛失。 5. 付金額 預(yù)付金額是對(duì)卡進(jìn)行充值的，只要所充的值一定要大于零。不能對(duì)負(fù)值和零充值。如果輸入的值小于等于零，系統(tǒng)提示：不能充負(fù)值。 6. 卡消費(fèi) 卡消費(fèi)是消費(fèi)者在各部門消費(fèi)的金額數(shù)，如：餐廳、機(jī)房、圖書館、洗浴和超市?？ㄏM(fèi)是卡管理的主要功能。消費(fèi)者消費(fèi)多少金額，系統(tǒng)將自動(dòng)從中扣除多少金額。 7. 發(fā)行新卡 發(fā)行新卡這一部分是必然的，每一年都有新生到這個(gè)學(xué)校，當(dāng)然也要辦新卡。根 據(jù)對(duì)話框輸入相對(duì)于自己的個(gè)人信息，然后將存入數(shù)據(jù)庫(kù)中。 8. 補(bǔ)辦卡 補(bǔ)辦卡是必須要此卡處于掛失狀態(tài)下才能補(bǔ)辦卡。如果并沒(méi)有處于掛失狀態(tài)下就不能被補(bǔ)辦， 系統(tǒng)將自動(dòng)提醒用戶。也就是說(shuō)一個(gè)用戶只能擁有一張卡。 5. 回收卡 有發(fā)行新卡當(dāng)然也就有回收卡，回收卡就是相對(duì)于畢業(yè)生來(lái)說(shuō)，人畢業(yè)了，卡管理 發(fā)行新卡 預(yù)付金額 掛失 /解掛 補(bǔ)辦卡 回收卡 卡就得回收 ,回收的卡將從數(shù)據(jù)庫(kù)里清除所以有關(guān)信息。 9. 掛失 /撤消掛失 掛失 /撤消掛失也是一項(xiàng)必不可少的一項(xiàng)，當(dāng)然有掛失就有撤消掛失。如果此卡 已被掛失，那么此卡將處于冰凍狀態(tài)（不能被消費(fèi)）。撤消掛失就是將處于冰凍狀態(tài)的卡化解。 查詢模塊 設(shè)計(jì)思想 利用 VB 中的 Data 數(shù)據(jù)庫(kù)控件和 ADO 數(shù)據(jù)控件 Adodc 數(shù)據(jù)控件并結(jié)合 SQL相關(guān)數(shù) 據(jù)操作命令 ,進(jìn)行數(shù)據(jù)查詢。通 過(guò) Data Grid 網(wǎng)格表格顯示。 模塊功能 具體實(shí)現(xiàn)數(shù)據(jù)查詢，對(duì)辦卡、補(bǔ)辦、掛失與解掛，卡的身份進(jìn)行查詢，很客觀的 把數(shù)據(jù)庫(kù)中的內(nèi)容體現(xiàn)出來(lái)。可以按時(shí)間來(lái)查詢各項(xiàng)內(nèi)容的使用情況?？梢圆樵儾僮鲉T的信息。按網(wǎng)點(diǎn)查詢用戶消費(fèi)情況，查詢用戶使用情況。 模塊流程 信息查詢分類 卡信息查詢：可以查詢新卡、補(bǔ)卡、掛失卡、教工卡以及學(xué)生卡等有關(guān)詳細(xì)資料。 操作員信息查詢：查詢操作員的基本信息和操作員日志。 卡信息查詢 用戶消費(fèi)查詢 操作員信息查詢 按日期查詢消費(fèi)情況 卡查詢 新卡 補(bǔ)卡 掛失卡 教工卡 學(xué)生卡 其它 操作員基本信息 操作員日志 食堂 機(jī)房 浴室 超市 圖書館 用戶消費(fèi)查詢：根據(jù)用戶輸 入的姓名、學(xué)號(hào)以及系別可以查詢用戶在食堂、機(jī)房、浴室、超市以及圖書館消費(fèi)的金額。 按日期查詢消費(fèi)情況：根據(jù)日期一個(gè)日期范圍，查詢?cè)撊掌诜秶邢M(fèi)情況。 按網(wǎng)點(diǎn)查詢用戶消費(fèi)情況 6． 5 報(bào)表模塊 設(shè)計(jì)思想 運(yùn)用 VB中的 Data Environment數(shù)據(jù)環(huán)境設(shè)計(jì)器與 ODBC數(shù)據(jù)源，再加上 Data Report 的運(yùn)用。實(shí)現(xiàn)報(bào)表的處理，把卡的信息，管理員日志，預(yù)付金額信息體現(xiàn)出來(lái)，并打印。 模塊功能 實(shí)現(xiàn)報(bào)表的處理，把卡的信息，管理員日志，預(yù)付金額信息體現(xiàn)出來(lái)，并打印。 模塊流 程 6． 6 系統(tǒng)管理模塊 6． 6． 1 設(shè)計(jì)思想 此模塊主要是對(duì)系統(tǒng)的安全性和保密性進(jìn)行設(shè)計(jì)的。其中操作員管理這個(gè)分支 模塊是根據(jù)操作員的身份進(jìn)行操作權(quán)限的設(shè)置。數(shù)據(jù)恢復(fù)和數(shù)據(jù)還原有一定的數(shù)據(jù)安全性，不為防止不丟失數(shù)據(jù)而做的。根據(jù)操作的需要進(jìn)行定期的操作口令修改，提高保密性?？梢栽黾雍蛣h除操作員。數(shù)據(jù)備分時(shí)是系統(tǒng)自動(dòng)根據(jù)當(dāng)日日期加數(shù)據(jù)庫(kù)的名稱合起來(lái)組成新的文件名，即備份數(shù)據(jù)文件名。報(bào)表 卡信息 消費(fèi)信息 日志 在權(quán)限設(shè)定時(shí)分為系統(tǒng)管理員，系統(tǒng)操作員，普通操作員，一般用戶，分別用 1， 2， 3， 4 來(lái)代表，進(jìn)入系統(tǒng)時(shí)，會(huì) 自動(dòng)檢測(cè)該用戶的權(quán)限并分給想應(yīng)的操作權(quán)限。 6． 6． 2 模塊功能 增加操作員，操作員的操作權(quán)限設(shè)定，修改和刪除操作員，操作員修改密碼。 相關(guān)代碼： 增加操作員： (管理代碼 ) = (管理密碼 ) = 修改密碼： ( 管理密碼 ) = 模塊流程： 系統(tǒng)管理 操作員管理 數(shù)據(jù)備份 數(shù)據(jù)恢復(fù) 結(jié) 論 通過(guò)這次畢業(yè)設(shè)計(jì)，使我更進(jìn)一步地掌握了 Visual Basic 這門語(yǔ)言，對(duì)它的功能以及應(yīng)用有了更深一步的了解，對(duì)它的操縱更熟練了。但是同時(shí)也讓我了解了到自身的許多不足， 也發(fā)現(xiàn)了以前對(duì)這門語(yǔ)言學(xué)得不透徹，沒(méi)有很好地重視它，掌握它。通過(guò)這次畢業(yè)設(shè)計(jì)，雖然比起以前有了很大的進(jìn)步，但還是了解得不夠，學(xué)習(xí)得不夠，今后要更加努力學(xué)習(xí)好一些基礎(chǔ)的知識(shí)，以備在需要的時(shí)候發(fā)揮自身的才能?！皶接脮r(shí)方恨少”這句話在這次畢業(yè)設(shè)計(jì)中表現(xiàn)得淋漓盡致，一開(kāi)始做畢業(yè)設(shè)計(jì)時(shí)，不夠重視，認(rèn)為肯定能行，但做到最后，情況越糟 ， 甚至有一段時(shí)間讓我覺(jué)得有點(diǎn)手足無(wú)措了，幸好有朋友的幫助，再加上自己“亡羊補(bǔ)牢”式地惡補(bǔ)，才沒(méi)有出現(xiàn)讓人不滿意的結(jié)果。這