请教在输入用户名及密码进行登录过程SQL服务器的时候，如何出现提示"正在登录"？

Question

输入用户名及密码进行登录过程SQL服务器的时候，在登录窗的状态栏里如何出现提示字符"正在登录远程服务器，请稍侯..."，并设置cursor的值为crHourGlass？如果登录失败则出现提示符"无法连接远程服务器..."。当执行到dmForm.ADOConnection1.Connected := True;这一句的时候，触发了ADOConnection1的什么事件呢，是OnLogin 还是AfterConnect.请朋友指点。

Answer 1

看看
procedure TDataModule0.DataModuleCreate(Sender: TObject);
begin
ADOConnection1.ConnectionString :='Provider=SQLOLEDB.1;Password=hwst123;Persist Security Info=True;User ID=hwst;Initial Catalog=hwst;Data Source=wtm';
        try
            ADOConnection1.Connected :=true;
        except
            ShowMessage('无法正常连接远程数据库！请速与管理员联系！');
        end;
end;

Answer 2

放statusbar，
try 
  adoconnection.active:=true;
  statusbar1.panel[0].text:='正在连接，请稍后！';
  screen.cursor:=crHourGlass;
except 
  statusbar1.panel[0].text:='连接失败！';
  screen.cursor:=crDefault;
end;