如何在无BDE库的机器上，在程序出错前自己捕获错误?(50分)

J

jw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #1

做了一个用到了DB数据库的程序，在无BDE　的机器上运行时会出错，
能否在出错之前自己截取此错误进行处理?

 

H

Hunj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #2

为什么不装bde呢?

 

W

wuyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #3

在你的project代码中捕捉错误。

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #4

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;
end;

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
if (E is EDBEngineError) then
if (E as EDBEngineError).Errors[0].Errorcode = eKeyViol then
begin
MessageDlg('Unable to post: Duplicate Customer ID.', mtWarning, [mbOK], 0);
Abort;
end;
end;

 

K

kangxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #5

将用到的数据库控件放到DataModule中
在Project中如下写 //确定DataModlue的单元最先生成
try
Application.CreateForm(DataMoudle1,TDataMoule1);
except
on e do showMessage('....');
exit;
end;

 

Y

yck

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #6

在主窗口的CREATE事件中定义：

try
DataBase1.Open;
except
报错，
退出
end;

 

T

Teikini

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-13

• #7

g

 

李

李长柱

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-15

• #8

同意Yck
但必需保证在程序编译时，所有的表都必需是关闭的。

 

J

jw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-25

• #9

接受答案了.