uy_yyt.pas

一个针对酒店大堂管理的delphi应用管理软件

unit uy_yyt;

interface

uses
  u_main,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, Buttons,
  ToolWin, Menus,Db, DBTables, ImgList, jpeg, se_controls, KsSkinForms,
  DosMove;

type
  Ty_yyt = class(TForm)
    CoolBar1: TCoolBar;
    ScrollBox1: TScrollBox;
    ImageList: TImageList;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    my_yyt_dc: TMenuItem;
    N3: TMenuItem;
    my_yyt_cd: TMenuItem;
    my_yyt_jz: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    H1: TMenuItem;
    N9: TMenuItem;
    A1: TMenuItem;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBGrid1: TDBGrid;
    ToolBar2: TToolBar;
    jz: TToolButton;
    dd: TToolButton;
    ck: TToolButton;
    cp: TToolButton;
    yh: TToolButton;
    tc: TToolButton;
    jb: TToolButton;
    y_close: TToolButton;
    tai: TEdit;
    skyh: TLabel;
    fwyh: TEdit;
    zws: TLabel;
    zt: TLabel;
    ztc: TLabel;
    my_yyt_gd: TMenuItem;
    my_yyt_jc: TMenuItem;
    my_yyt_tc: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    K1: TMenuItem;
    N14: TMenuItem;
    C2: TMenuItem;
    my_yyt_yh: TMenuItem;
    N15: TMenuItem;
    my_yyt_jb: TMenuItem;
    C3: TMenuItem;
    U1: TMenuItem;
    D1: TMenuItem;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Shape7: TShape;
    Shape8: TShape;
    Label15: TLabel;
    Label16: TLabel;
    Shape9: TShape;
    dc: TToolButton;
    t_cd: TToolButton;
    gd: TToolButton;
    help: TToolButton;
    jc: TToolButton;
    zc: TToolButton;
    my_yyt_zc: TMenuItem;
    Label17: TLabel;
    Label18: TLabel;
    fg2: TToolButton;
    fg3: TToolButton;
    fg4: TToolButton;
    fg5: TToolButton;
    fg6: TToolButton;
    Image1: TImage;
    Image2: TImage;
    ToolButton1: TToolButton;
    E1: TMenuItem;
    P1: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    N2: TMenuItem;
    T1: TMenuItem;
    PopupMenu1: TPopupMenu;
    syck: TMenuItem;
    dqck: TMenuItem;
    bz: TToolButton;
    ToolButton3: TToolButton;
    my_yyt_bz: TMenuItem;
    S1: TMenuItem;
    y_yyt_sfbz: TMenuItem;
    y_yyt_zdxf: TMenuItem;
    s2: TMenuItem;
    s3: TMenuItem;
    srlb: TLabel;
    y_yyt_jzdz: TMenuItem;
    y_yyt_fwfl: TMenuItem;
    N4: TMenuItem;
    y_yyt_zkfl: TMenuItem;
    N5: TMenuItem;
    Label19: TLabel;
    th: TLabel;
    tm: TLabel;
    yddh: TLabel;
    Timer2: TTimer;
    y_yyt_cldz: TMenuItem;
    N11: TMenuItem;
    d_cd: TDataSource;
    d_cdmx: TDataSource;
    cdmx_cz: TTable;
    cdmx_czBh: TStringField;
    cdmx_czCz: TStringField;
    q_cdje: TQuery;
    dq_cdje: TDataSource;
    d_bzc: TDataSource;
    bzc: TTable;
    bzcBzbh: TStringField;
    bzcBzmc: TStringField;
    bzcBzbz: TFloatField;
    bzcZzr: TStringField;
    bzcZzrq: TDateTimeField;
    bzcBz: TStringField;
    d_bzccd: TDataSource;
    yhyd: TTable;
    yhydYddh: TStringField;
    yhydYdrq: TDateTimeField;
    yhydYhrq: TStringField;
    yhydYhsj: TStringField;
    yhydTht: TStringField;
    yhydThts: TStringField;
    yhydCkbh: TStringField;
    yhydDw: TStringField;
    yhydDz: TStringField;
    yhydLxr: TStringField;
    yhydZw: TStringField;
    yhydDh: TStringField;
    yhydKrzs: TIntegerField;
    yhydYdzs: TIntegerField;
    yhydYhbz: TFloatField;
    yhydDj: TFloatField;
    yhydJzfs: TStringField;
    yhydJdr: TStringField;
    yhydCbr: TStringField;
    yhydKryq: TStringField;
    yhydSjrs: TIntegerField;
    yhydXhs: TIntegerField;
    yhydCzyh: TStringField;
    yhydFwfl: TFloatField;
    yhydDzl: TFloatField;
    yhydYhje: TFloatField;
    yhydSjje: TFloatField;
    yhydBz: TStringField;
    yhydY_n: TBooleanField;
    d_yhyd: TDataSource;
    d_yhydcd: TDataSource;
    t_tai: TTable;
    taiTH: TStringField;
    taiTHT: TStringField;
    taiFDBH: TStringField;
    taiZWS: TIntegerField;
    taiFWFL: TFloatField;
    taiDZL: TFloatField;
    taiSfbz: TFloatField;
    taiZdxf: TFloatField;
    taiFWYH: TStringField;
    taiFwym: TStringField;
    taiSfbj: TStringField;
    taiZT: TStringField;
    d_tai: TDataSource;
    t: TTable;
    tFDBH: TStringField;
    tTH: TStringField;
    tTM: TStringField;
    tSfbj: TStringField;
    d_t: TDataSource;
    t_taitm: TStringField;
    t_cdbh: TTable;
    t_cdbhCdbh: TStringField;
    N10: TMenuItem;
    N16: TMenuItem;
    t_jzfs: TTable;
    DBText1: TDBText;
    q_cdje1: TQuery;
    DBText2: TDBText;
    dq_cdje1: TDataSource;
    L_hjje: TLabel;
    yhydcd: TQuery;
    yhydcdBh: TIntegerField;
    yhydcdYDDh: TStringField;
    yhydcdClh: TStringField;
    yhydcdCh: TStringField;
    yhydcdCm: TStringField;
    yhydcdSl: TFloatField;
    yhydcdDj: TFloatField;
    yhydcdDzl: TFloatField;
    yhydcdHj: TFloatField;
    yhydcdGg: TStringField;
    yhydcdLbh: TStringField;
    bzccd: TQuery;
    bzccdBh: TIntegerField;
    bzccdBzbh: TStringField;
    bzccdClh: TStringField;
    bzccdCh: TStringField;
    bzccdCm: TStringField;
    bzccdGg: TStringField;
    bzccdSl: TFloatField;
    bzccdDj: TFloatField;
    bzccdDzl: TFloatField;
    bzccdHj: TFloatField;
    bzccdLbh: TStringField;
    bzccdid: TIntegerField;
    SeSkinForm1: TSeSkinForm;
    t_cdbhsyt: TStringField;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    cd: TQuery;
    cdCdbh: TStringField;
    cdFdbh: TStringField;
    cdTh: TStringField;
    cdTht: TStringField;
    cdCKBH: TStringField;
    cdDBXM: TStringField;
    cdKrs: TIntegerField;
    cdFwyh: TStringField;
    cdSkyh: TStringField;
    cdDCYH: TStringField;
    cdZJ: TFloatField;
    cdSsje: TFloatField;
    cdYCRQ: TDateTimeField;
    cdYcsj: TDateTimeField;
    cdJzrq: TDateTimeField;
    cdJZsj: TDateTimeField;
    cdYyLX: TStringField;
    cdSrlb: TStringField;
    cdJZFS: TStringField;
    cdQdjz: TStringField;
    cdFWF: TFloatField;
    cdZKf: TFloatField;
    cdSKJE: TFloatField;
    cdZT: TStringField;
    cdSKTH: TStringField;
    cdXJ: TFloatField;
    cdZsje: TFloatField;
    cdSfbz: TFloatField;
    cdPzrh: TStringField;
    cdQdrm: TStringField;
    cdid: TIntegerField;
    cdsyt: TStringField;
    krs: TDBEdit;
    cdmx: TQuery;
    cdmxBh: TIntegerField;
    cdmxCDBH: TStringField;
    cdmxCLH: TStringField;
    cdmxCh: TStringField;
    cdmxCm: TStringField;
    cdmxDj: TFloatField;
    cdmxSl: TFloatField;
    cdmxDzl: TFloatField;
    cdmxHj: TFloatField;
    cdmxTsl: TFloatField;
    cdmxGG: TStringField;
    cdmxSRLB: TStringField;
    cdmxCz: TStringField;
    cdmxTcyyh: TStringField;
    cdmxTCYY: TStringField;
    cdmxPzrh: TStringField;
    cdmxLbh: TStringField;
    procedure FormShow(Sender: TObject);
    procedure taiKeyPress(Sender: TObject; var Key: Char);
    procedure y_closeClick(Sender: TObject);
    procedure t_cdClick(Sender: TObject);
    procedure jzClick(Sender: TObject);
    procedure fwyhKeyPress(Sender: TObject; var Key: Char);
    procedure krsKeyPress(Sender: TObject; var Key: Char);
    procedure tcClick(Sender: TObject);
    procedure dcClick(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure krsKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure fwyhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure jcClick(Sender: TObject);
    procedure zcClick(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure cpClick(Sender: TObject);
    procedure yhClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure taiDblClick(Sender: TObject);
    procedure jbClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
    procedure DBGrid1Enter(Sender: TObject);
    procedure gdClick(Sender: TObject);
    procedure ddClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure syckClick(Sender: TObject);
    procedure dqckClick(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure DBGrid1Exit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure A1Click(Sender: TObject);
    procedure cdCalcFields(DataSet: TDataSet);
    procedure cdmxAfterEdit(DataSet: TDataSet);
    procedure cdmxAfterPost(DataSet: TDataSet);
    procedure cdmxSlChange(Sender: TField);
    procedure H1Click(Sender: TObject);
    procedure helpClick(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure DBGrid1ColEnter(Sender: TObject);
    procedure cdmxBeforePost(DataSet: TDataSet);
    procedure taiExit(Sender: TObject);
    procedure cdCdbhChange(Sender: TField);
  private
    { Private declarations }
  public
    { Public declarations }
     function h_xjje(mytable:TQuery;string1,string2:string;i:integer):currency;
     procedure gdcz;    //挂单操作
     procedure cdcz;    //查单操作
     procedure cdcz_sz; //查单操作  设置
     procedure q_cdcz;    //查单操作
     procedure cdcsh;     //菜单初始化
     procedure dccz;    //点菜操作
     function hn_cdbh:string;
     procedure t_a_set;                   //把所有不为在修的台设为空闲
     procedure t_set(string1:string);    //把台状态设为预定
     procedure t_u_set(string1:string);  //把台状态设为空闲
     procedure yd_set;                   //预定信息设置
  end;
var
  y_yyt: Ty_yyt;
//  b_tai_edit:boolean;
  s_ths:string;  //所有预定单的预定台号
  s_yd_ths:string; //当前预定单的所有预定台号
implementation

uses uy_yyt_rt, uy_yyt_jz, uy_cd_cx, uy_yyt_tc, uy_yyt_jc,
  uy_yyt_zc, uz_ckgl, uz_cpzz, uz_yhyd, uy_yyt_jb,us_ctck, uyp_yyt1,
  uy_ctyl, uz_cpck, ughczy, uy_yyt_ck, ug_ckxx, uy_yyt_yh, uy_yyt_bzc,
  uy_yyt_dd, uabout,uy_yyt_login, uy_yyt_jz_dz, uy_yyt_md, uy_yyt_qd,
  ug_dcd, ug_dc, ug_wait, ug_ckcx;

{$R *.DFM}
function Ty_yyt.h_xjje(mytable:TQuery;string1,string2:string;i:integer):currency;
begin
 with mytable do
  begin
   DisableControls;
   ParamByName(string1).asstring:=string2;
   active:=false;
   active:=true;
   EnableControls;
   h_xjje:=fields[i].ascurrency;
   L_hjje.caption := format('%*.*F',[8,2,fields[i].ascurrency])
  end;  
end;
function Ty_yyt.hn_cdbh:string;
var
 hb_num:string;
   datecode,maxcode,c_class:string;
   Present: TDateTime;
   Year, Month, Day:word;
begin
   //时间编号
   Present:= Now;
   DecodeDate(Present, Year, Month, Day);
   if length(inttostr(year))=4 then
      datecode:=datecode+trim(copy(inttostr(year),3,2));
   if length(inttostr(year))=2 then
      datecode:=datecode+trim(inttostr(year));
   if length(inttostr(month))=2 then
      datecode:=datecode+trim(inttostr(month));
   if length(inttostr(month))=1 then
      datecode:=datecode+'0'+trim(inttostr(month));
   if length(inttostr(day))=2 then
      datecode:=datecode+trim(inttostr(day));
   if length(inttostr(day))=1 then
      datecode:=datecode+'0'+trim(inttostr(day));

 with main.query1 do
  begin
   active:=false;
   sql.Clear;
   sql.Add('select max(cdbh) as bh from cdbh where syt='+quotedstr(s_skth+datecode));
   active:=true;
   if (RecordCount>0) and (not fieldbyname('bh').isnull) then
       maxcode:=copy(fieldbyname('bh').asstring,length(s_skth+datecode)+1,4)
   else
       maxcode:='0';
   maxcode:=inttostr(strtoint(maxcode)+1) ;
   while length (maxcode)<4 do
     begin
       maxcode:='0'+maxcode;
     end;
   hn_cdbh:=s_skth+datecode+maxcode;
  
  end;
end;

procedure Ty_yyt.gdcz;
var i:integer;
begin
 if  (not t_tai.Locate('tht',y_yyt.tai.text,[loCaseInsensitive])) then
  begin
   messagebox(handle,'选台操作有误!'+#13+'请重新启动〈阳光管理软件系统－餐饮〉','系统提示信息',MB_OK+MB_ICONWARNING);
   main.h_del_p1('c_cdbh','s_cdbh','delete from cdmx where cdbh=:c_cdbh');
   exit;
  end;
 t_tai.edit;
 t_tai.fieldbyname('zt').value:='1';
 t_tai.post;
//插入cd表中
 with cd do
  begin

   fieldbyname('th').asstring:=copy(th.caption,2,3);
   fieldbyname('tht').asstring:=tai.text;
 //  fieldbyname('krs').asinteger:=strtoint(krs.text);
   fieldbyname('fwyh').asstring:=fwyh.text;
   fieldbyname('skyh').asstring:=s_czyh;

   fieldbyname('yylx').asstring:=s_yylx;
   fieldbyname('srlb').asstring:=srlb.caption;
   fieldbyname('zt').asstring:='1';
   cdmx.ApplyUpdates;
   cdmx.CommitUpdates;
   post;
  end;
 t_cdbh.AppendRecord([s_cdbh,copy(s_cdbh,1,8)]); //更新编号表

 zt.caption:='1';
 ztc.caption:='挂单';
 tai.ReadOnly:=true;
 krs.enabled:=false;
 fwyh.ReadOnly:=true;
// gd.Enabled:=false;
 yh.Enabled:=false;
 bz.Enabled:=false;
 my_yyt_gd.Enabled:=false;
 my_yyt_yh.Enabled:=false;
 my_yyt_bz.Enabled:=false;
 // 如果所挂单为预定单则把宴会预定表中的y_n设为true , 表明预定成功
 if yddh.caption<>''  then
  if yhyd.locate('yddh',yddh.caption,[loCaseInsensitive])  then
   with yhyd do
    begin
     edit;
     if length(s_yd_ths)>2 then
       fieldbyname('thts').value:=copy(s_yd_ths,3,length(s_yd_ths))
      else
       fieldbyname('y_n').value:=true;
     post;
    end;
end;
procedure Ty_yyt.cdcz;
begin
 with cd do
  begin
   s_cdbh:=fieldbyname('cdbh').asstring;
   th.caption:='['+fieldbyname('th').asstring+']';
   tm.caption:=fieldbyname('tm').asstring;
   tai.text:=fieldbyname('tht').asstring;
  // krs.text:=fieldbyname('krs').asstring;
   zws.caption:=fieldbyname('zws').asstring;
   fwyh.text:=fieldbyname('fwyh').asstring;
   zt.caption:=fieldbyname('zt').asstring;
  end;
 cdcz_sz;
end;
procedure Ty_yyt.cdcz_sz;
begin
//  c_cdbh.caption:=s_cdbh;
  if zt.caption='1' then
    begin
     ztc.caption:='挂单';
     DBGrid1.ReadOnly:=false;