酒店客房餐饮管理系统(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);

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

上一篇：酒店客房餐饮管理系统使用说明(doc 6页)

下一篇：证券从业人员后续教育培训(ppt 43页)

化验室安全知识讲座培训材料(PPT 29页)

无源器件培训课件(PPT 76页)

应急管理培训课件(PPT 37页)

驻厂检验人员培训资料(doc 38页)

品管部培训资料(PPT 40页)

××集团岗前培训手册(PPT 65页)