这是一个管理员登陆届面的问题...
代码如下..
不知道哪个能帮我看一下..指出错误所在.
procedure Tlogin.Button1Click(Sender: TObject);
begin
query1.DisableControls;
try
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select 密码 from 管理员 where 管理员账号=''''+edit1.text+''''');
query1.Open;
finally
query1.EnableControls;
end;
if query1.Fields[0].Value=Null then
begin
showmessage('管理员账号不对'+#13+#13+'请确定是否有权限使用本系统');
add.modalresult:=mrcancel;
exit;
end;
if query1.Fields[1].Value=edit2.Text then
add.ModalResult:=mrok
else
begin
showmessage('密码不对'+#13+#13+'请核实密码后重新登陆');
add.ModalResult:=0;
exit;
edit1.SetFocus;
end;
end;