酒店管理系統(tǒng)Delphi軟件畢業(yè)設計1

1、南 京 理 工 大 學課程設計說明書作 者:學 號：作 者:學 號：學院(系):專 業(yè):題 目:酒店管理系統(tǒng) 2010年 10月 目錄 一、 概述 ·····································

2、3;1 二、需求分析···································3 三、系統(tǒng)設計············

3、·······················7 四、系統(tǒng)實施·························

4、3;·········16 五、系統(tǒng)測試···································42 六、收獲和體會 ··&#

5、183;·····························51 七、附錄···················&

6、#183;···················51 八、參考文獻····························

7、3;······51一、概述1、項目背景： 酒店興衰,關鍵是管理。建設一間現(xiàn)代化的酒店,需要的是錢,而要經(jīng)營管理好一間酒店,關鍵是管理。酒店管理是現(xiàn)代酒店的命脈,管理水平的高低,決定著酒店經(jīng)營的成敗。酒店是企業(yè),同樣是要重視管理的工作,加強管理?，F(xiàn)代管理者即是財富,當代的管理者更是直接的財富。管理的意義,簡單地講,管就是主事,理就是治事,合起來為主管和治理人與事。           隨著中國加入WTO和經(jīng)濟全球化格局的形成,

8、越來越多的人感到21世紀國際酒店的競爭激烈,從設備豪華到價格競爭發(fā)展到人才全方位的競爭。要競爭就必須創(chuàng)新。創(chuàng)新,是酒店的生命。商場如戰(zhàn)場,成功的管理者及其管理需要剛柔結合。 一個酒店,無論是土地,還是設備,還是流動資金,他們的實質都是靜態(tài)資產。人們認為財務管理首要的是講“管好錢”。其實錢是屬于靜態(tài)資產,錢是不會跑的,它又沒有長腳。如果說錢會跑,是因為有人去動他,所以不是錢的問題,仍然是管理的問題。錢是不能主動創(chuàng)造價值的,即使是被投資于很好的項目,也是管理做的決定,也是由人在那里管理。所以,唯有管理的行為才能創(chuàng)造價值。 現(xiàn)在的酒店管理進入e 時代，未來酒店業(yè)的競爭必將進入一個新的階段，伴隨著我國

9、旅游業(yè)的高速發(fā)展，賓館酒店行業(yè)的服務檔次迫切需要提高。在賓館酒店競爭日趨激烈的今天，要成為佼佼者，就必須與高新技術緊密結合。硬件設施落后、管理水平滯后、服務質量低下的酒店將被逐步淘汰，傳統(tǒng)的純手工或簡單的計算工具，已經(jīng)不適應現(xiàn)代經(jīng)濟高速發(fā)展的要求，必須運用現(xiàn)代化管理手段，配備完善的自動化設備，提高酒店的服務水平與質量，從而贏得高信譽、強實力、好效益！本系統(tǒng)目地是為了一些酒店還沒有使用管理軟件，仍靠手工處理業(yè)務。2、編寫目的：為酒店提供一種方便快捷的服務管理軟件3、軟件定義：酒店管理系統(tǒng)4、開發(fā)環(huán)境：Windows 2000/XP二、需求分析1、問題的提出：如何能讓酒店客戶服務更快捷有效、讓各方

10、面信息一目了然呢需要哪些方面的功能才能使管理員只要輕輕敲打計算機就可以輕松完事?2、系統(tǒng)的業(yè)務功能分析： 老板界面：管理員信息、員工管 理、財政管理，酒店菜單含客房資料、用戶資料、用戶登記入住、 結賬等項目，顧客可進行自己信息查詢和進行員工評價。選擇員工管理老板登陸管理員登陸財政管理酒店管理系統(tǒng)酒店管理員工登陸選擇 客房資料顧客資料顧客登記顧客消費顧客結賬歷史記錄自助查詢評價員工顧客登陸3、 系統(tǒng)的業(yè)務流程分析： 輸入管理員姓名、密碼，判斷是普通員工還是老板，老板則進入老板界面， 可進行員工管理、管理員管理和財政管理，如果是普通員工則登錄主界面，根 據(jù)需要點擊客房資料、用戶資料、用戶登記、結賬

