重新登录窗口怎样做？

Question

那你就加菜单啊
菜单激活个登录窗口（SHOWMODAL的）
正确时关闭所有已打开的窗口
重新设置权限

Answer 1

tf_login窗体中连接数据库并作判断，下面是我的原代码：
procedure TEntFrm.OKBtnClick(Sender: TObject);
begin
   if NameEd.Text=''  then   begin showMessage('请输入用户名和密码');exit; end;
   if PSWEd.Text<>KeyADODataSet.Lookup('name',NameEd.Text,'password') then
   begin showmessage('密码有误，请重新输入');PSWEd.SelectAll;PSWEd.SetFocus;end
    else begin
       KeyADODataSet.Locate('name',NameEd.Text,[loCaseInsensitive,loPartialKey]);
       if KeyADODataSet.FieldByName('rsgl').Value=True then users:='rsgl';
       if KeyADODataSet.FieldByName('gzgl').Value=True then users:='gzgl';
       if KeyADODataSet.FieldByName('super').Value=True then  users:='super';
       EntFrm.Close;
       end;
end;procedure TEntFrm.CloseClick(Sender: TObject);
begin
Application.Terminate;
end;