?? usermanage.pas
字號:
unit usermanage;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
Tfrmadmin = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmadmin: Tfrmadmin;
implementation
uses user;
{$R *.dfm}
procedure Tfrmadmin.Button2Click(Sender: TObject);
begin
close;
end;
var i:integer;
procedure Tfrmadmin.Button1Click(Sender: TObject);
begin
if sametext(edit1.Text ,'admin') and sametext(edit2.Text,'administ') then
begin
frmuser.Show;
frmadmin.Hide;
edit1.Text:='';
edit2.Text:='';
end
else
begin
i:=i+1;
if i>=3 then
begin
showmessage('你是非法用戶,確定自動退出登陸管理用戶窗體');
edit1.Text:='';
edit2.Text:='';
close;
end
else
begin
showmessage('你輸入的用戶名和密碼不正確,請從新輸入');
edit1.SetFocus;
end;
end;
end;
procedure Tfrmadmin.FormCreate(Sender: TObject);
begin
i:=0;
end;
procedure Tfrmadmin.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
Button1Click(Sender)
else if key=vk_up then
edit1.SetFocus;
end;
procedure Tfrmadmin.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
edit2.SetFocus;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -