常用的表单设计元素说明

《常用的表单设计元素说明》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、常用的表单设计元素说明1、调用组织机构调用组织机构功能由热点、域和SelectUnits函数组成，可实现从组织机构中选择内容并自动填入域中，选择的内容可以是部门、岗位名称和人员姓名。SelectUnits函数是系统专门用于调用组织机构的函数，格式如下：SelectUnits(target,var1,var2,var3,var4,var5,var6,var7)其参数使用说明如下表：参数说明target值接受返回值的域名。var1值组织机构对话框显示的内容：0－显示部门、岗位、人员，1－仅显示部门名称，2－显

2、示部门和岗位名称。var2值组织机构对话框显示的内容：0－显示全部，1－仅显示在线人员。var3值组织机构对话框的选择方式：0－单选，1－多选。var4值0－不屏蔽功能，1－屏蔽功能。var5值0－不显示定义树，1－显示定义树。var6值0－不显示已选中人员列表框，1－显示已选中人员列表框。var7值0－自动计算结果，1-所有人员名单，2－所选项全路径，3-选择人员时返回姓名。2、自动显示文档的创建信息自动显示文档的创建信息功能是由域和函数组成。可以显示文档的创建人，显示文档创建人所属的部门、岗们及创建的

3、时间。其功能及对应的域的DefaultValue值说明如下表：功能域的DefaultValue值显示创建人姓名@Name([CN];@UserName)REM{获取服务器名称};显示创建人所属部门DBServer:=@Subset(@DbName;1);REM{获取当前路径};curDirectory:=@Environment("iOAPath");JobTitle:=@DbLookup("":"";DBServer:(curDirectory+"system.nsf");"Members";@Name

4、([CN];@UserName);"JobTitle");@If(@IsError(JobTitle);@Return("");"");unitName:=@Left(JobTitle;"\");tmpDep:=@LeftBack(@LeftBack(JobTitle;"\");"\");@If(@Right(tmpDep;"\")="";tmpDep;@Right(tmpDep;"\"))REM{获取服务器名称};显示创建人所属岗位DBServer:=@Subset(@DbName;1);RE

5、M{获取数据库名称};tmpDBName:="\"+@Subset(@DbName;-1);DBName:=@RightBack(tmpDBName;"\");REM{获取当前路径};tmpDir:=@LeftBack(@Subset(@DbName;-1);"\");curDirectory:=@If(tmpDir="";"";tmpDir+"\");JobTitle:=@DbLookup("":"";DBServer:(curDirectory+"System.nsf");"Members";

6、@Name([CN];@UserName);"JobTitle");unitName:=@Left(JobTitle;"\");@RightBack(@LeftBack(JobTitle;"\");"\")显示创建时间@Created3、实现文件修改痕迹保留功能文件修改痕迹保留功能由操作按钮及其代码组成，可实现在表单中打开office软件（如word），编辑文件内容并针对不同办理人的编辑过程进行痕迹保留。操作步骤如下：1、将下图所示的内容整体复制（“正文”单元格下方部分，包括三行红字体代码、域、小表

7、格及其中的【编辑正文】和【浏览正文】按钮）。图1在【编辑正文】按钮的对象/参考窗格的onClick（事件）中，选择运行“Web”，代码窗格中的代码如下表所示：功能按钮的onClick事件代码调用WorddefaultTitle=window.document.forms[0].Subject.value;EditOnLine("正文.doc",defaultTitle);调用ExceldefaultTitle=window.document.forms[0].Subject.value;EditOnLin

8、e("正文.xls",defaultTitle);调用WpsdefaultTitle=window.document.forms[0].Subject.value;EditOnLine("正文.wps",defaultTitle);图2【浏览正文】按钮的onClick事件代码为：ReadOnLine();2．在表单对象/参考窗格的WebQueryOpen(事件)中，加入如下代码：@Command([ToolsRunMacro]