ughczy.pas

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

unit ughczy;

interface

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

type
  Tx_ghczy = class(TForm)
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Image2: TImage;
    czyh: TEdit;
    qxmm: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  x_ghczy: Tx_ghczy;

implementation

uses u_main, uy_yyt;

{$R *.DFM}
procedure Tx_ghczy.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,4) then exit;
 s_czyh:=czyh.text;
 main.hbqxsz(czyh.text);
 close;
end;

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

procedure Tx_ghczy.FormShow(Sender: TObject);
begin
 czyh.text:='';
 qxmm.text:='';
 czyh.setfocus;
end;

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

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

end.