【正文】 用戶按下了“取消”按鈕。從對話框中獲取用戶選定數(shù)值。將 Cancel 設(shè)置成 True。設(shè)置控件有效或無效 39。 amp。u: h$ = MsgBox(沒有空閑房間,客房已滿, 48, Error): = False: = False: = False: = True: = True End SubPrivate Sub ok_Click() 39。 Minute(Time) amp。On Error GoTo u = (rname)ZSDJ(4).Text = (rtype)ZSDJ(5).Text = (rprice)Set Room = (select * from roomlogin ) While Not If (rstatue) = 空閑 Then (rname) Wend = Year(Date) amp。ZSDJ(5)獲得焦點End SubPrivate Sub dj_Click()39。按回車鍵ZSDJ(10)獲得焦點 Case 10 If KeyCode = vbKeyReturn Then ZSDJ(11).SetFocus 39。按回車鍵ZSDJ(3)獲得焦點 Case 3 If KeyCode = vbKeyReturn Then 39。用val函數(shù)將字符串轉(zhuǎn)換為數(shù)字 = + Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text)) 39。計算折前宿費 ZSDJ(9).Text = ZSDJ(7).Text 39。設(shè)置ZSDJ(8)有效 ZSDJ(8).SetFocus 39。)ZSDJ(4).Text = (rtype): ZSDJ(5).Text = (rprice)End SubPrivate Sub Combo5_click() = End SubPrivate Sub DTP3_Change()ZSDJ(6).Text = End SubPrivate Sub Form_Load()If bgi = 1 Then = If bgi = 0 Then = Nothing = Date: = Date: = Date 39。定義一個整型變量Dim InLog As RecordsetDim Room As RecordsetDim Remind As RecordsetPrivate Sub Combo4_Click()Set Room = (select * from roomlogin where rname=39。 Minute(Time) = Year(Date) Year()End SubPrivate Sub Command1_Click() 39。如果按下鼠標(biāo)左鍵 Dim ReturnVal As Long X = ReleaseCapture() ReturnVal = SendMessage(, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0) End IfEnd Sub Private Sub Form_Load() LoadAccess Set Emp = (select * from empl) = Year(Date) amp。獲取“變動”信息Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_SYSCOMMAND = amp。當(dāng)前用戶權(quán)限Public mydb As 39。本欲來讓老師答辯的，但因個人原因，在答辯那天趕回家了，所以沒得完成最終的答辯。接著在不同機環(huán)境器上測試，有些控件因為沒有帶走，所以報錯，后來帶上控件后都能正常運行，在xp和win7上都能正常運行。考慮到用戶使用的方便性，軟件主界面提供了很多入口，以及直觀的圖形顯示，方便用戶操作，因而也給客戶帶來方便，免去了客戶的很多等待時間，提升賓館的形象。有了數(shù)據(jù)庫作為整個設(shè)計的底層，就好象蓋房子有了骨架，而軟件就象是磚瓦，只是將骨架填充完善，給客戶一個好的外觀。到賓館調(diào)查和到網(wǎng)上收集信息，以及參考了其他信息管理系統(tǒng)，心里就有了輪廓。在對數(shù)據(jù)庫操作方面，引用了DAO 對象，使用DAO編程連接和操作。（1）可視畫編程，豐富的控件，隨用隨拖，對控件對象編程，很方便。) cr 這是直接用嵌入sql語句來插入記錄。 amp。 amp。在主窗體中便會有提示需要維修的房間，可以通過房態(tài)查詢，查看需要維修的房間號。當(dāng)選報修時候，系統(tǒng)自動加載空閑的房間號。 amp。如果是掛帳，用戶可以選擇掛帳，在客戶結(jié)帳的時候，調(diào)出掛帳結(jié)帳窗體，系統(tǒng)自動加載掛帳的單位，用戶選擇掛帳單位，系統(tǒng)自動加載需還金額。 amp。原住房產(chǎn)生的費用將加在新入住房間上,而提醒表中原房間改為現(xiàn)房間。其他用戶自定義完整性約束都通過對控件的屬性設(shè)置來完成，當(dāng)用戶輸入數(shù)據(jù)破壞完整性時，系統(tǒng)會發(fā)出警告，以保持?jǐn)?shù)據(jù)庫的完整性] 調(diào)房，住宿、退宿查詢 [說明:通過入口可以打開窗體。 39。點擊房間能顯示在該房間入住過的客戶。超級用戶能對押金進(jìn)行追加，其他用戶必須在超級用戶協(xié)助下才能完成押金追加] 主面板[說明：主界面用VB中的MDIForm，多入口提供給用戶操作，包括菜單欄、工具欄（可選擇顯示和不顯示）、側(cè)邊欄(可隱藏)、主面板Panel(提供操作員最常用的操作，節(jié)約時間)，在狀態(tài)欄可以顯示系統(tǒng)時間和當(dāng)前用戶以及需要維修的房間數(shù)。,size=5mB,maxsize=20mb,filegrowth=10%)log on(name=hotel_log,filename=39。Cmanage(umber,ame,cictype,cium,csex,caddress,ctel,cmember,croom,ctype,cprice, cindate,cintype,coutdate,cya,cyaadd,cstatue,cchange,creason,cmtel,cmmeeting,cmcar,cmdamage,cmother,cmshould,cmpay,cmback,cuser)。Gmanage(Gid,gname,gtype,gnum,gprice,guse,gsum,gdate,guser,gdw)。四、 財務(wù)管理：追加押金，增刪財務(wù)，日報表五、 員工管理：增改員工，查刪員工六、 系統(tǒng)管理：增刪管理員，修改密碼，以及預(yù)留的基于SQL的數(shù)據(jù)庫管理(該程序考慮到 作為課程設(shè)計和信息系統(tǒng)不是很大，使用了單機版的ACCESS，以求方便 寫程序)七、 其他功能：界面管理（提供兩套外觀：經(jīng)典外觀和春天里） 核心數(shù)據(jù)流圖 維修信息調(diào)整房間維修/報修房間提醒 客房信息 預(yù)定 客房信息 客房狀態(tài)退房入住客人 客人信息 入住登記 帳務(wù)信息財務(wù)現(xiàn)開 入住信息 部分?jǐn)?shù)據(jù)流圖數(shù)據(jù)流名稱：客人信息來源：客人去向：入住登記包含的數(shù)據(jù)項：姓名、身份證號、性別、入住房間、房間類型、房間價格、入住狀態(tài)等（賓館客房管理系統(tǒng)的數(shù)據(jù)流——客人信息） 數(shù)據(jù)流名稱：入住登記來源：客人產(chǎn)生入住登記去向：入住包含的數(shù)據(jù)項：訂單編號、姓名、性別、身份證號、客戶編號、客房類型、抵房時間、入住 人數(shù)、預(yù)定人、電話、住幾天等信息（賓館客房管理系統(tǒng)的數(shù)據(jù)流——入住登記）數(shù)據(jù)流名稱：客房信息來源：客人產(chǎn)生入住登記去向：入住包含的數(shù)據(jù)項：客房編號、客房類型、客房價格、客房狀態(tài)（賓館客房管理系統(tǒng)的數(shù)據(jù)流——客房信息）數(shù)據(jù)流名稱：房間狀態(tài)來源：退房去向：房間包含的數(shù)據(jù)項：客房號碼、房間狀態(tài)（賓館客房管理系統(tǒng)的數(shù)據(jù)流——房間狀態(tài)）數(shù)據(jù)流名稱：帳務(wù)信息來源：退房去向：財務(wù)包含的數(shù)據(jù)項：帳單編號、姓名、消費金額、入住時間、退房時間、押金（賓館客房管理系統(tǒng)的數(shù)據(jù)流——帳務(wù)信息） 核心數(shù)據(jù)字典 [賓客入住信息表：Cmanage] 數(shù)據(jù)項名稱(庫中字段名)數(shù)據(jù)類型及長度說明客人電話(ctel)C