畢業(yè)設(shè)計(jì)(論文)VB賓館管理信息系統(tǒng)

1、新鄉(xiāng)電大計(jì)算機(jī)專業(yè)裴文龍“新鄉(xiāng)電力賓館管理系統(tǒng)”畢業(yè)論文新鄉(xiāng)電力賓館管理系統(tǒng)畢業(yè)論文(系統(tǒng) VB6.0)指導(dǎo)教師：張敏計(jì)算機(jī)專業(yè)：裴文龍前 言 隨著21世紀(jì)的鐘聲敲響，人類正以驚人的速度走出工業(yè)文明，步入超高速發(fā)展的信息時代。當(dāng)人們昨天還在沉浸在486，586帶來的高速、便捷時，而在今天，世界上又超乎人們想象地誕生了P42.4,P43.6，對于明天，我們無法預(yù)想，因?yàn)橛?jì)算機(jī)正以摩爾令人難以致信的速度發(fā)展。信息時代的來臨僅改變著我們的生活，也不斷改變著我們的思維方式和學(xué)習(xí)方式，以及我們周圍的一切。可以說，計(jì)算機(jī)注定要伴隨我們一生。電子信息的網(wǎng)絡(luò)化，各行各業(yè)的高度信息化不斷推動著社會的高度發(fā)展。對

2、于我們新世紀(jì)的大學(xué)生，并且又是計(jì)算機(jī)專業(yè)的大學(xué)生，我們不僅僅要掌握計(jì)算機(jī)的基本技能，而且要精通計(jì)算機(jī)的科學(xué)技術(shù)及其應(yīng)用。在現(xiàn)代化的經(jīng)濟(jì)時代里，信息化競爭已經(jīng)越來越趨于白熱化，具有先進(jìn)的信息化技術(shù)，無論是個人也好，還是企業(yè)也罷，都能占據(jù)先機(jī)，從而有效地拓寬與發(fā)展。對于已經(jīng)加入WTO的中國，我們已經(jīng)別無選擇了 酒店管理系統(tǒng)是一個酒店行業(yè)不可缺少的部分,它的內(nèi)容對于酒店的決策者和管理者來說都至關(guān)重要,所以酒店管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理文件，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時間一旦長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查

3、找、更新和維護(hù)都帶來了不少的困難。 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對教學(xué)信息進(jìn)行管理,具有手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高酒店管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。 1.總體設(shè)計(jì)1.1設(shè)計(jì)目的賓館在正常的運(yùn)營中需要對客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信息系統(tǒng)及時了解各個環(huán)節(jié)中信息的變更，有利于提高管理效率。 1.2系統(tǒng)功能分析系統(tǒng)開發(fā)的

4、總體任務(wù)是實(shí)現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動化。主要完成功能： 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視機(jī)、電話以及單獨(dú)衛(wèi)生間等。 客房標(biāo)準(zhǔn)信息的修改、查詢等。 客房基本信息的輸入，包括客房編號、客房類型、客房位置、客房單價(jià)、備注等。 客房基本信息的查詢、修改，包括客房編號、客房類型、客房位置、客房單價(jià)、備注等。 剩余客房信息的查詢等。 訂房信息的輸入，包括客房編號、客房種類、客房位置、客房單價(jià)、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。 訂房信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價(jià)、顧客姓名

5、、顧客身份證號碼、入住日期、折扣、備注信息等。 結(jié)算信息的輸入，包括客房編號、客房種類、位置、客房單價(jià)、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)算日期、備注信息等。 結(jié)算信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價(jià)、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)日期、備注信息等。 1.3系統(tǒng)功能模塊設(shè)計(jì)按結(jié)構(gòu)化程序設(shè)計(jì)思想，當(dāng)然最終設(shè)計(jì)考慮到自己的編程水平和能力，分析得出如下系統(tǒng)功能模塊圖系統(tǒng)設(shè)置客房管理住宿管理員工管理消費(fèi)品管理賬務(wù)管理關(guān)于添加操作員修改密碼退出客房設(shè)置客房查詢客房查看住宿登記調(diào)房登記住宿查詢退宿查詢登錄界面添加員工查詢員工添加新消費(fèi)品消費(fèi)品查詢追加押金退宿

6、結(jié)賬掛賬結(jié)款開發(fā)簡介系統(tǒng)簡介2.系統(tǒng)運(yùn)行需求2.1運(yùn)行環(huán)境操作系統(tǒng)：windows2000/xp數(shù)據(jù)庫：ACCESS語言：VB6.02.2尚未問決的問題功能尚不完善，有待于繼續(xù)開發(fā)。2.3功能概述及界面圖示1）系統(tǒng)登陸2）系統(tǒng)主框架 系統(tǒng)歡迎界面。3） 系統(tǒng)設(shè)置完成對操作員的增加、對密碼的更改操作 添加操作員4）客房管理客房設(shè)置、客房查詢、房態(tài)設(shè)置功能客房設(shè)置客房查詢 房態(tài)設(shè)置5）住宿管理完成住宿登記、調(diào)房登記、住宿查詢、退宿查詢功能住宿登記調(diào)房登記住宿查詢6）員工管理完成添加員工、查詢員工功能。查詢員工7） 消費(fèi)品管理完成添加新消費(fèi)品、消費(fèi)品查詢功能添加新消費(fèi)品消費(fèi)品查詢8）賬務(wù)管理完成追加

7、押金、退宿結(jié)賬、掛賬結(jié)款功能9）關(guān)于完成對系統(tǒng)和開發(fā)的介紹3數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫設(shè)計(jì)步驟： 數(shù)據(jù)庫需求分析 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)首先將賓館管理信息系統(tǒng)的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為ACCESS2003數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，即：數(shù)據(jù)庫的邏輯結(jié)構(gòu)。其各個表格的設(shè)計(jì)結(jié)果如下：3.1 表格表djb表gzmx表kf表kfyd表qxsz表tfd表xfp表ygb3.2賓館管理信息系統(tǒng)幾個代表窗口的具體程序?qū)崿F(xiàn):房態(tài)查詢代碼實(shí)現(xiàn)：Private Sub Form_Activate() Dim i As Integer '定義一個整型變量 Dim criteria As String &

8、#39;定義一個字符串變量 Dim mydb1 As Database '定義數(shù)據(jù)庫 Dim myrs1 As Recordset '定義字段 Dim myrs2 As Recordset Dim myrs3 As Recordset Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "db.mdb") '定義數(shù)據(jù)環(huán)境 Set myrs1 = mydb1.OpenRecordset("kf", dbOpenSnapshot) '定義數(shù)據(jù)表 '入住房間查詢 S

9、QL = "select * from kf where kf.房態(tài) like " + Chr(34) + "入住" + Chr(34) + "" Set myrs2 = mydb1.OpenRecordset(SQL) '維修房間查詢 SQL = "select * from kf where kf.房態(tài) like " + Chr(34) + "維修" + Chr(34) + "" Set myrs3 = mydb1.OpenRecordset(SQL) For i

10、 = 1 To 25 '房態(tài)顯示 criteria = "房間號 ='" & Command1(i).Caption & "'" myrs1.FindFirst criteria If myrs1.NoMatch Then Else If myrs1.Fields("房態(tài)") = "空房" Then Command1(i).Picture = LoadPicture("") '空房 If myrs1.Fields("房態(tài)") =

11、 "入住" Then Command1(i).Picture = LoadPicture(App.Path & "tupianhappy.bmp") If myrs1.Fields("房態(tài)") = "維修" Then Command1(i).Picture = LoadPicture(App.Path & "tupiandiamond.bmp") End If Next i If Not myrs2.EOF Then myrs2.MoveLast If Not myrs3.EOF

