酒店客房餐飲管理系統(tǒng)實(shí)現(xiàn)樣本

酒店客房餐飲管理系統(tǒng)實(shí)現(xiàn) 酒店客房餐飲管理系統(tǒng)功能完善，能管理普通酒店客房住宿和餐飲等服務(wù)。本系統(tǒng)采用DELPHI和SQLSERVER工具開發(fā)，分為前臺(tái)和后臺(tái)管理。前臺(tái)與后臺(tái)管理程序相對(duì)獨(dú)立，均共用一種數(shù)據(jù)庫(kù)。下面對(duì)該系統(tǒng)部份功能和模塊以及代碼進(jìn)行分析。一．前臺(tái)管理數(shù)據(jù)模塊該模塊是整個(gè)程序數(shù)據(jù)提供者，以及涉及大某些解決函數(shù)和實(shí)現(xiàn)功能。單元文獻(xiàn)名：u_data.pas,數(shù)據(jù)模塊名：DM_main。某些代碼分析：返回指表中某字段最大值，返回值為整型。因而該函數(shù)只能應(yīng)用字段為整型表。functionTDM_main.GetMaxId(aTable,aField:string):integer;varsSql:string;beginResult:=0;sSql:='selectmax(%s)from%s';withQ_getmaxdobeginSQL.Text:=Format(sSql,[aField,aTable]);Open;ifnotIsEmptythenResult:=Fields[0].AsInteger+1;Close;end;end;接下來這個(gè)函數(shù)也是返回最大值，但是其為一種訂單最大編號(hào)為字符型。functionTDM_main.GetMaxOrderId:string;varid:String;count:Integer;beginwithQ_count_orderdobeginOpen;count:=Fields[0].Value;Close;end;id:='000'+IntToStr(count);id:=Copy(id，length(id)-3，4);id:='F'+FormatDateTime('yymmdd',now)+id;Result:=id;end;系統(tǒng)登陸函數(shù)：在進(jìn)行系統(tǒng)操作解決時(shí)，必要登陸。該函數(shù)對(duì)顧客輸入顧客名和密碼數(shù)據(jù)庫(kù)驗(yàn)證。其密碼是進(jìn)行加密（加密模塊稍后分析）functionTDM_main.Login(user，passwd:String):String;varFlag:Boolean;beginifDatabase.Connected=falsethenDatabase.Connected:=True;passwd:=Copy(passwd+passwd，1，10); //加密解決passwd:=Encrypt(passwd，111);withQ_logindobeginClose;Params.ParamValues['ID']:=user;Params.ParamValues['PASSWD']:=passwd;Open; //在顧客請(qǐng)中查詢?cè)擃櫩秃兔艽a與否存在Flag:=(notIsEmpty);ifFlagthenbeginLogin:=FieldValues['NAME'];IsPass:=Flag;endelsebeginLogin:='';Application.MessageBox('請(qǐng)重新輸入！'，'登錄失敗'，MB_OK);end;Close;end;end;系統(tǒng)登出：procedureTDM_main.Logout;beginDatabase.Connected:=False; //斷開數(shù)據(jù)庫(kù)連接end;加密模塊：?jiǎn)卧墨I(xiàn)名：crypt.pas。簡(jiǎn)樸加密算法。constC1=52845;C2=22719;functionEncrypt(S：String；Key：Word)：String;//S：加密字符串；Key：密鑰varI：Integer;j：Integer;beginResult:=S;forI:=1toLength(S)dobeginResult[I]:=char(byte(S[I])xor(Keyshr8));Key:=(byte(Result[I])+Key)*C1+C2;end;s:=Result;Result:='';fori:=1tolength(s)dobeginj:=Integer(s[i]);Result:=Result+Char(65+(jdiv26))+Char(65+(jmod26));end;end;主模塊系統(tǒng)主界面，涉及系統(tǒng)登陸。在沒有進(jìn)行登陸之前4個(gè)功能按鈕為灰色。第一種按鈕為客房管理，另一方面是餐飲管理，再次是客戶查詢，最后是收費(fèi)管理?？头抗芾砟K客房管理涉及客房預(yù)定，入住，調(diào)節(jié)。其界面如下：操作簡(jiǎn)介：預(yù)定：一方面在證件編號(hào)文體框中輸入有關(guān)證件編號(hào)，按回車鍵，顯示如下窗口：輸入完整后單擊添加則返回上一種界面，有關(guān)數(shù)據(jù)將自動(dòng)填寫。然后在右邊選取相應(yīng)客房級(jí)別。在網(wǎng)格中將顯示該級(jí)別所有空閑房號(hào)。選取一種房間，再點(diǎn)擊“新建”按鈕，然后點(diǎn)擊“添加”?？头款A(yù)定完畢。 入?。涸谧C件編號(hào)文體框中輸入有關(guān)證件編號(hào)，按回車鍵。如果該客戶已經(jīng)預(yù)定則自動(dòng)顯示信息，否則將彈出上面窗口規(guī)定輸入信息。餐飲管理涉及選菜、點(diǎn)菜、打單：下面是其相代碼闡明：procedureTF_foodorder.btnOkClick(Sender：TObject);varid:integer;total:single;beginifsid=''thenbeginB_neworderClick(nil);end;//訂單明細(xì)id:=DM_main.GetMaxId('order_detail','id');withQ_foodetaildobeginAppend;Fields[0].AsInteger:=id;Fields[1].AsString:=sid;Fields[2].AsString:=dbtext1.Caption;Fields[3].AsString:=edtNum.Text;Fields[4].AsString:=dbtext4.Caption;Post;DisableControls;Close;Open;EnableControls;end;//更新總訂單總金額withDM_main.T_foodorderdobeginEdit;total:=DM_main.GetSumPrice(sid);Fields[3].AsFloat:=total;Post;end;end;//撤銷選取一項(xiàng)菜目procedureTF_foodorder.btnCancelClick(Sender：TObject);vartotal:Single;beginwithQ_foodetaildobeginifIsEmptythenExit;ifnotActivethenbeginParamByName('sid').Value:=sid;Open;end;Delete;end;total:=DM_main.GetSumPrice(sid);withDM_main.T_foodorderdobeginifnotActivethenOpen;Locate('id',sid,[]);Edit;Fields[3].AsFloat:=total;Post;end;end;procedureTF_foodorder.B_neworderClick(Sender：TObject);begin//新建總訂單sid:=DM_main.GetMaxOrderId;withDM_main.T_foodorderdobeginOpen;Append;Fields[0].AsString:=sid;Fields[1].AsString:=DateTimeToStr(Now);Fields[2].AsString:=Trim(edtName.Text);Post;end;withQ_foodetaildobeginClose;ParamByName('sid').Value:=sid;Prepare;Open;end;end;打單：票據(jù)示例如下。二．后臺(tái)管理數(shù)據(jù)模塊該模塊是整個(gè)程序數(shù)據(jù)提供者，以及涉及大某些解決函數(shù)和實(shí)現(xiàn)功能。單元文獻(xiàn)名：u_data.pas,數(shù)據(jù)模塊名：DM_main。某些代碼分析：設(shè)立前臺(tái)操作員密碼：procedureTDM_main.SetOperatorPassword(password:String);beginpassword:=Copy(password+password，1，10);password:=Encrypt(password，111); //加密單元withT_operatordobeginEdit;FieldValues['PASSWD']:=password;end;end;依照客房ID 篩選客房：procedureTDM_main.SetModifyFilter(RoomID:String);beginwithT_room_modifydobeginClose;iflength(RoomID)>0thenbeginFilter:='ID='''+RoomID+'''';Filtered:=True;endelseFiltered:=False;Open;end;end;獲得客房級(jí)別：procedureTDM_main.GetRoomLevel(RoomLevel:TStrings);beginRoomLevel.Clear;RoomLevel.Add('所有級(jí)別');withQ_room_leveldobeginOpen;First;whilenotEofdobeginRoomLevel.Add(FieldValues['DESCRIPT']);Next;end;Close;end;end;客房記錄圖實(shí)現(xiàn)函數(shù)：//StarDate：開始日期；EndDate：結(jié)束日期；procedureTDM_main.GetRoomStat(StartDate,EndDate:TDate;TimeStep，StatType:Boolean;RoomLevel:Integer;BarSeries:TBarSeries);varStatResult:integer;MidDate:TDate;StatLabel:String;beginBarSeries.Clear;whileStartDate<EndDatedobeginMidDate:=GetNextDate(StartDate，TimeStep);ifStatTypethenStatResult:=SumTurnover(StartDate，MidDate)elseStatResult:=SumUsedRoom(StartDate，MidDate，RoomLevel);ifTimeStepthenStatLabel:=FormatDateTime('dd'，StartDate)+'日'elseStatLabel:=FormatDateTime('mm'，StartDate)+'月';BarSeries.AddY(StatResult,StatLabel);StartDate:=MidDate;end;end;換算下個(gè)月（日）日期：functionTDM_main.GetNextDate(StartDate:TDate;TimeStep:Boolean):TDate;varTimeYear,TimeMonth:String;beginifTimeStepthenResult:=StartDate+1elsebeginTimeYear:=FormatDateTime('yyyy'，StartDate);TimeMonth:=FormatDateTime('mm'，StartDate);ifTimeMonth='12'thenbeginTimeYear:=IntToStr(StrToInt(TimeYear)+1);TimeMonth:='01';endelseTimeMonth:=IntToStr(StrToInt(TimeMonth)+1);Result:=StrToDate(TimeYear+'-'+TimeMonth+'-01');end;end;系統(tǒng)登陸模塊該系統(tǒng)登陸將連接數(shù)據(jù)庫(kù)管理員顧客表進(jìn)行驗(yàn)證：procedureTF_login.b_loginClick(Sender：TObject);varsSql:string;beginif(Trim(i_admin.Text)='')or(i_passwd.Text='')thenbeginMessageDlg('請(qǐng)輸入管理員帳號(hào)和密碼！'，mtWarning，[mbOK，mbHelp]，6);i_admin.SetFocus;Exit;end;sSql:='select*fromadmin_userwherename=''%s''andpasswd=''%s''';withDM_main.Q_admindobeginSQL.Text:=Format(sSql,[Trim(i_admin.Text),i_passwd.Text]);Open;ifIsEmptythenbeginMessageDlg('連接錯(cuò)誤！請(qǐng)確認(rèn)管理員帳號(hào)和密碼！'，mtWarning，[mbOK，mbHelp]，6);i_admin.SetFocus;Exit;endelsebeginClose;self.Close;end;end;end;登陸界面：主控程序后臺(tái)管理主窗口如下：后臺(tái)管理程序采用MDI風(fēng)格窗體。并采用事件管理機(jī)制ActionList管理所有功能模塊點(diǎn)擊事件：procedureTF_main.RoomAddExecute(Sender：TObject);beginApplication.CreateForm(TF_add，F(xiàn)_add);RoomAdd.Enabled:=False;end;procedureTF_main.RoomModifyExecute(Sender