c_main.pas

经典的酒店管理系统

    COLOR_HCYD := IniFile.ReadInteger('COLOR','COLORHCYD',clYellow);
    COLOR_HCQR := IniFile.ReadInteger('COLOR','COLORHCQR',clRed);

    COLOR_TD1    := IniFile.ReadInteger('COLOR','COLORTD1',clYellow);
    COLOR_TD2    := IniFile.ReadInteger('COLOR','COLORTD2',clOlive);
    COLOR_TD3    := IniFile.ReadInteger('COLOR','COLORTD3',clSkyBlue);
    COLOR_TD4    := IniFile.ReadInteger('COLOR','COLORTD4',clTeal);
    COLOR_TD5    := IniFile.ReadInteger('COLOR','COLORTD5',clPurple);
    COLOR_TD6    := IniFile.ReadInteger('COLOR','COLORTD6',clGradientActiveCaption);
    COLOR_TD7    := IniFile.ReadInteger('COLOR','COLORTD7',clMaroon);
    COLOR_TD8    := IniFile.ReadInteger('COLOR','COLORTD8',clBlue);
    COLOR_TD9    := IniFile.ReadInteger('COLOR','COLORTD9',clFuchsia);
    COLOR_TD10    := IniFile.ReadInteger('COLOR','COLORTD10',clGreen);

  lblTdmc1.Color := COLOR_TD1;
  lblTdmc2.Color := COLOR_TD2;
  lblTdmc3.Color := COLOR_TD3;
  lblTdmc4.Color := COLOR_TD4;
  lblTdmc5.Color := COLOR_TD5;
  lblTdmc6.Color := COLOR_TD6;
  lblTdmc7.Color := COLOR_TD7;
  lblTdmc8.Color := COLOR_TD8;
  lblTdmc9.Color := COLOR_TD9;
  lblTdmc10.Color := COLOR_TD10;

    //电话计费路径
    JF_DIR       := IniFile.ReadString('HOTEL','JF_DIR','');

    //IC卡读写器的串口号
    PORTNUM      := IniFile.ReadInteger('PORT','ICPORTNUM',0);

    //本机器是否允许夜间审核
    IS_YJSH      := IniFile.ReadBool('BOOLEAN','YJSH',False);
    IS_EMPTYDHF  := IniFile.ReadBool('BOOLEAN','DHF',False);
    //数据库备份路径
    DBF_DIR      := IniFile.ReadString('HOTEL','DBF_DIR',APP_DIR+'Database');
    BAK_DIR      := IniFile.ReadString('HOTEL','BAK_DIR','');

  finally
    IniFile.Free;
  end;

  //lblTitle.Caption := HOTEL_NAME;
  //lblTitleB.Caption:= HOTEL_NAME;
  FSjdm := '全部';
  Caption := HOTEL_NAME;
  sgdKfzt.Color := COLOR_BJ;
  sgdKfzt.Font.Color := COLOR_ZT;
  //帮助文件
  Application.HelpFile := APP_DIR+'Lfhotel.hlp';

  DbfInit;
  KfztInit;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  //系统初始化
  MainInit;
end;

//预定信息
procedure TMainForm.A11Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'预定') then Exit;
  Ydxx;
end;

//客房定义
procedure TMainForm.G15Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'系统') then Exit;
  Kfdy;
end;

//消费项目定义
procedure TMainForm.G17Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'系统') then Exit;
  Xmdy;
end;

//内宾接待
procedure TMainForm.B111Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'接待') then Exit;
  Nbjd;
end;


//信息修改
procedure TMainForm.B16Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'接待') then Exit;
  Xxxg;
end;

//外宾接待
procedure TMainForm.B112Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'接待') then Exit;
  Wbjd;
end;

//团队接待
procedure TMainForm.B12Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'接待') then Exit;
  Tdjd;
end;

//免费接待
procedure TMainForm.B113Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'接待') then Exit;
  Mfjd;
end;

//客人调房
procedure TMainForm.B13Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'接待') then Exit;
  Sktf;
end;

//团队补登
procedure TMainForm.B15Click(Sender: TObject);
var
  AKrbh: string;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'接待') then Exit;
  AKrbh := TdSel;
  if AKrbh<>'' then
    Tdbd(AKrbh);
end;

//客人查询
procedure TMainForm.N31Click(Sender: TObject);
begin
//  if not HotelData.CheckYgqx(CZY.CzyBh,'客人查询') then Exit;
  if not HotelData.CheckYgqx(CZY.CzyBh,'查询') then Exit;
  Krcx;
end;

//散客帐单查询
procedure TMainForm.N18Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'查询') then Exit;
  Zdcx;
end;

//团队帐单查询
procedure TMainForm.N68Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'查询') then Exit;
  Zdcxtd;
end;


//世界钟
procedure TMainForm.N37Click(Sender: TObject);
begin
//  if not HotelData.CheckYgqx(CZY.CzyBh,'查询') then Exit;
  Sjz;
end;

//散客补交押金
procedure TMainForm.N30Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  Bjyj;
end;

//团队补交押金
procedure TMainForm.N69Click(Sender: TObject);
var
  AKrbh: string;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  AKrbh := TdSel;
  if AKrbh<>'' then
    BjyjTd(AKrbh);
end;

//散客结帐
procedure TMainForm.N4Click(Sender: TObject);
//var
  //AJzxx: TJZXX;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  Skjz;
  ShowJzkfzt;
  //AJzxx := Skjz;
  //if AJzxx.AJzfs <> '' then
    //Zd(AJzxx);
end;

//团队退房
procedure TMainForm.N6Click(Sender: TObject);
var
  AKrbh: string;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  AKrbh := TdSel;
  if AKrbh<>'' then
    Tdtf(AKrbh);
