【正文】 s head。 he remembered his effort to open a coconuthe had failed, but it was surely not impossible. His mind was hazy as to what a coconut might contain, but there had to be an edible core, because they were eaten in books. H e decided to make a wide sweep through the jungle that would bring him back to the beach well away from Ignacio。 he was not as strong as he had been only a day past, and by this time next day he would probably be unable to outrun Ignacio. He should, he now realized, have eaten the monkey he had ki lled。 there was only the green hush. The light was still bright and strong and nearly, shadowless, but some interior sense told him the day, was nearly over, and he noticed that such faint shades as he could see stretched long, hor izontal distortions of their objects. He felt no hunger, but he had fasted be39。 there was none. He drew a deep breath then and said, Well, that39。 . sound in an atmosphere silent and unwa ked as Earth39。t run, N icholas, Dr. Island said with the voice of a wave. It only makes him angry that you run. N icholas did not answer, but cut to his left, up the beach and among the trunks of the palms, sprinting all the way because he had no way of knowing Ignacio was not right behind him, about to grab him by the neck. When he stopped it was in the thick jungle, among the boles of the hardwoods, where he leaned,.。 words, realizing that they were a signal, he turned and began to run, splashing through the shallow water. Ignacio ran after him, much helped by his longer legs, his hair flying behind his dark young face, his square teetheach white as a bone and as big as Nicholas39。 Are you hungry now? No, I am tired and lazy now。用 Allow Add等屬性實(shí)現(xiàn)在控件中加入、刪除記錄等功能。 xviii. Data 控件 主要用于數(shù)據(jù)庫內(nèi)容的綁定，主要屬性有 Connect, Database Name, Record Source 屬性。 xvi. WebBrowser 控件 是一個(gè) Activex控件通過它可以把 Inter的瀏覽功能加到應(yīng)用程序中，在 Visual Basic 的窗體上顯示 Web 文檔，最常用的方法是Navigate 方法，該方法用來移到 URL或打開 HTML 文件。 xiv. Command Button 控件 是一種常用的控件，主要有 Caption 屬性，它決定顯示在命令按鈕上的文字， Click 事件是最常用的事件。 xii. TextBox 控件 Text Box 控件用來在程序中提供一個(gè)文本框，可以顯示或輸入文本，它也是程序用戶進(jìn)行交互的常用方式，比如要求用戶輸入密碼、查詢條件等，甚至允許用戶進(jìn)行大段的文本編輯操作。實(shí)現(xiàn)的方法是將窗 的 StartUpPosition 屬性值設(shè)置為“ 2屏幕中心”。 如果使用 MDI 窗體 運(yùn)用了 VB 中的 MDI 窗體來實(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ù)庫系統(tǒng)概論 .南京：南京大學(xué)出版社， 1995 12. 沈德金，陳粵初 .MCS51 系列單片機(jī)接口電路與應(yīng)用程序?qū)嵗?. 北京：北京航天航空大學(xué)出版社， 1991 13. 薛鈞義等 .MCS51/96 系列單片機(jī)微型計(jì)算機(jī)及其應(yīng)用 . 西安： 西安交大出版社 14. 陳春玲 .軟件工程與數(shù)據(jù)庫概論 . 西電科大版， 1999 附 錄 A 關(guān)于系統(tǒng)結(jié)構(gòu)的幾點(diǎn)說明 1 鍵盤的處理 可以這么說，在 windows 里，最快的操作是鼠標(biāo)鍵盤，而不是只有一種輸入設(shè) 掌握鍵盤的處理，將會(huì)使程序增色不少。 沒有彈性的分析和“一卡通”運(yùn)行過程中存在的問題等等，這些問題都因?yàn)闀r(shí)間的關(guān)系和自身 掌握的知識不夠多，不夠熟練而沒有完善。 Office中的 Access數(shù)據(jù)庫一致 ,而且簡單易學(xué) .不僅如此 VB6 有基于 Web 的應(yīng)用 ,這架起了和遠(yuǎn)程通信的橋梁。 這次畢業(yè)設(shè)計(jì)采用 Visual Basic 語言（以下簡稱 VB）編寫， VB簡單易學(xué)，容易掌握，而且也容易理解，尤其是它面向?qū)ο蟮木幊谭匠蹋屓擞X得直觀不煩瑣，一目了然?！皶接脮r(shí)方恨少”這句話在這次畢業(yè)設(shè)計(jì)中表現(xiàn)得淋漓盡致，一開始做畢業(yè)設(shè)計(jì)時(shí)，不夠重視，認(rèn)為肯定能行，但做到最后，情況越糟 ， 甚至有一段時(shí)間讓我覺得有點(diǎn)手足無措了，幸好有朋友的幫助，再加上自己“亡羊補(bǔ)牢”式地惡補(bǔ)，才沒有出現(xiàn)讓人不滿意的結(jié)果。但是同時(shí)也讓我了解了到自身的許多不足， 也發(fā)現(xiàn)了以前對這門語言學(xué)得不透徹，沒有很好地重視它，掌握它。 6． 6． 2 模塊功能 增加操作員，操作員的操作權(quán)限設(shè)定，修改和刪除操作員，操作員修改密碼。數(shù)據(jù)備分時(shí)是系統(tǒng)自動(dòng)根據(jù)當(dāng)日日期加數(shù)據(jù)庫的名稱合起來組成新的文件名，即備份數(shù)據(jù)文件名。根據(jù)操作的需要進(jìn)行定期的操作口令修改，提高保密性。其中操作員管理這個(gè)分支 模塊是根據(jù)操作員的身份進(jìn)行操作權(quán)限的設(shè)置。 模塊功能 實(shí)現(xiàn)報(bào)表的處理，把卡的信息，管理員日志，預(yù)付金額信息體現(xiàn)出來，并打印。 按網(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)用。 卡信息查詢 用戶消費(fèi)查詢 操作員信息查詢 按日期查詢消費(fèi)情況 卡查詢 新卡 補(bǔ)卡 掛失卡 教工卡 學(xué)生卡 其它 操作員基本信息 操作員日志 食堂 機(jī)房 浴室 超市 圖書館 用戶消費(fèi)查詢：根據(jù)用戶輸 入的姓名、學(xué)號以及系別可以查詢用戶在食堂、機(jī)房、浴室、超市以及圖書館消費(fèi)的金額。 模塊流程 信息查詢分類 卡信息查詢：可以查詢新卡、補(bǔ)卡、掛失卡、教工卡以及學(xué)生卡等有關(guān)詳細(xì)資料?？梢圆樵儾僮鲉T的信息。 模塊功能 具體實(shí)現(xiàn)數(shù)據(jù)查詢，對辦卡、補(bǔ)辦、掛失與解掛，卡的身份進(jìn)行查詢，很客觀的 把數(shù)據(jù)庫中的內(nèi)容體現(xiàn)出來。 查詢模塊 設(shè)計(jì)思想 利用 VB 中的 Data 數(shù)據(jù)庫控件和 ADO 數(shù)據(jù)控件 Adodc 數(shù)據(jù)控件并結(jié)合 SQL相關(guān)數(shù) 據(jù)操作命令 ,進(jìn)行數(shù)據(jù)查詢。如果此卡 已被掛失，那么此卡將處于冰凍狀態(tài)（不能被消費(fèi)）。 5. 回收卡 有發(fā)行新卡當(dāng)然也就有回收卡，回收卡就是相對于畢業(yè)生來說，人畢業(yè)了，卡管理 發(fā)行新卡 預(yù)付金額 掛失 /解掛 補(bǔ)辦卡 回收卡 卡就得回收 ,回收的卡將從數(shù)據(jù)庫里清除所以有關(guān)信息。如果并沒有處于掛失狀態(tài)下就不能被補(bǔ)辦， 系統(tǒng)將自動(dòng)提醒用戶。根 據(jù)對話框輸入相對于自己的個(gè)人信息，然后將存入數(shù)據(jù)庫中。消費(fèi)者消費(fèi)多少金額，系統(tǒng)將自動(dòng)從中扣除多少金額。 6. 卡消費(fèi) 卡消費(fèi)是消費(fèi)者在各部門消費(fèi)的金額數(shù)，如：餐廳、機(jī)房、圖書館、洗浴和超市。不能對負(fù)值和零充值。 \ ’ 自動(dòng)搜索數(shù)據(jù)源 發(fā)行新卡： If Then’ 判斷此卡號是否在庫中存在 MsgBox 此卡號已存在 !, , 卡管理 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ǔ)辦卡、回收卡和掛失 /撤消掛失。 模塊功能 模塊功能：預(yù)付金額，發(fā)行新卡，補(bǔ)辦卡，掛失與撤消掛失，卡回收等。在對掛失卡的處理，只要此卡號處于掛失狀態(tài)，在消費(fèi)，預(yù)付金額，卡回收時(shí)都有限制。 If Then If TIM = 3 Then MsgBox 密碼輸入錯(cuò)誤 ,請向系統(tǒng)管理員查詢 !, 0, 系統(tǒng)管理 End If If = Then MsgBox 請輸入操作員代號 !, , 系統(tǒng)管理 End If If (管理密碼 ) Then MsgBox 密碼錯(cuò)誤 ,請重新輸入密碼 !, , 系統(tǒng)管理 模塊流程 N 開始 輸入用戶名和密碼 驗(yàn)證用戶 Y 設(shè)計(jì)思想 運(yùn)用 VB中的 Data 數(shù)據(jù)控件對數(shù)據(jù)庫進(jìn)行增加，修改，刪除等操作。 () amp。 相關(guān)代碼 系統(tǒng)登錄相關(guān)代碼： = select * from 管理員 管理代碼 = 39。 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)營 9. 可備份，還原數(shù)據(jù) 系統(tǒng)的總體結(jié)構(gòu)圖 數(shù)據(jù)庫為： Access2021 庫名： 服務(wù)務(wù)器 掛失與撤消掛失 回收卡 補(bǔ)辦卡 發(fā)行新卡 卡消費(fèi) 預(yù)付金額 按用戶查詢用戶