11、等選項，進入選項，進行更 選擇 新或查詢。輸入顧客的訂單號和密碼可進行顧客信息的查詢和員工評價。 員工管理老板登陸管理員登陸財政管理開始酒店管理員工登陸選擇 客房資料顧客資料顧客登記顧客消費顧客結賬歷史記錄自助查詢評價員工顧客登陸4、需完成的功能：系統(tǒng)的總體是為服務人員提供一個方便快捷的管理工具，使得用戶能夠快速準確完成顧客入住、結賬等煩雜工作。具體有以下基本功能：用戶登記：完成顧客的入住登記操作，主要是記錄顧客信息、分配房間和其他信息。賬務結算：結算賬務、整理客房資料客房資料：日常信息維護，主要是修改房間狀態(tài)、刪除房間等。顧客信息：存檔顧客信息員工信息：存檔員工信息，以便對員工考勤 工資 等

12、進行管理用戶評價：用戶對工作人員的評價，記入員工信息表中5、數(shù)據(jù)流圖：收款客房信息修改付款金額退房結賬顧客信息酒店客房管理信息房間信息入住登錄酒店管理系統(tǒng)顧客酒店酒店管理系統(tǒng)顧客酒店5、數(shù)據(jù)字典1）數(shù)據(jù)流定義表編號數(shù)據(jù)流名內部名組成L01客房信息E01、E12E20L02顧客資料E01E11L03顧客登記L01、L02L04顧客消費E01、E02、E06、E21E26L05管理員信息E27E29L06員工信息E27、E30E36L07財務結算E37E472）數(shù)據(jù)元素定義編號數(shù)據(jù)元素名數(shù)據(jù)類型類長備注E01訂單號Int4不允許空E02顧客姓名Char10E03證件類型E04證件號E05住址E06

13、房間號E07入住時間E08預付金額E09退房日期E10是否在住E11密碼E12房間類型E13價格E14是否可住E15床數(shù)E16有無空調E17有無電話E18有無電視E19有無衛(wèi)生間E20有無網(wǎng)線E21住宿費E22服務費用E23餐飲費用E24總消費E25總繳費E26余額E27管理員姓名名E28管理密碼E29權限IntE30編號char10不允許空E31性別E32部門E33職務E34評價E35基本工資E36工資E37財政編號不允許空E38凈收入E39總收入E40總支出E41餐飲部收入E42住宿部收入E43娛樂部收入E44服務部收入E45工資支出E46維護支出E47購貨支出 三、系統(tǒng)設計1、數(shù)據(jù)表：(

14、1) E-R圖客房管理財政信息管理編號管理房間號員工 管理員 付款查詢結算評價顧客訂單號顧客消費賬務結算編號性別基本工資部門員工信息工資評價姓名職務權限用戶名編碼管理員信息部門密碼是否可用房間類型價格房間號有無電視有無空調客房信息有無衛(wèi)生間有無電話有無網(wǎng)線床數(shù)總收入凈收入財政編號娛樂部收入餐飲部收入工資支出住宿部收入財政結算維護支出服務部收入購貨支出總支出房間號是否在住證件號訂單號預付金額顧客姓名客戶信息證件類型退房日期入住時間評價密碼住址餐飲用費服務用費訂單號總繳費用戶消費住宿費總消費余額(2) 、數(shù)據(jù)庫的關系模式：管理員（編碼，用戶名，密碼，權限，部門）；客房信息（房間號，房間類型，價格，

15、是否可用，床數(shù)，有無空調，有無電話，有無電視，有無衛(wèi)生間，有無網(wǎng)線）；客戶信息（訂單號，姓名，證件類型，證件號，住址，房間號，入住時間，預付金額，退房日期，是否在住，密碼，評價）；用戶消費（訂單號，房間號，顧客姓名，住宿費，服務費用，餐飲費用，總消費，總繳費，余額）；員工信息（編號，姓名，性別，部門，職務，評價，基本工資，工資）；財政結算（財政編號，總收入，凈收入，總支出，餐飲部收入，娛樂部收入，住宿部收入，服務部收入，工資支出，維護支出，購貨支出）；(3) 、表的物理設計：2、數(shù)據(jù)庫權限，觸發(fā)器：數(shù)據(jù)庫權限 ： 觸發(fā)器： 選擇3、軟件功能設計(1)、系統(tǒng)的結構圖員工管理老板登陸管理員登陸財政

