us_yyfl.pas

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

unit us_yyfl;

interface

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

type
  Ts_yyfl = class(TForm)
    GroupBox1: TGroupBox;
    d1: TDBEdit;
    d2: TDBEdit;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    Label7: TLabel;
    bj: TBitBtn;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    d4: TDBEdit;
    Label2: TLabel;
    d3: TDBEdit;
    Bevel1: TBevel;
    zdxf: TDBCheckBox;
    sfbz: TDBCheckBox;
    yyfl: TDBCheckBox;
    rygl: TDBCheckBox;
    gtsp: TDBCheckBox;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    procedure bjClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure d1Change(Sender: TObject);
    procedure d3Change(Sender: TObject);
    procedure d2Change(Sender: TObject);
    procedure d4Change(Sender: TObject);
    procedure d1Enter(Sender: TObject);
    procedure d1Exit(Sender: TObject);
    procedure d3Enter(Sender: TObject);
    procedure d2Enter(Sender: TObject);
    procedure d4Enter(Sender: TObject);
    procedure d2Exit(Sender: TObject);
    procedure d4Exit(Sender: TObject);
    procedure d3Exit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  s_yyfl: Ts_yyfl;
  ys_zdfwfl,ys_zgfwfl,ys_zdzkl,ys_zgzkl:string;
implementation

uses u_main;

{$R *.DFM}

procedure Ts_yyfl.bjClick(Sender: TObject);
begin
   if bj.caption='编辑' then
    begin
     bj.caption:='应用';
     d1.readonly:=false;
     d2.readonly:=false;
    end
   else
    begin
     bj.caption:='编辑';
     d1.readonly:=true;
     d2.readonly:=true;
    end;
end;

procedure Ts_yyfl.BitBtn3Click(Sender: TObject);
begin
 if bj.caption='编辑' then
  begin
   bj.caption:='应用';
   main.fdxx.edit;
   d1.enabled:=true;
   d2.enabled:=true;
   d3.enabled:=true;
   d4.enabled:=true;
  end
 else
  begin
   bj.caption:='编辑';
   d1.enabled:=false;
   d2.enabled:=false;
   d3.enabled:=false;
   d4.enabled:=false;
   main.fdxx.post;
  end;
end;

procedure Ts_yyfl.BitBtn1Click(Sender: TObject);
begin
 main.fdxx.edit;
 main.fdxx.post;
 close;
end;

procedure Ts_yyfl.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) or (key=#40) then selectnext(activecontrol,true,true);
  if key=#38 then selectnext(activecontrol,false,true);
end;

procedure Ts_yyfl.BitBtn2Click(Sender: TObject);
begin
  main.fdxx.cancel;
  close;
end;

procedure Ts_yyfl.FormShow(Sender: TObject);
begin
   bj.caption:='编辑';
   d1.enabled:=false;
   d2.enabled:=false;
   d3.enabled:=false;
   d4.enabled:=false;
end;

procedure Ts_yyfl.d1Change(Sender: TObject);
begin
 if not d1.Focused then exit;
 try
  strtofloat(d1.text);
 except
  d1.text:=ys_zdfwfl;
 end;
 if strtofloat(d1.text)<0 then d1.text:=ys_zdfwfl;
 ys_zdfwfl:=d1.text;
end;

procedure Ts_yyfl.d3Change(Sender: TObject);
begin
 if not d3.Focused then exit;
 try
  strtofloat(d3.text);
 except
  d3.text:=ys_zgfwfl;
 end;
 if strtofloat(d3.text)<0 then d3.text:=ys_zgfwfl;
 ys_zgfwfl:=d3.text;
end;

procedure Ts_yyfl.d2Change(Sender: TObject);
begin
 if not d2.Focused then exit;
 try
  strtofloat(d2.text);
 except
  d2.text:=ys_zdzkl;
 end;
 if strtofloat(d2.text)<0 then d2.text:=ys_zdzkl;
 ys_zdzkl:=d2.text;
end;

procedure Ts_yyfl.d4Change(Sender: TObject);
begin
 if not d4.Focused then exit;
 try
  strtofloat(d4.text);
 except
  d4.text:=ys_zgzkl;
 end;
 if strtofloat(d4.text)<0 then d4.text:=ys_zgzkl;
 ys_zgzkl:=d4.text;
end;

procedure Ts_yyfl.d1Enter(Sender: TObject);
begin
 ys_zdfwfl:=d1.text;
end;

procedure Ts_yyfl.d1Exit(Sender: TObject);
begin
 d1.text:=ys_zdfwfl;
end;

procedure Ts_yyfl.d3Enter(Sender: TObject);
begin
 ys_zgfwfl:=d3.text;
end;

procedure Ts_yyfl.d2Enter(Sender: TObject);
begin
 ys_zdzkl:=d2.text;
end;

procedure Ts_yyfl.d4Enter(Sender: TObject);
begin
 ys_zgzkl:=d4.text;
end;

procedure Ts_yyfl.d2Exit(Sender: TObject);
begin
 d2.text:=ys_zdzkl;
end;

procedure Ts_yyfl.d4Exit(Sender: TObject);
begin
 d4.text:=ys_zgzkl;
end;

procedure Ts_yyfl.d3Exit(Sender: TObject);
begin
 d3.text:=ys_zgfwfl;
end;

procedure Ts_yyfl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 s_yyfl:=NIL;
end;

end.