做系统登录的用户身份验证然后登录主窗体问题，本人新手，要设计一个管理信息系统。

Question

procedure TForm1.Button1Click(Sender: TObject);
var
 ADOTable1.Active:boolean;
begin
 ADOTable1.Active:=False;
 ADOTable1.Open;
 ADOTable1.first;
while not ADOTable1.Eof do
begin
  ADOTable1.Active:=true;
  if edit1.Text:=trim(adotable1.fieldbyname('用户姓名').AsString) and edit2.Text:=trim(ADOTable1.fieldbyname('用户密码').AsString)
then
  begin
  Form1.Hide;
  Form2.show;
  end;
  else
  begin
  shoumessage('用户名或密码错误');
  break;
  end;
end;
请问一下这段代码错误之处并给我一些指正，谢谢了。

Answer 1

var
 ADOTable1.Active:boolean;定义变量是不能这么定义的。

Answer 2

用ADOQuery直接查就可以，再说你用ADOTable效率也不高。

Answer 3

if (edit1.Text:=trim(adotable1.fieldbyname('用户姓名').AsString)) and (edit2.Text:=trim(ADOTable1.fieldbyname('用户密码').AsString))