adotable怎么查找下一条记录delphi

begin
with Data_M.ADO_user do
begin
if trim(Fieldbyname('username').Value) = edit1.Text then
begin
if trim(Fieldbyname('password').Value) = edit2.Text then
begin
next;
main_form.Show;
login_form.Visible := false;
end else
begin
showmessage('您输入的密码错误');
edit1.SetFocus;
end;
end else
begin
showmessage('您输入的账号有误');
edit2.SetFocus;
end;
end;
end;

表中有两条记录
username password
1.admin admin
2.jeff 123
我这样子写只能找到第一条admin的记录 而jeff这条记录一直找不到
哪里错了呢
如果使用过滤器
filter :='name = ''' + edit1.Text + '''' ;
filtered := true;
怎么添加修改代码???

begin
with Data_M.ADO_user do
begin

close;

sql.clear;

sql.add('select * from 表 where username='''+edit1.text+''' ');

open;
if RecordCount>0 then
begin
if trim(Fieldbyname('password').Value) = edit2.Text then
begin
main_form.Show;
login_form.Visible := false;
end else
begin
showmessage('您输入的密码错误');
edit1.SetFocus;
end;
end else
begin
showmessage('您输入的账号有误');
edit2.SetFocus;
end;
end;
end;

下移指针，adotable1.Next就可操作下一条记录了

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息