?? uy_yyt_qd.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -