uz_ckgl_xz.pas

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

unit uz_ckgl_xz;

interface

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

type
  Tz_ckgl_xz = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label6: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label10: TLabel;
    qx: TBitBtn;
    ckbh: TDBEdit;
    dbxm: TDBEdit;
    xb: TDBComboBox;
    dh: TDBEdit;
    ch: TDBEdit;
    sj: TDBEdit;
    dwmc: TDBEdit;
    dwdz: TDBEdit;
    khyh: TDBEdit;
    zh: TDBEdit;
    yb: TDBEdit;
    BitBtn1: TBitBtn;
    ql: TDBComboBox;
    xydj: TDBComboBox;
    zw: TDBEdit;
    xfcs: TDBEdit;
    xfze: TDBEdit;
    csrq: TDateTimePicker;
    zjm: TDBEdit;
    dwxz: TDBLookupCombo;
    procedure qxClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ckbhExit(Sender: TObject);
    procedure xfcsChange(Sender: TObject);
    procedure xfzeChange(Sender: TObject);
    procedure dwmcChange(Sender: TObject);
    procedure xfcsEnter(Sender: TObject);
    procedure xfzeEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_ckgl_xz: Tz_ckgl_xz;
  cs_xfcs,cs_xfze:string;
implementation

uses uz_ckgl;

{$R *.DFM}

procedure Tz_ckgl_xz.qxClick(Sender: TObject);
begin
 z_ckgl.ckzl.cancel;
end;

procedure Tz_ckgl_xz.BitBtn1Click(Sender: TObject);
begin
 try
   strtoint(ckbh.text);
  except
    messagebox(handle,'常客编号必须为4位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    ckbh.setfocus;
    exit;
  end;
 if (trim(ckbh.text)='') or (length(ckbh.text)<>4) then
   begin
    messagebox(handle,'常客编号必须为4位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    ckbh.setfocus;
    exit;
   end;
 if trim(zjm.text)='' then
   begin
    messagebox(handle,'助记码不能为空！','系统提示信息',MB_OK+MB_ICONWARNING);
    dwmc.setfocus;
    exit;
   end;
 z_ckgl.ckzl.edit;
 z_ckgl.ckzl.fieldbyname('csrq').value:=csrq.Date;
 z_ckgl.ckzl.post;
 close;
end;

procedure Tz_ckgl_xz.FormShow(Sender: TObject);
begin
 if y_n=1 then
  begin
   z_ckgl.ckzl.append;
   caption:='常客信息[新增]';
   ckbh.enabled:=true;
   xfcs.enabled:=true;
   xfze.enabled:=true;
   ckbh.setfocus;
  end
 else
  begin
   z_ckgl.ckzl.edit;
   caption:='常客信息[修改]';
   ckbh.enabled:=false;
   xfcs.enabled:=false;
   xfze.enabled:=false;
   dwmc.setfocus;
   csrq.date:=z_ckgl.ckzl.fieldbyname('csrq').asdatetime;
  end;
 cs_xfcs:='1';
 cs_xfze:='0.00';
end;

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

procedure Tz_ckgl_xz.ckbhExit(Sender: TObject);
begin
 if trim(ckbh.text)='' then exit;
 s_sql:='select ckbh from ckzl where ckbh=:s_ckbh';
 if main.h_only(s_sql,'s_ckbh',ckbh.text)<>0 then
   begin
     messagebox(handle,'您输入的常客编号已经存在!','系统提示信息',MB_OK+MB_ICONWARNING);
     ckbh.setfocus;
   end;
end;

procedure Tz_ckgl_xz.xfcsChange(Sender: TObject);
begin
 if not xfcs.Focused then exit;
 try
  strtofloat(xfcs.text);
 except
  xfcs.text:=cs_xfcs;
  exit;
 end;
 if strtofloat(xfcs.text)<0 then   xfcs.text:=cs_xfcs;
 cs_xfcs:=xfcs.text;
end;

procedure Tz_ckgl_xz.xfzeChange(Sender: TObject);
begin
 if not xfze.Focused then exit;
 try
  strtofloat(xfze.text);
 except
  xfze.text:=cs_xfze;
  exit;
 end;
 if strtofloat(xfze.text)<0 then xfze.text:=cs_xfze;
 cs_xfze:=xfze.text;
end;

procedure Tz_ckgl_xz.dwmcChange(Sender: TObject);
begin
 z_ckgl.ckzl.edit;
 z_ckgl.ckzl.FieldByName('dwmc').value:=trim(dwmc.text);
 z_ckgl.ckzl.FieldByName('Zjm').value:=main.hzpy(dwmc.text);
 dwmc.text:=trim(dwmc.text);
 Zjm.text:=main.hzpy(dwmc.text);
end;

procedure Tz_ckgl_xz.xfcsEnter(Sender: TObject);
begin
 cs_xfcs:=xfcs.text;
end;

procedure Tz_ckgl_xz.xfzeEnter(Sender: TObject);
begin
 cs_xfze:=xfze.text;
end;

end.