数据窗口中的DBERROR()事件中调用函数捕获错误

ehxz

免费乐捐，感谢支持

函数代码如下:
//函数名:   F_Dw_DbError
//调用:       F_Dw_DbError   (SqlDbCode,   THIS,   Row,   al_sqlerrtext)
//参数:       SqlDbCode,   THIS,   Row   分别为DW的DbError事件的原有参数
//返回:       捕捉到错误:   1,   没有捕捉到错误:   0
//用于：     MS   SQL

string   ls_message
long   ll_return

CHOOSE   CASE   al_sqldbcode
CASE   2627
MessageBox( "确认 ",   "第   "   +   STRING   (al_row)   +   "   行输入重复,   请重新录入 ",   Exc本人tion!)
// MessageBox( "确认 ",   "错误编号   "   +   string(al_sqldbcode)   +   "   "   +   "错误内容   "   +   al_SQLErrText)
adw_dw.SetFocus   ()
adw_dw.scrolltorow(al_row)
adw_dw.SetRow   (al_row)
return   1
CASE   10005
Messagebox( "确认 ",   "数据库连接失败 ",   Exc本人tion!)
// MessageBox( "确认 ",   "错误编号   "   +   string(al_sqldbcode)   +   "   "   +   "错误内容   "   +   al_SQLErrText)
return   1
CASE   515
Messagebox( "确认 ",   "第   "   +   STRING   (al_row)   +   "   行数据没有输入或输入的数据和数据库不匹配 ",   Exc本人tion!)
// MessageBox( "确认 ",   "错误编号   "   +   string(al_sqldbcode)   +   "   "   +   "错误内容   "   +   al_SQLErrText)
adw_dw.SetFocus   ()
adw_dw.scrolltorow(al_row)
adw_dw.SetRow   (al_row)
return   1
CASE   10025
Messagebox( "确认 ",   "网络故障,   请与数据库管理员联系 ",   Exc本人tion!)
// MessageBox( "确认 ",   "错误编号   "   +   string(al_sqldbcode)   +   "   "   +   "错误内容   "   +   al_SQLErrText)
return   1
CASE   547
Messagebox( "确认 ",   "此表中的数据已被使用,   不能删除 ",   Exc本人tion!)
// MessageBox( "确认 ",   "错误编号   "   +   string(al_sqldbcode)   +   "   "   +   "错误内容   "   +   al_SQLErrText)
Return   1
case   513   
MessageBox( "确认Rules ",   "数量不足,   请不要修改当前的记录 ")
// MessageBox( "确认 ",   "错误编号   "   +   string(al_sqldbcode)   +   "   "   +   "错误内容   "   +   al_SQLErrText)
adw_dw.SetFocus   ()
adw_dw.scrolltorow(al_row)
adw_dw.SetRow   (al_row)
return   1
case   50000
Messagebox( "确认Trigger ",   "此表中的数据已被使用,   不能删除 ",   Exc本人tion!)
// MessageBox( "确认 ",   "错误编号   "   +   string(al_sqldbcode)   +   "   "   +   "错误内容   "   +   al_SQLErrText)
return   1
case   else
MessageBox( "确认 ",   "错误编号   "   +   string(al_sqldbcode)   +   "   "   +   "错误内容   "   +   al_SQLErrText)
Return   1

END   CHOOSE

Return   0

msgtogcr

因为 dberror 是数据库的错误码，所以要知道是用什么 dbms 才有意义。