新鄉(xiāng)電力賓館管理系統(tǒng)畢業(yè)論文

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

2、計算機(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è)不可缺少的部分,它的容對于酒店的決策者和管理者來說都至關(guān)重要,所以酒店管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件，這種管理方式存在著許多缺點,如:效率低、性差,另外時間一旦長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護(hù)都帶來了不少的困難。 隨著科學(xué)技術(shù)的不斷提高,計算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們

3、深刻認(rèn)識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機(jī)應(yīng)用的一部分,使用計算機(jī)對教學(xué)信息進(jìn)行管理,具有手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、性好、壽命長、成本低等。這些優(yōu)點能夠極提高酒店管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。1.總體設(shè)計1.1設(shè)計目的賓館在正常的運(yùn)營中需要對客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信息系統(tǒng)與時了解各個環(huán)節(jié)息的變更，有利于提高管理效率。1.2系統(tǒng)功能分析系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)化和自動化。主要完成功能： 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號、

4、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視機(jī)、以與單獨(dú)衛(wèi)生間等。 客房標(biāo)準(zhǔn)信息的修改、查詢等。 客房基本信息的輸入，包括客房編號、客房類型、客房位置、客房單價、備注等。 客房基本信息的查詢、修改，包括客房編號、客房類型、客房位置、客房單價、備注等。 剩余客房信息的查詢等。 訂房信息的輸入，包括客房編號、客房種類、客房位置、客房單價、顧客、顧客、入住日期、折扣、備注信息等。 訂房信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客、顧客、入住日期、折扣、備注信息等。 結(jié)算信息的輸入，包括客房編號、客房種類、位置、客房單價、顧客、顧客、入住日期、折扣、結(jié)算日期、備注信息

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

6、。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ù)管理完成追加押金、退宿結(jié)賬、掛賬結(jié)款功能9）關(guān)于完成對系統(tǒng)和開發(fā)的介紹3數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計步驟： 數(shù)據(jù)庫需求分析 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計首先將賓館管理信息系統(tǒng)的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為

7、ACCESS2003數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，即：數(shù)據(jù)庫的邏輯結(jié)構(gòu)。其各個表格的設(shè)計結(jié)果如下：3.1 表格表d表gzmx表kf表kfyd表qxsz表tfd表xfp表ygb3.2賓館管理信息系統(tǒng)幾個代表窗口的具體程序?qū)崿F(xiàn):房態(tài)查詢代碼實現(xiàn)：Private Sub Form_Activate() Dim i As Integer 定義一個整型變量 Dim criteria As String 定義一個字符串變量 Dim mydb1 As Database 定義數(shù)據(jù)庫 Dim myrs1 As Recordset 定義字段 Dim myrs2 As Recordset Dim myrs3 As

8、 Recordset Set mydb1 = Workspaces(0).OpenDatabase(App.Path & db.mdb) 定義數(shù)據(jù)環(huán)境 Set myrs1 = mydb1.OpenRecordset(kf, dbOpenSnapshot) 定義數(shù)據(jù)表 入住房間查詢 SQL = 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

9、) + 維修 + Chr(34) + Set myrs3 = mydb1.OpenRecordset(SQL) For i = 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)) = 入住 Then Command1(i).Picture = LoadPictu

