uz_cpzz_cl.pas

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

unit uz_cpzz_cl;

interface

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

type
  Tz_cpzz_cl = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    qx: TBitBtn;
    clm: TDBEdit;
    clh: TDBEdit;
    yes: TBitBtn;
    Label3: TLabel;
    dzl: TDBEdit;
    procedure qxClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure clhExit(Sender: TObject);
    procedure dzlChange(Sender: TObject);
    procedure dzlEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure dzl_set(s_clh:string;c_dzl:currency);
  end;

var
  z_cpzz_cl: Tz_cpzz_cl;
  cs_dzl:string;
implementation

uses uz_cpzz;

{$R *.DFM}
//设置菜类中的相应菜肴的打折率
procedure Tz_cpzz_cl.dzl_set(s_clh:string;c_dzl:currency);
begin
 with main.query1 do
  begin
   active:=false;
   sql.Clear;
   sql.add('update cy set dzl=:dzl where clh=:clh');
   ParamByName('dzl').ascurrency:=c_dzl;
   ParamByName('clh').asstring:=s_clh;
   ExecSQL;
  end;
end;

procedure Tz_cpzz_cl.qxClick(Sender: TObject);
begin
 z_cpzz.cl.cancel;
 close;
end;

procedure Tz_cpzz_cl.FormShow(Sender: TObject);
begin
 if y_n=1 then
   begin
    z_cpzz_cl.caption:='菜谱制作[增类]';
    z_cpzz.cl.append;
    z_cpzz.cl.fieldbyname('lbh').value:=inttostr(z_cpzz.TabSet1.TabIndex+1); //放入消费类别号
    clh.Enabled:=true;
    ActiveControl:=clh;
   end
  else
   begin
    z_cpzz_cl.caption:='菜谱制作[改类]';
    clh.Enabled:=false;
    ActiveControl:=clm;
   end;
end;

procedure Tz_cpzz_cl.BitBtn1Click(Sender: TObject);
begin
 try
   strtoint(clh.text);
  except
    messagebox(handle,'菜类号必须为2位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    clh.setfocus;
    exit;
  end;
  if (trim(clh.text)='') or (length(trim(clh.text))<>2) then
    begin
     messagebox(handle,'菜类号必须为2位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
     clh.setfocus;
     exit;
    end;
  if clm.text='' then
    begin
      messagebox(handle,'菜类名称不能为空！','系统提示信息',MB_OK+MB_ICONWARNING);
      clm.setfocus;
      exit;
    end;
 with z_cpzz.treeview1 do
   begin
     if y_n=1 then
       items.AddChild(getnodeat(1,1),'['+clh.text+']'+clm.text )
      else
       selected.text:='['+clh.text+']'+clm.text ;
       fullexpand;
   end;
 z_cpzz.cl.edit;
 z_cpzz.cl.post;
 main.h_del('delete from cy where ch is NULL');
 dzl_set(clh.text,strtocurr(dzl.text));
 z_cpzz.cy.filter:='clh='+clh.text;
 close;
end;

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

procedure Tz_cpzz_cl.clhExit(Sender: TObject);
begin
 s_sql:='select clh from cl where clh=:s_clh';
 if main.h_only(s_sql,'s_clh',clh.text)<>0 then
   begin
     s_mess:='您输入的菜类号['+clh.text+']已经存在!';
     messagebox(handle,pchar(s_mess),'系统提示信息',MB_OK+MB_ICONWARNING);
     clh.setfocus;
   end;
end;

procedure Tz_cpzz_cl.dzlChange(Sender: TObject);
begin
 if not dzl.Focused then exit;
 try
  strtofloat(dzl.text);
 except
  dzl.text:=cs_dzl;
  exit;
 end;
 cs_dzl:=dzl.text;
end;

procedure Tz_cpzz_cl.dzlEnter(Sender: TObject);
begin
 cs_dzl:=dzl.text;
end;

end.