uz_clsz_xz.pas

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

unit uz_clsz_xz;

interface

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

type
  Tz_clsz_xz = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label4: TLabel;
    qx: TBitBtn;
    bm: TDBEdit;
    jl: TDBEdit;
    yl: TDBEdit;
    dj: TDBEdit;
    BitBtn1: TBitBtn;
    jll: TDBEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure qxClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_clsz_xz: Tz_clsz_xz;

implementation

uses uz_clsz;

{$R *.DFM}

procedure Tz_clsz_xz.FormShow(Sender: TObject);
begin
 if y_n=1 then
   begin
    z_clsz_xz.caption:='菜料设置-新增';
    z_clsz.clsz.append;
    z_clsz.clsz.fieldbyname('bh').value:=main.h_n_bh('select max(bh) as bh from clsz');
    z_clsz.clsz.fieldbyname('lb').value:=lbh;
    bm.Enabled:=true;
    activecontrol:=bm;
   end
  else
   begin
    z_clsz_xz.caption:='菜肴配料-修改';
    bm.Enabled:=false;
    activecontrol:=jl;
   end;
end;

procedure Tz_clsz_xz.BitBtn1Click(Sender: TObject);
begin
 if (trim(bm.text)='') or (trim(jl.text)='') or (trim(yl.text)='') or (trim(dj.text)='') or (trim(jll.text)='') then
   begin
    messagebox(handle,'请输入完整！','系统提示信息',MB_OK+MB_ICONWARNING);
    exit;
   end;
 z_clsz.clsz.edit;
 z_clsz.clsz.post;
 close;
end;

procedure Tz_clsz_xz.qxClick(Sender: TObject);
begin
 z_clsz.clsz.cancel;
 close;
end;

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

end.