10、re(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 Then myrs3.MoveLast Labsy.Caption = myrs2.RecordCount 客房入住數(shù) Labwx.Caption = myrs3.RecordCount 客房維修數(shù) Labkx.C

11、aption = 25 - Val(Labwx.Caption) - Val(Labsy.Caption) 客房空閑數(shù) Labsyl.Caption = Val(Labsy.Caption) / 25 * 100 & % 客房使用率End SubPrivate Sub Form_Unload(Cancel As Integer) main.Enabled = TrueEnd SubPrivate Sub Command1_Click(Index As Integer) 查詢住宿信息 If Index = 0 = 25 Then main_zscx.Data1.RecordSource = se

12、lect * from d where 標(biāo)志=1and 房間號= & Command1(Index).Caption & main_zscx.Data1.Refresh End If Load main_zscx main_zscx.ShowEnd SubPrivate Sub Command2_Click() Unload Me main.Enabled = TrueEnd Sub調(diào)房登記代碼實現(xiàn)：Private Sub Form_Load() 自動識別數(shù)據(jù)庫路徑 Data1.DatabaseName = App.Path & db.MDB Data2.DatabaseName = App.

13、Path & db.MDB Data3.DatabaseName = App.Path & db.MDB Data4.DatabaseName = App.Path & db.MDBEnd SubPrivate Sub Form_Activate() czy.Text = main.StatusBar1.Panels(4).Text 賦值給czy.text 查詢住宿登記信息 Data4.RecordSource = select * from d where 標(biāo)志=1 Data4.RefreshEnd SubPrivate Sub Form_Unload(Cancel As Integer)

14、main.Enabled = True 設(shè)置主窗體有效End SubPrivate Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Texbz.SetFocus texbz獲得焦點End SubPrivate Sub DBCOMBO2_Change() If DBCombo2.Text Then Data1.Recordset.FindFirst 房間號= & DBCombo2.Text & and 標(biāo)志=1 If Data1.Recordset.NoMatch T

15、hen MsgBox (請核準(zhǔn)住宿房間和住宿人！) Else If Data1.Recordset.Fields(客房類型) Then With Data1.Recordset 查詢空閑房間 Data2.RecordSource = select * from kf where 房間類型= & .Fields(客房類型) & and 房態(tài)=空房 Data2.Refresh 賦值給bh.text等 If .Fields(憑證) Then bh.Text = .Fields(憑證) If .Fields() Then Texxmb.Text = .Fields() If .Fields(證件名稱)

16、 Then Combo1.Text = .Fields(證件名稱) If .Fields(證件) Then Texsfz.Text = .Fields(證件) If .Fields(客房價格) Then Texjg.Text = .Fields(客房價格) End With End If End If DBCombo1.Enabled = True Texbz.Enabled = True End IfEnd SubPrivate Sub DBCOMBO2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyRetur

17、n Then DBCombo1.SetFocus 按回車鍵DBCombo1獲得焦點End SubPrivate Sub texbz_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Comok.SetFocus 按回車鍵comok獲得焦點End SubPrivate Sub comdj_Click() 登記 Frame2.Enabled = True: Frame3.Enabled = True: DBCombo2.Enabled = True DBCombo1.Enabled = True:

18、 Texjg.Enabled = True: Comok.Enabled = True Comcancel.Enabled = True: Comok.Enabled = True: Comdj.Enabled = False DBCombo2.SetFocus DBCombo2獲得焦點End SubPrivate Sub comok_Click() 確定調(diào)房 Dim bh As String 定義一個字符串類型的變量 查詢空閑房間信息 Data2.RecordSource = select * from kf where 房間號= & DBCombo1.Text & and 房態(tài)=空房 Da

19、ta2.Refresh If Data2.Recordset.RecordCount 0 Then Dim mydb1 As Database Dim myrs2 As Recordset Set mydb1 = Workspaces(0).OpenDatabase(App.Path & db.MDB) 查詢所有住宿登記信息 Data1.RecordSource = select * from d Data1.Refresh Data1.Recordset.FindFirst 房間號 = & DBCombo2.Text & and 標(biāo)志=1 bh = Data1.Recordset.Field

20、s(憑證) Data1.Recordset.Edit 編輯住宿登記信息 If DBCombo1.Text Then Data1.Recordset.Fields(房間號) = Val(DBCombo1.Text) If Texbz.Text Then Data1.Recordset.Fields(備注) = Texbz.Text Data1.Recordset.Fields(標(biāo)志) = 1 Data1.Recordset.Fields(摘要) = 由源房 & DBCombo2.Text & 調(diào)到目標(biāo)房 & DBCombo1.Text Data1.Recordset.Update 更新記錄 Da

21、ta3.RecordSource = select * from djys where 憑證= & Data1.Recordset.Fields(憑證) & 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.R

22、ecordset.RecordCount Data3.Recordset.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.Fields(摘要) = 由源房 & DBCombo2.Text & 調(diào)到目標(biāo)房 & DBCombo1.Text Data3.Records

23、et.Update 更新記錄 If Data3.Recordset.EOF = False Then Data3.Recordset.MoveNext Next i End If 編輯客房狀態(tài) Data2.Recordset.Edit Data2.Recordset.Fields(房態(tài)) = 入住 Data2.Recordset.Update Data2.RecordSource = select * from kf Data2.Refresh Data2.Recordset.FindFirst 房間號 = & DBCombo2.Text & Data2.Recordset.Edit Data

24、2.Recordset.Fields(房態(tài)) = 空房 Data2.Recordset.Update 查詢空閑房間信息 Data3.RecordSource = 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 Comcance

25、l.Enabled = False: Comdj.Enabled = True 清空數(shù)據(jù) DBCombo1.Text = : DBCombo2.Text = : Texxmb.Text = Texsfz.Text = : Texbz.Text = : Texjg.Text = Comdj.SetFocus Comdj獲得焦點 Else MsgBox (所選房間已有人入住，請選擇空房,再保存!) End IfEnd SubPrivate Sub comcancel_Click() 取消操作 DBCombo2.Enabled = True: DBCombo1.Enabled = True: Com

26、dj.Enabled = True Comok.Enabled = False: Texbz.Enabled = True DBCombo1.Text = : DBCombo2.Text = : Texxmb.Text = Texsfz.Text = : Texbz.Text = : Texjg.Text = End SubPrivate Sub comend_Click() Unload Me main.Enabled = True 設(shè)置主窗體有效End Sub追加押金代碼實現(xiàn)：Private Sub Form_Load()自動識別數(shù)據(jù)庫路徑 Data1.DatabaseName = App

27、.Path & db.MDB Data2.DatabaseName = App.Path & db.MDB Data3.DatabaseName = App.Path & db.MDBEnd SubPrivate Sub Form_Activate() czy.Text = main.StatusBar1.Panels(4).Text 賦值給czy.text 查詢住宿登記信息 Data2.RecordSource = select 憑證 from d where 標(biāo)志=1order by 憑證 Data2.RefreshEnd SubPrivate Sub Form_Unload(Cancel

28、 As Integer) main.Enabled = True 設(shè)置主窗體有效End SubPrivate Sub DBCombo1_Change()查詢住宿登記信息 Data1.RecordSource = select * from d where 憑證= & DBCombo1.Text & Data1.Refresh If Data1.Recordset.RecordCount 0 Then 當(dāng)記錄大于零時賦值給text2等 If Data1.Recordset.Fields() Then Text2.Text = Data1.Recordset.Fields() If Data1.R

29、ecordset.Fields(預(yù)收金額) Then Text3.Text = Data1.Recordset.Fields(預(yù)收金額) If Data1.Recordset.Fields(住宿天數(shù)) Then Text4.Text = Data1.Recordset.Fields(住宿天數(shù)) If Data1.Recordset.Fields(房間號) Then Text5.Text = Data1.Recordset.Fields(房間號) If Data1.Recordset.Fields(客房類型) Then Text6.Text = Data1.Recordset.Fields(客房

30、類型) If Data1.Recordset.Fields(客房價格) Then Text7.Text = Data1.Recordset.Fields(客房價格) If Data1.Recordset.Fields(住宿日期) Then DTP1.Value = Data1.Recordset.Fields(住宿日期) If Data1.Recordset.Fields(住宿時間) Then tim1.Value = Data1.Recordset.Fields(住宿時間) If Data1.Recordset.Fields(提醒日期) Then DTP2.Value = Data1.Rec

31、ordset.Fields(提醒日期) If Data1.Recordset.Fields(提醒時間) Then tim2.Value = Data1.Recordset.Fields(提醒時間) If Data1.Recordset.Fields(退宿日期) Then DTP3.Value = Data1.Recordset.Fields(退宿日期) If Data1.Recordset.Fields(退宿時間) Then tim3.Value = Data1.Recordset.Fields(退宿時間) End IfEnd SubPrivate Sub DBCombo1_KeyDown(K

32、eyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text1.SetFocusEnd SubPrivate Sub Text1_Change() 計算提醒日期與時間 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.Tex

33、t) 0.5 * Val(Text7.Text) Then tim2.Value = #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 Then 查詢住宿登記

34、信息 Data1.RecordSource = select * from d 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 = select * from djys where 憑證= & DBCombo1.Text & Data3.Refresh 編輯住宿登記預(yù)收信息 Data3.R