12、 Then myrs3.MoveLast Labsy.Caption = myrs2.RecordCount '客房入住數(shù) Labwx.Caption = myrs3.RecordCount '客房維修數(shù) Labkx.Caption = 25 - Val(Labwx.Caption) - Val(Labsy.Caption) '客房空閑數(shù) Labsyl.Caption = Val(Labsy.Caption) / 25 * 100 & "%" '客房使用率End SubPrivate Sub Form_Unload(Cancel As

13、 Integer) main.Enabled = TrueEnd SubPrivate Sub Command1_Click(Index As Integer) '查詢住宿信息 If Index >= 0 <= 25 Then main_zscx.Data1.RecordSource = "select * from djb where 標(biāo)志='1'and 房間號='" & Command1(Index).Caption & "'" main_zscx.Data1.Refresh End

14、 If Load main_zscx main_zscx.ShowEnd SubPrivate Sub Command2_Click() Unload Me main.Enabled = TrueEnd Sub調(diào)房登記代碼實(shí)現(xiàn)： Private Sub Form_Load() '自動識別數(shù)據(jù)庫路徑 Data1.DatabaseName = App.Path & "db.MDB" Data2.DatabaseName = App.Path & "db.MDB" Data3.DatabaseName = App.Path &

15、"db.MDB" Data4.DatabaseName = App.Path & "db.MDB"End SubPrivate Sub Form_Activate() czy.Text = main.StatusBar1.Panels(4).Text '賦值給czy.text '查詢住宿登記信息 Data4.RecordSource = "select * from djb where 標(biāo)志='1'" Data4.RefreshEnd SubPrivate Sub Form_Unload(Can

16、cel As Integer) main.Enabled = True '設(shè)置主窗體有效End SubPrivate Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Texbz.SetFocus 'texbz獲得焦點(diǎn)End SubPrivate Sub DBCOMBO2_Change() If DBCombo2.Text <> "" Then Data1.Recordset.FindFirst "房間號=&#

17、39;" & DBCombo2.Text & "'and 標(biāo)志='1'" If Data1.Recordset.NoMatch Then MsgBox ("請核準(zhǔn)住宿房間和住宿人！") Else If Data1.Recordset.Fields("客房類型") <> "" Then With Data1.Recordset '查詢空閑房間 Data2.RecordSource = "select * from kf where 房間類

18、型='" & .Fields("客房類型") & "'and 房態(tài)='空房'" Data2.Refresh '賦值給bh.text等 If .Fields("憑證號碼") <> "" Then bh.Text = .Fields("憑證號碼") If .Fields("姓名") <> "" Then Texxmb.Text = .Fields("姓名&quo

19、t;) If .Fields("證件名稱") <> "" Then Combo1.Text = .Fields("證件名稱") If .Fields("證件號碼") <> "" Then Texsfz.Text = .Fields("證件號碼") If .Fields("客房價(jià)格") <> "" Then Texjg.Text = .Fields("客房價(jià)格") End With

20、End If End If DBCombo1.Enabled = True Texbz.Enabled = True End IfEnd SubPrivate Sub DBCOMBO2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then DBCombo1.SetFocus '按回車鍵DBCombo1獲得焦點(diǎn)End SubPrivate Sub texbz_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyRet

21、urn Then Comok.SetFocus '按回車鍵comok獲得焦點(diǎn)End SubPrivate Sub comdj_Click() '登記 Frame2.Enabled = True: Frame3.Enabled = True: DBCombo2.Enabled = True DBCombo1.Enabled = True: Texjg.Enabled = True: Comok.Enabled = True Comcancel.Enabled = True: Comok.Enabled = True: Comdj.Enabled = False DBCombo2.

22、SetFocus 'DBCombo2獲得焦點(diǎn)End SubPrivate Sub comok_Click() '確定調(diào)房 Dim bh As String '定義一個字符串類型的變量 '查詢空閑房間信息 Data2.RecordSource = "select * from kf where 房間號='" & DBCombo1.Text & "'and 房態(tài)='空房'" Data2.Refresh If Data2.Recordset.RecordCount > 0 T

