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_
到此为止,该模块定制完成,定制出来的模块可以对文件目录信息进行新增、修改和删除、操作了。模块界面如下图: