高手救我！为什么提示不能重复打开DATABASE？

Question

procedure Tscfrm.FormCreate(Sender: TObject);
begin
 with database do
   begin
    Params.Values['username']:='sa';
    Params.Values['password']:='limmjackson';
    LoginPrompt:=False;
    AliasName:='ZB';
    DatabaseName:='CGZB_JXC';
    Connected:=false;
   end;
   try
     database.Connected:=true;
     StatusBar1.Panels[0].Text:='连接状态：已连接';
     exit;
   Except
     StatusBar1.Panels[0].Text:='上传状态：无连接';
     Abort;
   end;
end;
procedure Tscfrm.RzBitBtn1Click(Sender: TObject);
begin 
  with database do
   begin
    Params.Values['username']:='sa';
    Params.Values['password']:='limingmmjackson';
    LoginPrompt:=False;
    AliasName:='ZB';
    DatabaseName:='CGZB_JXC';
   end;
   try
     database.Connected:=true;
     StatusBar1.Panels[0].Text:='连接状态：已连接';
     exit;
   Except
     StatusBar1.Panels[0].Text:='上传状态：无连接';
     Abort;
   end;
end;当我ONCLICK时为什么还会出现SA登陆提示框，接下来又会提示不能重复打开DATABASE！

Answer 1

先把DataBase的属性  
                     LoginPrompt:=false;
在动态连接之前先要Database1.Connected:=false;
为什么不用ADOConnection.

Answer 2

在ONCLICK 事件里要先Database1.Connected:=false;
因为首先窗体创建时已经Database1.Connected:=true;

Answer 3

在ONCLICK 事件里要先Database1.Connected:=false;
因为首先窗体创建时已经Database1.Connected:=true