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

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

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

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

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

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

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

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

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

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

10、面信息一目了然呢需要哪些方面的功能才能使管理員只要輕輕敲打計(jì)算機(jī)就可以輕松完事?2、系統(tǒng)的業(yè)務(wù)功能分析： 老板界面：管理員信息、員工管 理、財(cái)政管理，酒店菜單含客房資料、用戶資料、用戶登記入住、 結(jié)賬等項(xiàng)目，顧客可進(jìn)行自己信息查詢和進(jìn)行員工評價(jià)。選擇員工管理老板登陸管理員登陸財(cái)政管理酒店管理系統(tǒng)酒店管理員工登陸選擇 客房資料顧客資料顧客登記顧客消費(fèi)顧客結(jié)賬歷史記錄自助查詢評價(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)行更 選擇 新或查詢。輸入顧客的訂單號和密碼可進(jìn)行顧客信息的查詢和員工評價(jià)。 員工管理老板登陸管理員登陸財(cái)政管理開始酒店管理員工登陸選擇 客房資料顧客資料顧客登記顧客消費(fèi)顧客結(jié)賬歷史記錄自助查詢評價(jià)員工顧客登陸4、需完成的功能：系統(tǒng)的總體是為服務(wù)人員提供一個(gè)方便快捷的管理工具，使得用戶能夠快速準(zhǔn)確完成顧客入住、結(jié)賬等煩雜工作。具體有以下基本功能：用戶登記：完成顧客的入住登記操作，主要是記錄顧客信息、分配房間和其他信息。賬務(wù)結(jié)算：結(jié)算賬務(wù)、整理客房資料客房資料：日常信息維護(hù)，主要是修改房間狀態(tài)、刪除房間等。顧客信息：存檔顧客信息員工信息：存檔員工信息，以便對員工考勤 工資 等

12、進(jìn)行管理用戶評價(jià)：用戶對工作人員的評價(jià)，記入員工信息表中5、數(shù)據(jù)流圖：收款客房信息修改付款金額退房結(jié)賬顧客信息酒店客房管理信息房間信息入住登錄酒店管理系統(tǒng)顧客酒店酒店管理系統(tǒng)顧客酒店5、數(shù)據(jù)字典1）數(shù)據(jù)流定義表編號數(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ù)元素定義編號數(shù)據(jù)元素名數(shù)據(jù)類型類長備注E01訂單號Int4不允許空E02顧客姓名Char10E03證件類型E04證件號E05住址E06

13、房間號E07入住時(shí)間E08預(yù)付金額E09退房日期E10是否在住E11密碼E12房間類型E13價(jià)格E14是否可住E15床數(shù)E16有無空調(diào)E17有無電話E18有無電視E19有無衛(wèi)生間E20有無網(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編號char10不允許空E31性別E32部門E33職務(wù)E34評價(jià)E35基本工資E36工資E37財(cái)政編號不允許空E38凈收入E39總收入E40總支出E41餐飲部收入E42住宿部收入E43娛樂部收入E44服務(wù)部收入E45工資支出E46維護(hù)支出E47購貨支出 三、系統(tǒng)設(shè)計(jì)1、數(shù)據(jù)表：(

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

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

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

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

20、'+user+''' and 密碼='''+pass+'''' adoquery1.Open; long:=adoquery1.fieldbyname('訂單號').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 編號='''+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('職務(wù)').AsString;edit7.Text:=adoquery1.fieldbyname('部門').AsString;edit8.Text:=adoquery1.fieldbyname('工資&#

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

38、+d5+''',工資='''+d6+''',基本工資='''+d7+''',評價(jià)='''+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;財(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)政編號='''+user+''''adoquery1.Open;edit2.Text:=adoquery1.fieldbyname('財(cái)政編號').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('娛樂部收入').AsString;edit10.Text:=adoquery1.fieldbyname('工資支出').AsString;edit11.Text:=adoquery1.fieldbyname('維護(hù)支出').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 財(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)政編號,凈收入,總收入,總支出,餐飲部收入,住宿部收入,服務(wù)部收入,娛樂部收入,工資支出,維護(hù)支出,購貨支出) 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)政編號='''+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)政編號='''+d1+''',凈收入='''+d2+''',總收入=''&

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

50、;',購貨支出='''+d8+''' where 財(cái)政編號='''+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)營。客房信息：客房信息模塊可進(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 證件號='''+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('入住時(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