uz_cpzz_cy.pas

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

unit uz_cpzz_cy;

interface

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

type
  Tz_cpzz_cy = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    qx: TBitBtn;
    ch: TDBEdit;
    cm: TDBEdit;
    zjm: TDBEdit;
    dj: TDBEdit;
    sm: TDBEdit;
    BitBtn1: TBitBtn;
    gg: TComboBox;
    cydw: TTable;
    cydwBh: TStringField;
    cydwDW: TStringField;
    cydwD_yn: TBooleanField;
    d_cydw: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure chExit(Sender: TObject);
    procedure qxClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cmChange(Sender: TObject);
    procedure djChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure djEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   function cl_dzl(clh:string):currency;
  end;

var
  z_cpzz_cy: Tz_cpzz_cy;
  cs_dj:string;
implementation

uses uz_cpzz;

{$R *.DFM}

function Tz_cpzz_cy.cl_dzl(clh:string):currency;
begin
 with main.query1 do
  begin
   sql.clear;
   sql.add('select dzl from cl where clh=:s_clh');
   ParamByName('s_clh').asstring:=clh;
   active:=false;
   active:=true;
   cl_dzl:=fieldbyname('dzl').ascurrency;
  end;
end;
procedure Tz_cpzz_cy.FormShow(Sender: TObject);
var
 i:integer;
begin
 gg.Items.Clear;
 with cydw do
  begin
   first;
   for i:=1 to recordcount do
    begin
     gg.Items.Add(fieldbyname('dw').asstring);
     next;
    end;
  end;
 if y_n=1 then
   begin
     z_cpzz_cy.caption:='菜谱制作[增菜]';
     with z_cpzz.cy do
       begin
        append;
        fieldbyname('clh').value:=copy(z_cpzz.treeview1.selected.text,2,2);
        fieldbyname('lbh').value:=inttostr(z_cpzz.TabSet1.TabIndex+1); //放入消费类别号
        fieldbyname('gg').value:=s_gg;
        fieldbyname('dzl').value:=cl_dzl(copy(z_cpzz.treeview1.selected.text,2,2));
        fieldbyname('dj').value:=strtocurr(s_dj);
       end;
     gg.text:=s_gg;
     ch.Enabled:=true;
     activecontrol:=ch;
   end
  else
   begin
    z_cpzz_cy.caption:='菜谱制作[改菜]';
    ch.Enabled:=false;
    activecontrol:=cm;
    gg.Text:=z_cpzz.cy.fieldbyname('gg').asstring;
   end;
end;

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

procedure Tz_cpzz_cy.qxClick(Sender: TObject);
begin
 z_cpzz.cy.cancel;
 close;
end;


procedure Tz_cpzz_cy.BitBtn1Click(Sender: TObject);
begin
 try
   strtoint(ch.text);
  except
    messagebox(handle,'菜号必须为4位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    ch.setfocus;
    exit;
  end;
 if (trim(ch.text)='') or (length(ch.text)<>4) then
   begin
    messagebox(handle,'菜号必须为4位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    ch.setfocus;
    exit;
   end;
 if trim(cm.text)='' then
   begin
    messagebox(handle,'菜名不能为空！','系统提示信息',MB_OK+MB_ICONWARNING);
    cm.setfocus;
    exit;
   end;
 if trim(gg.text)='' then
   begin
    messagebox(handle,'规格不能为空！','系统提示信息',MB_OK+MB_ICONWARNING);
    cm.setfocus;
    exit;
   end;
 z_cpzz.cy.edit;
 z_cpzz.cy.fieldbyname('gg').value:=gg.text;
 z_cpzz.cy.post;
 s_gg:=gg.text;
 s_dj:=dj.text;
 close;
end;

procedure Tz_cpzz_cy.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_cy.cmChange(Sender: TObject);
begin
 if not cm.Focused then exit;
 z_cpzz.cy.edit;
 z_cpzz.cy.FieldByName('mc').value:=trim(cm.text);
 z_cpzz.cy.FieldByName('Zjm').value:=main.hzpy(cm.text);
 cm.text:=trim(cm.text);
 Zjm.text:=main.hzpy(cm.text);
end;

procedure Tz_cpzz_cy.djChange(Sender: TObject);
begin
 if not dj.Focused then exit;
 try
  strtofloat(dj.text);
 except
  dj.text:=cs_dj;
  exit;
 end;
 if strtofloat(dj.text)<0 then dj.text:=cs_dj;
 cs_dj:=dj.text;
end;

procedure Tz_cpzz_cy.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 z_cpzz.cy.cancel;
end;

procedure Tz_cpzz_cy.djEnter(Sender: TObject);
begin
 cs_dj:=dj.text;
end;

end.