16、管理開始酒店管理員工登陸選擇 客房資料顧客資料顧客登記顧客消費顧客結賬歷史記錄自助查詢評價員工顧客登陸(2)、功能表：系統(tǒng)模塊實現(xiàn)功能功能描述 登陸登陸管理員頁面輸入管理員姓名、密碼 ，登錄管理員頁面，進行管理登陸顧客界面輸入顧客的訂單號和密碼，進入顧客界面管理員信息管理管理、查看管理員信息對管理員性查詢，修改員工信息管理員工信息對員工信息查詢，添加，刪除，修改財政結算管理財政信息查詢，修改財政信息客房資料管理、查看客房資料對客房各種屬性查詢，添加，刪除，修改客房資料，跳轉客戶登記頁面顧客資料管理顧客信息對顧客信息進行添加，刪除，修改，查詢等功能顧客登記顧客登記登記新顧客的信息用戶消費顧客消費

17、管理對顧客消費進行更新管理、結算管理歷史記錄查詢以往歷史對以往顧客住房歷史進行查詢顧客結賬顧客結賬對顧客消費、繳費運算，并顯示余額，以便對客戶收退款顧客查詢用戶信息查詢可對用戶信息進行查詢，還可以修改密碼顧客評價評價員工服務態(tài)度顧客可以通過自己的一票表揚或批評一名員工四、系統(tǒng)實施登陸界面：登陸界面分為管理員登陸和顧客登陸。管理員用用戶名和密碼登陸，權限為1的是老板，登陸進去后是管理員信息，權限為2的是管理員，登陸進去后是酒店菜單，進行酒店日常工作。顧客用訂單號和密碼登陸，可以進行顧客本人的信息查詢。代碼：procedure TForm14.BitBtn1Click(Sender: TObjec

18、t);var num,user,pass:string;begin user:=edit1.Text; pass:=edit2.Text;if radiobutton1.checked=true then begin adoquery1.close; adoquery1.SQL.clear; adoquery1.SQL.Text:='select 權限 from 管理員信息 where 用戶名='''+user+''' and 密碼='''+pass+'''' adoquery1.O

19、pen; num:=adoquery1.fieldbyname('權限').AsString; if num='' then showmessage('用戶名或密碼錯誤!'); if num='1' then form6.show; if num='2' then Form15.show; endelsebeginadoquery1.close; adoquery1.SQL.clear; adoquery1.SQL.Text:='select * from 客戶信息 where 訂單號=''

20、'+user+''' and 密碼='''+pass+'''' adoquery1.Open; long:=adoquery1.fieldbyname('訂單號').AsString; num:=adoquery1.fieldbyname('密碼').AsString; if num='' then begin showmessage('用戶名或密碼錯誤!'); end else begin form8.show; end end; edit1

21、.clear; edit2.clear; close; end;procedure TForm14.BitBtn2Click(Sender: TObject);beginedit1.clear;edit2.clear;close;end;管理員信息:管理員界面，老板可以進行查詢，修改管理員信息，也可以查看員工信息和財政結算，然后可以到酒店菜單，進行酒店日常服務。管理員可以進行查詢，修改管理員信息，然后可以到酒店菜單，進行酒店日常服務。老板代碼：procedure TForm6.Button1Click(Sender: TObject);var name,secert,power,num:str

