做系统登录的用户身份验证然后登录主窗体问题，本人新手，要设计一个管理信息系统。
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;
请问一下这段代码错误之处并给我一些指正，谢谢了。
[解决办法]
var
ADOTable1.Active:boolean;
定义变量是不能这么定义的。
[解决办法]
用ADOQuery直接查就可以，再说你用ADOTable效率也不高。
[解决办法]
if (edit1.Text:=trim(adotable1.fieldbyname('用户姓名').AsString)) and (edit2.Text:=trim(ADOTable1.fieldbyname('用户密码').AsString))
