建立了一个新的数据库,保存了三个用户名和密码,
通过adoconnectation组件连接数据库,设计登陆界面.
相应代码如下
procedure TForm1.Button1Click(Sender: TObject);
var
s,k:string;
begin
s:=edit1.Text;
k:=edit2.Text;
adotable1.Open;
while not(adotable1.Eof)do
if(s=trim(adotable1.FieldValues['用户名']))and(k=trim(adotable1.FieldValues['密码']))then
begin
showmessage('成功');
exit;
end;
adotable1.Next;
begin
showmessage('失败');
exit;
end;
end;
在登陆筐中输入数据库中的第一个用户名和密码就会显示成功,但是输入next用户名和密码就没反应了，
adotable1.Next;
showmessage('失败');
exit;
这一块就是加的不对,不知道怎么改.请高手们指教

[此贴子已经被作者于2006-4-24 0:44:52编辑过]

接着问了,为何在登陆筐中第一次输入正确的用户名和密码才显示'成功',否则就一直显示'失败'.好象adotable1.next;根本不起作用啊，怎么回事啊!

怎么没有人回答？？？？？？？？？？