《Business 3.0 用户手册》开发篇 章节下载

Assert

目前《Business 3.0 用户手册》开发篇 正在编写过程中，为了避免大家的长期等待，我们会及时将已经完成的章节及相关的案例发布出来。
希望大家多提意见和建议。

下面是 第6章 虚拟文件系统 的下载连接。

一片云

太好了，强烈盼望其它章节尽早出炉。

Assert

第6章 虚拟文件系统

6.1 公共类型
6.1.1 TFileSystemEventList类
6.1.2 TFileSystemLinkList类
6.1.3 TCopyFileOptions集合类型
6.1.4 TFileSpecInfo记录类型
6.1.5 TSearchFileParam记录类型
6.1.6 TCheckAction枚举类型

6.2 文件系统
6.2.1 TVirtualFileStream类
6.2.2 TFileAttribute类
6.2.3 TVirtualFileAttribute类
6.2.4 TVirtualFileSystem类
6.2.5 TFileUtils类
6.2.6 FileSys单元类

6.3 典型示例
6.3.1 通过搜索文件的引用关系，得知某个业务功能分配到了哪些组织单元
6.3.2 简单的文件管理器

6.4 小结

下面的连接是开发篇所有章节的目录结构：

龚明

程序6.4  搜索文件示例


procedure TMainForm.SearchFile;
var
  lSearchParam: Business.System.TSearchFileParam;
  lMathFileName: string;
  lPath: string;
  lFileList: TStringList;
  lResultStr: string;
begin
  lMathFileName := edtSearchName.Text;
  lSearchParam.MatchFileName := lMathFileName;
  lSearchParam.MatchCase := cbMatchCase.Checked;
  lSearchParam.SearchSubPath := cbSearchSubPath.Checked;
  if cbUseExpression.Checked then
  begin
    lSearchParam.MatchAttribute := edtMatchAttrib.Text;
    lSearchParam.MatchIndex := edtMatchIndex.Text;
    lSearchParam.MatchGUIDs := edtMatchGUIDs.Text;
  end;

  lPath := edtSearchPath.Text;
  lFileList := TStringList.Create;
  try
    FileSys.FileSystem.SearchFile(lPath, lSearchParam, lFileList);
    lbSearchResult.Items.Assign(lFileList);
    if lFileList.Count > 0 then
      lResultStr := SysUtils.Format('总共搜索到%d个符合条件的文件。', [lFileList.Count])
    else
      lResultStr := '没有搜索到任何符合条件的文件。';
    StatusBar.SimpleText := lResultStr;
    jsDialogs.ShowMsg(lResultStr, '')
  finally
    lFileList.Free;
  end;
end;

龚明

6.3.2         简单的文件管理器
我们编写了一个简单的文件管理器，和Windows中的资源管理器类似，如图 6.5。它以TBizTreeView、TBizListView和TBizComboBox控件作为主要的操作和表现方式，实现了浏览文件、打开文件、创建文件夹和文件、删除、复制、剪切、粘贴、移至、复制到等常用的文件管理功能。
例如搜索、前进、后退、属性等更多功能，限于时间，我们没有实现。如果大家有兴趣，可以结合本章中对TSearchFileParam和TVirtualFileSystem类的介绍，自己进行实现，这将是一个充满挑战和乐趣的过程。最终，大家完全能够做出和Windows资源管理器一模一样的文件管理器。
通过对这个例子的学习，大家可以根据实际的应用需求，基于虚拟文件系统，做出“部门文件夹”、“个人文件夹”等类似的文档管理应用程序，对企业中的各种文档进行统一储存和管理。

berwos

收到 up

berwos

为什么 总是龚明的东西出的快啊~~

龚明

Assert编写的《第8章 业务字典》、和单维忠编写的《第12章 组织机构》已经写完了，目前正在审阅，审阅通过后就会放上来了，请大家再等待几天。

hejian13

好啊，顶

yihuasoft

最初由 龚明 发布
[B]Assert编写的《第8章 业务字典》、和单维忠编写的《第12章 组织机构》已经写完了，目前正在审阅，审阅通过后就会放上来了，请大家再等待几天。 [/B]

可以前几个单元的资料地址贴在一起吗??这样也方便杳看!!