23、hen Dim mydb1 As Database Dim myrs2 As Recordset Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "db.MDB") '查詢所有住宿登記信息 Data1.RecordSource = "select * from djb" Data1.Refresh Data1.Recordset.FindFirst "房間號 ='" & DBCombo2.Text & "'and 標(biāo)志=

24、9;1'" bh = Data1.Recordset.Fields("憑證號碼") Data1.Recordset.Edit '編輯住宿登記信息 If DBCombo1.Text <> "" Then Data1.Recordset.Fields("房間號") = Val(DBCombo1.Text) If Texbz.Text <> "" Then Data1.Recordset.Fields("備注") = Texbz.Text Data1.

25、Recordset.Fields("標(biāo)志") = "1" Data1.Recordset.Fields("摘要") = "由源房" & DBCombo2.Text & "調(diào)到目標(biāo)房" & DBCombo1.Text Data1.Recordset.Update '更新記錄 Data3.RecordSource = "select * from djys where 憑證號碼='" & Data1.Recordset.Fields

26、("憑證號碼") & "'" Data3.Refresh If Data3.Recordset.EOF = False Then Data3.Recordset.MoveLast If Data3.Recordset.BOF = False Then Data3.Recordset.MoveFirst If Data3.Recordset.RecordCount > 0 Then Data3.Recordset.MoveFirst For i = 1 To Data3.Recordset.RecordCount Data3.Reco

27、rdset.Edit '編輯住宿登記預(yù)收信息 If DBCombo1.Text <> "" Then Data3.Recordset.Fields("房間號") = Val(DBCombo1.Text) If Texbz.Text <> "" Then Data3.Recordset.Fields("備注") = Texbz.Text Data3.Recordset.Fields("標(biāo)志") = "1" Data3.Recordset.Fiel

28、ds("摘要") = "由源房" & DBCombo2.Text & "調(diào)到目標(biāo)房" & DBCombo1.Text Data3.Recordset.Update '更新記錄 If Data3.Recordset.EOF = False Then Data3.Recordset.MoveNext Next i End If '編輯客房狀態(tài) Data2.Recordset.Edit Data2.Recordset.Fields("房態(tài)") = "入住" Da

29、ta2.Recordset.Update Data2.RecordSource = "select * from kf" Data2.Refresh Data2.Recordset.FindFirst "房間號 ='" & DBCombo2.Text & "'" Data2.Recordset.Edit Data2.Recordset.Fields("房態(tài)") = "空房" Data2.Recordset.Update '查詢空閑房間信息 Data3.Re

30、cordSource = "select * from kf where 房態(tài)='空房'" Data3.Refresh Data4.Refresh '設(shè)置控件有效或無效 Texxmb.Enabled = False: Texsfz.Enabled = False: DBCombo1.Enabled = False DBCombo2.Enabled = False: Texbz.Enabled = False: Comok.Enabled = False Comcancel.Enabled = False: Comdj.Enabled = True &

31、#39;清空數(shù)據(jù) DBCombo1.Text = "": DBCombo2.Text = "": Texxmb.Text = "" Texsfz.Text = "": Texbz.Text = "": Texjg.Text = "" Comdj.SetFocus 'Comdj獲得焦點(diǎn) Else MsgBox ("所選房間已有人入住，請選擇空房,再保存!") End IfEnd SubPrivate Sub comcancel_Click() 

32、9;取消操作 DBCombo2.Enabled = True: DBCombo1.Enabled = True: Comdj.Enabled = True Comok.Enabled = False: Texbz.Enabled = True DBCombo1.Text = "": DBCombo2.Text = "": Texxmb.Text = "" Texsfz.Text = "": Texbz.Text = "": Texjg.Text = ""End SubPriv

33、ate Sub comend_Click() Unload Me main.Enabled = True '設(shè)置主窗體有效End Sub追加押金代碼實(shí)現(xiàn)：Private Sub Form_Load()'自動識別數(shù)據(jù)庫路徑 Data1.DatabaseName = App.Path & "db.MDB" Data2.DatabaseName = App.Path & "db.MDB" Data3.DatabaseName = App.Path & "db.MDB"End SubPrivate Su

