Delphi7.0实现添加记录的“携带”实现

var Action: TDataAction;sFieldName:string);
//功能:保存时数据错误信息捕捉
var sMes:string;
begin
MessageBeep(0);
//以下捕捉"错误信息"
sMes:='当前记录非法！更正后再保存。';
if Pos(UpperCase('key violation'),UpperCase(e.Message))<>0
then sMes:='"' sFieldName '"内容重复，请更改后再保存！';
if Pos(UpperCase('must have a value'),UpperCase(e.Message))<>0
then sMes:='当前栏目必须输入值！';// '"' sFieldName '"字段必须输入值！';
sMes:=sMes Chr(13) Chr(10) '(Esc键取消操作)';
MessageDlg(sMes,mtError, [mbOk], 0);
Action:=daAbort; //放弃编辑且不显示错误信息
end; //调用通用表数据处理模块

　　5、运行程序，选择<使用“携带”> 后，按<添加>（或按[Insert]键）出现的画面如下图所示(以第2条记录为源)：

　　以上代码在下述环境中调试通过：中文Win2000 Pro，Delphi 7.0。