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

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

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

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

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

5、算日期、備注信息等。 結(jié)算信息的修改和查詢，包括客房編號(hào)、客房種類、客房位置、客房單價(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)品查詢追加押金退宿結(jié)賬掛賬結(jié)款開(kāi)發(fā)簡(jiǎn)介系統(tǒng)簡(jiǎn)介2.系統(tǒng)運(yùn)行需求2.1運(yùn)行環(huán)境操作系統(tǒng)：windows2000/xp數(shù)據(jù)庫(kù)：ACCESS語(yǔ)言：VB6.02.2尚未問(wèn)決的問(wèn)題功能尚不完善

6、，有待于繼續(xù)開(kāi)發(fā)。2.3功能概述與界面圖示1）系統(tǒng)登陸2）系統(tǒng)主框架系統(tǒng)歡迎界面。3） 系統(tǒng)設(shè)置完成對(duì)操作員的增加、對(duì)密碼的更改操作添加操作員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)于完成對(duì)系統(tǒng)和開(kāi)發(fā)的介紹3數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)設(shè)計(jì)步驟： 數(shù)據(jù)庫(kù)需求分析 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)首先將賓館管理信息系統(tǒng)的數(shù)據(jù)

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

8、s2 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ù)表 '入住房間查詢 SQL = "select * from kf where kf.房態(tài) like " + Chr(34) + "入住" + Chr(34

9、) + "" 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 = 1 To 25 '房態(tài)顯示 criteria = "房間號(hào) ='" & Command1(i).Caption &

10、"'" 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 = LoadPicture(App.Path & "tupianhappy

11、.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

12、.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 Integer) main.Enabled = TrueEnd SubPrivate Sub Command1_Click(Index As Integer) '查

13、詢住宿信息 If Index >= 0 <= 25 Then main_zscx.Data1.RecordSource = "select * from d where 標(biāo)志='1'and 房間號(hào)='" & Command1(Index).Caption & "'" main_zscx.Data1.Refresh End If Load main_zscx main_zscx.ShowEnd SubPrivate Sub Command2_Click() Unload Me main.Enabl

14、ed = TrueEnd Sub調(diào)房登記代碼實(shí)現(xiàn)：Private Sub Form_Load() '自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 Data1.DatabaseName = App.Path & "db.MDB" Data2.DatabaseName = App.Path & "db.MDB" Data3.DatabaseName = App.Path & "db.MDB" Data4.DatabaseName = App.Path & "db.MDB"End SubPrivate Su

15、b 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) main.Enabled = True '設(shè)置主窗體有效End SubPrivate Sub DBCombo1_KeyDown(KeyCode

16、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 "房間號(hào)='" & DBCombo2.Text & "'and 標(biāo)志='1'" If Data1.Recordset.N

17、oMatch Then MsgBox ("請(qǐng)核準(zhǔn)住宿房間和住宿人！") Else If Data1.Recordset.Fields("客房類型") <> "" Then With Data1.Recordset '查詢空閑房間 Data2.RecordSource = "select * from kf where 房間類型='" & .Fields("客房類型") & "'and 房態(tài)='空房'" Dat

18、a2.Refresh '賦值給bh.text等 If .Fields("憑證") <> "" Then bh.Text = .Fields("憑證") If .Fields("") <> "" Then Texxmb.Text = .Fields("") If .Fields("證件名稱") <> "" Then Combo1.Text = .Fields("證件名稱")

