[求助]有个登陆窗口的问题,用户名和密码怎么用循环表示啊 - Delphi论坛

编程论坛 → 开发语言 → 『 Delphi论坛』 → [求助]有个登陆窗口的问题,用户名和密码怎么用循环表示啊

标题：[求助]有个登陆窗口的问题,用户名和密码怎么用循环表示啊

取消只看楼主

hln26460822

等　级：新手上路
帖　子：60
专家分：0
注　册：2005-6-25

楼主

问题点数：0 回复次数：4

[求助]有个登陆窗口的问题,用户名和密码怎么用循环表示啊

要做个登陆窗口,判断用户名和密码的时候如果用循环要怎么写代码，其他的数据库都已经连接好了，我是用datasource,adotable和数据库连在一起的,但是写代码的时候循环老出错，快来帮我看看

搜索更多相关主题的帖子: 密码　数据库　用户名　窗口　登陆　

2007-04-12 20:04

hln26460822

等　级：新手上路
帖　子：60
专家分：0
注　册：2005-6-25

第 2 楼

得分:0

begin
adotable1.First;
while (ed_user.Text <> adotable1.FieldByName('user').AsString) or
(ed_password.Text <> adotable1.FieldByName('password').AsString ) do
begin
adotable1.Next;
if adotable1.Eof then
begin
show_waring('用户名或密码不对，请从新输入！') ;
ed_user.SetFocus;
Exit;
end;
Frm_Management.ShowModal;
end;
end;