end;

//团队结帐
procedure TMainForm.N7Click(Sender: TObject);
var
  AKrbh: string;
  AJzxx: TTdJzxx;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  AKrbh := TdSel;
  if AKrbh<>'' then
  begin
    AJzxx := Tdjz(AKrbh);
    if AJzxx.AJzfs<>'' then
      Tdzd(AJzxx);
  end;
end;

//客户应收总帐
procedure TMainForm.N44Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'查询') then Exit;
  Khyszz;
end;

//散客预先结帐
procedure TMainForm.N71Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  Yxjz;
end;

//团队预先结帐
procedure TMainForm.N72Click(Sender: TObject);
var
  AKrbh: string;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  AKrbh := TdSel;
  if AKrbh<>'' then YxjzTd(AKrbh);
end;

//夜间审核
procedure TMainForm.N39Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'夜审') then Exit;

  if not IS_YJSH then
  begin
    ShowInfo('本机器不允许夜间审核！');
    Exit;
  end;

  if (Time>EnCodeTime(23,0,0,0))and(Time<EnCodeTime(23,59,59,59)) then
    Yjsh
  else
  begin
    if Confirm('现在不是夜审时间，夜审的时间是：23：00-24：00，你是否强制夜审?') then
      Yjsh;
  end;
end;

//宾馆日报表
procedure TMainForm.N47Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'报表') then Exit;
  Bgrbb(0);
end;

//客户预交款
procedure TMainForm.N73Click(Sender: TObject);
var
  AKhbh: string;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  AKhbh := KhdaSel;
  if AKhbh<>'' then
    YskYj(AKhbh);
end;


//应收款结帐
procedure TMainForm.N74Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  Yskzd;
end;

//房价变更
procedure TMainForm.B20Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'房价变更') then Exit;
  Fjbg;
end;

//非寓客结帐
procedure TMainForm.N10Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  Fykjz;
end;

//零客应收款
procedure TMainForm.N67Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'报表') then Exit;
  Lkysk;
end;

//客户应收款录入
procedure TMainForm.N66Click(Sender: TObject);
var
  AKhbh: string;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  AKhbh := KhdaSel;
  if AKhbh<>'' then
    Ysklr(AKhbh);
end;

//餐厅上交
procedure TMainForm.N40Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'餐厅上交') then Exit;
  Cwjs(JSLX_CTSJ);
end;

//财务结单
procedure TMainForm.N41Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'财务结单') then Exit;
  Cwjs(JSLX_CWSJ);
end;

//餐厅上交报表
procedure TMainForm.N59Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'报表') then Exit;
  CwjsBrow(JSLX_CTSJ);
end;

//财务结单报表
procedure TMainForm.N60Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'报表') then Exit;
  CwjsBrow(JSLX_CWSJ);
end;

//楼层统计
procedure TMainForm.N51Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'报表') then Exit;
  Lctj;
end;

//半全价统计
procedure TMainForm.N53Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'报表') then Exit;
  Bqjtj;
end;

//零客未结
procedure TMainForm.N12Click(Sender: TObject);
var
  AJzxx: TJZXX;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  AJzxx := Wjzjz;
  if AJzxx.AJzfs<>'' then
    WjzZd(AJzxx);
end;

//散客押金变更
procedure TMainForm.N32Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  Skyjbg;
end;

//团队押金变更
procedure TMainForm.N70Click(Sender: TObject);
var
  AKrbh: string;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'结帐') then Exit;
  AKrbh := TdSel;
  if AKrbh<>'' then
    Tdyjbg(AKrbh);
end;


//宾馆历史营业报表
procedure TMainForm.N48Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'报表') then Exit;
  Bgrbb(1);
end;

//客房日报表
procedure TMainForm.N46Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'报表') then Exit;
  Kfrbb;
end;

//当天半全价
procedure TMainForm.N61Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'查询') then Exit;
  Khjzmx;
end;

//结帐分类报表
procedure TMainForm.N75Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'报表') then Exit;
  Jzfltj;
end;

//非寓客消费查询
procedure TMainForm.N78Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'报表') then Exit;
  FYkcx;
end;


//离店客人查询
procedure TMainForm.N27Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'查询') then Exit;
  Ldkr;
end;

//离店客人帐单
procedure TMainForm.N28Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'查询') then Exit;
  Ldkrcx;
end;

//团队用房查询
procedure TMainForm.N22Click(Sender: TObject);
var
  AKrbh: string;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'查询') then Exit;
  AKrbh := TdSel;
  if AKrbh<>'' then
    Tdyfcx(Akrbh);
end;

//团队取消房间
procedure TMainForm.N23Click(Sender: TObject);
var
  AKrbh: string;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'团队取消') then Exit;
  AKrbh := TdSel;
  if AKrbh<>'' then
    Tdqx(AKrbh);
end;

//餐饮管理系统
procedure TMainForm.N24Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'餐饮管理系统') then Exit;
  WinExec(PChar('LfHotelCt.exe '+CZY.CzyBh+' '+CZY.Czyxm),SW_SHOWNORMAL);
end;

//预定会场
procedure TMainForm.N9Click(Sender: TObject);
var
  AKrbh: string;
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'预定') then Exit;
  AKrbh := YdxxSel;
  if AKrbh<>'' then
  begin
    YdhcNew(AKrbh);
    ShowYdhc;
  end;
end;

//系统设置
procedure TMainForm.N77Click(Sender: TObject);
begin
  if not HotelData.CheckYgqx(CZY.CzyBh,'系统设置') then Exit;
  Xtsz;
end;

//散客预定餐饮