使用文档关联功能可以查看修改记录，请问能保存下载记录么？？**

linson

在开发“公文流转”模块中，我们遇到这样一个需求： 要记录下载过某公文附件的人员列表。
公文附件我们通过文件关联来实现上传的，文件关联功能中保存了创建和修改的信息数据，但是好像不保存文件下载的信息，请问如何实现保存和查看所有下载过某文档的人员列表？


急急急！！！！

yancm

已经提交需求。

linson

有结果后请尽快回复吧，目前项目的进度安排比较紧张！
多谢了！！！

yancm

现在没有记录察看信息。
楼主如果想自己做的话，可以  在业务模型\协同系统\文档\文档信息\文档列表视图
和 业务模型\协同系统\文档\关联\文档关联信息 这两个页面上截获动作，自己在业务表中记录上传和察看记录。并设计功能进行展现。

linson

能说详细一点么，里面的代码太多了，找了半天，头都晕了，还是没搞定，对你们的代码不太熟悉。
我想知道的是“点击下载的在哪个函数中触发的？还有向数据库保存操作信息的函数是哪个？”。最好能给点代码的例子好么？

yancm

在业务模型\协同系统\文档\关联\文档关联信息 中，在下面这个函数中添加您自己的代码。

procedure TRELEVANCYDOC.DoExecuteBizOperation(Sender: object;
  const ABizOperation: string);
begin
  if SysUtils.SameText(ABizOperation, 'Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Del.Operation') then  //这里是删除操作
    DoDeleteDoc(ABizOperation)
  else if SysUtils.SameText(ABizOperation, 'Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Edit.Operation') then //这里是编辑操作
    DoEditDoc(ABizOperation)
  else if SysUtils.SameText(ABizOperation, 'Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Open.Operation') then //这里是打开操作
    DoOpenDoc(ABizOperation)
  else if SysUtils.SameText(ABizOperation, 'Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Attr.Operation') then
    DoAttr(ABizOperation)
  else //这里可以继续添加判断是否为下载操作
    FDocOperationProvider.DoIt(ABizOperation);