|

楼主 |
发表于 2008-4-2 16:13:05
|
显示全部楼层
这个参数是用代码写的:
procedure TGGYWCSZ.ParamHTHGetValue(Sender: TObject; var Value: Variant);
begin
Value := TCommonUtils.GetAutoIncreaseID(Self.Context,
TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
Value := SysUtils.FormatDateTime('yyyy', Business.Data.SysSrv.SysService.Time) + '*' +
TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 5);
end; |
|