【结帖】[请求]高难度,寻找好心人帮忙!**

hule1234

按照当前操作人部门,找出相应的满意度调查的的单号,通过对比编制人设置的计划结束投票的时间,如果没有超过时间限制,参与投票的人可以选择满意度调查的单号,
   通过 单号+当前人部门+时间判断结果= 控制从模版表导入模版内容.
我有7个表关系是:
模版主表    把数据写入    调查主表
模版内容表   把数据写入    调查内容表
调查选项表   负责分类存放    1.满意
                             1.不满意
                             2.同意
                             2.不同意
编号部门关联表       编号  部门
这个表用来存放,编制满意度调查单时指定能参与投票的部门

下面是从模版表写入调查内容表代码,需要高手帮我写点,先通过当前操作人部门  查找  编号部门关联表,找出相应的表单编号,再控制从模版表写入:
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.DataSet.Append;
  dsbmain.DataSet.FieldByName('TBNumber').AsString := dsbModelmain.DataSet.FieldByName('TBNumberId').AsString;
  dsbmain.DataSet.FieldByName('Initiator').AsString := dsbModelmain.DataSet.FieldByName('Editor').AsString;
  dsbmain.DataSet.FieldByName('LaunchTM').AsString := dsbModelmain.DataSet.FieldByName('EditTime').AsString;
  dsbmain.DataSet.FieldByName('PlanTM').AsString := dsbModelmain.DataSet.FieldByName('PlanEndTime').AsString;
  dsbmain.DataSet.FieldByName('LaunchedDP').AsString := dsbModelmain.DataSet.FieldByName('OrgDp').AsString;
  dsbmain.DataSet.post;
  end;

procedure TMainForm.dsbmainAfterInsert(DataSet: TDataSet);
var
  lNum: integer;
begin
  //如果调查内容表
  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;
    dsbcontent.DataSet.FieldByName('SureyContent').AsString := dsbModelcontent.DataSet.FieldByName('ModelContent').AsString;
    dsbcontent.DataSet.FieldByName('SelectID').AsString := dsbModelcontent.DataSet.FieldByName('SelectID').AsString;
    dsbcontent.DataSet.Post;

    inc(lNum);
    dsbModelcontent.DataSet.Next;
  end;
end;

atiger

没有看懂，你现在是不知道啥呢？
是不知道如何取 当前操作人所在的部门？
还是不知道如何通过当前操作人所在的部门 到 编号部门关联表 中把  部门  这个字段等于当前操作人所在的部门 的数据过滤出来？
还是不知道，数据已经从 编号部门关联表 找到，如何写到 控制从模版表 这个表中呢？

还是已经都写完了，但没有实现自己的需要呢|

hule1234

需要帮我写点代码
通过  通过当前操作人所在的部门 到 编号部门关联表 中把  部门  这个字段等于当前操作人所在的部门 的数据过滤出来  
把过滤出来的数据写到 满意度投票的表单上让他投票!!

jiahaiming

楼主，你自己先试着写一下。
遇到具体的技术问题了，可以发帖，我们一起讨论。

zfang

楼主，这个问题怎么样了？

zfang

由于楼主长期未反馈，先结帖！
有问题请重新开帖！