【搞定】怎样在功能打开后重新调用用户输入参数的窗体？**

sean_phoebe

怎样在功能打开后重新调用用户输入参数的窗体？

alang

调用 系统空间\简洁风格\界面库\系统接口 的
    function EditParamsValue(AContext: TContext; AParams: TStrings): Boolean; override;
函数就可以了

sean_phoebe

系统空间\简洁风格\界面库\系统接口中没有找到这个function。

alang

再功能中调用这个资源集的EditParamsValue函数

sean_phoebe

在纯系统接口中定义了这个方法，但是是抽象的，在简洁风格中的系统接口中没有找到这个方法的实现，请问我是否需要自己实现该方法，如果不是，怎么调用？

alang

你不用管，直接调用就可以

在项目管理中引入 系统空间\系统运行库\系统核心库
把你需要的用户参数增加到一个stringlist中
在代码中调用 SystemCore.TSYSTEMCORE.SystemInterface.EditParamsValue(Context, stringlist)

sean_phoebe

往stringlist里加的是用户参数的名称还是bizurl？

stringlist.Add('Biz:\SCGLXT\YWCSZ.ParamGroup\KSSJ.Param');

还是

stringlist.Add(‘KSSJ.Param');

alang

参考 系统空间\用户界面基础\界面库\系统接口\用户参数值录入窗体 中的代码
procedure TUSERPARAMVALUEEDITORFORM.CreateDataSet;
var
  I: Integer;
  BizField: TBizField;
begin
  with FParams do
    for I := 0 to Count - 1 do
    begin
      BizField := TUserDataField.Create(nil);
      BizField.DataSet := DataSetParam;
      BizField.Assign(TPersistent(Objects[I]));
    end;
  DataSetParam.Open;
end;

看这里就知道了，应该用AddObject，而不是Add
stringlist.AddObject(lParam.ID, lParam)
这里的lParam就是你要显示出来供修改的参数

sean_phoebe

我的代码如下：
var
   stringlist: TStrings;
   lParam : TBizParam;
   lUrl : TBizUrl;
begin
   stringlist := TStrings.Create;
   lUrl := TBizUrl.Create;
   try
   lUrl.URL := 'Biz:\SCGLXT\YWCSZ.ParamGroup\KSSJ.Param';
   lParam := SystemUtils.TContextUtils.GetParam(Context,lUrl);
   stringlist.AddObject('KSSJ',lParam);
   stringlist.AddObject('JSSJ',lParam);
   SystemCore.TSYSTEMCORE.SystemInterface.EditParamsValue(Context, stringlist);
   finally
   lUrl.Free;
   stringlist.Free;
   end;
end;

运行时报错：Abstract Error

alang

stringlist := TStringList.Create;