怪了，我输入正确密码仍然提示错误！！！，高手给修改一下！

Question

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.

Answer 1

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
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.

Answer 2

begin 和 end 乱七八糟,你是不是用了循环,但我咋看不见??

Answer 3

对了如果输入正确，就form1.show在何处写？

Answer 4

不该加begin..end的地方加了，该加的地方没加~
if(name<>'sa')and (password<>'sa') then
inc(i);
难道你的if就执行这么点操作？？
我没看完，太辛苦了~

Answer 5

procedure TForm2.Button1Click(Sender: TObject);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;

Answer 6

“如果输入正确，就form1.show在何处写？”
 
  Form1.Show写在这里：
　
　if(name='sa')and (password='sa') then
  begin
    Form1.Show；
  end

Answer 7

procedure TForm2.Button1Click(Sender: TObject);
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;

Answer 8

将你的表里面的用户名和密码trim一下。