盒子论坛 v2.1

是这样的，我不知道怎样处理数据库中的异常（delphi），有这样一个列子，可是我看不懂
//翻译数据库错误信息，需要确定数据库类型
{$DEFINE DBMS_SQL65}
{.$DEFINE DBMS_INTER5}

const
  maxConstraint = 1;
  conE = 0;
  conC = 1;
  a2strConstraint: array [0..maxConstraint, conE..conC] of string =
    ( (’pk_product’, ’产品代码’) );

//================
// 数据库错误处理
//================
procedure TdmMain.AppException(Sender :TObject; E:Exception);
begin
  if (E is EDBEngineError) then begin
    if ( E as EDBEngineError ).ErrorCount>1 then
      DBEngineError( E as EDBEngineError )
    else
      Application.ShowException(E);
  end else if (E is EDatabaseError) then begin
    DatabaseError( E as EDatabaseError );
  end else
    Application.ShowException(E);
end;
我看不懂，请解释一下好吗？
{$DEFINE DBMS_SQL65}
{.$DEFINE DBMS_INTER5} ，这两句话有什么用，写对了吗？

因为我的窗体是from1，我就这样写procedure form1.AppException(Sender :TObject; E:Exception);
但是不行，是为什么？我还需要定义别的东西吗？AppException，是系统有的，还是，自己定义的？如果我用procedure AppException(Sender :TObject; E:Exception); 它就说 exception没有定义。

这个程序它是用TApplication的OnException事件来捕捉异常的，可是组件板上没有发现TApplication组件，是不是要添加一个组件包？

要是那位大哥有这方面的程序，给一个给小弟，好吗？
                                      非常感谢！

----------------------------------------------
lsh

信息

登陆以后才能回复