uy_yyt_jz_dz.pas

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

unit uy_yyt_jz_dz;

interface

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

type
  Ty_yyt_jz_dz = class(TForm)
    Label6: TLabel;
    Label7: TLabel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    czyh: TEdit;
    qxmm: TEdit;
    dzl: TEdit;
    Label2: TLabel;
    Bevel1: TBevel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure dzlChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_yyt_jz_dz: Ty_yyt_jz_dz;
implementation

uses u_main, uy_yyt_jz, uy_yyt;

{$R *.DFM}

procedure Ty_yyt_jz_dz.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Ty_yyt_jz_dz.BitBtn1Click(Sender: TObject);
begin
 if (czyh.text='')  or (length(czyh.text)>4) then
   begin
    messagebox(handle,'请输入合法的批准人号!','系统提示信息',MB_OK+MB_ICONWARNING);
    czyh.setfocus;
    exit;
   end;
 if (qxmm.text='')  then
   begin
    messagebox(handle,'请输入合法的权限密码!','系统提示信息',MB_OK+MB_ICONWARNING);
    qxmm.setfocus;
    exit
   end;
 if not main.h_czqx(czyh.text,qxmm.text,3) then exit;
 if trim(dzl.text)='' then  y_yyt_jz.dzl.Text:='0.00' else  y_yyt_jz.dzl.Text:=dzl.Text;
 close;
end;

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

procedure Ty_yyt_jz_dz.dzlChange(Sender: TObject);
begin
 if y_yyt.y_yyt_zkfl.Checked then
 begin
 if (trim(dzl.text)='') or (trim(dzl.text)='-') then dzl.text:=s_dzl;
 try
   strtofloat(dzl.text);
  except
   dzl.text:=s_dzl;
   exit;
  end;
 if strtofloat(dzl.text)>=1 then
  begin
   messagebox(handle,'打折率不能大于或等于 1 ！','系统提示信息',MB_OK+MB_ICONWARNING);
   dzl.text:=s_dzl;
  end;
 end
else
 begin
 if (trim(dzl.text)='') or (trim(dzl.text)='-') then dzl.text:='0.00';
 try
   strtofloat(dzl.text);
  except
   messagebox(handle,'请输入合法的数字！','系统提示信息',MB_OK+MB_ICONWARNING);
   dzl.text:='0.00';
   exit;
  end;
 if strtofloat(dzl.text)>=1 then
  begin
   messagebox(handle,'打折率不能大于或等于 1 ！','系统提示信息',MB_OK+MB_ICONWARNING);
   dzl.text:='0.00';
  end;
 end; 
end;

procedure Ty_yyt_jz_dz.FormShow(Sender: TObject);
begin
 dzl.Text:=s_dzl;
 czyh.Text:='';
 qxmm.Text:='';
 dzl.SetFocus;
end;

end.