procedure TRLZYCSZ.ParamGZRWBHCSGetValue(Sender: TObject; var Value: Variant);
var
lTempStr: string;
begin
Value := TCommonUtils.GetAutoIncreaseID(Self.Context,
TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
{ 可根据需要定制Value的格式 }
ltempstr := TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 6);
value :='GZ'+ lTempStr;
end
看一下,有什么不对吗,可是运行起来没有效果 |