【正文】 s memory。 for as iron sharpens iron, so by glory one courage sharpeh another. In cases of great enterprise, upon charge and adventure, a position of glorious natures doth put life into business。 there are sometimes great effects of cross lies。 but according to die French proverb。s night through the air to Amack. They sit backwards on their painting b all lapse of time, and had bee a cipher and a nothing. Then three alone, or moveth upon greater means, if they have never so little hand in it, they think it is they that carry it They that are glorious, must needs be factious。s eve, to the Brocken。s diversion, namely, the wild hunt to Amack. Ah, you don39。s really a pleasure now and then to bee a mere nothing, especially when a man is as highly placed as I am. And then to think that we all, even with patent lacquer, are nothing more than insects of a moment on that anthill the earth, though we may be insects with stars and garters, places and offices! One feels quite a novice beside these venerable millionyearold boulders. On last New Year39。 54 Of Vainglory It was prettily devised of Aesop。用 Allow Add等屬性實(shí)現(xiàn)在控件中加入、刪除記錄等功能。 xviii. Data 控件 主要用于數(shù)據(jù)庫(kù)內(nèi)容的綁定，主要屬性有 Connect, Database Name, Record Source 屬性。 xvi. WebBrowser 控件 是一個(gè) Activex控件通過(guò)它可以把 Inter的瀏覽功能加到應(yīng)用程序中，在 Visual Basic 的窗體上顯示 Web 文檔，最常用的方法是Navigate 方法，該方法用來(lái)移到 URL或打開(kāi) HTML 文件。 xiv. Command Button 控件 是一種常用的控件，主要有 Caption 屬性，它決定顯示在命令按鈕上的文字， Click 事件是最常用的事件。 xii. TextBox 控件 Text Box 控件用來(lái)在程序中提供一個(gè)文本框，可以顯示或輸入文本，它也是程序用戶(hù)進(jìn)行交互的常用方式，比如要求用戶(hù)輸入密碼、查詢(xún)條件等，甚至允許用戶(hù)進(jìn)行大段的文本編輯操作。實(shí)現(xiàn)的方法是將窗 的 StartUpPosition 屬性值設(shè)置為“ 2屏幕中心”。 如果使用 MDI 窗體 運(yùn)用了 VB 中的 MDI 窗體來(lái)實(shí)現(xiàn)本程序，即多文檔窗體的應(yīng)用，將每個(gè)子窗體的 Mdichild的屬性值設(shè)置為“ True”。 參 考文獻(xiàn)： 8. 網(wǎng)冠科技 . Visual Basic 時(shí)尚編程百例 . 北京：機(jī)械工業(yè)出版社， 2021 9. Carl Franklin，（瀟湘工作室 譯） .Visual Basic Inter 編程指南 .北京人民郵電出版社， 1999 10. 朱錦坤，紀(jì)哲銳 .Visual Basic 多媒體與因特網(wǎng)應(yīng)用 . 北京：清華大學(xué)出版社， 1999 11. 馬錦忠，陸正康等 .數(shù)據(jù)庫(kù)系統(tǒng)概論 .南京：南京大學(xué)出版社， 1995 12. 沈德金，陳粵初 .MCS51 系列單片機(jī)接口電路與應(yīng)用程序?qū)嵗?. 北京：北京航天航空大學(xué)出版社， 1991 13. 薛鈞義等 .MCS51/96 系列單片機(jī)微型計(jì)算機(jī)及其應(yīng)用 . 西安： 西安交大出版社 14. 陳春玲 .軟件工程與數(shù)據(jù)庫(kù)概論 . 西電科大版， 1999 附 錄 A 關(guān)于系統(tǒng)結(jié)構(gòu)的幾點(diǎn)說(shuō)明 1 鍵盤(pán)的處理 可以這么說(shuō)，在 windows 里，最快的操作是鼠標(biāo)鍵盤(pán)，而不是只有一種輸入設(shè) 掌握鍵盤(pán)的處理，將會(huì)使程序增色不少。 沒(méi)有彈性的分析和“一卡通”運(yùn)行過(guò)程中存在的問(wèn)題等等，這些問(wèn)題都因?yàn)闀r(shí)間的關(guān)系和自身 掌握的知識(shí)不夠多，不夠熟練而沒(méi)有完善。 Office中的 Access數(shù)據(jù)庫(kù)一致 ,而且簡(jiǎn)單易學(xué) .不僅如此 VB6 有基于 Web 的應(yīng)用 ,這架起了和遠(yuǎn)程通信的橋梁。 這次畢業(yè)設(shè)計(jì)采用 Visual Basic 語(yǔ)言（以下簡(jiǎn)稱(chēng) VB）編寫(xiě)， VB簡(jiǎn)單易學(xué)，容易掌握，而且也容易理解，尤其是它面向?qū)ο蟮木幊谭匠?，更讓人覺(jué)得直觀不煩瑣，一目了然。“書(shū)到用時(shí)方恨少”這句話(huà)在這次畢業(yè)設(shè)計(jì)中表現(xiàn)得淋漓盡致，一開(kāi)始做畢業(yè)設(shè)計(jì)時(shí)，不夠重視，認(rèn)為肯定能行，但做到最后，情況越糟 ， 甚至有一段時(shí)間讓我覺(jué)得有點(diǎn)手足無(wú)措了，幸好有朋友的幫助，再加上自己“亡羊補(bǔ)牢”式地惡補(bǔ)，才沒(méi)有出現(xiàn)讓人不滿(mǎn)意的結(jié)果。但是同時(shí)也讓我了解了到自身的許多不足， 也發(fā)現(xiàn)了以前對(duì)這門(mén)語(yǔ)言學(xué)得不透徹，沒(méi)有很好地重視它，掌握它。 6． 6． 2 模塊功能 增加操作員，操作員的操作權(quán)限設(shè)定，修改和刪除操作員，操作員修改密碼。數(shù)據(jù)備分時(shí)是系統(tǒng)自動(dòng)根據(jù)當(dāng)日日期加數(shù)據(jù)庫(kù)的名稱(chēng)合起來(lái)組成新的文件名，即備份數(shù)據(jù)文件名。根據(jù)操作的需要進(jìn)行定期的操作口令修改，提高保密性。其中操作員管理這個(gè)分支 模塊是根據(jù)操作員的身份進(jìn)行操作權(quán)限的設(shè)置。 模塊功能 實(shí)現(xiàn)報(bào)表的處理，把卡的信息，管理員日志，預(yù)付金額信息體現(xiàn)出來(lái)，并打印。 按網(wǎng)點(diǎn)查詢(xún)用戶(hù)消費(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)用。 卡信息查詢(xún) 用戶(hù)消費(fèi)查詢(xún) 操作員信息查詢(xún) 按日期查詢(xún)消費(fèi)情況 卡查詢(xún) 新卡 補(bǔ)卡 掛失卡 教工卡 學(xué)生卡 其它 操作員基本信息 操作員日志 食堂 機(jī)房 浴室 超市 圖書(shū)館 用戶(hù)消費(fèi)查詢(xún)：根據(jù)用戶(hù)輸 入的姓名、學(xué)號(hào)以及系別可以查詢(xún)用戶(hù)在食堂、機(jī)房、浴室、超市以及圖書(shū)館消費(fèi)的金額。 模塊流程 信息查詢(xún)分類(lèi) 卡信息查詢(xún)：可以查詢(xún)新卡、補(bǔ)卡、掛失卡、教工卡以及學(xué)生卡等有關(guān)詳細(xì)資料?？梢圆樵?xún)操作員的信息。 模塊功能 具體實(shí)現(xiàn)數(shù)據(jù)查詢(xún)，對(duì)辦卡、補(bǔ)辦、掛失與解掛，卡的身份進(jìn)行查詢(xún)，很客觀的 把數(shù)據(jù)庫(kù)中的內(nèi)容體現(xiàn)出來(lái)。 查詢(xún)模塊 設(shè)計(jì)思想 利用 VB 中的 Data 數(shù)據(jù)庫(kù)控件和 ADO 數(shù)據(jù)控件 Adodc 數(shù)據(jù)控件并結(jié)合 SQL相關(guān)數(shù) 據(jù)操作命令 ,進(jìn)行數(shù)據(jù)查詢(xún)。如果此卡 已被掛失，那么此卡將處于冰凍狀態(tài)（不能被消費(fèi)）。 5. 回收卡 有發(fā)行新卡當(dāng)然也就有回收卡，回收卡就是相對(duì)于畢業(yè)生來(lái)說(shuō)，人畢業(yè)了，卡管理 發(fā)行新卡 預(yù)付金額 掛失 /解掛 補(bǔ)辦卡 回收卡 卡就得回收 ,回收的卡將從數(shù)據(jù)庫(kù)里清除所以有關(guān)信息。如果并沒(méi)有處于掛失狀態(tài)下就不能被補(bǔ)辦， 系統(tǒng)將自動(dòng)提醒用戶(hù)。根 據(jù)對(duì)話(huà)框輸入相對(duì)于自己的個(gè)人信息，然后將存入數(shù)據(jù)庫(kù)中。消費(fèi)者消費(fèi)多少金額，系統(tǒng)將自動(dòng)從中扣除多少金額。 6. 卡消費(fèi) 卡消費(fèi)是消費(fèi)者在各部門(mén)消費(fèi)的金額數(shù)，如：餐廳、機(jī)房、圖書(shū)館、洗浴和超市。不能對(duì)負(fù)值和零充值。 \ ’ 自動(dòng)搜索數(shù)據(jù)源 發(fā)行新卡： If Then’ 判斷此卡號(hào)是否在庫(kù)中存在 MsgBox 此卡號(hào)已存在 !, , 卡管理 Else (標(biāo)記 ) = 1’ 新卡標(biāo)記 ’ 發(fā)行新卡 預(yù)付金額： (金額 ) = ’ 預(yù)付金額 是合法用戶(hù) 進(jìn)入主界面 結(jié) 束 分配權(quán)限 掛失與解掛： (標(biāo)記 ) = 1’ 掛失標(biāo)記 (標(biāo)記 ) = 1’ 解掛標(biāo)記 補(bǔ)辦與回收： ’ 回收卡 模塊流程 卡模塊分類(lèi) 卡管理模塊包括 :預(yù)付金額、卡消費(fèi)、發(fā)行新卡、補(bǔ)辦卡、回收卡和掛失 /撤消掛失。 模塊功能 模塊功能：預(yù)付金額，發(fā)行新卡，補(bǔ)辦卡，掛失與撤消掛失，卡回收等。在對(duì)掛失卡的處理，只要此卡號(hào)處于掛失狀態(tài)，在消費(fèi)，預(yù)付金額，卡回收時(shí)都有限制。 If Then If TIM = 3 Then MsgBox 密碼輸入錯(cuò)誤 ,請(qǐng)向系統(tǒng)管理員查詢(xún) !, 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)始 輸入用戶(hù)名和密碼 驗(yàn)證用戶(hù) Y 設(shè)計(jì)思想 運(yùn)用 VB中的 Data 數(shù)據(jù)控件對(duì)數(shù)據(jù)庫(kù)進(jìn)行增加，修改，刪除等操作。 () amp。 相關(guān)代碼 系統(tǒng)登錄相關(guān)代碼： = select * from 管理員 管理代碼 = 39。 5 系統(tǒng)的功能及結(jié)構(gòu) 1. 卡管理，查詢(xún)，報(bào)表，系統(tǒng)管理 2. 較強(qiáng)的操作 性，快捷方便 3. 可設(shè)置大金額密碼功能 7. 可按人分部門(mén)設(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ù)付金額 按用戶(hù)查詢(xún)用戶(hù)消費(fèi)情況 查詢(xún)操作員情況 按日期查詢(xún)收入情況 按網(wǎng)點(diǎn)查詢(xún)用戶(hù)情況 查詢(xún)卡情況 卡信息 消費(fèi)信息 日志 操作員管理 數(shù)據(jù)備份 數(shù)據(jù)恢復(fù) 卡管理 查 詢(xún) 報(bào) 表 系統(tǒng)管理 表名及字段設(shè)置 ?管理員 表 管理員 字段名稱(chēng) 管理代碼 管理密碼 管理權(quán)限 字段值 字符 字符 字符 字段名稱(chēng) 字段值 卡號(hào) 字符 學(xué)號(hào) 字符 系別 字符 班級(jí) 字符 姓名 字符 金額 字符 身份 字符 標(biāo)記 字符 日期 字符 補(bǔ)辦標(biāo)記 字符 字段名稱(chēng) 字段值 卡號(hào) 字符 消費(fèi)金額 字符 日期 字符 預(yù)付金額 字符 設(shè)計(jì)思想 運(yùn)用操作員代碼和操作員口令進(jìn)行系統(tǒng)的初步登錄，并根據(jù)相應(yīng)的操作代碼分配相應(yīng)的管理權(quán)限。注意：如果對(duì)數(shù)據(jù)庫(kù)對(duì)象使用 Close 方法，則由于在 Microsoft Jet 數(shù)據(jù)庫(kù)引擎內(nèi)部