Delphi7 （设计登录界面）

[huaxl342308]

设计登录界面要求验证用户身份密码正确与否要给出信息为什么在输入用户名时没有验证用户的身份并且也没有转向edt2来输入内容呢？？大家帮帮忙
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
edt1: TEdit;
Label2: TLabel;
edt2: TEdit;
procedure FormCreate(Sender: TObject);
procedure edt1KeyPress(Sender: TObject);
procedure edt2KeyPress(Sender: TObject);
procedure edt2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
edt1.Text:='';
edt1.MaxLength:=10;
edt1.Enabled:=true;
edt2.Text:='';
edt2.MaxLength:=6;
edt2.Enabled:=false;
end;
procedure TForm1.edt1KeyPress(Sender: TObject);
var
key: char ;
begin
key:='a';
if key=#13 then
if edt1.Text='张三' then
begin
ShowMessage('用户名输入正确，请继续！');
edt2.Enabled:=true;
edt2.SetFocus;
end
else
begin
ShowMessage('用户名输入错误，请重新输入！');
edt1.Text :='';
edt1.SetFocus ;
end;
end;
procedure TForm1.edt2KeyPress(Sender: TObject);
var
key: char;
begin
key:='0';
if not(key in ['0'..'9']) then
begin
key:=#0;
ShowMessage('密码输入错误，请重新输入！');
edt2.Text:='';
edt2.SetFocus;
end;
end;

procedure TForm1.edt2Change(Sender: TObject);
var
i: integer;
begin
if (length(edt2.Text)=6) then
if (edt2.Text='888888') then
ShowMessage('密码正确，请继续！')
else
begin
i:=0;
i:=i+1;
if i<3 then
begin
ShowMessage('密码错误，请重新输入！');
edt2.Text :='';
edt2.SetFocus;
end
else
begin
ShowMessage('3次密码错误，将退出应用程序系统！');
Close;
end;
end;
end;

end.

[Oraclers]

[Quote=引用 1 楼 oraclers 的回复:]
......
var
key: char ;
begin
key:='a';
if key=#13 then
......
key='a' ，你已经设定了，自然key=#13是永远不可能的。
应该用edt1的OnKeyPress事件，记得这个事件有一个参数是Key，但你不能重新去定义。
[/Quote]
你可在属性页事件，直接点生成事件的定义，事件定义如下：
procedure edt1KeyPress(Sender :TObject;var Key :char);
在实现部分是：
procedure TForm1.edt1KeyPress(Sender :TObject;var Key :char);
var
//....;
begin
//Key是用户按下键盘的值。
......
end;

[huaxl342308]

谢谢你热情的回答我！！！我已经按照你说的试了下，但是还是没验证用户身份！问题还没解决

[Oraclers]

不要在按键后判断，你可以放一个按钮,等用户名、口令等输入完后点这个按钮再去做判断。

[bdmh]

你的edt1KeyPress事件根本不是delphi自带的事件，里面参数都不对，你之所以没反应，估计就是没有关联事件，你还是在属性栏中的事件页签中双击edt1KeyPress事件，自动生成吧

[huaxl342308]

谢谢你的热情！我按照你的方法在属性栏中的事件页签中双击edt1KeyPress事件，自动生成！那个 问题是解决了！但是这句
begin
i:=0;
i:=i+1;
if i<3 then
begin
ShowMessage('密码错误，请重新输入！');
edt2.Text :='';
edt2.SetFocus;
end
else
begin
ShowMessage('3次密码错误，将退出应用程序系统！');
Close;
end; 没有起作用！是怎么回事啊？？？

[Oraclers]

你如果要判定3次，要用循环语句，如 while i<=3 do 或者 for i := 1 to 3 do

[huaxl342308]

procedure TForm1.edt2Change(Sender: TObject);
var
i: integer;
begin

if(length(edt2.Text)=6) then
if(edt2.Text='888888') then
ShowMessage('密码正确，请继续！')
else

begin
ShowMessage('密码错误，请重新输入！');
edt2.Text:='';
edt2.SetFocus;
i:=1;
while i<=3 do
begin
i:=i+1;
end
else
begin
ShowMessage('3次输入错误，将退出应用程序！');
close ;
end;
end;
end;
问下错在哪

[Oraclers]

[Quote=引用 8 楼 huaxl342308 的回复:]
procedure TForm1.edt2Change(Sender: TObject);
var
i: integer;
begin

if(length(edt2.Text)=6) then
if(edt2.Text='888888') then
ShowMessage('密码正确，请继续！')
else

begin
ShowMessage(……
[/Quote]
这个密码判断本不应放在这个事件中。因为当你在EDT2输入时，每输入一个字符都要执行一次，当还没输入完时可能老报密码错。如不另加按钮，放在OnExit事件中比较好点。

[Oraclers]

......
var
key: char ;
begin
key:='a';
if key=#13 then
......
key='a' ，你已经设定了，自然key=#13是永远不可能的。
应该用edt1的OnKeyPress事件，记得这个事件有一个参数是Key，但你不能重新去定义。

[h98458]

上楼说的是，应该把i当做全局变量：
i: integer;
然后你的代码放在：OnClick 事件中：

if i>=3 then
begin
  ShowMessage('3次输入错误，将退出应用程序！');
  close ;
end;
if (length(edt2.Text)<>6) then exit;
if(edt2.Text='888888') then
begin
  i:=0;//i值清0;
end
eles
{
  i:=i+1;
  ShowMessage('密码错误，请重新输入！');
  edt2.Text:='';
  edt2.SetFocus;
}

[h98458]

if i>=3 then
begin
  ShowMessage('3次输入错误，将退出应用程序！');
  close ;
end;
if (length(edt2.Text)<>6) then exit;
if(edt2.Text='888888') then
begin
  i:=0;//i值清0;
end
eles
begin
  i:=i+1;
  ShowMessage('密码错误，请重新输入！');
  edt2.Text:='';
  edt2.SetFocus;
end;