uy_yyt.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

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;

type
  Ty_yyt = class(TForm)
    CoolBar1: TCoolBar;
    ScrollBox1: TScrollBox;
    ImageList: TImageList;
    sb: TStatusBar;
    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;
    sj: TDBText;
    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;
    krs: TEdit;
    skyh: TLabel;
    fwyh: TEdit;
    zws: TLabel;
    zt: TLabel;
    c_cdbh: 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;
    rq: 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;
    cd: TTable;
    d_cd: TDataSource;
    cdmx: TTable;
    cdmxBh: TIntegerField;
    cdmxCDBH: TStringField;
    cdmxCLH: TStringField;
    cdmxCh: TStringField;
    cdmxCm: TStringField;
    cdmxDj: TFloatField;
    cdmxSl: TFloatField;
    cdmxDzl: TFloatField;
    cdmxHj: TFloatField;
    cdmxGG: TStringField;
    cdmxSRLB: TStringField;
    cdmxCz: TStringField;
    cdmxTcyyh: TStringField;
    cdmxTCYY: TStringField;
    cdmxPzrh: TStringField;
    cdmxTsl: TFloatField;
    cdmxLbh: TStringField;
    cdmxcz1: TStringField;
    d_cdmx: TDataSource;
    cdmx_cz: TTable;
    cdmx_czBh: TStringField;
    cdmx_czCz: TStringField;
    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;
    cdtm: TStringField;
    q_cdje: TQuery;
    q_cdjehj: TFloatField;
    dq_cdje: TDataSource;
    cdzj1: TFloatField;
    d_bzc: TDataSource;
    bzc: TTable;
    bzcBzbh: TStringField;
    bzcBzmc: TStringField;
    bzcBzbz: TFloatField;
    bzcZzr: TStringField;
    bzcZzrq: TDateTimeField;
    bzcBz: TStringField;
    bzccd: TTable;
    bzccdBh: TIntegerField;
    bzccdBzbh: TStringField;
    bzccdCh: TStringField;
    bzccdCm: TStringField;
    bzccdGg: TStringField;
    bzccdDj: TFloatField;
    bzccdSl: TFloatField;
    bzccdDzl: TFloatField;
    bzccdHj: TFloatField;
    bzccdClh: TStringField;
    bzccdLbh: 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;
    yhydcd: TTable;
    yhydcdBh: TIntegerField;
    yhydcdYDDh: TStringField;
    yhydcdCh: TStringField;
    yhydcdCm: TStringField;
    yhydcdGg: TStringField;
    yhydcdDj: TFloatField;
    yhydcdSl: TFloatField;
    yhydcdDzl: TFloatField;
    yhydcdHj: TFloatField;
    yhydcdClh: TStringField;
    yhydcdLbh: TStringField;
    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;
    cdzws: TIntegerField;
    t_taitm: TStringField;
    t_cdbh: TTable;
    t_cdmxbh: TTable;
    t_cdmxbhBh: TIntegerField;
    t_cdbhCdbh: TStringField;
    N10: TMenuItem;
    N16: TMenuItem;
    t_jzfs: TTable;
    cdjzfs1: TStringField;
    DBText1: TDBText;
    q_cdje1: TQuery;
    DBText2: TDBText;
    dq_cdje1: TDataSource;
    L_hjje: TLabel;
    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 krsExit(Sender: TObject);
    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 taiKeyDown(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 taiChange(Sender: TObject);
    procedure Timer2Timer(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);
  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;
     function hn_cdmxbh:integer;
     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;
begin
 with main.query1 do
  begin
   active:=false;
   sql.Clear;
   sql.Add('select max(cdbh) as bh from cdbh');
   active:=true;
   if trim(fieldbyname('bh').asstring)='' then
     hb_num:='000000001'
    else
     begin
      hb_num:=copy(fieldbyname('bh').asstring,4,9);
      hb_num:=inttostr(strtoint(hb_num)+1);
     end;
  end;
 case length(hb_num) of
   1:hb_num:='00000000'+hb_num;
   2:hb_num:='0000000'+hb_num;
   3:hb_num:='000000'+hb_num;
   4:hb_num:='00000'+hb_num;
   5:hb_num:='0000'+hb_num;
   6:hb_num:='000'+hb_num;
   7:hb_num:='00'+hb_num;
   8:hb_num:='0'+hb_num;
 end;
 if length(hb_num)>=10 then
   begin
    messagebox(handle,'序号生成器已满，请与程序供应商联系！','系统提示信息',MB_OK+MB_ICONWARNING);
    hn_cdbh:='0';
   end
  else
    hn_cdbh:=hb_num;
end;
function Ty_yyt.hn_cdmxbh:integer;
var
 hn_bh:integer;
begin
 with main.query1 do
  begin
   active:=false;
   sql.Clear;
   sql.add('select max(bh) as bh from cdmxbh');
   active:=true;
   if trim(fieldbyname('bh').asstring)='' then
     hn_bh:=1
    else
     hn_bh:=fieldbyname('bh').asinteger+1;
  end;
 t_cdmxbh.AppendRecord([hn_bh]); //更新编号表
 hn_cdmxbh:=hn_bh
end;

procedure Ty_yyt.gdcz;
begin
 if not t_tai.FindKey([copy(y_yyt.tai.text,1,2)])  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
   append;
   fieldbyname('fdbh').asstring:=s_fdbh;
   fieldbyname('skth').asstring:=s_skth;
   fieldbyname('cdbh').asstring:=s_cdbh;
   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('ycrq').asdatetime:=date();
   fieldbyname('ycsj').asdatetime:=time();
   fieldbyname('yylx').asstring:=s_yylx;
   fieldbyname('srlb').asstring:=srlb.caption;
   fieldbyname('zt').asstring:='1';
   post;
  end;
 t_cdbh.AppendRecord([s_cdbh]); //更新编号表

 zt.caption:='1';
 ztc.caption:='挂单';
 tai.ReadOnly:=true;
 krs.ReadOnly:=true;
 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.FindKey([yddh.caption])  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;