起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 165|回复: 5

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

[复制链接]
发表于 2008-4-15 14:32:58 | 显示全部楼层 |阅读模式
按照当前操作人部门,找出相应的满意度调查的的单号,通过对比编制人设置的计划结束投票的时间,如果没有超过时间限制,参与投票的人可以选择满意度调查的单号,
   通过 单号+当前人部门+时间判断结果= 控制从模版表导入模版内容.
我有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;
回复

使用道具 举报

发表于 2008-4-15 17:25:25 | 显示全部楼层
没有看懂,你现在是不知道啥呢?
是不知道如何取 当前操作人所在的部门?
还是不知道如何通过当前操作人所在的部门 到 编号部门关联表 中把  部门  这个字段等于当前操作人所在的部门 的数据过滤出来?
还是不知道,数据已经从 编号部门关联表 找到,如何写到 控制从模版表 这个表中呢?

还是已经都写完了,但没有实现自己的需要呢|
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-15 20:48:07 | 显示全部楼层
需要帮我写点代码
通过  通过当前操作人所在的部门 到 编号部门关联表 中把  部门  这个字段等于当前操作人所在的部门 的数据过滤出来  
把过滤出来的数据写到 满意度投票的表单上让他投票!!
回复 支持 反对

使用道具 举报

发表于 2008-4-16 09:02:29 | 显示全部楼层
楼主,你自己先试着写一下。
遇到具体的技术问题了,可以发帖,我们一起讨论。
回复 支持 反对

使用道具 举报

发表于 2008-4-18 16:23:45 | 显示全部楼层
楼主,这个问题怎么样了?
回复 支持 反对

使用道具 举报

发表于 2008-4-29 15:35:35 | 显示全部楼层
由于楼主长期未反馈,先结帖!
有问题请重新开帖!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-12 01:33 , Processed in 0.040885 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表