us_fdxx.pas

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

unit us_fdxx;

interface

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

type
  Ts_fdxx = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn2: TBitBtn;
    fdbh: TDBEdit;
    fdmc: TDBEdit;
    jlxm: TDBEdit;
    dcdh: TDBEdit;
    fddz: TDBEdit;
    jlxc: TDBEdit;
    bj: TBitBtn;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure bjClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  s_fdxx: Ts_fdxx;

implementation


{$R *.DFM}


procedure Ts_fdxx.FormShow(Sender: TObject);
begin
         bj.caption:='编辑';
         fdbh.enabled:=false;
         fdmc.enabled:=false;
         jlxm.enabled:=false;
         dcdh.enabled:=false;
         fddz.enabled:=false;
         jlxc.enabled:=false;
end;

procedure Ts_fdxx.BitBtn1Click(Sender: TObject);
begin
 try
   strtoint(fdbh.text);
  except
    messagebox(handle,'饭店编号必须为1位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    fdbh.setfocus;
    exit;
  end;
 if trim(fdbh.text)='' then
   begin
    messagebox(handle,'饭店编号必须为1位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
    fdbh.setfocus;
    exit;
   end;
  main.fdxx.edit;
  main.fdxx.post;
  close;
end;

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

procedure Ts_fdxx.bjClick(Sender: TObject);
begin
 if bj.caption='编辑' then
   begin
    bj.caption:='应用';
    fdbh.ReadOnly:=true;
    fdmc.ReadOnly:=true;
    jlxm.ReadOnly:=true;
    dcdh.ReadOnly:=true;
    fddz.ReadOnly:=true;
    jlxc.ReadOnly:=true;
   end
  else
   begin
    bj.caption:='编辑';
    fdbh.ReadOnly:=false;
    fdmc.ReadOnly:=false;
    jlxm.ReadOnly:=false;
    dcdh.ReadOnly:=false;
    fddz.ReadOnly:=false;
    jlxc.ReadOnly:=false;
   end;
end;

procedure Ts_fdxx.BitBtn3Click(Sender: TObject);
begin
 if bj.caption='编辑' then
   begin
    bj.caption:='应用';
    main.fdxx.edit;
    fdbh.enabled:=true;
    fdmc.enabled:=true;
    jlxm.enabled:=true;
    dcdh.enabled:=true;
    fddz.enabled:=true;
    jlxc.enabled:=true;
   end
  else
   begin
    try
      strtoint(fdbh.text);
     except
      messagebox(handle,'饭店编号必须为1位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
      fdbh.setfocus;
      exit;
    end;
    if trim(fdbh.text)='' then
      begin
        messagebox(handle,'饭店编号必须为1位数字！','系统提示信息',MB_OK+MB_ICONWARNING);
        fdbh.setfocus;
        exit;
      end;
    bj.caption:='编辑';
    fdbh.enabled:=false;
    fdmc.enabled:=false;
    jlxm.enabled:=false;
    dcdh.enabled:=false;
    fddz.enabled:=false;
    jlxc.enabled:=false;
    main.fdxx.post;
  end;

end;


procedure Ts_fdxx.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_fdxx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 s_fdxx:=NIL;
end;

end.