[转载红鱼儿]kbmmw 开发点滴:ErrorTable用法

TkbmMWClientQuery有一个ErrorTable属性,用于记录提交Query时返回的错误结果。当用户保存修改的业务数据,出错时,可以用ErrorTable定位出错的记录并提示错误信息。

下面是实现代码:

 

procedure TForm2.Button4Click(Sender: TObject);
var
  i:TkbmNativeInt;//必须声明为TkbmNativeInt,不然XE3编译出错.
begin

  if kbmMWClientQuery1.ErrorTable.RecordCount<=0 then Exit;//无提交错误返回
  kbmMWClientQuery1.CurIndex.SearchRecordID(kbmMWClientQuery1.ErrorTable.FieldByName('KBMMW_RECORDID').AsInteger,i);//快速定位出错记录
  if i<0 then raise Exception.Create('没有找到错误记录号.');
  kbmMWClientQuery1.RecNo:=i+1;//需要加1才是具体的出错记录
  ShowMessage(kbmMWClientQuery1.Fields[0].AsString+kbmMWClientQuery1.ErrorTable.FieldByName('KBMMW_ErrorMessage').AsString);// 显示出错记录的第一个字段+出错信息

end;

实际上,TkbmMWClientQuery的OnResolveError事件,也是在Query向服务器发出请并收到服务器的响应后,根据服务器响应的ErrorTable内容触发的。这里的方法,可完全替带Query的OnResolveError事件。

上一篇:循环结构程序设计


下一篇:CSDN 四川大学线下编程比赛第一题:数字填充