【结】新增纪录时如何实现主键自动加1

lxh_78 · 发表于 2010-1-29 14:30:44

新增纪录时如何实现主键自动加1

shangxy · 发表于 2010-1-29 14:33:53

参考一下平台自带的客户中心功能中的客户编号。

lxh_78 · 发表于 2010-1-29 14:44:34

看不明白，能讲解一下么

shangxy · 发表于 2010-1-29 14:52:24

主要是字段的自动填充属性使用了一个参数，这个自定义参数我们在参数的ongetvalue事件中对参数赋值。

lxh_78 · 发表于 2010-1-29 15:09:18

实在不好意思，我是一新手，能在详细点么？

shangxy · 发表于 2010-1-29 16:15:36

业务模型\业务系统\公共\公共参数组\流水号参数组
参考一下这个参数组里面的客户编号参数种的ongetvalue事件代码把。

atiger · 发表于 2010-1-29 16:37:08

1、业务模型\业务系统\公共\公共参数组\流水号参数组  看这里面的参数，例如客户编码，这就是一个十位的自增参数。
2、代码在这个参数的 OnGetValue 这个事件上写了，
3、在数据表的某个字段的自动填充属性上，设置表达式为这个参数，例如业务模型\业务系统\业务系统数据库\客户关系管理(CRM)\客户信息表这个表的  编号这个自动的自动填充属性用到这个参数

4、运行业务模型\业务系统\客户关系管理(CRM)\客户管理\客户中心  这个功能，新增一个数据后，你去预览业务模型\业务系统\业务系统数据库\客户关系管理(CRM)\客户信息表这个表中的数据，看一下编号这个字段的值

lxh_78 · 发表于 2010-1-29 17:06:25

{
Justep Business 3.0 公共单元
提供常用的基本函数和方法

使用本单元中方法，需要首先引用本业务单元，然后使用
JUSTEPCOMMONUNIT.TJUSTEPCOMMONUNIT.XXX，调用本单元中方法。
}
怎么引用？

shangxy · 发表于 2010-1-29 17:56:36

在项目管理中参数组引用标签页中引入这个单元。

lxh_78 · 发表于 2010-2-4 10:22:43

实现了自动产生8位编号，但没有实现自动加1的功能，
源码：
procedure TYWCSZ1.ParamXMZJLSHGetValue(Sender: TObject; var Value: Variant);
begin
  Value := TCommonUtils.GetAutoIncreaseID(Self.Context,
TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
  { 可根据需要定制Value的格式 }
  Value := TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 8);
end;
什么原因？

		自动登录	找回密码
密码			立即注册