关于登陆界面,请指教

龙之吻发布于 2006-04-23 20:29， 915 次点击

建立了一个新的数据库,保存了三个用户名和密码,
通过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;
这一块就是加的不对,不知道怎么改.请高手们指教

6 回复

kyle2182006-04-23 20:46

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;
else
adotable1.Next; //如果查找上一个不成功，转下一个

if (adotable1.Eof) then //查找所有数据库记录完毕，没有找到，登录失败
begin
showmessage('失败');
exit;
end;
end;

而且要记得adotable1.Close；

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

龙之吻2006-04-24 18:32

楼上的谢了啊.

龙之吻2006-04-24 19:08

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

龙之吻2006-04-24 22:54

怎么没人指教啊，

xiaoqiang132006-05-28 20:54

以下是引用龙之吻在2006-4-24 19:08:00的发言：

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

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

dzy2006-05-30 11:22

好象当登入失败后
以后的登入多是失败