us_ctbz_tai.pas

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

unit us_ctbz_tai;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, StdCtrls, Mask, Buttons, ExtCtrls,u_main, DBLookup;

type
  Ts_ctbz_tai = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    qx: TBitBtn;
    tht: TDBEdit;
    zws: TDBEdit;
    fwfl: TDBEdit;
    sfbz: TDBEdit;
    fwyh: TDBEdit;
    BitBtn1: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    dzl: TDBEdit;
    fwym: TDBEdit;
    DBLookupCombo1: TDBLookupCombo;
    Label9: TLabel;
    zdxf: TDBEdit;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure qxClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure thtExit(Sender: TObject);
    procedure sfbzChange(Sender: TObject);
    procedure dzlChange(Sender: TObject);
    procedure fwflChange(Sender: TObject);
    procedure zwsChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure zdxfChange(Sender: TObject);
    procedure zwsExit(Sender: TObject);
    procedure fwflExit(Sender: TObject);
    procedure dzlExit(Sender: TObject);
    procedure sfbzExit(Sender: TObject);
    procedure zdxfExit(Sender: TObject);
    procedure zwsEnter(Sender: TObject);
    procedure fwflEnter(Sender: TObject);
    procedure dzlEnter(Sender: TObject);
    procedure sfbzEnter(Sender: TObject);
    procedure zdxfEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  s_ctbz_tai: Ts_ctbz_tai;
  ts_zws,ts_fwfl,ts_dzl,ts_sfbz,ts_zdxf:string;
implementation

uses us_ctbz;

{$R *.DFM}


procedure Ts_ctbz_tai.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then selectnext(activecontrol,true,true);
  if key=#27 then qxClick(Sender);
end;

procedure Ts_ctbz_tai.BitBtn1Click(Sender: TObject);
var
 t_text:string;
