【结贴】如何用代码调用业务参数。

江振辉

需求：（以员工表举例）
    员工表的编号：我自己建了一个产生员工编号的“业务参数A”，然后用这个“业务参数A”自动填充员工表的编号，
    现在员工表数据有两种插入方式，一部分是通过常规方法保存的，另一部分是通过TQuery插入的，
    用TQuery插入数据时，为保证唯一约束，所以我需要通过代码来调用上述的“业务参数A”，请问用代码如何做到这一点呢？

zfang

请楼主在论坛里搜索一下，关键字：业务参数*代码

江振辉

我的代码是这样写的：
lParam := COMMONUTILS.TCOMMONUTILS.GetParam(Self.Context,
                    'Biz:CBSGLXTYWCSZ.ParamGroup', 'GCJLBH');
          lRecordId := Variants.VarToStr(lParam.Value);
//获取业务参数自动编号

lQuery.CommandText := 'Insert into T_RECORD_INFO(recordId,recordDate,createDate,recorderId,operatorId,conProId,opinionInfoId) values('''+ lRecordId +''','''+ lRecordTime + ''','''+ Sysutils.DateToStr(Sysutils.now) + ''',''' + lRecorderId + ''','''+ lEmployeeId +''',''' + lContract + ''',''' + lOpinionParentId + ''')';
lQuery.Execute;
然后用TQuery插入T_RECORD_INFO表，其中recordId就是上述取的lRecordId
现将断点设在 lRecordId := Variants.VarToStr(lParam.Value);  这一行代码的时候  ctrl+F7如下图：编号以‘85’结尾!

江振辉

将断点设在这行代码的时候：
lQuery.CommandText := 'Insert into T_RECORD_INFO(recordId,recordDate,createDate,recorderId,operatorId,conProId,opinionInfoId) values('''+ lRecordId +''','''+ lRecordTime + ''','''+ Sysutils.DateToStr(Sysutils.now) + ''',''' + lRecorderId + ''','''+ lEmployeeId +''',''' + lContract + ''',''' + lOpinionParentId + ''')';
ctrl+F7如下图
编号以“86”结尾

江振辉

再往下执行代码： lQuery.Execute;
     这一行的时候报如下图错误

  end;
   finally
     lQuery.Refresh;
     lQuery.Free;
   end;

江振辉

最后到客户端页面的时候，刷新，数据保存成功，如下图：

江振辉

版主：请问这是怎么回事，TQuery不是不能触发定义在数据字典上自动动填充属性吗？

lixy

tquery不会触发数据表的所有定义。

江振辉

这样的话，为什么会出现3楼、4楼，编号不一样的现象呢？因为代码多，不好描述，能不能帮远程一下！

zfang

你可以做一个简单的功能，测试一下的。