【導(dǎo)讀】本科生畢業(yè)設(shè)計(jì)（論文）。完成時(shí)間：2021年4月5日

　　

【正文】 ?？头抗芾砟K 該模塊實(shí)現(xiàn)對(duì)客房的基本信息設(shè)置，如客房的房號(hào)，等級(jí)等信息。同時(shí)提供對(duì)客房信息的查詢。 訂房管理模塊 該模塊實(shí)現(xiàn)用戶訂房信息管理，提供對(duì)訂房客戶資料的登記、查詢和退訂操作。訂房信息包括客房的類型，訂房的時(shí)間等。 收銀管理模塊 該模塊實(shí)現(xiàn)客房收銀管理，提供對(duì)客戶住房結(jié)賬信息的統(tǒng)計(jì)和查詢，并支持當(dāng)日?qǐng)?bào)表的打印 查詢模塊 該模塊的各個(gè)內(nèi)容分別融入到其他 4個(gè)模塊中。 數(shù)據(jù)庫(kù)設(shè)計(jì) 操作員表（姓名，密碼，權(quán)限） 工作員表（姓名，工種） 會(huì)員編號(hào)表（姓名，性別，聯(lián)系電話，聯(lián)系地址） 客房類型表（類型名稱，價(jià)格，拼房?jī)r(jià)格，可超預(yù)訂數(shù)，是否可拼房） 客房信息表（客房編號(hào)，類型編號(hào)，樓層編號(hào)，額定 人數(shù)，床數(shù)，客房描述，狀態(tài)，是否可拼房，備注） 日志表（姓名，操作，時(shí)間） 入住單表（入住單號(hào)，預(yù)定單號(hào)，會(huì)員編號(hào)，客房類型，入住時(shí)間，離店時(shí)間，單據(jù)狀態(tài)，入住人數(shù)，客房編號(hào)） 預(yù)定單表（預(yù)定單號(hào)，會(huì)員編號(hào)，客房類型，預(yù)定時(shí)間，入住時(shí)間，離店時(shí)間，單據(jù)狀態(tài)，入住人數(shù)，客房編號(hào)，客房?jī)r(jià)格，入住價(jià)格，折扣，折扣原因，是否加床，加床價(jià)格，預(yù)收款，預(yù)定人，預(yù)定公司，聯(lián)系電話，備注，操作員，業(yè)務(wù)員） 入住單歷史表（入住單號(hào)，預(yù)定單號(hào)，會(huì)員編號(hào)，客房類型，入住時(shí)間，離店時(shí)間，單據(jù)狀態(tài)，入住人數(shù)，客房編號(hào)，客房?jī)r(jià)格，入住 價(jià)格，折扣，折扣原因，是否加床，加床價(jià)格，預(yù)收款，預(yù)定人，預(yù)定公司，聯(lián)系電話，備注，操作員，業(yè)務(wù)員，服務(wù)類型，電話等級(jí)，特殊說(shuō)明，應(yīng)收賬款，是否結(jié)賬，結(jié)賬金額，結(jié)賬日期，付款方式） 賬單明細(xì)表（賬單編號(hào)，入住單號(hào)，消費(fèi)金額，消費(fèi)內(nèi)容，消費(fèi)時(shí)間，備注） 軟件項(xiàng)目管理在 WEBE 項(xiàng)目中的應(yīng)用研究 23 賬單明細(xì)歷史表（賬單編號(hào)，入住單號(hào)，消費(fèi)金額，消費(fèi)內(nèi)容，消費(fèi)時(shí)間，備注） 編碼 實(shí)現(xiàn) 界面簡(jiǎn)介 （ 1） 登錄界面： 圖 51 賓館管理系統(tǒng)登陸界面 （ 2） 賓館管理系統(tǒng)主界面： 圖 52 賓館管理 系統(tǒng)主界面 （ 3） 入住管理界面： 圖 53 賓館管理系統(tǒng)入住管理界面 軟件項(xiàng)目管理在 WEBE 項(xiàng)目中的應(yīng)用研究 24 （ 4） 預(yù)定查詢界面： 主要程序代碼： 消費(fèi)記賬代碼 ： unit conut。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, ADODB, ExtCtrls, StdCtrls, Buttons, ComCtrls。 type Tconfm = class(TForm) Panel1: TPanel。 Panel2: TPanel。 conado: TADOQuery。 DBGrid1: TDBGrid。 DataSource1: TDataSource。 rzdh: TLabeledEdit。 SpeedButton1: TSpeedButton。 xfsj: TDateTimePicker。 Label1: TLabel。 xfje: TLabeledEdit。 Label2: TLabel。 軟件項(xiàng)目管理在 WEBE 項(xiàng)目中的應(yīng)用研究 25 xfnr: TComboBox。 Label3: TLabel。 bz: TEdit。 qdbt: TBitBtn。 sxbt: TBitBtn。 xgbt: TBitBtn。 scbt: TBitBtn。 gbbt: TBitBtn。 zdbh: TEdit。 procedure FormCreate(Sender: TObject)。 procedure rzdhKeyDown(Sender: TObject。 var Key: Word。 Shift: TShiftState)。 procedure xfjeKeyDown(Sender: TObject。 var Key: Word。 Shift: TShiftState)。 procedure xfnrKeyDown(Sender: TObject。 var Key: Word。 Shift: TShiftState)。 procedure bzKeyDown(Sender: TObject。 var Key: Word。 Shift: TShiftState)。 procedure qdbtClick(Sender: TObject)。 procedure DBGrid1CellClick(Column: TColumn)。 procedure scbtClick(Sender: TObject)。 procedure gbbtClick(Sender: TObject)。 procedure xgbtClick(Sender: TObject)。 procedure SpeedButton1Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var confm: Tconfm。 implementation uses inlistut。 {$R *.dfm} procedure (Sender: TObject)。 var Present: TDateTime。 軟件項(xiàng)目管理在 WEBE 項(xiàng)目中的應(yīng)用研究 26 Year, Month, Day: Word。//定義時(shí)間變量 sno,o,vno:string。//單據(jù)編號(hào)變量 llen:integer。 //獲取長(zhǎng)度的變量 begin //自動(dòng)獲取預(yù)定最大單據(jù)號(hào) present:=now。 DecodeDate(Present, Year, Month, Day)。 with conado do begin close。 。 (39。select * from 帳單明細(xì)表 39。)。 open。 if recordcount1 then begin o:=39。0000139。 vno:=39。ZDBH39。+inttostr(Year)+inttostr(Month)+inttostr(Day)+o。 end else begin close。 。 (39。select max(帳單編號(hào) ) as maxno from 帳單明細(xì)表 39。)。 open。 sno:=fieldbyname(39。maxno39。).AsString。 llen:=strtoint(copy(sno,11,5))+1。 case length(inttostr(llen)) of 1:o:=39。000039。+inttostr(strtoint(copy(sno,13,5))+1)。 2:o:=39。00039。+inttostr(strtoint(copy(sno,13,5))+1)。 3:o:=39。0039。+inttostr(strtoint(copy(sno,13,5))+1)。 4:o:=39。039。+inttostr(strtoint(copy(sno,13,5))+1)。 5:o:=inttostr(strtoint(copy(sno,13,5))+1)。 else o:=39。0000139。 end。 vno:=39。ZDBH39。+inttostr(Year)+inttostr(Month)+inttostr(Day)+o。 end。 軟件項(xiàng)目管理在 WEBE 項(xiàng)目中的應(yīng)用研究 27 end。 :=vno。 :=39。39。 :=date()。 :=39。39。 :=39。39。 :=39。39。 with conado do begin close。 。 (39。select * from 帳單明細(xì)表 order by 編號(hào) 39。)。 open。 end。 [0].Width:=0。 end。 procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin if key=13 then begin if 39。39。 then else begin showmessage(39。請(qǐng)導(dǎo)入入住單號(hào) !39。)。 exit。 end。 end。 end。 procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin if key=13 then begin if 39。39。 then 軟件項(xiàng)目管理在 WEBE 項(xiàng)目中的應(yīng)用研究 28 else begin showmessage(39。請(qǐng)輸入消費(fèi)金額 !39。)。 exit。 end。 end。 end。 procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin if key=13 then begin if 39。39。 then else begin showmessage(39。請(qǐng)選擇消費(fèi)內(nèi)容 !39。)。 exit。 end。 end。 end。 procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin if key=13 then 。 end。 procedure (Sender: TObject)。 begin if =39。39。 then begin showmessage(39。請(qǐng)導(dǎo)入入住單號(hào) !39。)。 exit。 end。 if =39。39。 then begin showmessage(39。請(qǐng)輸入消費(fèi)金額 !39。)。 軟件項(xiàng)目管理在 WEBE 項(xiàng)目中的應(yīng)用研究 29 exit。 end。 if =39。39。 then begin showmessage(39。請(qǐng)選擇消費(fèi)內(nèi)容 !39。)。 exit。 end。 with conado do begin close。 。 (39。insert into 帳單明細(xì)表 (帳單編號(hào) ,入住單號(hào) ,消費(fèi)金額 ,消費(fèi)內(nèi)容 ,消費(fèi)時(shí)間 ,備注 ,id) 39。)。 (39。values(:zdbh,:rzdh,:xfje,:xfnr,:xfsj,:bz,:id)39。)。 (39。zdbh39。).Value:=trim()。 (39。rzdh39。).Value:=trim()。 (39。xfje39。).Value:=trim()。 (39。xfnr39。).Value:=trim()。 (39。xfsj39。).Value:=datetostr()。 (39。bz39。).Value:=trim()。 (39。id39。).Value:=39。39。 execsql。 end。 showmessage(39。提交成功！ 39。)。 。 end。 procedure (Column: TColumn)。