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

南京理工大學(xué)課程設(shè)計說明書作者學(xué)號作者學(xué)號學(xué)院系專業(yè)題目酒店管理系統(tǒng)2010年10月目錄一、概述1二、需求分析3三、系統(tǒng)設(shè)計7四、系統(tǒng)實施16五、系統(tǒng)測試42六、收獲和體會51七、附錄51八、參考文獻(xiàn)51一、概述1、項目背景酒店興衰,關(guān)鍵是管理。建設(shè)一間現(xiàn)代化的酒店,需要的是錢,而要經(jīng)營管理好一間酒店,關(guān)鍵是管理。酒店管理是現(xiàn)代酒店的命脈,管理水平的高低,決定著酒店經(jīng)營的成敗。酒店是企業(yè),同樣是要重視管理的工作,加強(qiáng)管理?，F(xiàn)代管理者即是財富,當(dāng)代的管理者更是直接的財富。管理的意義,簡單地講,管就是主事,理就是治事,合起來為主管和治理人與事。隨著中國加入WTO和經(jīng)濟(jì)全球化格局的形成,越來越多的人感到21世紀(jì)國際酒店的競爭激烈,從設(shè)備豪華到價格競爭發(fā)展到人才全方位的競爭。要競爭就必須創(chuàng)新。創(chuàng)新,是酒店的生命。商場如戰(zhàn)場,成功的管理者及其管理需要剛?cè)峤Y(jié)合。一個酒店,無論是土地,還是設(shè)備,還是流動資金,他們的實質(zhì)都是靜態(tài)資產(chǎn)。人們認(rèn)為財務(wù)管理首要的是講“管好錢”。其實錢是屬于靜態(tài)資產(chǎn),錢是不會跑的,它又沒有長腳。如果說錢會跑,是因為有人去動他,所以不是錢的問題,仍然是管理的問題。錢是不能主動創(chuàng)造價值的,即使是被投資于很好的項目,也是管理做的決定,也是由人在那里管理。所以,唯有管理的行為才能創(chuàng)造價值?，F(xiàn)在的酒店管理進(jìn)入E時代未來酒店業(yè)的競爭必將進(jìn)入一個新的階段伴隨著我國旅游業(yè)的高速發(fā)展賓館酒店行業(yè)的服務(wù)檔次迫切需要提高。在賓館酒店競爭日趨激烈的今天要成為佼佼者就必須與高新技術(shù)緊密結(jié)合。硬件設(shè)施落后、管理水平滯后、服務(wù)質(zhì)量低下的酒店將被逐步淘汰傳統(tǒng)的純手工或簡單的計算工具已經(jīng)不適應(yīng)現(xiàn)代經(jīng)濟(jì)高速發(fā)展的要求必須運(yùn)用現(xiàn)代化管理手段配備完善的自動化設(shè)備提高酒店的服務(wù)水平與質(zhì)量從而贏得高信譽(yù)、強(qiáng)實力、好效益本系統(tǒng)目地是為了一些酒店還沒有使用管理軟件仍靠手工處理業(yè)務(wù)。2、編寫目的為酒店提供一種方便快捷的服務(wù)管理軟件3、軟件定義酒店管理系統(tǒng)4、開發(fā)環(huán)境WINDOWS2000/XP二、需求分析1、問題的提出如何能讓酒店客戶服務(wù)更快捷有效、讓各方面信息一目了然呢需要哪些方面的功能才能使管理員只要輕輕敲打計算機(jī)就可以輕松完事2、系統(tǒng)的業(yè)務(wù)功能分析老板界面管理員信息、員工管理、財政管理酒店菜單含客房資料、用戶資料、用戶登記入住、結(jié)賬等項目顧客可進(jìn)行自己信息查詢和進(jìn)行員工評價。酒店管理系統(tǒng)選擇管理員登陸選擇老板登陸員工管理員工登陸財政管理酒店管理3、系統(tǒng)的業(yè)務(wù)流程分析輸入管理員姓名、密碼判斷是普通員工還是老板老板則進(jìn)入老板界面可進(jìn)行員工管理、管理員管理和財政管理如果是普通員工則登錄主界面根據(jù)需要點(diǎn)擊客房資料、用戶資料、用戶登記、結(jié)賬等選項進(jìn)入選項進(jìn)行更新或查詢。輸入顧客的訂單號和密碼可進(jìn)行顧客信息的查詢和員工評價。4、需完成的功能系統(tǒng)的總體是為服務(wù)人員提供一個方便快捷的管理工具使得用戶能夠快速準(zhǔn)確完成顧客入住、結(jié)賬等煩雜工作。具體有以下基本功能用戶登記完成顧客的入住登記操作主要是記錄顧客信息、分配房間和其他信息。賬務(wù)結(jié)算結(jié)算賬務(wù)、整理客房資料客房資料日常信息維護(hù)主要是修改房間狀態(tài)、刪除房間等。顧客信息存檔顧客信息員工信息存檔員工信息以便對員工考勤工資等進(jìn)行管理用戶評價用戶對工作人員的評價記入員工信息表中5、數(shù)據(jù)流圖顧客登陸客房資料顧客資料顧客登記顧客消費(fèi)顧客結(jié)賬歷史記錄自助查詢評價員工開始選擇管理員登陸顧客登陸老板登陸員工管理員工登陸財政管理酒店管理客房資料顧客資料顧客登記顧客消費(fèi)顧客結(jié)賬歷史記錄自助查詢評價員工選擇收款客房信息修改付款金額退房結(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財務(wù)結(jié)算E37E472）數(shù)據(jù)元素定義編號數(shù)據(jù)元素名數(shù)據(jù)類型類長備注E01訂單號INT4不允許空E02顧客姓名E03證件類型E04證件號E05住址E06房間號E07入住時間E08預(yù)付金額E09退房日期CHAR10E10是否在住E11密碼E12房間類型E13價格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編號不允許空E31性別E32部門E33職務(wù)E34評價E35基本工資E36工資E37財政編號不允許空E38凈收入E39總收入E40總支出E41餐飲部收入E42住宿部收入E43娛樂部收入E44服務(wù)部收入E45工資支出E46維護(hù)支出E47購貨支出CHAR10三、系統(tǒng)設(shè)計1、數(shù)據(jù)表1ER圖管理員財政信息員工客房顧客顧客消費(fèi)查詢付款訂單號管理管理管理評價房間號編號員工信息編號基本工資工資評價職務(wù)部門性別姓名管理員信息編碼密碼權(quán)限用戶名客房信息房間號房間類型價格有無空調(diào)是否可用有無電視賬務(wù)結(jié)算結(jié)算部門有無電話有無衛(wèi)生間床數(shù)有無網(wǎng)線財政結(jié)算住宿部收入財政編號總收入餐飲部收入娛樂部收入工資支出總支出購貨支出維護(hù)支出凈收入服務(wù)部收入客戶信息訂單號顧客姓名預(yù)付金額入住時間證件類型密碼證件號房間號住址評價退房日期是否在住訂單號總繳費(fèi)服務(wù)用費(fèi)餐飲用費(fèi)2、數(shù)據(jù)庫的關(guān)系模式管理員（編碼用戶名密碼權(quán)限部門）；客房信息（房間號房間類型價格是否可用床數(shù)有無空調(diào)有無電話有無電視有無衛(wèi)生間有無網(wǎng)線）；客戶信息（訂單號姓名證件類型證件號住址房間號入住時間預(yù)付金額退房日期是否在住密碼評價）；用戶消費(fèi)（訂單號房間號顧客姓名住宿費(fèi)服務(wù)費(fèi)用餐飲費(fèi)用總消費(fèi)總繳費(fèi)余額）；員工信息（編號姓名性別部門職務(wù)評價基本工資工資）；財政結(jié)算（財政編號總收入凈收入總支出餐飲部收入娛樂部收入住宿部收入服務(wù)部收入工資支出維護(hù)支出購貨支出）；3、表的物理設(shè)計用戶消費(fèi)住宿費(fèi)余額總消費(fèi)2、數(shù)據(jù)庫權(quán)限觸發(fā)器數(shù)據(jù)庫權(quán)限觸發(fā)器3、軟件功能設(shè)計1、系統(tǒng)的結(jié)構(gòu)圖開始選擇管理員登陸選擇顧客登陸老板登陸員工管理員工登陸財政管理酒店管理客房資料顧客資料顧客登記顧客消費(fèi)顧客結(jié)賬歷史記錄自助查詢評價員工2、功能表系統(tǒng)模塊實現(xiàn)功能功能描述登陸管理員頁面輸入管理員姓名、密碼登錄管理員頁面進(jìn)行管理登陸登陸顧客界面輸入顧客的訂單號和密碼進(jìn)入顧客界面管理員信息管理管理、查看管理員信息對管理員性查詢修改員工信息管理員工信息對員工信息查詢添加刪除修改財政結(jié)算管理財政信息查詢修改財政信息客房資料管理、查看客房資料對客房各種屬性查詢添加刪除修改客房資料跳轉(zhuǎn)客戶登記頁面顧客資料管理顧客信息對顧客信息進(jìn)行添加刪除修改查詢等功能顧客登記顧客登記登記新顧客的信息用戶消費(fèi)顧客消費(fèi)管理對顧客消費(fèi)進(jìn)行更新管理、結(jié)算管理歷史記錄查詢以往歷史對以往顧客住房歷史進(jìn)行查詢顧客結(jié)賬顧客結(jié)賬對顧客消費(fèi)、繳費(fèi)運(yùn)算并顯示余額以便對客戶收退款顧客查詢用戶信息查詢可對用戶信息進(jìn)行查詢還可以修改密碼顧客評價評價員工服務(wù)態(tài)度顧客可以通過自己的一票表揚(yáng)或批評一名員工四、系統(tǒng)實施登陸界面登陸界面分為管理員登陸和顧客登陸。管理員用用戶名和密碼登陸權(quán)限為1的是老板登陸進(jìn)去后是管理員信息權(quán)限為2的是管理員登陸進(jìn)去后是酒店菜單進(jìn)行酒店日常工作。顧客用訂單號和密碼登陸可以進(jìn)行顧客本人的信息查詢。代碼PROCEDURETFORM14BITBTN1CLICKSENDERTOBJECTVARNUM,USER,PASSSTRINGBEGINUSEREDIT1TEXTPASSEDIT2TEXTIFRADIOBUTTON1CHECKEDTRUETHENBEGINADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLTEXTSELECT權(quán)限FROM管理員信息WHERE用戶名USERAND密碼PASSADOQUERY1OPENNUMADOQUERY1FIELDBYNAME權(quán)限ASSTRINGIFNUMTHENSHOWMESSAGE用戶名或密碼錯誤IFNUM1THENFORM6SHOWIFNUM2THENFORM15SHOWENDELSEBEGINADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLTEXTSELECTFROM客戶信息WHERE訂單號USERAND密碼PASSADOQUERY1OPENLONGADOQUERY1FIELDBYNAME訂單號ASSTRINGNUMADOQUERY1FIELDBYNAME密碼ASSTRINGIFNUMTHENBEGINSHOWMESSAGE用戶名或密碼錯誤ENDELSEBEGINFORM8SHOWENDENDEDIT1CLEAREDIT2CLEARCLOSEENDPROCEDURETFORM14BITBTN2CLICKSENDERTOBJECTBEGINEDIT1CLEAREDIT2CLEARCLOSEEND管理員信息管理員界面老板可以進(jìn)行查詢修改管理員信息也可以查看員工信息和財政結(jié)算然后可以到酒店菜單進(jìn)行酒店日常服務(wù)。管理員可以進(jìn)行查詢修改管理員信息然后可以到酒店菜單進(jìn)行酒店日常服務(wù)。老板代碼PROCEDURETFORM6BUTTON1CLICKSENDERTOBJECTVARNAME,SECERT,POWER,NUMSTRINGBEGINNAMEEDIT1TEXTSECERTEDIT2TEXTPOWEREDIT3TEXTNUMEDIT4TEXTADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLTEXTSELECTFROM管理員信息WHERE用戶名NAMEOR密碼SECERTOR權(quán)限POWEROR編碼NUMADOQUERY1OPENEDIT1TEXTADOQUERY1FIELDBYNAME用戶名ASSTRINGEDIT2TEXTADOQUERY1FIELDBYNAME密碼ASSTRINGEDIT3TEXTADOQUERY1FIELDBYNAME權(quán)限ASSTRINGEDIT4TEXTADOQUERY1FIELDBYNAME編碼ASSTRINGENDPROCEDURETFORM6BUTTON2CLICKSENDERTOBJECTVARNAME,SECERT,NUMSTRINGBEGINNAMEEDIT1TEXTSECERTEDIT2TEXTNUMEDIT3TEXTADOCOMMAND1COMMANDTEXTUPDATE管理員信息SET密碼SECERT,權(quán)限NUMWHERE用戶名NAMEADOCOMMAND1EXECUTESHOWMESSAGE修改成功EDIT1TEXTADOQUERY1FIELDBYNAME用戶名ASSTRINGEDIT2TEXTADOQUERY1FIELDBYNAME密碼ASSTRINGEDIT3TEXTADOQUERY1FIELDBYNAME權(quán)限ASSTRINGEDIT4TEXTADOQUERY1FIELDBYNAME編碼ASSTRINGENDPROCEDURETFORM6BUTTON5CLICKSENDERTOBJECTBEGINADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLTEXTSELECTFROM管理員信息ADOQUERY1OPENEND管理員代碼PROCEDURETFORM15BUTTON1CLICKSENDERTOBJECTVARNAME,SECERT,POWER,NUMSTRINGBEGINNAMEEDIT1TEXTSECERTEDIT2TEXTPOWEREDIT3TEXTNUMEDIT4TEXTADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLTEXTSELECTFROM管理員信息WHERE用戶名NAMEOR密碼SECERTOR權(quán)限POWEROR編碼NUMADOQUERY1OPENEDIT1TEXTADOQUERY1FIELDBYNAME用戶名ASSTRINGEDIT2TEXTADOQUERY1FIELDBYNAME密碼ASSTRINGEDIT3TEXTADOQUERY1FIELDBYNAME權(quán)限ASSTRINGEDIT4TEXTADOQUERY1FIELDBYNAME編碼ASSTRINGENDPROCEDURETFORM15BUTTON2CLICKSENDERTOBJECTVARSECERTSTRINGBEGINSECERTEDIT2TEXTADOCOMMAND1COMMANDTEXTUPDATE管理員信息SET密碼SECERTWHERE用戶名NAMEADOCOMMAND1EXECUTESHOWMESSAGE修改成功EDIT1TEXTADOQUERY1FIELDBYNAME用戶名ASSTRINGEDIT2TEXTADOQUERY1FIELDBYNAME密碼ASSTRINGEDIT3TEXTADOQUERY1FIELDBYNAME權(quán)限ASSTRINGEDIT4TEXTADOQUERY1FIELDBYNAME編碼ASSTRINGENDPROCEDURETFORM15BUTTON5CLICKSENDERTOBJECTBEGINADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLTEXTSELECTFROM管理員信息ADOQUERY1OPENEND員工信息這里可以查詢修改刪除酒店員工的各種信息。代碼PROCEDURETFORM11BUTTON1CLICKSENDERTOBJECTVARNUM,USERSTRINGBEGINUSEREDIT1TEXTNUMEDIT2TEXTADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLTEXTSELECTFROM員工信息WHERE編號USEROR姓名NUMADOQUERY1OPENEDIT3TEXTADOQUERY1FIELDBYNAME編號ASSTRINGEDIT4TEXTADOQUERY1FIELDBYNAME姓名ASSTRINGEDIT5TEXTADOQUERY1FIELDBYNAME性別ASSTRINGEDIT6TEXTADOQUERY1FIELDBYNAME職務(wù)ASSTRINGEDIT7TEXTADOQUERY1FIELDBYNAME部門ASSTRINGEDIT8TEXTADOQUERY1FIELDBYNAME工資ASSTRINGEDIT9TEXTADOQUERY1FIELDBYNAME基本工資ASSTRINGEDIT10TEXTADOQUERY1FIELDBYNAME評價ASSTRINGENDPROCEDURETFORM11BUTTON2CLICKSENDERTOBJECTBEGINFORM7SHOWCLOSEENDPROCEDURETFORM11BUTTON3CLICKSENDERTOBJECTBEGINADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLTEXTSELECTFROM員工信息ADOQUERY1OPENENDPROCEDURETFORM11BUTTON4CLICKSENDERTOBJECTVARD1,D2,D3,D4,D5,D6,D7,D8STRINGBEGIND1EDIT3TEXTD2EDIT4TEXTD3EDIT5TEXTD4EDIT6TEXTD5EDIT7TEXTD6EDIT8TEXTD7EDIT9TEXTD8EDIT10TEXTADOCOMMAND1COMMANDTEXTINSERTINTO員工信息編號,姓名,性別,職務(wù),部門,工資,基本工資,評價VALUESD1,D2,D3,D4,D5,D6,D7,D8ADOCOMMAND1EXECUTESHOWMESSAGE保存完畢D1D2D3D4D5D6D7D8ENDPROCEDURETFORM11BUTTON6CLICKSENDERTOBJECTVARD1,D2,D3,D4,D5,D6,D7,D8STRINGBEGIND1EDIT3TEXTD2EDIT4TEXTD3EDIT5TEXTD4EDIT6TEXTD5EDIT7TEXTD6EDIT8TEXTD7EDIT9TEXTD8EDIT10TEXTADOCOMMAND1COMMANDTEXTUPDATE員工信息SET編號D1,姓名D2,性別D3,職務(wù)D4,部門D5,工資D6,基本工資D7,評價D8WHERE編號D1ADOCOMMAND1EXECUTESHOWMESSAGE保存完畢D1D2D3D4D5D6D7D8ENDPROCEDURETFORM11BUTTON5CLICKSENDERTOBJECTVARNUMSTRINGBEGINNUMEDIT3TEXTADOCOMMAND1COMMANDTEXTDELETEFROM員工信息WHERE編號NUMADOCOMMAND1EXECUTESHOWMESSAGE刪除成功END財政結(jié)算這里可以查詢修改刪除各個月份的酒店財政狀況。代碼PROCEDURETFORM12BUTTON1CLICKSENDERTOBJECTVARUSERSTRINGBEGINUSEREDIT1TEXTADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLTEXTSELECTFROM財務(wù)結(jié)算WHERE財政編號USERADOQUERY1OPENEDIT2TEXTADOQUERY1FIELDBYNAME財政編號ASSTRINGEDIT3TEXTADOQUERY1FIELDBYNAME凈收入ASSTRINGEDIT4TEXTADOQUERY1FIELDBYNAME總收入ASSTRINGEDIT5TEXTADOQUERY1FIELDBYNAME總支出ASSTRINGEDIT6TEXTADOQUERY1FIELDBYNAME餐飲部收入ASSTRINGEDIT7TEXTADOQUERY1FIELDBYNAME住宿部收入ASSTRINGEDIT8TEXTADOQUERY1FIELDBYNAME服務(wù)部收入ASSTRINGEDIT9TEXTADOQUERY1FIELDBYNAME娛樂部收入ASSTRINGEDIT10TEXTADOQUERY1FIELDBYNAME工資支出ASSTRINGEDIT11TEXTADOQUERY1FIELDBYNAME維護(hù)支出ASSTRINGEDIT12TEXTADOQUERY1FIELDBYNAME購貨支出ASSTRINGENDPROCEDURETFORM12BUTTON2CLICKSENDERTOBJECTBEGINFORM7SHOWCLOSEENDPROCEDURETFORM12BUTTON3CLICKSENDERTOBJECTBEGINADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLTEXTSELECTFROM財務(wù)結(jié)算ADOQUERY1OPENENDPROCEDURETFORM12BUTTON4CLICKSENDERTOBJECTVARD1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11STRINGBEGIND1EDIT2TEXTD2EDIT3TEXTD3EDIT4TEXTD4EDIT5TEXTD5EDIT6TEXTD6EDIT7TEXTD7EDIT8TEXTD8EDIT9TEXTD9EDIT10TEXTD10EDIT11TEXTD11EDIT12TEXTADOCOMMAND1COMMANDTEXTINSERTINTO財務(wù)結(jié)算財政編號,凈收入,總收入,總支出,餐飲部收入,住宿部收入,服務(wù)部收入,娛樂部收入,工資支出,維護(hù)支出,購貨支出VALUESD1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11ADOCOMMAND1EXECUTESHOWMESSAGE添加成功D1D2D3D4D5D6D7D8D9D10D11ENDPROCEDURETFORM12BUTTON5CLICKSENDERTOBJECTVARNUMSTRINGBEGINNUMEDIT3TEXTADOCOMMAND1COMMANDTEXTDELETEFROM財務(wù)結(jié)算WHERE財政編號NUMADOCOMMAND1EXECUTESHOWMESSAGE刪除成功ENDPROCEDURETFORM12BUTTON6CLICKSENDERTOBJECTVARD1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11STRINGBEGIND1EDIT2TEXTD2EDIT3TEXTD3EDIT4TEXTD4EDIT5TEXTD5EDIT6TEXTD6EDIT7TEXTD7EDIT8TEXTD8EDIT9TEXTD9EDIT10TEXTD10EDIT11TEXTD11EDIT12TEXTADOCOMMAND1COMMANDTEXTUPDATE財政結(jié)算SET財政編號D1,凈收入D2,總收入D3,總支出D4,餐飲部收入D5,住宿部收入D6,服務(wù)部收入D7,娛樂部收入D8,工資支出D8,維護(hù)支出D8,購貨支出D8WHERE財政編號D1ADOCOMMAND1EXECUTESHOWMESSAGE修改成功D1D2D3D4D5D6D7D8D9D10D11END酒店菜單酒店菜單分為六個選項客房資料顧客資料顧客登記顧客消費(fèi)歷史記錄顧客結(jié)賬主要進(jìn)行酒店運(yùn)營?？头啃畔⒖头啃畔⒛K可進(jìn)行客房的查詢添加修改刪除。代碼PROCEDURETFORM4BUTTON1CLICKSENDERTOBJECTVARUSEFUL,FJ1,FJ2,FJ3,DAN,SHU,SISTRINGBEGINIFCHECKBOX1CHECKEDTRUETHENBEGINUSEFUL是ENDELSEBEGINUSEFUL否ENDIFCHECKBOX2CHECKEDTRUETHENBEGINFJ1普通間ENDELSEBEGINFJ1ENDIFCHECKBOX3CHECKEDTRUETHENBEGINFJ2中等間ENDELSEBEGINFJ2ENDIFCHECKBOX4CHECKEDTRUETHENBEGINFJ3貴賓間ENDELSEBEGINFJ3ENDIFCHECKBOX5CHECKEDTRUETHENBEGINDAN單人間ENDELSEBEGINDANENDIFCHECKBOX6CHECKEDTRUETHENBEGINSHU雙人間ENDELSEBEGINSHUENDIFCHECKBOX7CHECKEDTRUETHENBEGINSI四人間ENDELSEBEGINSIENDADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLTEXTSELECTFROM客房信息WHERE是否可用USEFULAND房間類型FJ1OR房間類型FJ2OR房間類型FJ3AND床數(shù)DANOR床數(shù)SHUOR床數(shù)SIADOQUERY1OPENEND顧客信息顧客信息可以查詢修改添加刪除現(xiàn)有在住人員信息。代碼PROCEDURETFORM3BUTTON1CLICKSENDERTOBJECTVARNUM,USERSTRINGBEGINUSEREDIT1TEXTNUMEDIT2TEXTADOQUERY1CLOSEADOQUERY1SQLCLEARADOQUERY1SQLTEXTSELECTFROM客戶信息WHERE證件號USEROR顧客姓名NUMADOQUERY1OPENEDIT3TEXTADOQUERY1FIELDBYNAME訂單號號ASSTRINGEDIT4TEXTADOQUERY1FIELDBYNAME顧客姓名ASSTRINGEDIT5TEXTADOQUERY1FIELDBYNAME證件類型ASSTRINGEDIT6TEXTADOQUERY1FIELDBYNAME證件號ASSTRINGEDIT7TEXTADOQUERY1FIELDBYNAME住址ASSTRINGEDIT8TEXTADOQUERY1FIELDBYNAME房間號ASSTRINGEDIT9TEXTADOQUERY1FIELDBYNAME入住時間ASSTRINGEDIT10TEXTADOQUERY1FIELDBYNAME預(yù)付金額ASSTRINGEDIT11TEXTADOQUERY1FIELDBYNAME退