賓館管理系統(tǒng)-資料下載頁(yè)
【導(dǎo)讀】隨著社會(huì)的發(fā)展，科技的進(jìn)步，賓館對(duì)于人們提供的便捷也是不容質(zhì)疑，而傳統(tǒng)的賓館管理已適應(yīng)不了社會(huì)的需求，取而代之的則是計(jì)算機(jī)系統(tǒng)的管理。信息系統(tǒng)及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，有利于提高管理效率。賓館管理信息系統(tǒng)主要包括客房信息管理，訂房信息管理，結(jié)算信息管理，金額統(tǒng)計(jì)等幾個(gè)部分。整個(gè)系統(tǒng)有數(shù)據(jù)庫(kù)文件和數(shù)據(jù)庫(kù)管理系統(tǒng)兩大部他構(gòu)成，理系統(tǒng)是用來(lái)為數(shù)據(jù)庫(kù)中的各種資料進(jìn)行各種基本操作和管理。運(yùn)用，數(shù)據(jù)庫(kù)的開(kāi)發(fā)，完善也成為當(dāng)今企業(yè)的重中之重。VisualBasic已經(jīng)成為了使用者最多的一種程序設(shè)計(jì)語(yǔ)言。面的介紹了VisualBasic在數(shù)據(jù)管理系統(tǒng)開(kāi)發(fā)的應(yīng)用。驗(yàn)，而且還要了解企業(yè)的運(yùn)營(yíng)機(jī)制，功能的可行性。指導(dǎo)性幫助，易學(xué)易懂，對(duì)沒(méi)有計(jì)算機(jī)基礎(chǔ)的人來(lái)說(shuō)也可以很快上手使用。管理信息系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。系統(tǒng)各部分內(nèi)容既相互聯(lián)系又相對(duì)獨(dú)立，并依據(jù)賓館信息。管理的特點(diǎn)精心制作，方便管理員根據(jù)實(shí)際需要進(jìn)行選擇。
【正文】 mand3_Click() Unload Me End Sub Private Sub Command2_Click() If Text1 = Then MsgBox 請(qǐng)輸入客房編號(hào)！ Else If Text2 = Then MsgBox 請(qǐng)輸入客房類型！ Else If Text3 = Then MsgBox 請(qǐng)輸入客房位置！ Else 第 29 頁(yè) 共 34頁(yè) If Text4 = Then MsgBox 請(qǐng)輸入客房單價(jià)！ Else If Text5 = Then MsgBox 請(qǐng)輸入目前狀態(tài)！ Else If Text6 = Then MsgBox 請(qǐng)輸入顧客上限！ Else MsgBox 已保存！ End If End If End If End If End If End If End Sub Private Sub Command4_Click() Dim mag If = Then MsgBox 當(dāng)前無(wú)可刪除的記錄！ Else mag = MsgBox(確定要?jiǎng)h除嗎 ?, vbYesNo, 刪除 ) If mag = vbYes Then End If End If End Sub 圖 37代碼： Private Sub Check2_Click() = True End Sub 第 30 頁(yè) 共 34 頁(yè) Private Sub Command3_Click() Unload Me End Sub Private Sub Command1_Click() = select * from 客房信息 where 目前狀態(tài) =39。未滿 39。 and 客房類型 =39。 amp。 amp。 39。 End Sub Private Sub Command2_Click() = select * from 客房信息 End Sub 圖 38代碼： Private Sub Command1_Click() = = = = Date End Sub Private Sub Command2_Click() If Text5 = Then MsgBox 請(qǐng)輸入顧客姓名！ Else If Text6 = Then MsgBox 請(qǐng)輸入顧客性別！ Else If Text7 = Then MsgBox 請(qǐng)輸入顧客身份證號(hào)！ Else !所需金額 = 0 !入住日期 = Date !客房編號(hào) = !客房類型 = Text1 第 31 頁(yè) 共 34頁(yè) MsgBox 記錄已保存！ !已住人數(shù) = !已住人數(shù) + 1 If !顧客上限 !已住人數(shù) = 0 Then !目前狀態(tài) = 已滿 End If End If End If End If End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub DataCombo1_Click(Area As Integer) = select * from 客房信息 where 客房編號(hào) =39。 amp。 amp。 39。 and 目前狀態(tài) =39。未滿 39。 Text4 = !顧客上限 !已住人數(shù) End Sub 圖 39 代碼： Private Sub Command2_Click() = select * from 顧客信息 where 身份證號(hào) =39。 amp。 Text2 amp。 39。 End Sub Private Sub Command1_Click() = select * from 顧客信息 where 顧客姓名 =39。 amp。 Text1 amp。 39。 End Sub Private Sub Command3_Click() = select * from 顧客信息 第 32 頁(yè) 共 34 頁(yè) End Sub Private Sub Option2_Click() = False = True = True = False Text1 = End Sub Private Sub Option1_Click() = True = False = False = True Text2 = End Sub 圖 310 代碼： Private Sub Command1_Click() = select * from 顧客信息 where 客房編號(hào) =39。 amp。 Text1 amp。 39。and 所需金額 =0 = True End Sub Private Sub Command2_Click() If Or Then MsgBox 當(dāng)前無(wú)記錄，請(qǐng)指定記錄！ Else = select * from 客房信息 where 客房編號(hào) =39。 amp。 Text1 amp。 39。 !所需金額 = !客房單價(jià) * (Date !入住日期 ) !退房日期 = Date !已住人數(shù) = !已住人數(shù) 1 !目前狀態(tài) = 未滿 MsgBox 退房成功！所需金額為 amp。 !所需金額 End If End Sub Private Sub Command3_Click() = select * from 顧客信息 where 所需金額 =0 第 33 頁(yè) 共 34頁(yè) = False End Sub 圖 311 代碼： Private Sub Command1_Click() Dim a As Long a = 0 x = For i = 1 To x a = a + (所需金額 ) Next Text3 = a End Sub Private Sub Command2_Click() Unload Me End Sub 圖 314 代碼： Private Sub Command9_Click() = select * from 用戶修改 If And = (密碼 ) And And And And = Then (用戶名 ) = (密碼 ) = MsgBox 修改成功！ = = = = Else If = Then MsgBox 請(qǐng)輸入新用戶名！ Else If = Then MsgBox 請(qǐng)輸入原密碼！ 第 34 頁(yè) 共 34 頁(yè) Else If (密碼 ) Then MsgBox 原密碼錯(cuò)誤！請(qǐng)重新輸入。 = Else If = Then MsgBox 請(qǐng)輸入新密碼！ Else If = Then MsgBox 請(qǐng)確認(rèn)新密碼！ Else If Then MsgBox 密碼不一致！請(qǐng)重新輸入。 = = End If End If End If End If End If End If End If End Sub
鄂ICP備17016276號(hào)-1