【结贴】有没有关于文档几张表的说明

xhong

看了http://bbs.justep.com/forum.php? ... ighlight=tdocsystem
不过现在我用的是TDocDisk版本的文档服务器了，那个应该不适用了
1、有没有关于文档几张表的说明呢
2、我现在就用到了上传附件功能，比如我有业务A和业务B，都挂了咱们的附件功能。现在我需要给客户提供一个比如根据附件名、大小、日期等的模糊查询，然后再反向定位到当初的业务表（就是上传附件时候的不同的业务表）的对应记录上。
3、文档修改记录功能，比如有个文本文件A，内容是1，修改一次为2。但是修改记录里看第一个版本是空白文件呢？查看所有修订和查看当前修订都不好使呢

shangxy

1.没有那几张表的说明
2.附件的相关信息都存在TDOCsystem表中，文档关联定义的时候我们可以把不同的功能存储到不同的目录下面。
3.TDOCDISK这个版本没有提供查看修订记录的方法。

xhong

1、没事
2、我看看TDocSystem去，有问题再问
3、是TDOCDISK这个还没来得及提供，晚点提供，还是TDOCDISK就不提供了

shangxy

3.以前版本曾经有过此功能，因为存在性能问题就干掉了，目前还没有计划。

xhong

那我先看看怎么屏蔽那2个按钮和双击事件吧

xhong

TDocSystem看完有个问题，比如我上传了一个 测试.doc 的文档，这个在TDocSystem中记录在显示名称中，主要文件名叫EFD862B4FA36436D8D30903E4DF6F183
TDOCDISK表中，可以找到FGUID是刚才EFD862B4FA36436D8D30903E4DF6F183，FDISK是/2010/4/6/531c0f68-299a-4bc8-867c-f0869ee820f2的记录
现在问题是，哪里存这个关系：就是我引用附件功能的业务表主键值和附件记录之间的关系

shangxy

还有个表叫做文档关联表，业务表主键和附件的对应关系应该在这个表中记录

xhong

ok我看看去

shangxy

好的。

xhong

文档关联表ok。下面这段代码有几个问题：
Edit1：文件名 比如：（123.doc）
Edit2 :上传到文档服务器上的路径,比如：（Doc:\Doc\)
Edit3:文件在操作系统上的完整路径，比如：（d:\123.doc）

1、Edit2这个没看懂，我随便写个Doc:\Doc\aaa\，报错：文件"\Doc\aaa"不存在
2、TDocSystem.CheckIn注释了，意思是NewFile后就自动签入了吗？
3、http://bbs.justep.com/forum.php? ... ureDocUtils.NewFile
12楼其他几个方法怎么用

procedure TFRMDOCCENTER.UpLoadClick(Sender: TObject);
var
  lFileName, osFile, lExt: string;
  lFileAttribute: TFileAttribute;
begin
  if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '') then
    begin
      jsDialogs.ShowMsg('请选择上文件和存储路径！', '提示：');
      exit;
    end;
  lFileAttribute := TFileAttribute.Create;
  try
    lFileAttribute.DisplayName := edit1.Text;
    lFileAttribute.Size := 0;
    lFileAttribute.CreateTime := SysUtils.Now;
    lFileAttribute.IsDirectory := false;
    lFileAttribute.IsHidden := false;
    lFileAttribute.IsSpace := false;
    lFileAttribute.LastWriteTime := SysUtils.Now;
    lFileAttribute.ValuesAsString['OSFILENAME'] := edit3.Text;

    lExt := Sysutils.ExtractFileExt(edit1.Text);
    lFileName := edit2.text + jsCommon.CreateGUIDStr + lExt;
    osFile := TUnStructureDocUtils.NewFile(Context, lFileName, lFileAttribute);
    //TDocSystem.CheckIn(Context, lFileName);
  finally
    lFileAttribute.Free;
    jsDialogs.ShowMsg(osFile, 'UpLoad:');
  end;
end;