procedure TForm2.Button1Click(Sender: TObject);begin
begin
if form2.Edit1.text='' then
begin
showmessage('请您输入姓名');
form2.Edit1.SetFocus ;
end
else if form2.Edit2.text='' then
begin
showmessage('请您输入密码');
form2.Edit2.SetFocus ;
end
else
begin
name:=form2.edit1.text;
password:=form2.edit2.text;
if(name<>'sa')and (password<>'sa') then
inc(i);
if i<=2 then
begin
showmessage('密码或姓名不正确,请重新输入!');
form2.edit1.text:='';
form2.edit2.text:='';
form2.edit1.SetFocus ;
end
else
begin
showmessage('密码或姓名不正确,你的错误超过3次,请询问管理员后再登录!');
form2.Close;
end;
end;
end;
end;procedure TForm2.Button2Click(Sender: TObject);
begin
form2.Edit1.text:='';
form2.Edit2.Text:='';
end;
end.
begin
if form2.Edit1.text='' then
begin
showmessage('请您输入姓名');
form2.Edit1.SetFocus ;
end
else if form2.Edit2.text='' then
begin
showmessage('请您输入密码');
form2.Edit2.SetFocus ;
end
else
begin
name:=form2.edit1.text;
password:=form2.edit2.text;
if(name<>'sa')and (password<>'sa') then
inc(i);
if i<=2 then
begin
showmessage('密码或姓名不正确,请重新输入!');
form2.edit1.text:='';
form2.edit2.text:='';
form2.edit1.SetFocus ;
end
else
begin
showmessage('密码或姓名不正确,你的错误超过3次,请询问管理员后再登录!');
form2.Close;
end;
end;
end;
end;procedure TForm2.Button2Click(Sender: TObject);
begin
form2.Edit1.text:='';
form2.Edit2.Text:='';
end;
end.
解决方案 »
- Delphi程序员大调查:平均每天写多少行代码?
- 给CXGrid的popupmenu赋值时发生错误?这是怎么回事啊?
- 数据库的完整性问题
- 关于DELHPI的一个数据库的打包是如何完成的呀?
- DBGrid问题
- 请问在delphi里怎么实现运行dos命令?
- 电视台播节目的控制软件问题,up有分!
- clientsocket:紧急求救!!!(可给2000分)
- 本人制作一查询表单,也同时有报表功能,查询条件为日期查询,datetimepicker1至datetimepicker2,部门查询:combobox1,有制作报表时有一问题
- 哪里找scktsrvc.exe(for D5)谢谢
- 如何通过ado的方式连接oracle和sql server2000数据库
- 请各位朋友帮忙解决一个dll 调用问题,立即给分!
begin
if form2.Edit1.text='' then
begin
showmessage('请您输入姓名');
form2.Edit1.SetFocus ;
end
else if form2.Edit2.text='' then
begin
showmessage('请您输入密码');
form2.Edit2.SetFocus ;
end
else
begin
name:=form2.edit1.text;
password:=form2.edit2.text;
if(name<>'sa')and (password<>'sa') then
begin -------------->这里
inc(i);
if i<=2 then
begin
showmessage('密码或姓名不正确,请重新输入!');
form2.edit1.text:='';
form2.edit2.text:='';
form2.edit1.SetFocus ;
end
else
begin
showmessage('密码或姓名不正确,你的错误超过3次,请询问管理员后再登录!');
form2.Close;
end;
end;-------->这里
end;
end;
end;procedure TForm2.Button2Click(Sender: TObject);
begin
form2.Edit1.text:='';
form2.Edit2.Text:='';
end;
end.
if(name<>'sa')and (password<>'sa') then
inc(i);
难道你的if就执行这么点操作??
我没看完,太辛苦了~
if form2.Edit1.text='' then
begin
showmessage('请您输入姓名');
form2.Edit1.SetFocus ;
i:=0 ;
Exit ;
end if form2.Edit2.text='' then
begin
showmessage('请您输入密码');
form2.Edit2.SetFocus ;
i := 0 ;
Exit ;
end name:=form2.edit1.text;
password:=form2.edit2.text; if(name='sa')and (password='sa') then
begin
//通过密码认证后的工作
end
else
if i <= 2 then
begin
Inc(i);
showmessage('密码或姓名不正确,请重新输入!');
form2.edit1.text:='';
form2.edit2.text:='';
form2.edit1.SetFocus ;
end
else
begin
showmessage('密码或姓名不正确,你的错误超过3次,请询问管理员后再登录!');
form2.Close;
end;
end;
Form1.Show写在这里:
if(name='sa')and (password='sa') then
begin
Form1.Show;
end
begin
if form2.Edit1.text='' then
begin
showmessage('请您输入姓名');
form2.Edit1.SetFocus ;
i:=0 ;
Exit ;
end if form2.Edit2.text='' then
begin
showmessage('请您输入密码');
form2.Edit2.SetFocus ;
i := 0 ;
Exit ;
end name:=form2.edit1.text;
password:=form2.edit2.text; if(name='sa')and (password='sa') then
begin
//通过密码认证后的工作
end
else
if i <= 2 then
begin
Inc(i);
showmessage('密码或姓名不正确,请重新输入!');
form2.edit1.text:='';
form2.edit2.text:='';
form2.edit1.SetFocus ;
end
else begin
showmessage('密码或姓名不正确,你的错误超过3次,请询问管理员后再登录!');
form2.Close;
end;
end;