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

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

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

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

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

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

6、#183;···················51 八、參考文獻(xiàn)····························

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

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

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

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

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

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

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

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

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

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

17、管理對(duì)顧客消費(fèi)進(jìn)行更新管理、結(jié)算管理歷史記錄查詢以往歷史對(duì)以往顧客住房歷史進(jìn)行查詢顧客結(jié)賬顧客結(jié)賬對(duì)顧客消費(fèi)、繳費(fèi)運(yùn)算，并顯示余額，以便對(duì)客戶收退款顧客查詢用戶信息查詢可對(duì)用戶信息進(jìn)行查詢，還可以修改密碼顧客評(píng)價(jià)評(píng)價(jià)員工服務(wù)態(tài)度顧客可以通過(guò)自己的一票表?yè)P(yáng)或批評(píng)一名員工四、系統(tǒng)實(shí)施登陸界面：登陸界面分為管理員登陸和顧客登陸。管理員用用戶名和密碼登陸，權(quán)限為1的是老板，登陸進(jìn)去后是管理員信息，權(quán)限為2的是管理員，登陸進(jìn)去后是酒店菜單，進(jìn)行酒店日常工作。顧客用訂單號(hào)和密碼登陸，可以進(jìn)行顧客本人的信息查詢。代碼：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 權(quán)限 from 管理員信息 where 用戶名='''+user+''' and 密碼='''+pass+'''' adoquery1.O

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

20、'+user+''' and 密碼='''+pass+'''' adoquery1.Open; long:=adoquery1.fieldbyname('訂單號(hào)').AsString; num:=adoquery1.fieldbyname('密碼').AsString; if num='' then begin showmessage('用戶名或密碼錯(cuò)誤!'); 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;管理員信息:管理員界面，老板可以進(jìn)行查詢，修改管理員信息，也可以查看員工信息和財(cái)政結(jié)算，然后可以到酒店菜單，進(jìn)行酒店日常服務(wù)。管理員可以進(jìn)行查詢，修改管理員信息，然后可以到酒店菜單，進(jìn)行酒店日常服務(wù)。老板代碼：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 權(quán)限='''+power+''' or 編

23、碼='''+num+''''adoquery1.Open;edit1.text:=adoquery1.fieldbyname('用戶名').AsString;edit2.text:=adoquery1.fieldbyname('密碼').AsString;edit3.text:=adoquery1.fieldbyname('權(quán)限').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+''',權(quán)限='''+num+''' where 用戶名='''+name+''' 'adocommand1.ex

25、ecute;showmessage('修改成功');edit1.text:=adoquery1.fieldbyname('用戶名').AsString;edit2.text:=adoquery1.fieldbyname('密碼').AsString;edit3.text:=adoquery1.fieldbyname('權(quán)限').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 權(quán)限='''+power+''' or 編碼='''+num+''''adoquery1.Open;edit1.text:=adoquery1.fieldbyname(

28、9;用戶名').AsString;edit2.text:=adoquery1.fieldbyname('密碼').AsString;edit3.text:=adoquery1.fieldbyname('權(quán)限').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('權(quán)限').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 編號(hào)='''+user+'''or 姓名='''+num+''''adoquery1.Open;edit3.Text:=adoquery1.fieldb

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

33、39;).AsString;edit9.Text:=adoquery1.fieldbyname('基本工資').AsString;edit10.Text:=adoquery1.fieldbyname('評(píng)價(jià)').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 員工信息(編號(hào),姓名,性別,職務(wù),部門(mén),工資,基本工資,評(píng)價(jià)) 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 編號(hào)='''+d1+''',姓名='''+d2+''',性別='''+d3+''',職務(wù)='''+d4+''',部門(mén)='''

38、+d5+''',工資='''+d6+''',基本工資='''+d7+''',評(píng)價(jià)='''+d8+''' where 編號(hào)='''+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 編號(hào)='''+num+'''' ;adocommand1.execute;showmessage('刪除成功');end;財(cái)政結(jié)算：這里可以查詢，修改，刪除各個(gè)月份的酒店財(cái)政狀況。代碼：p

40、rocedure TForm12.Button1Click(Sender: TObject);var user:string;beginuser:=edit1.text;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.text:='select * from 財(cái)務(wù)結(jié)算 where 財(cái)政編號(hào)='''+user+''''adoquery1.Open;edit2.Text:=adoquery1.fieldbyname('財(cái)政編號(hào)').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('服務(wù)部收入').AsString;edit9.Text:=adoquery1.fieldbyname('娛樂(lè)部收入').AsString;edit10.Text:=adoquery1.fieldbyname('工資支出').AsString;edit11.Text:=adoquery1.fieldbyname('維護(hù)支出').AsString;edit12.Text:=adoquery1.fieldbyname('購(gòu)貨支出').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 財(cái)務(wù)結(jié)算 '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 財(cái)務(wù)結(jié)算(財(cái)政編號(hào),凈收入,總收入,總支出,餐飲部收入,住宿部收入,服務(wù)部收入,娛樂(lè)部收入,工資支出,維護(hù)支出,購(gòu)貨支出) 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 財(cái)務(wù)結(jié)算 where 財(cái)政編號(hào)='''+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 財(cái)政結(jié)算 SET 財(cái)政編號(hào)='''+d1+''',凈收入='''+d2+''',總收入=''&

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

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

51、;end;酒店菜單：酒店菜單分為六個(gè)選項(xiàng):客房資料，顧客資料，顧客登記，顧客消費(fèi)，歷史記錄，顧客結(jié)賬，主要進(jìn)行酒店運(yùn)營(yíng)?？头啃畔ⅲ嚎头啃畔⒛K可進(jìn)行客房的查詢，添加，修改，刪除。代碼：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 證件號(hào)='''+user+'''or 顧客姓名='''+num+''

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

57、39;).AsString;edit8.Text:=adoquery1.fieldbyname('房間號(hào)').AsString;edit9.Text:=adoquery1.fieldbyname('入住時(shí)間').AsString;edit10.Text:=adoquery1.fieldbyname('預(yù)付金額').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