unit uy_yyt_qd;

interface

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

type
  Ty_yyt_qd = class(TForm)
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image2: TImage;
    qdrm: TEdit;
    czyh: TEdit;
    qxmm: TEdit;
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_yyt_qd: Ty_yyt_qd;

implementation

uses uy_yyt, uy_yyt_jz, uz_ckgl;

{$R *.DFM}

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

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

procedure Ty_yyt_qd.BitBtn1Click(Sender: TObject);
begin
 if length(qdrm.text)=0 then
  begin
   messagebox(handle,'請輸入簽單人名!','系統提示信息',MB_OK+MB_ICONWARNING);
   qdrm.setfocus;
   exit;
  end;
 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,1) then exit;
 esc_enter:=1;
 close; 
end;

end.