34、b Form_Activate() czy.Text = main.StatusBar1.Panels(4).Text '賦值給czy.text '查詢住宿登記信息 Data2.RecordSource = "select 憑證號碼 from djb where 標(biāo)志='1'order by 憑證號碼" Data2.RefreshEnd SubPrivate Sub Form_Unload(Cancel As Integer) main.Enabled = True '設(shè)置主窗體有效End SubPrivate Sub DBCombo

35、1_Change()'查詢住宿登記信息 Data1.RecordSource = "select * from djb where 憑證號碼='" & DBCombo1.Text & "'" Data1.Refresh If Data1.Recordset.RecordCount > 0 Then '當(dāng)記錄大于零時賦值給text2等 If Data1.Recordset.Fields("姓名") <> "" Then Text2.Text = Dat

36、a1.Recordset.Fields("姓名") If Data1.Recordset.Fields("預(yù)收金額") <> "" Then Text3.Text = Data1.Recordset.Fields("預(yù)收金額") If Data1.Recordset.Fields("住宿天數(shù)") <> "" Then Text4.Text = Data1.Recordset.Fields("住宿天數(shù)") If Data1.Recor

37、dset.Fields("房間號") <> "" Then Text5.Text = Data1.Recordset.Fields("房間號") If Data1.Recordset.Fields("客房類型") <> "" Then Text6.Text = Data1.Recordset.Fields("客房類型") If Data1.Recordset.Fields("客房價(jià)格") <> ""

38、Then Text7.Text = Data1.Recordset.Fields("客房價(jià)格") If Data1.Recordset.Fields("住宿日期") <> "" Then DTP1.Value = Data1.Recordset.Fields("住宿日期") If Data1.Recordset.Fields("住宿時間") <> "" Then tim1.Value = Data1.Recordset.Fields("住宿時

39、間") If Data1.Recordset.Fields("提醒日期") <> "" Then DTP2.Value = Data1.Recordset.Fields("提醒日期") If Data1.Recordset.Fields("提醒時間") <> "" Then tim2.Value = Data1.Recordset.Fields("提醒時間") If Data1.Recordset.Fields("退宿日期"

40、;) <> "" Then DTP3.Value = Data1.Recordset.Fields("退宿日期") If Data1.Recordset.Fields("退宿時間") <> "" Then tim3.Value = Data1.Recordset.Fields("退宿時間") End IfEnd SubPrivate Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode

41、= vbKeyReturn Then Text1.SetFocusEnd SubPrivate Sub Text1_Change() '計(jì)算提醒日期及時間 DTP2.Value = DTP1.Value + Int(Val(Text3.Text) + Val(Text1.Text) / Val(Text7.Text) If (Val(Text3.Text) + Val(Text1.Text) - Int(Val(Text3.Text) + Val(Text1.Text) / Val(Text7.Text) > 0.5 * Val(Text7.Text) Then tim2.Val

42、ue = #6:00:00 PM# Else tim2.Value = #12:00:00 AM# End IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command1.SetFocusEnd SubPrivate Sub Command1_Click() '保存追加押金信息 If Text1.Text <> "" And DBCombo1.Text <> ""

43、Then '查詢住宿登記信息 Data1.RecordSource = "select * from djb where 憑證號碼='" & DBCombo1.Text & "'" Data1.Refresh If Data1.Recordset.RecordCount > 0 Then '編輯住宿登記信息 Data1.Recordset.Edit Data1.Recordset.Fields("預(yù)收金額") = Val(Text3.Text) + Val(Text1.Text) Data1.Recordset.Fields("提醒日期") = DTP2.Value Data1.Recordset.Fields("提醒時間") = tim2.Value Data1.Recordset.Update '更新數(shù)據(jù) '查詢住宿登記預(yù)收信息 Data3.RecordSource = "se