19、If .Fields("證件") <> "" Then Texsfz.Text = .Fields("證件") If .Fields("客房?jī)r(jià)格") <> "" Then Texjg.Text = .Fields("客房?jī)r(jià)格") End With End If End If DBCombo1.Enabled = True Texbz.Enabled = True End IfEnd SubPrivate Sub DBCOMBO2_KeyDown(Key

20、Code 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 = vbKeyReturn Then Comok.SetFocus '按回車鍵comok獲得焦點(diǎn)End SubPrivate Sub comdj_Click() '登記 Frame2.Enabled = True

21、: 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.SetFocus 'DBCombo2獲得焦點(diǎn)End SubPrivate Sub comok_Click() '確定調(diào)房 Dim bh As String '定義一個(gè)字符串類型的變量

22、'查詢空閑房間信息 Data2.RecordSource = "select * from kf where 房間號(hào)='" & DBCombo1.Text & "'and 房態(tài)='空房'" Data2.Refresh If Data2.Recordset.RecordCount > 0 Then Dim mydb1 As Database Dim myrs2 As Recordset Set mydb1 = Workspaces(0).OpenDatabase(App.Path & &

23、quot;db.MDB") '查詢所有住宿登記信息 Data1.RecordSource = "select * from d" Data1.Refresh Data1.Recordset.FindFirst "房間號(hào) ='" & DBCombo2.Text & "'and 標(biāo)志='1'" bh = Data1.Recordset.Fields("憑證") Data1.Recordset.Edit '編輯住宿登記信息 If DBCombo1.

24、Text <> "" Then Data1.Recordset.Fields("房間號(hào)") = Val(DBCombo1.Text) If Texbz.Text <> "" Then Data1.Recordset.Fields("備注") = Texbz.Text Data1.Recordset.Fields("標(biāo)志") = "1" Data1.Recordset.Fields("摘要") = "由源房" &a

25、mp; DBCombo2.Text & "調(diào)到目標(biāo)房" & DBCombo1.Text Data1.Recordset.Update '更新記錄 Data3.RecordSource = "select * from djys where 憑證='" & Data1.Recordset.Fields("憑證") & "'" Data3.Refresh If Data3.Recordset.EOF = False Then Data3.Recordset.Mov

26、eLast 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.Recordset.Edit '編輯住宿登記預(yù)收信息 If DBCombo1.Text <> "" Then Data3.Recordset.Fields("房間號(hào)") =

27、 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.Recor

28、dset.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 &

29、quot;房間號(hào) ='" & DBCombo2.Text & "'" Data2.Recordset.Edit Data2.Recordset.Fields("房態(tài)") = "空房" Data2.Recordset.Update '查詢空閑房間信息 Data3.RecordSource = "select * from kf where 房態(tài)='空房'" Data3.Refresh Data4.Refresh '設(shè)置控件有效或無(wú)效 Texxm

30、b.Enabled = False: Texsfz.Enabled = False: DBCombo1.Enabled = False DBCombo2.Enabled = False: Texbz.Enabled = False: Comok.Enabled = False Comcancel.Enabled = False: Comdj.Enabled = True '清空數(shù)據(jù) DBCombo1.Text = "": DBCombo2.Text = "": Texxmb.Text = "" Texsfz.Text = &q

31、uot;": Texbz.Text = "": Texjg.Text = "" Comdj.SetFocus 'Comdj獲得焦點(diǎn) Else MsgBox ("所選房間已有人入住，請(qǐng)選擇空房,再保存!") End IfEnd SubPrivate Sub comcancel_Click() '取消操作 DBCombo2.Enabled = True: DBCombo1.Enabled = True: Comdj.Enabled = True Comok.Enabled = False: Texbz.Enabl

32、ed = 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追加押金代碼實(shí)現(xiàn)：Private Sub Form_Load()'自動(dòng)識(shí)

33、別數(shù)據(jù)庫(kù)路徑 Data1.DatabaseName = App.Path & "db.MDB" Data2.DatabaseName = App.Path & "db.MDB" Data3.DatabaseName = App.Path & "db.MDB"End SubPrivate Sub Form_Activate() czy.Text = main.StatusBar1.Panels(4).Text '賦值給czy.text '查詢住宿登記信息 Data2.RecordSource =

34、"select 憑證 from d where 標(biāo)志='1'order by 憑證" Data2.RefreshEnd SubPrivate Sub Form_Unload(Cancel As Integer) main.Enabled = True '設(shè)置主窗體有效End SubPrivate Sub DBCombo1_Change()'查詢住宿登記信息 Data1.RecordSource = "select * from d where 憑證='" & DBCombo1.Text & &quo

35、t;'" Data1.Refresh If Data1.Recordset.RecordCount > 0 Then '當(dāng)記錄大于零時(shí)賦值給text2等 If Data1.Recordset.Fields("") <> "" Then Text2.Text = Data1.Recordset.Fields("") If Data1.Recordset.Fields("預(yù)收金額") <> "" Then Text3.Text = Data1.

36、Recordset.Fields("預(yù)收金額") If Data1.Recordset.Fields("住宿天數(shù)") <> "" Then Text4.Text = Data1.Recordset.Fields("住宿天數(shù)") If Data1.Recordset.Fields("房間號(hào)") <> "" Then Text5.Text = Data1.Recordset.Fields("房間號(hào)") If Data1.Recordse

37、t.Fields("客房類型") <> "" Then Text6.Text = Data1.Recordset.Fields("客房類型") If Data1.Recordset.Fields("客房?jī)r(jià)格") <> "" Then Text7.Text = Data1.Recordset.Fields("客房?jī)r(jià)格") If Data1.Recordset.Fields("住宿日期") <> "" T

38、hen DTP1.Value = Data1.Recordset.Fields("住宿日期") If Data1.Recordset.Fields("住宿時(shí)間") <> "" Then tim1.Value = Data1.Recordset.Fields("住宿時(shí)間") If Data1.Recordset.Fields("提醒日期") <> "" Then DTP2.Value = Data1.Recordset.Fields("提醒日期

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

40、) <> "" Then tim3.Value = Data1.Recordset.Fields("退宿時(shí)間") End IfEnd SubPrivate Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text1.SetFocusEnd SubPrivate Sub Text1_Change() '計(jì)算提醒日期與時(shí)間 DTP2.Value = DTP1.Value + Int(Val(Text3.Text

41、) + 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.Value = #6:00:00 PM# Else tim2.Value = #12:00:00 AM# End IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

42、 If KeyCode = vbKeyReturn Then Command1.SetFocusEnd SubPrivate Sub Command1_Click() '保存追加押金信息 If Text1.Text <> "" And DBCombo1.Text <> "" Then '查詢住宿登記信息 Data1.RecordSource = "select * from d where 憑證='" & DBCombo1.Text & "'"

43、 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("提醒時(shí)間") = tim2.Value Data1.Recordset.Update '更新數(shù)據(jù) '查詢住宿登記預(yù)收信息 Data3.RecordSource = "select *