【结帖】[请求]紧急需要,控制从模版表写入的功能!在线等**

hule1234

附件是现在代码的效果图,我希望能通过选择 调查编号.来控制从调查内容模版表写入到调查内容表.   
希望高手能帮帮我.在线等


implementation
  procedure TMAINFORM.BizFormShow(Sender: TObject);
begin
  if not dsbmain.DataSet.Active then dsbmain.DataSet.Open;
  if not dsbModelmain.DataSet.Active then dsbModelmain.DataSet.Open;
//dsbmain满意度调查主表
//dsbModelmian 满意度调查模版主表
  dsbmain.DataSet.Append;
//TBNumber 主表编号
  dsbmain.DataSet.FieldByName('TBNumber').AsString := dsbModelmain.DataSet.FieldByName('TBNumberId').AsString;
//initiator 投票发起人
  dsbmain.DataSet.FieldByName('Initiator').AsString := dsbModelmain.DataSet.FieldByName('Editor').AsString;
//LaunchTM 投票发起时间
  dsbmain.DataSet.FieldByName('LaunchTM').AsString := dsbModelmain.DataSet.FieldByName('EditTime').AsString;
//PlanTM 计划投票结束时间
  dsbmain.DataSet.FieldByName('PlanTM').AsString := dsbModelmain.DataSet.FieldByName('PlanEndTime').AsString;
//LaunchedDP发起投票部门
  dsbmain.DataSet.FieldByName('LaunchedDP').AsString := dsbModelmain.DataSet.FieldByName('OrgDp').AsString;

  end;

procedure TMAINFORM.dsbmainAfterInsert(DataSet: TDataSet);
var
  lNum: integer;
begin
//dsbcontent 调查内容从表
//dsbModelcontent调查内容模版表
  if not dsbcontent.DataSet.Active then dsbContent.DataSet.Open;
  if not dsbModelcontent.DataSet.Active then dsbModelcontent.DataSet.Open;
   lNum := 1;
  dsbModelcontent.DataSet.First;
while not dsbModelcontent.DataSet.Eof do
  begin

   dsbcontent.DataSet.Append;
   dsbcontent.DataSet.FieldByName('NumberID').AsInteger := lNum;
//SureyContent调查内容
   dsbcontent.DataSet.FieldByName('SureyContent').AsString := dsbModelcontent.DataSet.FieldByName('ModelContent').AsString;
//SelectID调查内容选择编码
   dsbcontent.DataSet.FieldByName('SelectID').AsString := dsbModelcontent.DataSet.FieldByName('SelectID').AsString;
  
   inc(lNum);
   dsbModelcontent.DataSet.Next;
  end;

zfang

不太明白楼主的意思

hule1234

我现在的功能是
模版主表    =>   调查主表
模版内容表  =>  调查内容从表
因为我的模版表以后会存在很多编号不同的记录
所以要把我的逐行 写入  改成   通过别人选择编号后  写入  相关编号的记录到   内容从表

zfang

那你对模板表的数据根据别人的选择，然后做个过滤不就可以了么？

zfang

过滤的话有服务端过滤和客户端过滤
服务端过滤可以用sqlfilter和userfilter
客户端的话可以用filter
更详细的可以看用户手册。
根据你自己需要来 选择

hule1234

过滤能使用参数过滤吗?

zfang

可以的！

zfang

代码访问参数的参考代码：
var
  lBizParam : TBizParam;
begin
  lBizParam := SYSTEMUTILS.TContextUtils.GetParam(Context,'参数组','参数ID');
  lBizParam.Value := 'dafdsa';


需要引用 业务模型\系统空间\系统运行库\系统函数库

hule1234

我想了下,还是通过代码控制好点.因为:
所有的投票都通过一个功能:    满意度投票编制
进入填写模版

那么参与投票的人需要通过一个功能: 参与满意度投票
进行投票

我的最终目标是:  点  参与投票这个功能
会出现一个满意度投票列表      参与人  右键 点一条满意度投票  点处理  
然后通过编号控制从模版写过来

zfang

嗯，这个思路是可以的。你先做做看，碰到问题我们再沟通。
别忘记反馈哦。