//使用try语句
try{
Query1->ExecSQL();
}
catch(EDatabaseError &E)
{
frm_->Database1->Rollback();
Application->MessageBox(("...."+E.Message).c_str(),"错误",MB_OK);
ProgressBar1->Position=0;
goto err;//或者查询Table或Query的OnUpdateError/OnPostError事件
}
err:
ListBox1->Items->Append("汇总销售数据失败!");