请前辈们进来指教，关于错误处理问题，有范例，在线等（100分）

Question

procedure Tfrm_login.btn_yesClick(Sender: TObject);
begin
Guser:=trim(edt_user.Text);
Gpwd:=trim(edt_pwd.Text);
try
firstmodule.Firstconnect.Close;
firstmodule.Firstconnect.ConnectionString:=readloginparams();
firstmodule.Firstconnect.LoginPrompt:=false;
firstmodule.Firstconnect.KeepConnection:=true;
firstmodule.Firstconnect.ConnectionTimeout:=5;
firstmodule.Firstconnect.Open;
except
 showmessage('数据库打开出错');
end;
frm_main.Show;
frm_login.Hide;
end;
因为输入连接数据库的用户名不正确，运行时出错，我想控制系统错误信息，于是
用以上代码，但整个没反应，请问该如何处理。。

Answer 1

？？？不会吧firstmodule.Firstconnect.Open;
if not firstmodule.Firstconnect.Active then
 showmessage('数据库打开出错');

Answer 2

1
procedure Tfrm_login.btn_yesClick(Sender: TObject);
begin
Guser:=trim(edt_user.Text);
Gpwd:=trim(edt_pwd.Text);
try
firstmodule.Firstconnect.Close;
firstmodule.Firstconnect.ConnectionString:=readloginparams();
firstmodule.Firstconnect.LoginPrompt:=false;
firstmodule.Firstconnect.KeepConnection:=true;
firstmodule.Firstconnect.ConnectionTimeout:=5;
firstmodule.Firstconnect.Open;
if not firstmodule.Firstconnect.Active then
 showmessage('数据库打开出错');
else
begin
frm_main.Show;
frm_login.Hide;
end;
end;
2 单步调试一下，看看

Answer 3

procedure Tfrm_login.btn_yesClick(Sender: TObject);
begin
Guser:=trim(edt_user.Text);
Gpwd:=trim(edt_pwd.Text);firstmodule.Firstconnect.Close;
firstmodule.Firstconnect.ConnectionString:=readloginparams();
firstmodule.Firstconnect.LoginPrompt:=false;
firstmodule.Firstconnect.KeepConnection:=true;
firstmodule.Firstconnect.ConnectionTimeout:=5;
try
   firstmodule.Firstconnect.Open;
except
 showmessage('数据库打开出错');
 application.terminate; //如果其frm_main调用了数据模块的话
end;
frm_main.Show;
frm_login.Hide;
end;

Answer 4

很抱歉，，在firstmodule.Firstconnect.Active出错，找不到Active这个属性，
我想说我的是动态连接，没有加ADO控件；不知还有其他办法么，请赐教 
在线等

Answer 5

firetoucher和fengjn 两位前辈的办法都失效了，很遗憾。。请帮忙看看是否有其他原因存在
非常感谢。。

Answer 6

错了!是:
firstmodule.Firstconnect.Open;
if not firstmodule.Firstconnect.connected then
 showmessage('数据库打开出错');

Answer 7

用以上代码，但整个没反应，请问该如何处理。。???整个没反应是什么意思在编译环境下是这样的，不用理会，继续run，就可看到你的错误信息