22、ing;beginname:=edit1.Text;secert:=edit2.Text;power:=edit3.Text;num:=edit4.Text;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:='select * from 管理員信息 where 用戶名='''+name+''' or 密碼='''+secert+''' or 權限='''+power+''' or 編

23、碼='''+num+''''adoquery1.Open;edit1.text:=adoquery1.fieldbyname('用戶名').AsString;edit2.text:=adoquery1.fieldbyname('密碼').AsString;edit3.text:=adoquery1.fieldbyname('權限').AsString;edit4.text:=adoquery1.fieldbyname('編碼').AsString;end;procedure

24、TForm6.Button2Click(Sender: TObject);var name,secert,num:string;beginname:=edit1.Text;secert:=edit2.Text;num:=edit3.Text;mandText:='UPDATE 管理員信息 SET 密碼='''+secert+''',權限='''+num+''' where 用戶名='''+name+''' 'adocommand1.ex

25、ecute;showmessage('修改成功');edit1.text:=adoquery1.fieldbyname('用戶名').AsString;edit2.text:=adoquery1.fieldbyname('密碼').AsString;edit3.text:=adoquery1.fieldbyname('權限').AsString;edit4.text:=adoquery1.fieldbyname('編碼').AsString;end;procedure TForm6.Button5Click(Sen

26、der: TObject);beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:='select * from 管理員信息'adoquery1.Open;end;管理員代碼：procedure TForm15.Button1Click(Sender: TObject);var name,secert,power,num:string;beginname:=edit1.Text;secert:=edit2.Text;power:=edit3.Text;num:=edit4.Text;adoquery1.Close

27、;adoquery1.SQL.Clear;adoquery1.SQL.text:='select * from 管理員信息 where 用戶名='''+name+''' or 密碼='''+secert+''' or 權限='''+power+''' or 編碼='''+num+''''adoquery1.Open;edit1.text:=adoquery1.fieldbyname(

28、9;用戶名').AsString;edit2.text:=adoquery1.fieldbyname('密碼').AsString;edit3.text:=adoquery1.fieldbyname('權限').AsString;edit4.text:=adoquery1.fieldbyname('編碼').AsString;end;procedure TForm15.Button2Click(Sender: TObject);var secert:string;beginsecert:=edit2.Text;mandText:='

29、;UPDATE 管理員信息 SET 密碼='''+secert+''' where 用戶名='''+name+''' 'adocommand1.execute;showmessage('修改成功');edit1.text:=adoquery1.fieldbyname('用戶名').AsString;edit2.text:=adoquery1.fieldbyname('密碼').AsString;edit3.text:=adoquery1.fie

30、ldbyname('權限').AsString;edit4.text:=adoquery1.fieldbyname('編碼').AsString;end;procedure TForm15.Button5Click(Sender: TObject);beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:='select * from 管理員信息'adoquery1.Open;end;員工信息：這里可以查詢，修改，刪除酒店員工的各種信息。代碼：procedure TForm11.Bu

31、tton1Click(Sender: TObject);var num,user:string;beginuser:=edit1.text;num:=edit2.text;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:='select * from 員工信息 where 編號='''+user+'''or 姓名='''+num+''''adoquery1.Open;edit3.Text:=adoquery1.fieldb

32、yname('編號').AsString;edit4.Text:=adoquery1.fieldbyname('姓名').AsString;edit5.Text:=adoquery1.fieldbyname('性別').AsString;edit6.Text:=adoquery1.fieldbyname('職務').AsString;edit7.Text:=adoquery1.fieldbyname('部門').AsString;edit8.Text:=adoquery1.fieldbyname('工資&#

33、39;).AsString;edit9.Text:=adoquery1.fieldbyname('基本工資').AsString;edit10.Text:=adoquery1.fieldbyname('評價').AsString;end;procedure TForm11.Button2Click(Sender: TObject);beginform7.show;close;end;procedure TForm11.Button3Click(Sender: TObject);beginadoquery1.Close;adoquery1.SQL.Clear;ad

34、oquery1.SQL.text:='select * from 員工信息 'adoquery1.Open;end;procedure TForm11.Button4Click(Sender: TObject);var d1,d2,d3,d4,d5,d6,d7,d8:string;begind1:=edit3.text;d2:=edit4.text;d3:=edit5.text;d4:=edit6.text;d5:=edit7.text;d6:=edit8.text;d7:=edit9.text;d8:=edit10.text;mandText:='insert int

35、o 員工信息(編號,姓名,性別,職務,部門,工資,基本工資,評價) values('''+d1+''','''+d2+''','''+d3+''','''+d4+''','''+d5+''','''+d6+''','''+d7+''','''

