酒店客房餐飲管理係統(doc 13頁)

酒店客房餐飲管理係統功能完善，能管理普通酒店的客房住宿和餐飲等服務。本係統采用DELPHI和SQL SERVER工具開發，分為前台和後台管理。前台與後台管理程序相對獨立，均共用一個數據庫。下麵對該係統的部份功能和模塊以及代碼進行分析。

一．前台管理

1． 數據模塊
該模塊是整個程序數據的提供者，以及包括大部分的處理函數和實現功能。
單元文件名：u_data.pas,數據模塊名：DM_main。
部分代碼分析：
返回指表中某字段的最大值，返回值為整型。因此該函數隻能應用字段為整型的表。
function TDM_main.GetMaxId(aTable,aField:string):integer;
var
sSql:string;
begin
Result:=0;
sSql:='select max(%s) from %s';
with Q_getmax do
begin
SQL.Text:=Format(sSql,[aField,aTable]);
Open;
if not IsEmpty then
Result:=Fields[0].AsInteger+1;
Close;
end;
end;

接下來這個函數也是返回最大值，但是其為一個訂單的最大編號為字符型。
function TDM_main.GetMaxOrderId:string;
var
id:String;
count:Integer;
begin
with Q_count_order do
begin
Open;
count:=Fields[0].Value;
Close;
end;
id:='000'+IntToStr(count);
id:=Copy(id, length(id)-3, 4);

..............................