|

楼主 |
发表于 2008-2-25 11:16:35
|
显示全部楼层
[请求]
业务参数组代码(想自动填充编号)
procedure TYWCSZ.ParamBHGetValue(Sender: TObject; var Value: Variant);
var
sDate: String;
begin
sDate := SysUtils.FormatDateTime('yyyy/mm/dd',SysUtils.Date);
Value := TCommonUtils.GetAutoIncreaseID(Self.Context,TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
{ 可根据需要定制Value的格式 }
Value := sDate+TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 2);
end;
错误
[错误]Biz:TZTZWJJYWCSZ.ParamGroup.pas(6, 34): 找不到命名空间“CommonUtils”(是否缺少 程序集引用?)
项目管理中引用图如下:
|
|