36、;+d8+''')'adocommand1.execute;showmessage('保存完畢');d1:=''d2:=''d3:=''d4:=''d5:=''d6:=''d7:=''d8:=''end;procedure TForm11.Button6Click(Sender: TObject);var d1,d2,d3,d4,d5,d6,d7,d8:string;begind1:=edit3.text;d2:=edi

37、t4.text;d3:=edit5.text;d4:=edit6.text;d5:=edit7.text;d6:=edit8.text;d7:=edit9.text;d8:=edit10.text;mandText:='UPDATE 員工信息 SET 編號='''+d1+''',姓名='''+d2+''',性別='''+d3+''',職務='''+d4+''',部門='''

38、+d5+''',工資='''+d6+''',基本工資='''+d7+''',評價='''+d8+''' where 編號='''+d1+''''adocommand1.execute;showmessage('保存完畢');d1:=''d2:=''d3:=''d4:=''d5:='

39、9;d6:=''d7:=''d8:=''end;procedure TForm11.Button5Click(Sender: TObject);var num:string;beginnum:=edit3.Text;mandText:='delete from 員工信息 where 編號='''+num+'''' ;adocommand1.execute;showmessage('刪除成功');end;財政結算：這里可以查詢，修改，刪除各個月份的酒店財政狀況。代碼：p

40、rocedure TForm12.Button1Click(Sender: TObject);var user:string;beginuser:=edit1.text;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:='select * from 財務結算 where 財政編號='''+user+''''adoquery1.Open;edit2.Text:=adoquery1.fieldbyname('財政編號').AsString;edit3.Tex

41、t:=adoquery1.fieldbyname('凈收入').AsString;edit4.Text:=adoquery1.fieldbyname('總收入').AsString;edit5.Text:=adoquery1.fieldbyname('總支出').AsString;edit6.Text:=adoquery1.fieldbyname('餐飲部收入').AsString;edit7.Text:=adoquery1.fieldbyname('住宿部收入').AsString;edit8.Text:=ado

42、query1.fieldbyname('服務部收入').AsString;edit9.Text:=adoquery1.fieldbyname('娛樂部收入').AsString;edit10.Text:=adoquery1.fieldbyname('工資支出').AsString;edit11.Text:=adoquery1.fieldbyname('維護支出').AsString;edit12.Text:=adoquery1.fieldbyname('購貨支出').AsString;end;procedure T

43、Form12.Button2Click(Sender: TObject);beginform7.show;close;end;procedure TForm12.Button3Click(Sender: TObject);beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:='select * from 財務結算 'adoquery1.Open;end;procedure TForm12.Button4Click(Sender: TObject);var d1,d2,d3,d4,d5,d6,d7,d8,d9,d

44、10,d11:string;begind1:=edit2.text;d2:=edit3.text;d3:=edit4.text;d4:=edit5.text;d5:=edit6.text;d6:=edit7.text;d7:=edit8.text;d8:=edit9.text;d9:=edit10.text;d10:=edit11.text;d11:=edit12.text;mandText:='insert into 財務結算(財政編號,凈收入,總收入,總支出,餐飲部收入,住宿部收入,服務部收入,娛樂部收入,工資支出,維護支出,購貨支出) values('''