begin
 try
  strtoint(tht.text);
 except
  messagebox(handle,'台号必须为2位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
  tht.setfocus;
  exit;
 end;
 if (trim(tht.text)='') or (length(tht.text)<>2) then
  begin
   messagebox(handle,'台号必须为2位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
   tht.setfocus;
   exit;
  end;
 s_mess:='服务费率应在 '+Format('%*.*f',[8,2,main.fdxx.fieldbyname('zdfwfl').ascurrency])+' 和 '+Format('%*.*f', [8, 2,main.fdxx.fieldbyname('zdfwfl1').ascurrency])+' 之间';
 if (strtocurr(fwfl.text)<main.fdxx.fieldbyname('zdfwfl').ascurrency) or (strtocurr(fwfl.text)>main.fdxx.fieldbyname('zdfwfl1').ascurrency) then
   begin
    messagebox(handle,pchar(s_mess),'系统提示信息',MB_OK+MB_ICONWARNING);
    fwfl.setfocus;
    exit;
   end;
 s_mess:='打折率率应在 '+Format('%*.*f', [8, 2,main.fdxx.fieldbyname('zdzkl').ascurrency])+' 和 '+Format('%*.*f', [8, 2,main.fdxx.fieldbyname('zdzkl1').ascurrency])+' 之间';
 if (strtocurr(dzl.text)<main.fdxx.fieldbyname('zdzkl').ascurrency) or (strtocurr(dzl.text)>main.fdxx.fieldbyname('zdzkl1').ascurrency) then
   begin
    messagebox(handle,pchar(s_mess),'系统提示信息',MB_OK+MB_ICONWARNING);
    dzl.setfocus;
    exit;
   end;
 if  y_n=1 then
  begin
    if tht.text='' then
      begin
       messagebox(handle,'台号不能为空！','系统提示信息',MB_OK+MB_ICONWARNING);
       tht.setfocus;
       exit;
      end;
    t_text:=s_ctbz.TreeView1.Selected.Text;
    if copy(t_text,length(t_text)-3,length(t_text))='包间' then
       s_ctbz.tai.fieldbyname('sfbj').asstring:='是'
      else
       s_ctbz.tai.fieldbyname('sfbj').asstring:='否';
    s_ctbz.tai.fieldbyname('th').asstring:=copy(t_text,2,2);
    s_ctbz.tai.fieldbyname('fdbh').asstring:=s_fdbh;
   end;
 s_ctbz.tai.edit;
 s_ctbz.tai.post;
 ss_fwyh:=fwyh.text;
 ss_fwym:=fwym.text;
 close;
end;

procedure Ts_ctbz_tai.qxClick(Sender: TObject);
begin
  s_ctbz.tai.cancel;
  close;
end;

procedure Ts_ctbz_tai.FormShow(Sender: TObject);
begin
 if y_n=1 then
  begin
   caption:='餐厅布置[加台]';
   s_ctbz.tai.append;
   s_ctbz.tai.fieldbyname('th').value:=copy(s_ctbz.treeview1.selected.text,2,2);
   s_ctbz.tai.fieldbyname('fwyh').value:=ss_fwyh;
   s_ctbz.tai.fieldbyname('fwym').value:=ss_fwym;
   tht.enabled:=true;
   activecontrol:=tht;
   tht.text:='';
  end
 else
  begin
   caption:='餐厅布置[改台]';
   tht.enabled:=false;
   activecontrol:=zws;
  end;
end;
procedure Ts_ctbz_tai.thtExit(Sender: TObject);
begin
 s_sql:='select tht from tai where tht=:s_tht';
 if main.h_only(s_sql,'s_tht',tht.text)<>0 then
  begin
   s_mess:='您输入的台号['+tht.text+']已经存在!';
   messagebox(handle,pchar(s_mess),'系统提示信息',MB_OK+MB_ICONWARNING);
   tht.setfocus;
  end;
end;

procedure Ts_ctbz_tai.sfbzChange(Sender: TObject);
begin
 if (not sfbz.Focused) or (trim(sfbz.text)='') then exit;
 try
  strtofloat(sfbz.text);
 except
  sfbz.text:=ts_sfbz;
  exit;
 end;
 if strtofloat(sfbz.text)<0 then sfbz.text:=ts_sfbz;
 ts_sfbz:=sfbz.text;
end;

procedure Ts_ctbz_tai.dzlChange(Sender: TObject);
begin
 if (not dzl.Focused) or (trim(dzl.text)='') then exit;
 try
  strtofloat(dzl.text);
 except
  dzl.text:=ts_dzl;
  exit;
 end;
 if strtofloat(dzl.text)<0 then dzl.text:=ts_dzl;
 ts_dzl:=dzl.text;
end;

procedure Ts_ctbz_tai.fwflChange(Sender: TObject);
begin
 if (not fwfl.Focused) or (trim(fwfl.text)='') then exit;
 try
  strtofloat(fwfl.text);
 except
  fwfl.text:=ts_fwfl;
  exit;
 end;
 if strtofloat(fwfl.text)<0 then fwfl.text:=ts_fwfl;
 ts_fwfl:=fwfl.text;
end;

procedure Ts_ctbz_tai.zwsChange(Sender: TObject);
begin
 if (not zws.Focused) or (trim(zws.text)='') then exit;
 try
  strtofloat(zws.text);
 except
  zws.text:=ts_zws;
  exit;
 end;
 if strtofloat(zws.text)<0 then zws.text:=ts_zws;
 ts_zws:=zws.text;
end;

procedure Ts_ctbz_tai.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  s_ctbz.tai.cancel;
end;

procedure Ts_ctbz_tai.zdxfChange(Sender: TObject);
begin
 if (not zdxf.Focused) or (trim(zdxf.text)='') then exit;
 try
  strtofloat(zdxf.text);
 except
  zdxf.text:=ts_zdxf;
  exit;
 end;
 if strtofloat(zdxf.text)<0 then zdxf.text:=ts_zdxf;
 ts_zdxf:=zdxf.text;
end;

procedure Ts_ctbz_tai.zwsExit(Sender: TObject);
begin
 if trim(zws.text)='' then zws.text:=ts_zws;
end;

procedure Ts_ctbz_tai.fwflExit(Sender: TObject);
begin
 if trim(fwfl.text)='' then fwfl.text:=ts_fwfl;
end;

procedure Ts_ctbz_tai.dzlExit(Sender: TObject);
begin
 if trim(dzl.text)='' then dzl.text:=ts_dzl;
end;

procedure Ts_ctbz_tai.sfbzExit(Sender: TObject);
begin
 if trim(sfbz.text)='' then sfbz.text:=ts_sfbz;
end;

procedure Ts_ctbz_tai.zdxfExit(Sender: TObject);
begin
 if trim(zdxf.text)='' then zdxf.text:=ts_zdxf;
end;

procedure Ts_ctbz_tai.zwsEnter(Sender: TObject);
begin
 ts_zws:=zws.text;
end;

procedure Ts_ctbz_tai.fwflEnter(Sender: TObject);
begin
 ts_fwfl:=fwfl.text;
end;

procedure Ts_ctbz_tai.dzlEnter(Sender: TObject);
begin
 ts_dzl:=dzl.text;
end;

procedure Ts_ctbz_tai.sfbzEnter(Sender: TObject);
begin
 ts_sfbz:=sfbz.text;
end;

procedure Ts_ctbz_tai.zdxfEnter(Sender: TObject);
begin
 ts_zdxf:=zdxf.text;
end;

end.