ux_czy_xz.pas

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

unit ux_czy_xz;

interface

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

type
  Tx_czy_xz = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn2: TBitBtn;
    czyh: TDBEdit;
    czym: TDBEdit;
    BitBtn1: TBitBtn;
    zw: TDBEdit;
    bm: TDBEdit;
    mm1: TEdit;
    mm: TEdit;
    BitBtn3: TBitBtn;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure czyhExit(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  x_czy_xz: Tx_czy_xz;

implementation

uses uz_cpzz, ux_czygl, ux_qxsz;

{$R *.DFM}
procedure Tx_czy_xz.FormShow(Sender: TObject);
begin
 if y_n=1 then
  begin
   x_czy_xz.caption:='操作员[新增]';
   x_czygl.czy.append;
   czyh.enabled:=true;
   activecontrol:=czyh;
   mm.text:='';
   mm1.text:='';
  end
 else
  begin
   x_czy_xz.caption:='操作员[修改]';
   czyh.enabled:=false;
   mm.text:=x_czygl.czy.fieldbyname('mm').asstring;
   mm1.text:=x_czygl.czy.fieldbyname('mm').asstring;
   activecontrol:=czym;
  end;
end;

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

procedure Tx_czy_xz.BitBtn1Click(Sender: TObject);
begin
 try
   strtoint(czyh.text);
  except
   messagebox(handle,'操作员号必须为4位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
   czyh.setfocus;
 end;
 if (trim(czyh.text)='') or (length(trim(czyh.text))<>4) then
  begin
    messagebox(handle,'操作员号必须为4位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    czyh.setfocus;
    exit;
   end;
 if mm.text<>mm1.text then
  begin
    messagebox(handle,'请确认操作密码!','系统提示信息',MB_OK+MB_ICONWARNING);
    mm.setfocus;
    exit;
  end;
 with x_czygl.treeview1 do
  begin
   if y_n=1 then
      items.AddChild(getnodeat(1,1),'['+czyh.text+']'+czym.text )
    else
      selected.text:='['+czyh.text+']'+czym.text ;
      fullexpand;
  end;
 x_czygl.czy.edit;
 x_czygl.czy.FieldByName('mm').value:=mm.text;
 x_czygl.czy.post;
 close;
end;

procedure Tx_czy_xz.BitBtn2Click(Sender: TObject);
begin
 x_czygl.czy.cancel;
 close;
end;


procedure Tx_czy_xz.czyhExit(Sender: TObject);
begin
 s_sql:='select czyh from czy where czyh=:s_czyh';
 if main.h_only(s_sql,'s_czyh',czyh.text)<>0 then
   begin
     messagebox(handle,'您输入的操作员号已经存在!','系统提示信息',MB_OK+MB_ICONWARNING);
     czyh.setfocus;
     exit;
   end;
end;

procedure Tx_czy_xz.BitBtn3Click(Sender: TObject);
begin
 x_qxsz.showmodal;
end;

end.