【正文】 13 入住日期 日期型 客人入住的日期 14 入住時間 時間型 客人入住的時間 15 店內(nèi)消費 數(shù)字型，整數(shù) 客人在店內(nèi)消費的金額 16 餐費 數(shù)字型，整數(shù) 客人在店內(nèi)的餐費金額 17 話費 數(shù)字型，整數(shù) 客人在店內(nèi)的話費金額 表 5 歷史客 人表 編號 字段名稱 數(shù)據(jù)類型 說明 1 客人姓名 文本，長度 50 歷史客人的姓名 2 證件號碼 數(shù)字，整數(shù) 歷史客人的證件號碼 3 證件地址 文本，長度 50 歷史客人的證件地址 4 最后入住日期 日期型 歷史客人最后的入住日期 5 最后離店日期 日期型 歷史客人最后的離店日期 6 入住次數(shù) 數(shù)字型 歷史客人的入住次數(shù) （四） 運行環(huán)境選擇 1．軟件支撐環(huán)境 本系統(tǒng)采用中文 Windows XP 平臺， Office 2021 中的 Access 為數(shù)據(jù)庫， Visual Basic 為開發(fā)工具，軟 件開發(fā)在 Windows XP 平臺下運行，最終產(chǎn)品可脫離 Visual Basic 運行環(huán)境，在 Windows 9X/2021/XP 平臺下運行。登錄過程需要完成以下任務(wù)： 根據(jù)用戶名和密碼來判斷是否可能進(jìn)入系統(tǒng)。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。 圖 10 系統(tǒng)主界面 （二） 房客管理 1．客房預(yù)定 單擊“房客管理”，單擊“預(yù)定房間”。 圖 14 鐘點房登記窗體 5．客人換房 圖 15 客人換房窗體 6．補交押金 圖 16 補交押金窗體 7．退房登記 圖 17 退房登記窗體 8．在店客人表 圖 18 在店客人表窗體 （三） 客房管理 1．客房狀態(tài) 圖 19 客房狀態(tài)窗體 2．客房編輯 圖 20 客房編輯窗體 （四） 消費管理 1．消費入帳 圖 21 消費入帳窗體 2．餐費入帳 圖 22 餐費入帳 3．話費入帳 圖 23 話費入帳 窗體 （五） 報表管理 圖 24 報表管理窗體 （六） 系統(tǒng)管理 圖 25 添加用戶窗體 圖 26 密碼設(shè)置窗體 圖 27 初始化數(shù)據(jù)庫窗體 圖 28 用戶查看窗體 （七） 系統(tǒng)信息 圖 29 系統(tǒng)信息窗體 圖 30 系統(tǒng)介紹窗體 Dim TIM As Integer 39。按回車鍵 cmd1 獲得焦點 If KeyCode = vbKeyUp Then If KeyCode = vbKeyDown Then End Sub Private Sub cmd1_Click() 39。定義字段 Dim connter As Integer 39。 = True Unload Me End Sub 六、結(jié)束語 這次設(shè)計，使我學(xué)到了很多書本上沒有的知識，提高了我對問題的分析能力。 這片墳地?fù)?jù)說是塊風(fēng)水寶地，而且此地?zé)o主，十里八鄉(xiāng)死了人都往這埋，無數(shù)墳丘是一個緊挨著一個，封土新鮮光潔的是近年新墳，長滿了荒草的老墳更是多得數(shù)不清。不過這亂墳塋子里哪有人家的門戶，這聲音必定是在撞棺材蓋子。 張小辮心中叫苦，怎么就沒想起來是這個東西！現(xiàn)在想起來也晚了，只好轉(zhuǎn)身落荒而逃。這種簡易的棺材有個俗名就叫“狗碰頭”，這意思再明顯不過了，死者家人買了副“狗碰頭”回去，將死者尸體盛殮下葬了，家人也就算盡到心了，然后棺材里這位您就等著喂野狗吧。嘿嘿，迪倫的黑暗之瞳埋在地下，最后被我得到 了，你們沒有想到我會沒死吧，事隔不久現(xiàn)在風(fēng)水輪流轉(zhuǎn)了！” “原來黑暗之瞳是被你得到了，難怪剛剛你身體大亮后，死亡墓地的結(jié)界就被打開了！”杜克恍然大悟說。 艾米麗狠狠的瞪了韓碩一眼，氣呼呼的說：“你到底還有多少事情瞞著我，為什么你有黑暗之瞳，為什么你能夠煉制這么神奇的骷髏戰(zhàn)士，你一個小亡靈魔法師，居然還有不俗的武技，這究竟是怎么一回事？” 到了這個時候，有些事情不得不解釋一下了。艾米麗一臉的凝重，望著韓碩說：“關(guān)于你獲得黑暗之瞳，能夠隨意進(jìn)出死亡墓地的事情?！卑惿钌畹耐n碩，沉聲說道。 “這件事情你不必太擔(dān)心，其實這批物資送往那兒我心里是有數(shù)的，不過是為了人贓俱獲的將他無話可說而已。很多同學(xué)只用“蘭蔻”、“歐萊雅”等世界名牌化妝品，買衣服只去 Esprit、 Only、 Apple、 Balina 之類的專 賣店，心情不好就坐飛機去別的城市兜風(fēng)，心情好了就叫上幾個朋友去酒店喝個痛快。當(dāng)他們工作以后發(fā)現(xiàn)一個月的工資還不夠交半個月的房租，想必不會再擺闊了吧。盡管唾手可再次得到花語平原，但是國力正強艾米帝國沒有派一兵一卒進(jìn)入花語平原，也正是在這個原因下，大陸上第二強國神圣教庭才得以發(fā)展。老人的手拽了艾米一下。 老 人打開遲疑的把鐵板門打開一條小縫，從縫隙里確認(rèn)確實沒有任何雪狼后，老人才完全打開門。 流傳于世。世上之人以為得道成仙，便有更多人投入修真煉道之路。由之而起的門戶之見，勾心斗角乃至爭伐殺戮，在所多有。青云山山林密布，飛瀑奇巖，珍禽異獸，在所多有，景色幽險奇峻，天下聞名。遂在青云山上，開宗立派，名曰：青云。忽爾狂風(fēng)大作，后山竟有龍吟長嘯，聲震百里，聽者無不變色。 年輕人不同，萊克 .哈伯的童年是在帝國北部連邦渡過的，在?？舜彘L大后，年輕人心性高，不愿意在一個地方久居，執(zhí)意要去外面闖世界。見了世面以后，小蘇的思維方式漸漸改變了，當(dāng)同學(xué)都說某件原價 599 元現(xiàn)價 399 元的品牌服裝非常便宜時，小蘇在心里也 會覺得很便宜了，并且總會在同學(xué)的鼓勵下把衣服買下來。 一個多么典型的中國母親神術(shù)； 二：那個被斗的山羊胡子還是位高人，不過沒口傳什麼神術(shù)給牧三文，而是死後的陰身負(fù)了他的體。與情於理，都很有必要給他老人家找個好墓穴下葬。村民們很自覺的發(fā)動起來，把古墓里的東西小心翼翼的一件件搬出來。不消幾 年，牧家村利用這些挖出來東西的普及率，已經(jīng)達(dá)到了近 80％。以牧三文的多年經(jīng)驗，根本不用看到地下的土樣才能評斷是否有墓，只要聞聞鐵錐頭帶出來的氣味，就足以肯定了。但一想到爲(wèi)什麼對那段回憶總是一片空白，他又傾向於祖墳好了。 此時他莫名其妙的想到了穆啓銘，這已經(jīng)是最近一段時間內(nèi)的第三次莫名其妙了。最讓人暈了再暈死了再死的是，七旬老太戴在手指上用來縫褲補襪的頂針，竟然是唐代宮廷御品銀飾；再轉(zhuǎn)頭定睛一看，用來喂馬的草料槽子，居然是漢末三足銘紋銅鼎。顯然，人對現(xiàn)實利益的渴望，確實要遠(yuǎn)遠(yuǎn)大於對死人的期待。 可沒想到的是，就在動土挖穴快要完工時，竟然發(fā)現(xiàn)穴坑底下還有座墓！ 經(jīng)全村上下五十幾戶，三十多位上了年紀(jì)的老輩人開會討論，一致斷定這座墳下墓，不是祖宗留下的。哪有你好我不好的理兒，還是你三文自己有福，鬼都上身！牧三文驢性一起就更惱火了：球！老子的祖墳 —— 就是好！ 就這樣，雖說牧三文在村兒里從事著不可或缺的“神圣”職業(yè)，但卻感覺上總 是只“神”不“圣”。 大四的某一天，當(dāng)小蘇坐在宿舍悠閑地擦著粉底霜，家里給她打來了一個電話。哈伯利用休假帶著自己年僅２歲的兒子艾米海一所大學(xué)，她家境非常貧寒，父母都是安徽農(nóng)村的農(nóng)民?！? 眾人不明所以，一日夜 ?？舜宓拇迕窈痛蠖鄶?shù)暖水河的居民一樣，多是從艾米帝國和神圣教庭遷移而來的，這一帶，北部是長１０００公里寬２００公里的冰雪森林環(huán)抱，東部是冰封大陸上唯一的非針葉森林――暖水河森林，面積也非常大，縱寬各有３００公里左右。無方子又驚又喜，斷然將祖師傳下的那本古卷拿出，傳于青葉自行參祥。在其四十九歲那年，云游四方，路經(jīng)青云山，一眼便看出此山鐘靈奇秀，聚天地靈氣，是一絕好之地。其中尤以“青云門”、“天音寺”、和“焚香谷”為三大支柱，是為領(lǐng)袖。而人間自古相傳，有洪荒遺種，殘存人世，藏于深山密谷，壽逾萬年，卻是無人得見。 相比與其他生靈物種，人類或在體質(zhì)上處于劣勢，但萬物靈長，卻是絕無虛言?！? “叔叔，我爸爸呢？”艾米跳出地洞立刻著急的問這個青年男子，哈伯老人眉目間也表露出同樣的問題。 “你怎么和雪狼在一起，它們除了哈米人其他的都會吃掉的，你??”老人的遲疑的問。所以在這一帶，有狼無人，有人無狼，狼與人是不會同時并存的。 ““狼頭稅”的村子，人們已經(jīng)習(xí)慣在每次狼群來到時候，只帶走主要的大型家畜，而留下適當(dāng)?shù)募仪莨├菭敔攤兿硎堋＿@一切都太不可思議了！我大學(xué)畢業(yè)不過兩年多時間，可似乎對現(xiàn)在的大學(xué)生活一無所知了。驕奢之風(fēng)便是大學(xué)里很多不良習(xí)氣中的 一種。這番話說出后，就意味著在暗幕機構(gòu)與韓碩當(dāng)中，艾米麗選擇了傾向韓碩，如果有朝一日韓碩與暗幕有了沖突，看樣子艾米麗可以為韓碩與暗幕對立。那么這個秘密繼續(xù)保持下去。在艾米麗沉思的時 候，韓碩開始搜查起風(fēng)系魔導(dǎo)師杜克與埃里克的東西。 等到韓碩的弩箭射擊出去，將匆忙躲避的杜克一條大腿貫 穿，連著大腿將他釘在了地上，沒等韓碩祭出戮魔鋒，艾米麗的黑暗魔法將杜克包裹住，頃刻之間杜克身上冒起濃煙，成了死亡墓地里面的另外一副白森森骨架。 第一卷 林中老鬼 第二話 貓哭墳 書接前文，說的是張小辮半夜偷雞不成，誤走荒墳，不料驚動了一只在掏死人的野狗。這種野狗體形巨大，生性兇殘，吃多了死人的腸子它就不想再吃別的東西了，有時候碰上落單勢孤的活人，也往往直接撲過去咬死。要是真有挖墳掘墓的，三爺就嚇?biāo)粐?，給他來個賊喊捉賊，卷了他的贓物，這叫賊吃賊越吃 越肥。那些沒有了記號的新墳，很快就成了無主的孤墳。另外，還要謝謝在此期間幫助我的同學(xué)們。 \ End Sub Private Sub start_Click() = True: = True End Sub Private Sub creat_Click() 39。 39。 \ = amp。 在預(yù)定入住窗體中輸入相關(guān)信息，單擊“登記”完成預(yù)定入住操作。進(jìn)入系統(tǒng)展示畫面。 圖 7 登錄窗體的界面布局 下面介紹登錄窗體的部分代碼。 選擇“工程”菜單