45、+d1+''','''+d2+''','''+d3+''','''+d4+''','''+d5+''','''+d6+''','''+d7+''','''+d8+''','''+d9+''',

46、'''+d10+''','''+d11+''')'adocommand1.execute;showmessage('添加成功');d1:=''d2:=''d3:=''d4:=''d5:=''d6:=''d7:=''d8:=''d9:=''d10:=''d11:=''end;procedure TForm

47、12.Button5Click(Sender: TObject);var num:string;beginnum:=edit3.Text;mandText:='delete from 財務結算 where 財政編號='''+num+'''' ;adocommand1.execute;showmessage('刪除成功');end;procedure TForm12.Button6Click(Sender: TObject);var d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11:string;

48、begind1:=edit2.text;d2:=edit3.text;d3:=edit4.text;d4:=edit5.text;d5:=edit6.text;d6:=edit7.text;d7:=edit8.text;d8:=edit9.text;d9:=edit10.text;d10:=edit11.text;d11:=edit12.text;mandText:='UPDATE 財政結算 SET 財政編號='''+d1+''',凈收入='''+d2+''',總收入=''&

49、#39;+d3+''',總支出='''+d4+''',餐飲部收入='''+d5+''',住宿部收入='''+d6+''',服務部收入='''+d7+''',娛樂部收入='''+d8+''',工資支出='''+d8+''',維護支出='''+d8+''

50、;',購貨支出='''+d8+''' where 財政編號='''+d1+''''adocommand1.execute;showmessage('修改成功');d1:=''d2:=''d3:=''d4:=''d5:=''d6:=''d7:=''d8:=''d9:=''d10:=''d11:=''

51、;end;酒店菜單：酒店菜單分為六個選項:客房資料，顧客資料，顧客登記，顧客消費，歷史記錄，顧客結賬，主要進行酒店運營?？头啃畔ⅲ嚎头啃畔⒛K可進行客房的查詢，添加，修改，刪除。代碼：procedure TForm4.Button1Click(Sender: TObject);var useful,fj1,fj2,fj3,dan,shu,si:string;beginif checkbox1.checked=true thenbeginuseful:='是'endelsebeginuseful:='否'end;if checkbox2.checked=true

52、thenbeginfj1:='普通間'endelsebeginfj1:=''end;if checkbox3.checked=true thenbeginfj2:='中等間'endelsebeginfj2:=''end;if checkbox4.checked=true thenbeginfj3:='貴賓間'endelsebeginfj3:=''end;if checkbox5.checked=true thenbegindan:='單人間'endelsebegindan:='

53、;'end;if checkbox6.checked=true thenbeginshu:='雙人間'endelsebeginshu:=''end;if checkbox7.checked=true thenbeginsi:='四人間'endelsebeginsi:=''end;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:='select * from 客房信息 where 是否可用='''+useful+''

54、' and ( 房間類型='''+fj1+''' or 房間類型='''+fj2+''' or 房間類型='''+fj3+''') and (床數(shù)='''+dan+''' or 床數(shù)='''+shu+''' or 床數(shù)='''+si+''')'adoquery1.Open;end;顧客信息:顧客

55、信息可以查詢，修改，添加，刪除，現(xiàn)有在住人員信息。代碼：procedure TForm3.Button1Click(Sender: TObject);var num,user:string;beginuser:=edit1.text;num:=edit2.text;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:='select * from 客戶信息 where 證件號='''+user+'''or 顧客姓名='''+num+''

56、9;'adoquery1.Open;edit3.Text:=adoquery1.fieldbyname('訂單號號').AsString;edit4.Text:=adoquery1.fieldbyname('顧客姓名').AsString;edit5.Text:=adoquery1.fieldbyname('證件類型').AsString;edit6.Text:=adoquery1.fieldbyname('證件號').AsString;edit7.Text:=adoquery1.fieldbyname('住址&#

57、39;).AsString;edit8.Text:=adoquery1.fieldbyname('房間號').AsString;edit9.Text:=adoquery1.fieldbyname('入住時間').AsString;edit10.Text:=adoquery1.fieldbyname('預付金額').AsString;edit11.Text:=adoquery1.fieldbyname('退房日期').AsString;edit12.Text:=adoquery1.fieldbyname('密碼').

58、AsString;end;procedure TForm3.Button2Click(Sender: TObject);beginform7.show;close;end;procedure TForm3.Button3Click(Sender: TObject);beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:='select * from 客戶信息 'adoquery1.Open;end;procedure TForm3.Button4Click(Sender: TObject);var d1,d2,d3,d4,d5,d6,d7,d8,d9,d