我的登录代码？？？（delphi7+sql）

begin
with ADOQlogin do
begin
close;
sql.clear;
sql.add('select * from T_用户表');
open;

if (edtuser.Text=ADOQlogin.FieldByName('username').AsString)and(edtpwd.Text=ADOQlogin.FieldByName('password').AsString)then
begin //正确;
mainform.showmodal;
mainform.free;
loginform.hide;
end
else //不正确;
begin
if (edtuser.Text <>ADOQlogin.FieldByName('username').AsString) then ;
begin
application.MessageBox('非法用户，请输入正确的用户名!','用户名',mb_ok+mb_iconexclamation);
edtuser.SetFocus;
end
else if (edtpwd.Text <>ADOQlogin.FieldByName('password').AsString) then
begin
edtpwd.Clear ;
application.MessageBox('请输入密码，请再输入一次!','密码：',mb_ok+mb_iconexclamation);
edtpwd.SetFocus;
end;
请教高手，是不是我编写的代码有错呢？为什么登录窗口不会消失？指导一下本菜鸟吧！！谢谢！！

关于Delph+SQL的Adotable定位问题 我的登录代码？？？（delphi7+sql） 我的MSN登录不了(代码是81000306） ASP+代码的用户登录 asp 登录次数的代码 关于asp的登录代码 VB的用户登录代码 9991的邮箱快速登录代码 求！asp修改登录密码的代码！ 急需登录页面的jsp代码