4.以构造树和导航单表为模板定制模块：文件目录管理

见 www.xaqyjc.com

1.业务需求：实现对文件目录的一个维护模块。文件目录表的逻辑结构和物理结构如下：

创建表的SQL为：

CREATE TABLE F_Catalog
(
 CatalogID            varchar(10)  NOT NULL ,
 CatalogName          varchar(100)  NULL ,
 CreateID             int  NULL ,
 CreateDate           datetime  NULL ,
 ParentCatalogID      varchar(4)  NULL ,
 DelFlag              tinyint  NULL ,
 UpdateDateTime       datetime  NULL
)
go

ALTER TABLE F_Catalog
 ADD CONSTRAINT XPKF_Catalog PRIMARY KEY  NONCLUSTERED (CatalogID ASC)
go

2.打开模块构件，新增一个模块，模块构件的属性设置界面如下：

3.打开界面元素构件，选中文件目录管理模块，新增一个界面元素，界面元素的属性设置如下：

其中查询SQL为：

@CatalogID_;
select CatalogID,CatalogName,CreateDate,y.EmpName from FileData.dbo.F_Catalog x,T_Employee y
where x.CreateID=y.EmpID and CatalogID=@CatalogID_ and (x.DelFlag is null or x.DelFlag=0)

构造树SQL为：

if(@CatalogID_='0') select CatalogID,CatalogName,isnull(ParentCatalogID,'') ParentCatalogID from FileData.dbo.F_Catalog where ParentCatalogID is null and (DelFlag is null or DelFlag=0) andCreateID=@CreateID_
else select CatalogID,CatalogName,isnull(ParentCatalogID,'') ParentCatalogID from FileData.dbo.F_Catalog whereParentCatalogID='@ParentCatalogID_' and (DelFlag is null or DelFlag=0) andCreateID=@CreateID_

查询SQL中共有两个SQL查询语句，之间用分号分开，第一个为主键参数；第二个SQL用于查询出树节点键值为@CatalogID_的数据返还给树表单，与操作员表T_Employee进行关联。构造树SQL用于构造文件目录树。

4.打开界面元查询参数构件，选中文件目录管理模块中的文件目录界面元素，增加参数@CatalogID_和@CreateID_的设置如下：

5.打开操作构件，选中文件目录管理模块中的文件目录界面元素，新增“新增、修改、删除、保存、取消”操作，这些操作的属性设置如下：

     新增属性设置如下图：

修改属性设置如下图：

删除属性设置如下图：

其中点击前执行脚本为：

confirm('你确认要删除该文档目录吗？')

保存属性设置如下图：

取消属性设置如下图：

6.打开字段构件，选中文件目录管理模块中的文件目录界面元素，新增“CatalogID (目录ID)、CatalogName (目录名称)、EmpName (创建人)、CreateDate (创建日期) ”4个字段，这些字段的属性设置如下：

CatalogID (目录ID)字段的属性设置如下图：

CatalogName(目录名称)字段的属性设置如下图：

EmpName(创建人)字段的属性设置如下图：

CreateDate(创建日期)字段的属性设置如下图：

7.打开操作SQL构件，选中文件目录管理模块中的文件目录界面元素的删除操作，属性设置如下图：

其中执行SQL为：

update FileData.dbo.F_Catalog set DelFlag=1 whereCatalogID=@CatalogID_

选中保存操作，其中新增状态的属性设置如下图：

新增状态的执行SQL为：

if(@ParentCatalogID_='0')
insert into FileData.dbo.F_Catalog(CatalogID,CatalogName,CreateID,CreateDate,ParentCatalogID,UpdateDateTime)
values(@CatalogID_,@CatalogName_,@CreateID_,getdate(),null,getdate())
else
insert into FileData.dbo.F_Catalog(CatalogID,CatalogName,CreateID,CreateDate,ParentCatalogID,UpdateDateTime)
values(@CatalogID_,@CatalogName_,@CreateID_,getdate(),@ParentCatalogID_,getdate())

其中修改状态的属性设置如下图：

修改状态的执行SQL为：

update FileData.dbo.F_Catalog
set CatalogName=@CatalogName_,
UpdateDateTime=getdate()
where CatalogID=@CatalogID_

到此为止，该模块定制完成，定制出来的模块可以对文件目录信息进行新增、修改和删除、操作了。模块界面如下图：