行政办公系统分析与设计.doc

第一章第一章 引引 言言1 1 1.1 政府 OA 的重要地位1 1.2 办公自动化的发展历程.1 1.3 LOTUS DOMINO / NOTES 系统介绍 .2 第二章第二章 需求分析需求分析2 2 2.1 政府办公自动化系统概述.2 2.2 政府 OA 的发展现状及存在问题3 2.3 政府办公自动化系统的建设目标.3 第三章第三章 系统分析系统分析3 3 3.1 组织结构分析.3 3.2 模块功能分析.4 3.2.1 功能模块图.4 3.2.2 功能模块概述.5 电子邮件.6 日程安排.6 通讯录.6 发文管理.6 收文管理.7 事务管理.7 信息园地.7 信息查询.8 3.3 收文、发文业务流程分析.8 3.3.1 发文业务流程.8 3.3.2 收文业务流程.9 3.3.3 发文数据流程示例10 第四章第四章 公文管理功能的系统设计公文管理功能的系统设计1111 4.1 模块设计11 4.2 功能设计11 4.2.1 模块功能分析11 4.2.2 主要表单设计及表单域详细列表12 4.2.3 主要功能实现代码15 4.3 框架设计23 第五章第五章 系统关键技术系统关键技术2424 5.1 群件技术24 5.2 工作流技术：24 第六章第六章 结语结语2525 参考书目：参考书目：2626 某政府办公自动化系统分析与设计 1 某区政府行政办公系统分析与设计某区政府行政办公系统分析与设计 摘要摘要 随着互联网技术和信息处理技术的高速发展与广泛应用，随着政府大力推 行电子政务工程，我国的行政办公由传统的手工方式向办公自动化、网络化迅 速转变。 本文首先简述了我国行政办公的发展，并介绍了当前办公软件开发的先进 系统环境 Lotus Domino/Notes R6；然后详细说明了以工作流技术为技术背景 的“某区政府行政办公系统软件”的基本功能及办公流程，最后重点介绍了软 件的设计与实现。 关键词关键词 办公自动化、Lotus Domino/Notes R6、工作流技术、公文管理、流程自选择； Analysis and Design of Administration and Office System for A Specific Government Abstract With Internet and information processing techniques rapid development and various application , and with Government pushing the E-Government hardly ,the government office has been changing from handwrought mode to automatic、network mode. In this page ,the development of government office system of our country and Lotus Domino/Notes R6 which is an advanced and prevalent software development environment are pointed out first. A detail introduce is given on the basic function and office processing of the system which based on Workflow Technique. Finally emphatically narrates the design and implementation of this software.! Key words OA、Lotus Domino/Notes R6、Workflow Technique、Archives Management、 Processing chosen free 某政府办公自动化系统分析与设计 2 第一章第一章 引引 言言 1.11.1 政府政府 OAOA 的重要地位的重要地位 随着信息时代的到来，社会信息化的进程也加快了步伐。政府信息化是社 会信息化的龙头，社会信息化将决定国家在世界上的持久竞争优势。 政府信息化包括两个方面：首先应当是建设政府办公自动化系统，其次是 通过政府上网，实现电子政务。 政府办公自动化是实现电子政务的基础，而电子政务可以看作是政府办公 自动化系统在范围和功能方面的延伸，即“面向社会的政府办公自动化” 。 因此，政府办公自动化是一个很重要的业务层和应用软件层，它的建设可 以作为彻底实现政府信息化的最佳突破口。其成功应用与否将影响业务系统的 应用和整个电子政务建设成败。 1.21.2 办公自动化的发展历程办公自动化的发展历程 从 20 世纪 80 年代中期至今的短短 10 多年时间内，国内办公自动化应用系 统已经经历了三个发展阶段，实现了两个革命性的飞跃。 第一代办公自动化：实现个体工作自动化：第一代办公自动化：实现个体工作自动化：第一代办公自动化是以数据为 其处理中心的传统 MIS 系统。实现了数据统计和文档写作电子化，完成了办公 信息载体从原始纸介质向电子的飞跃，实现个体工作的自动化。 第二代办公自动化：实现工作流程自动化：第二代办公自动化：实现工作流程自动化：第二代是以工作流为中心的办 公自动化系统。以 E-mail、文档数据库管理、复制、目录服务、群组协同工作 等技术作支撑，以工作流为中心的第二代办公自动化系统实现了对涉及人、事、 文档、会议的自动化管理。 第三代办公自动化：以知识管理为核心：第三代办公自动化：以知识管理为核心：第三代办公自动化系统是以数据、 信息所提炼和组织的知识为主要处理内容的办公自动化系统。旨在帮助组织实 现动态的内容和知识管理，使组织每一位成员能够在协作中不断获得学习的机 会。 1.31.3 LotusLotus DominoDomino / / NotesNotes 系统介绍系统介绍 LotusLotus DominoDomino / / NotesNotes R6R6 是 Lotus 公司新一代 Domino / Notes 软件的总 称，它包括服务器、客户机、开发工具、管理软件四个产品系列： LotusLotus DominoDomino ServerServer：R6 提供的服务器软件； LotusLotus NotesNotes：R6 专为 Domino 应用设计的客户机软件； 某政府办公自动化系统分析与设计 3 LotusLotus DominoDomino DesignerDesigner：R6 提供的集成应用开发环境； LotusLotus DominoDomino AdministratorAdministrator：R6 提供的 Domino / Notes 管理工具。 Lotus Domino / Notes 是集电子邮件、文档数据库、工作流机制、快速应 用开发技术以及 Web 技术等为一体,具有跨平台开放性的电子邮件与群件系统平 台，提供给客户的是一条实现从简单的电子邮件到高级的通信与协作解决方案 的捷径，是建立办公自动化系统，实现政府跨越地域、单位、部门之间协同工 作的较为理想的开发运行平台。 第二章第二章 需求分析需求分析 2.12.1 政府办公自动化系统概述政府办公自动化系统概述 办公自动化系统是实现单位内部各部门之间以及相关单位之间办公及业务 信息的收集与处理、流动与共享，以提高专项、综合业务管理水平及辅助决策 水平为目的的综合性人机信息系统。它的建立，可以使单位办公及业务系统的 信息资源做到全方位共享和交流；它可以真正实现相关单位之间、单位各部门、 各工作人员之间的协同工作；使日常办公更加安全可靠，更加规范化、高效化 和科学化。 一个比较优秀的办公自动化系统要达到的总体目标是“以先进成熟的计算 机和通信技术为主要手段，建成一个覆盖各部门的办公自动化系统，建立高质 量、高效率的信息网络，为领导决策和办公提供服务，实现办公管理现代化、 信息资源化、传输网络化和决策科学化。 ” 2.22.2 政府政府 OAOA 的发展现状及存在问题的发展现状及存在问题 目前，政府办公自动化主要是通过两类软件工具实现的。第一类是通用的 单机软件，这类软件在单人单机应用时高效，但各种应用之间彼此独立。第二 类是以系统集成方式实现的政府信息系统，这类系统由于基础构架的先天不足， 无法适应政府机构业务的扩展与升级。无论是独立的工具软件还是集成的解决 方案，相互之间是独立封闭、异构分散的，无法进行信息共享和协同的业务处 理，严重影响政府机构办公自动化的发展。 导致这些问题的实质在于缺少一个统一、综合、开放的协同应用平台。 2.32.3 政府办公自动化系统的建设目标政府办公自动化系统的建设目标 基于前面分析的问题，我们设计的办公自动化系统需要实现以下需求： 创建一个以“统一平台、协同应用”为特征的集成化办公环境，为政府办 某政府办公自动化系统分析与设计 4 公自动化提供一整套综合的解决方案；政府公务员用户通过此软件可以完成办 公自动化系统全部应用功能的操作。 提供经济快捷的网络通讯沟通，综合应用多种成熟的网络通讯手段，如电 子邮件、即时通讯等，提供一个高度集成、便捷、安全和人性化的网络通讯环 境，实现政府公务员与朋友、同事、合作伙伴、社会公众等的经济快捷的交流 与沟通。 灵活高效的工作协同，借助 R6 的群件技术与工作流技术，协助用户在工 作过程中实现同步，按照一定的过程规则对文档、信息或任务进行传递，对当 前实施项目进行跟踪。从而实现政府机构内部和政府机构之间灵活高效的作业 协同与群组互动。 提供严格的系统安全性控制；根据 notes 的安全性机制，系统对所有用户 的操作权限、对各应用模块的使用权限，以及文档在各状态的读、写、修改、 删除等各方面权限进行严格的控制，保障系统安全、稳定的运行。 第三章第三章 系统分析系统分析 3.13.1 组织结构分析组织结构分析 区政府组织结构具有层次结构、界限清晰、权责分明的特点；具体结构图 如下所示： 某政府办公自动化系统分析与设计 5 3.23.2 模块功能分析模块功能分析 本系统实现区级政府各部门之间办公信息化、自动化的需求； .1 功能模块图功能模块图 该区政府 OA 系统共有四个大的模块：A.个人办公、个人办公、B.行政办公、行政办公、C.信息信息 处理处理以及 D.系统维护。系统维护。 一级功能模块图： 信息处理功能模块二级结构图： 某政府办公自动化系统分析与设计 6 行政办公功能模块二级结构图： .2 功能模块概述功能模块概述 A A：个人办公：个人办公 电子邮件电子邮件 提供个人电子邮件的收发、转发、删除、保存等功能。可以自己创建文件 夹并定义邮件规则对邮件进行自动分类存放。有新邮件时，系统会自动进行提 某政府办公自动化系统分析与设计 7 示。邮件系统支持 POP3 邮件和 WEBMAIL 邮件，外部的 INTERNET 邮件自动通过 SMTP 网关转发到内部的电子信箱中。 【收件箱收件箱】 能接收邮件，并能在邮箱视图中将邮件按用户的需要分类、 排序。能提醒用户有哪些邮件还没有阅读。 【草稿草稿】 编辑邮件文档，编辑后能发送并可以选择保存到哪个文件夹中。 【发件箱发件箱】 发送邮件，并显示以发送的邮件。 【废纸篓废纸篓】 在任何一个视图中，当文档被删除后文档都被放入废纸篓中。 【所有文档所有文档】 列出所有（在收件箱、草稿、发件箱、废纸篓视图中）的 文档，并能显示其归属。 日程安排日程安排 用来安排个人办公日程，为用户提供灵活的日历、周历和月历方式显示、 查询日程安排。可以根据安排自动提醒今日要进行的各项活动，可以总结并打 印出本人在任意时段的活动大事记。 通讯录通讯录 通讯录提供办公自动化系统的通讯人员地址和个人名片。 B B：行政办公：行政办公 发文管理发文管理 发文系统主要完成发文所涉及的一系列操作:处室拟稿、领导审签、文字初 审、文字复审、领导签发、文书印发等。 系统采用发文和电子邮件配合使用的方法，使流程更加直观。一般用户只 需经常查看并处理电子邮件即可进行日常办公。 系统具有完善的流程跟踪和控制。系统对发文的整个流程进行跟踪，详细 记录发文的当前状态、发文审核的过程和领导审签、签发意见。它主要包括： 【发文浏览发文浏览】 给出五种浏览视图：按批阅情况、按文档类型、按起草部门、 按起草时间、待办理公文。 【未分发公文未分发公文】 查看待会签、分发的发文。 【已分发公文已分发公文】 查看已批示、分发的发文。 某政府办公自动化系统分析与设计 8 收文管理收文管理 收文管理完成收文所涉及的一系列操作：公文上报、登记、拟办、中转、 转发、秘书拟办、领导审核、承办单位办理、归档、相关单位查询公文等。自 动接收下级单位的上报公文，并自动填写收文登记单。它主要包括： 【收文浏览收文浏览】 给出五种浏览视图：按批阅情况、按主题词、按来文单位、 按收文时间、待办理公文。 【公文归档公文归档】 自动归档，部门内的各种流转的公文可以通过管理员轻松实 现自动归档的功能。 【公文查询公文查询】 可以方便、快捷的查找满足条件的公文，既可以模糊查询， 也可以多个关键字组合查询。 事务管理事务管理 行政事务模块主要支持机关政府日常行政事务管理工作的无纸化。 【办公用品管理办公用品管理】 对本部门办公用品的购买入库、领用及查询进行管理。 【会议室管理会议室管理】 为各部门提供会议室使用申请管理；为管理中心提供会议 室录入、会议室使用登记、会议室安排、会议室使用的历史记录。 【值班管理值班管理】 对值班进行统一管理，可以将计划的值班表在信息园地中公 布并提供相应的查询功能。值班表类型有双休日领导带班安排表、双休日值班 安排表、总值班室值班总安排表三种类型。 C C：信息处理：信息处理 信息园地信息园地 信息园地主要是单位内部一些常用信息的发布地。它主要包括： 【信息公告牌信息公告牌】 可由专门部门发布重要新闻、通知。公告的发布可设定发 布人权限，自由具有此权限才能发布，公告发布时还可设定有效时间，超过有 效时间的公告将自动从公告牌上删除。 【消息栏消息栏】 可有个人发布各种消息。 【自由讨论区自由讨论区】 可让大家共同讨论有关问题。 【建议箱建议箱】 可以发表各种建议 某政府办公自动化系统分析与设计 9 信息查询信息查询 信息查询是为主要领导开发的一个信息查询模块，提供所负责各部门的横 向比较信息和综合统计信息。根据当前用户的身份，从权限设置数据库中自动 提取用户权限信息，并将有关用户资料通过视图显示，以供授权用户来设置查 询条件。用户完成必要的设置后，可根据关键词来查询，查询结果通过不同分 类方式显示。 系统中的公文管理模块由我来完成，其余模块由汪淼来完成。 3.33.3 收文、发文业务流程分析收文、发文业务流程分析 .1 发文业务流程发文业务流程 发文流程可分为部门公文处理、四办公文处理、区领导处理三个阶段。 首先部门秘书起草公文，起草完毕交部门领导批示；部门领导可以签发， 也可以批示返回秘书； 秘书根据批示比如交上级区办秘书处理，区办秘书交给主任审核，主任审 阅批示后返回给区办秘书，区办秘书再根据办公室的主任批示意见进行相应的 操作； 区办秘书交给区领导进行处理，区领导进行签发并返还秘书。 部门之间日常发文流程如下图： 最后由秘书进行文档处理，处理工作流程如下：根据最后确定的分发部门 某政府办公自动化系统分析与设计 10 由相应的部门秘书或四办秘书分发。 秘书发文流程如下图： .2 收文业务流程收文业务流程 部门内部收文流程如下图： 某政府办公自动化系统分析与设计 11 .3 发文数据流程示例发文数据流程示例 发文流程可以根据实际情况而自由选择；下面的是一个比较典型的公文流 转过程。 某政府办公自动化系统分析与设计 12 第四章第四章 公文管理功能的系统设计公文管理功能的系统设计 4.14.1 模块设计模块设计 收发文模块由三个数据库构成，分别为发文管理（FWGL.nsf） 、收文管理 （SWGL.nsf） 、人员分工（RYFG.nsf） 。 发文管理执行发文拟稿、核稿、会签、签发、批阅、查询、公文执行状态 信息等管理工作；收文管理提供了收文登记、归档、批示、打印分发等操作； 人员分工可以对使用人员进行角色定义，对使用人员的权限进行设定和控制。 4.24.2 功能设计功能设计 .1 模块功能分析模块功能分析 公文管理模块涉及到对公文状态的特殊控制，对公文的日常处理操作两个 方面的功能。 对公文状态的特殊控制包括- 文档在批阅、流转成文的过程中应该始终保证只有一个人打开并进行操 作，避免两个人同时对文档进行操作。 文档的操作按钮应该能够根据不同的角色和文档状态进行隐藏。从而实 现文档的工作流过程。这样不同办公角色的办公人员通过系统所能提供的按钮 操作完成他在实际批阅公文过程中的公文操作。 考虑到安全性，应该能够控制文档的保存和编辑，保证文档在流转过程 中不能随意被人篡改。 对公文的日常处理操作包括- 交部门领导操作 交主任审核操作 批示返回操作 交上级交区委办|交人大办|交政府办|交政协办 交领导交区主要领导|交区分管领导 会签 发送给会签人 会签区主要领导会签|区分管领导会签 返还给部门 签发 归档 某政府办公自动化系统分析与设计 13 选择分发部门 分发给各部门 填写意见 其他基本操作 .2 主要表单设计及表单域详细列表主要表单设计及表单域详细列表 表单是数据库设计中的一个最重要基本元素，是用户输入信息的直接界面； 整个数据库的组织首先通过表单生成数据库中的各项文档，再由视图对文档选 择并呈现给用户。因此从整个数据库的设计过程来看，可以说表单设计的好坏 直接关系到数据库设计的好坏。 合理的设计和安排域和表单，能够为用户提供良好的操作界面，方便数据 的输入、输出、查询等工作。在公文管理模块中，最重要的表单为新建发文的 报告 （别名 BG）表单。下面详细说明其结构组成并列出其域详细列表。 新建发文的BG表单之结构组成-该表单主要分为四个部分: 第一部分主要用于存放隐含域，这些隐含域主要包括控制公文表单实际过 程流转中的一些标志位，如下图： 第二部分主要是批示情况和会签意见，如下图： 某政府办公自动化系统分析与设计 14 第三部分主要是正文和附件部分，包括文档题头、标题、正文、分类、文 档类型、链接附件等，如下图： 第四部分主要是关于文档的发文单，在发文单中根据实际区政府公文流转 过程中的表格提供一个表格输入界面，如下图： 某政府办公自动化系统分析与设计 15 新建发文的BG表单之域详细列表： BG 表单主要域属性 域域数据类型数据类型类型属性类型属性说明说明备注备注 Creater作者可编辑创建人 SendTo作者可编辑发送给允许多值 Count1数值可编辑会签记数 EnterLock文本可编辑文档锁 Human名称可编辑会签人允许多值 Bjr文本可编辑当前编辑人 subject文本可编辑主题 form文本可编辑表单 Count2数值计算记数 2 Status文本可编辑当前位置 LastBaby文本可编辑上一执行人 LY文本可编辑退回起草人的理由 BMMS名称可编辑部门秘书允许多值 QBMS文本可编辑区办秘书 Alex名称可编辑文秘主管允许多值 某政府办公自动化系统分析与设计 16 Oscar名称可编辑文书允许多值 ZSR文本可编辑注释人允许多值 ZS文本可编辑注释 Mask文本可编辑状态 HQ1文本可编辑会签人 1允许多值 HQ2名称可编辑已提交会签的人允许多值 EditLock文本可编辑编辑锁 Next文本可编辑下一执行人 CreateDate文本可编辑创建日期 fssj文本可编辑发送日期 SHQR名称可编辑所送会签人允许多值 ffjsr名称可编辑发文接收人允许多值 HQLX文本可编辑会签类型 yff文本可编辑是否已经分发到各部门 jsyqm文本可编辑接收人是否已签名 ldyqm文本可编辑领导是否已签名 部门主管RTF 文本可编辑批示情况 HQR名称可编辑会签人 HQYJ文本可编辑会签意见 HQRQ_1文本可编辑会签日期 HQSJ_1文本可编辑会签时间 HQR_1文本可编辑会签人 HQYJ_1文本可编辑会签意见 .3 主要功能实现代码主要功能实现代码 对公文状态的特殊控制功能代码： BG表单的 Globals 选项中，主要定义该表单的一些全局变量、引用单 元，一些公用的函数。主要代码如下： DeclarationsDeclarations。 Dim AllowEdit As Integer /定义了是否允许编辑的全局变量标志 Dim AllowChange As Integer /定义了是否允许修改的全局变量标志 MyGotoEditMyGotoEdit。 Sub MyGotoEdit /该函数主要是将文档置于编辑状态 AllowEdit = True /允许编辑全局变量标志打开 某政府办公自动化系统分析与设计 17 Uidoc.EditMode = True /同时将文档置于编辑模式 End Sub BG表单的事件响应代码主要完成对文档打开时的一些控制。 QueryOpenQueryOpen 事件。事件。 Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) /该函数控制用户是否可以打开文档 Dim state As Variant Dim userlist As Variant Dim Rolelist As Variant Dim na1 As notesname Dim na2 As notesname Dim nast1 As String Dim nast2 As String Dim mark As Integer Dim doc As notesdocument Dim session As New notessession Dim db As notesdatabase Set db=session.currentdatabase Set doc=source.document mark=0 If isnewdoc Then mark=1 Goto outof Else If db.currentaccesslevel=6 Then mark=1 Goto TestCT End If %REM / 如果是部门主管,由于视图里已经控制只显示 本部门的所有发文,因此让其通过文档检查 Rolelist=doc.getitemvalue(“Role“) 某政府办公自动化系统分析与设计 18 Forall r In Rolelist Set na1=New notesname(r) Set na2=New notesname(session.username) nast1=mon nast2=mon If nast1=nast2 Then Mark=1 Goto TestCT End If End Forall %END REM state=doc.getitemvalue(“Mask“) If state(0)=“部门分发完毕“ Then Mark=1 Goto outof End If userlist=doc.getitemvalue(“SendTo“) Forall r In userlist Set na1=New notesname(r) Set na2=New notesname(session.username) nast1=mon nast2=mon If nast1=nast2 Then Mark=1 End If End Forall If Mark3 Then If doc.Mask(0)“部门分发完毕“ Then If doc.EnterLock(0)=“1“ Then Mark=0 Messagebox “此文档正在被“ & doc.bjr(0) & “编辑，请稍后再进入“ End If End If End If End If Goto outof outof: If Mark=1 Then continue=True Else continue=False End If If continue=True Then newdoc=isnewdoc End If End Sub 对公文的日常处理主要操作代码实现： 交部门领导操作 Sub Click(Source As Button) Dim replay As Integer replay=Messagebox(“您确认要进行此操作吗？“,MB_YESNO+MB_ICONQUESTION+0,“请确认“) If replay=IDNO Then Goto ErrorProc End If Call MyGotoEdit If uidoc.fieldgettext(“QCBM“)=“ Then Messagebox “请输入承办单位“ Goto ErrorProc End If If uidoc.fieldgettext(“QCBM“)=“区委办“ Then Call uidoc.Fieldsettext(“Next“,“区委办公室主任“) Else If uidoc.fieldgettext(“QCBM“)=“人大办“ Then Call uidoc.fieldsettext(“Next“,“人大办公室主任“) Else 某政府办公自动化系统分析与设计 20 If uidoc.fieldgettext(“QCBM“)=“政府办“ Then Call uidoc.fieldsettext(“Next“,“政府办公室主任“) Else If uidoc.fieldgettext(“QCBM“)=“政协办“ Then Call uidoc.fieldsettext(“Next“,“政协办公室主任“) Else Call uidoc.fieldsettext(“Next“,“部门主管“) End If End If End If End If If UserInput(3)=0 Goto ErrorProc If IsCorrect=0 Goto ErrorProc / 将相应的信息反映到域的修改中 Call uidoc.fieldsettext(“LastBaby“,session.username) Call uidoc.fieldsettext(“Status“,“审核人“) Call uidoc.fieldsettext(“Creater“,uidoc.fieldgettext(“LastBaby“) Call uidoc.fieldsettext(“QCR“,MyName) Call uidoc.fieldsettext(“Mask“,“审核中“) Call uidoc.fieldsettext(“zg“,uidoc.fieldgettext(“Sendto“) Call uidoc.save Set doc=uidoc.Document Call check(doc) Messagebox “您的公文已经发出“ Call uidoc.Save Call uidoc.close Exit Sub ErrorProc: Call OutOfLove End Sub 批示返回操作 Sub Click(Source As Button) Dim zs As String Dim zsr As String Dim rtpStyle As NotesrichTextParagraphStyle Dim rtitem As Variant Dim psitem As String Dim psr As String 某政府办公自动化系统分析与设计 21 Dim replay As Integer replay=Messagebox(“您确认要进行此操作吗？“,MB_YESNO+MB_ICONQUESTION+0,“请确认“) If replay=IDNO Then Goto ErrorP End If Call MyGotoEdit Dim n As notesname Call uidoc.fieldsettext(“ZS“,“) If ws.dialogbox(“SRZS“,True,True,False,False,False,False,“输入批示意见“) Then Set n=New notesname(session.username) Call uidoc.fieldsettext(“ZSR“,mon) psr=mon If uidoc.fieldgettext(“ZS“)=“ Then zs=“0“ Else zs=“1“ End If / 将相应的信息反映到域的修改中 Call uidoc.fieldsettext(“SendTo“,uidoc.fieldgettext(“LastBaby“) Call uidoc.fieldsettext(“LastBaby“,session.username) If (uidoc.fieldgettext(“Mask“)=“秘书分发中“) Then If uidoc.fieldgettext(“Status“)=“审核人“ Then Call uidoc.fieldsettext(“Status“,“部门秘书“) End If If uidoc.fieldgettext(“Status“)=“区办主任“ Then Call uidoc.fieldsettext(“Status“,“区办秘书“) End If If uidoc.fieldgettext(“Status“)=“区分管领导“ Then Call uidoc.fieldsettext(“Status“,“区办秘书“) End If 某政府办公自动化系统分析与设计 22 If uidoc.fieldgettext(“Status“)=“区主要领导“ Then Call uidoc.fieldsettext(“Status“,“区办秘书“) End If Call uidoc.fieldsettext(“Mask“,“秘书处理中“) Call uidoc.Save Else If uidoc.fieldgettext(“Status“)=“审核人“ Then Call uidoc.fieldsettext(“SH“,MyName) Call uidoc.fieldsettext(“QCDWFZR“,MyName) Call uidoc.fieldsettext(“Status“,“部门秘书“) Call uidoc.fieldsettext(“Mask“,“返还部门秘书“) End If If uidoc.fieldgettext(“Status“)=“区办主任“ Then Call uidoc.fieldsettext(“SD“,MyName) Call uidoc.fieldsettext(“QWBZR“,MyName) Call uidoc.fieldsettext(“Status“,“区办秘书“) Call uidoc.fieldsettext(“Mask“,“返还区办秘书“) End If If uidoc.fieldgettext(“Status“)=“区分管领导“ Then Call uidoc.fieldsettext(“QFGLD“,MyName) Call uidoc.fieldsettext(“Status“,“区办秘书“) Call uidoc.fieldsettext(“Mask“,“返还区办秘书“) End If If uidoc.fieldgettext(“Status“)=“区主要领导“ Then Call uidoc.fieldsettext(“QLD“,MyName) Call uidoc.fieldsettext(“Status“,“区办秘书“) Call uidoc.fieldsettext(“Mask“,“返还区办秘书“) End If End If psitem=“部门主管“ Call uidoc.Save / 填写批示内容 If zs=“1“ Then 某政府办公自动化系统分析与设计 23 zs=uidoc.fieldgettext(“ZS“) zsr=“来自“&uidoc.fieldgettext(“ZSR“)&“的意见“ Else zs=“意见没有被输入“ zsr=“来自“&uidoc.fieldgettext(“ZSR“)&“的意见“ End If Set n=New notesname(uidoc.fieldgettext(“SendTo“) jsr=mon Allowchange=1 Set doc=uidoc.document Set rtpStyle = session.CreateRichTextParagraphStyle Set rtitem = doc.GetFirstItem(psitem) If rtitem.Type = RICHTEXT Then rtpStyle.Alignment = ALIGN_LEFT Call rtitem.AppendParagraphStyle(rtpStyle) Call rtitem.AppendText(“ “+zs) rtpStyle.Alignment= ALIGN_RIGHT Call rtitem.AppendParagraphStyle(rtpStyle) Call rtitem.Appendtext(“批示人: “+psr+“ “) y% = Year(Today) m% = Month(Today) d% = Day(Today) theDateV = Datenumber(y%, m%, d%) Call rtitem.Appendtext(“批示日期: “+Format(Datevalue(Cstr(TheDateV),“yyyy- mm-d“) Call rtitem.AddNewLine(1) End If Allowchange=0 Call uidoc.Save Set doc=uidoc.Document Call SendUserMail(doc,zsr,zs) Call check(doc) Messagebox “您的公文已经发出“ Call uidoc.close 某政府办公自动化系统分析与设计 24 Exit Sub End If ErrorP: If uidoc.editmode=True Then Call uidoc.save End If Call EditFalse End Sub 4.34.3 框架设计框架设计 模块整体功能通过帧结构集的形式进行提供。帧结构集成多个页面，构成 模块访问接口；其中页面嵌入链接式大纲，达到浏览整个发文、收文数据库。 模块界面图： 某政府办公自动化系统分析与设计 25 第五章第五章 系统关键技术系统关键技术 5.15.1 群件技术群件技术 群件（Groupware）是指支持协同工作的面向多用户的计算机软件。 群件已经突破了传统的单纯支持数据共享多用户软件的概念，可以协助用 户在工作过程中实现同步，对当前实施项目进行跟踪。现在的群件软件已经发 展成为功能强大的交互式 Web 应用服务器，可以方便快捷地在 Internet 上实现 各种企业应用。 群件包括三个技术领域，即通信、协同操作