var
lTempStr: string;
fForm: YWGN1.TMAINFORM;
begin
Value := TCommonUtils.GetAutoIncreaseID(Self.Context,
TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
{ 可根据需要定制Value的格式 }
lTempStr := TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 9);
fForm := YWGN1.TMAINFORM.Create(Self.Context); //得到窗体B的实例
try
fForm.DataSetBroker1.DataSet.Open;
fForm.DataSetBroker1.DataSet.Locate('DJBH','0',[]); //显示窗体的Caption
finally
fForm.Free;
end;
Value := 'P' + lTempStr;
end;
我这样写代码,但是不对,我是在功能窗体上用一个数据集代理连接通用编码表的数据集,然后在自定义参数中引用,但是我对locate的三个参数不是很理解,虽然论坛上有很多帖,但是我还看不太懂,我个人理解是这样locate(字段名称,字段的值,???); |