us_ctbz_t.pas

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

unit us_ctbz_t;

interface

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

type
  Ts_ctbz_t = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    qx: TBitBtn;
    tm: TDBEdit;
    th: TDBEdit;
    yes: TBitBtn;
    sfbj: TCheckBox;
    procedure yesClick(Sender: TObject);
    procedure qxClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure sfbjClick(Sender: TObject);
    procedure thExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  s_ctbz_t: Ts_ctbz_t;

implementation

uses us_ctbz;

{$R *.DFM}
procedure Ts_ctbz_t.yesClick(Sender: TObject);
begin
 try
   strtoint(th.text);
  except
    messagebox(handle,'厅号必须为2位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    th.setfocus;
    exit;
  end;
 if (trim(th.text)='') or (length(trim(th.text))<>2) then
   begin
    messagebox(handle,'厅号必须为2位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    th.setfocus;
    exit;
   end;
 if trim(tm.text)='' then
   begin
     messagebox(handle,'厅名不能为空！','系统提示信息',MB_OK+MB_ICONWARNING);
     tm.setfocus;
     exit;
   end;
 with s_ctbz.treeview1,s_ctbz.t do
   begin
     if fieldbyname('sfbj').asstring='是' then
         s_tm:=fieldbyname('tm').asstring+'/包间'
      else
         s_tm:=fieldbyname('tm').asstring;
     if y_n=1 then
        items.AddChild(getnodeat(1,1),'['+fieldbyname('th').asstring+']'+s_tm)
      else
        selected.text:='['+th.text+']'+s_tm ;
     fullexpand;
   end;
 s_ctbz.t.edit;
 s_ctbz.t.post;
 s_ctbz.tai.filter:='th='+th.text;
 close;
end;

procedure Ts_ctbz_t.qxClick(Sender: TObject);
begin
  s_ctbz.t.cancel;
  close;
end;

procedure Ts_ctbz_t.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_t.FormShow(Sender: TObject);
begin
 if y_n=1 then
   begin
     caption:='餐厅布置[加厅]';
     s_ctbz.t.append;
     s_ctbz.t.fieldbyname('fdbh').asstring:=s_fdbh;
     th.enabled:=true;
     sfbj.Checked:=false;
     ActiveControl:=th;
   end
  else
   begin
    caption:='餐厅布置[改厅]';
    th.enabled:=false;
    ActiveControl:=tm;
    if s_ctbz.t.fieldbyname('sfbj').asstring='是'  then
       sfbj.Checked:=true
     else
       sfbj.Checked:=false;
   end;
end;
procedure Ts_ctbz_t.sfbjClick(Sender: TObject);
begin
 s_ctbz.t.edit;
 if sfbj.Checked then
    s_ctbz.t.fieldbyname('sfbj').asstring:='是'
  else
    s_ctbz.t.fieldbyname('sfbj').asstring:='否';
end;
procedure Ts_ctbz_t.thExit(Sender: TObject);
begin
 s_sql:='select th from t where th=:s_th';
 if main.h_only(s_sql,'s_th',th.text)<>0 then
   begin
     s_mess:='您输入的厅号['+th.text+']已经存在!';
     messagebox(handle,pchar(s_mess),'系统提示信息',MB_OK+MB_ICONWARNING);
     th.setfocus;
   end;
end;

end.