通用审批流程系统设计

通用审批系统设计一、需求分析通过对政府机关、企事业单位的日常工作进行分析，发现对文件、表格和图纸等文字图表资料进行审批占有相当大的工作量，因此，如果设计一软件系统，把这些文字图表资料的审批纳入到计算机进行管理，有助于规范审批流程、方便快捷查询、资料的规范化管理和提高工作效率。

二、系统描述文件通过设置特定通过设置特定的单Word和Excel发DLL文件实现部分功能。

具体实施需要进一步考虑。

四、建议公文处理系统单独设计为好，这只是针对其它的文件审批，其它未考虑的请风中、农民和小刘完善，特别是风中和农民对于其实用性、文档的类别和审批的规范性作出考虑，小刘和初始状态负责考虑技术实现，对于公文处理系统这次要重新完善，到达归档与归档后处理这一步。

一、采用技术：服务器端：+Sql Server 2000客户端：+Word、Excel宏和Html编辑器+VbScript二、具体实现：通用审批系统审批文件分为四类：Word文档、Excel文档、Html文档和其它文件，下面按这四种文件类别分别说明其处理方法：（一）、Word文档：1、基本思路：VbScript控制Word中的宏过程和文件内容或直接利用打开模板中的宏来处理。

2、新建审批文档：审批文档通过两种方法来建立，一种是直接在模板中输入，另一种是将已有的文档拷入打开的模板中。

3、保存审批文档：通过VBA宏将文档保存到C:\My Documents\OA缓冲这个目录中，然后由网页或VBA宏程序来将文件保存入数据库中，生成一条新记录。

4、建立审批流程：包括新建、修改和删除流程等功能，这些功能只能由流程建立者（讨论是否可以授权修改），不能修改和删除已审批过的流程，如果要对已审批的流程作出修改，则只能回退后才能修改和删除。

新建审批流程时，先用光标定位审批位置，然后定义审批流程（审批位置在WORD中的标识采用书签或特定宏来表示，需进一步讨论），包括选择审批人部门、审批人、审批结束时间等。

5、启动审批流程：流程建立完成后，必须按“启动审批流程”按钮启动流转过程，此后，只有流程建立者和授权流程监控者可对该流程进行删除和修改，拒绝签署者只有回退给流程建立者或上一级审批者或授权监控者，如果退回者是第一步的审批者，则只能退回给建立者或授权监控者。

6、审批的具体过程：（1）、进入OA（2）、提示有新的审批文档，单击连接进入待审批文档列表（3）、打开审批文档，编辑文档并执行签字或盖章等工作，具体操作是输入签字密码后将电子签名插入审批位置，输入盖章密码后将电子章插入到审批位置，签字也可以设计一个签字窗口，在窗口中用鼠标或手写笔签名后插入审批位置（4）、审批完成后，保存文档，自动输入下一个审批流程，若发现流程有错，则可转交给建立者或回退给上一步审批者，并提出意见，转给建立者的文档由建立者作注销或修改流程处理后重新进行流转，如果没删除文件则对原始记录不能删除，以便于查看流程的整个流转过程；如果是转交给上一步的审批者，则保留上次的流转信息，丢失签字或盖章信息，由该审批者重新处理。

7、各模板加上数据验证功能，如某单元格不能为空或某文本框只能为数字等外：表格下载、流程查询、法规等内：过程啥8、审批流程图：上处理后重新上传，然后流转到下一审批人。

三、下一版本新增加功能：1、增加并发审批流程，即某几个审批流程可同时进行审批，该项功能可用在对收文中的阅文功能。

2、增加远程发送审批文档功能。

详细设计一、功能模块1、新建审批文档：（1）、新建审批文档第一步：选择文档建立方式；第二步：编辑审批文档（可采用录入、拷入、合并、转入已审批的同类型文档四种方式），用转入已审批的同类文档方式完全可以成为一个简单的公文处理系统；具体步骤待研究：第三步：建立审批位置和审批流程；第四步：进入流转。

（2）、新建审批文档列表（未启动审批流程的文档）2、待办事宜：查看待处理的文档，包括审批、办结、归档、回退的文档，表格样式：包括对文档标题、主题词、是否启动文档、审批过程中的文档，回退文档、办结文档、终审文档、归档文档等条件，查询结果可打印和输出到Excel。

4、审批模板管理：（1）、新建审批模板（2）、编辑审批模板（3）、审批模板列表：打印、输出到Excel5、流程监控：单击“流程监控”连接后，显示该用户所有监控的文档列表，单击“查询”按钮后，弹出隐藏的查询条件构造层，构造完成查询条件后，可单击“查询”按钮显示查询结果，也可单击“取消”按钮隐藏查询条件构造层。

流程监控采用全流程图形式表示，每个过程可查询详细审批信息和状态，同时可发送崔审信息等。

6、系统设置：（1）、部门编码维护（管理员）（2）、职务编码维护（管理员）（3）、用户类别编码维护（管理员）（4）、审批文档类型编码维护（管理员）（5）、操作日志（管理员）——————————————（6）、用户信息维护（管理员）（7）、电子笔名维护（管理员）（8）、电子章维护（管理员）——————————————（9）、登录密码设置（10）、签字密码设置（11）、盖章密码设置7、帮助8、退出二、数据库设计12、审批流程表：SP_LC（保存审批流程数据，包括审批的基本信息，如是否审批、是否终审、是否办结等）17、单位编码表（BM_DW）（系统初始有一条记录，DWBM=000000，DWMC=“单位名称”,DWYXJ=1，由用户自己去改）三、视图与索引（一）视图：1、用户信息编码表视图（VI_BM_YHXX）Select * From BM_YHXX,BM_YHLBBM,BM_BMBM,BM_ZWBM Where = And = And =2、审批模板表视图（VI_MB_WD）：与文档类别表建立视图3、审批文档数据表视图（保存审批文档数据：VI_SP_WD）：与文档类别表建立视图（二）索引：四、存储过程1、取得审批文档编号存储过程（SUB_SP_WDBH）：该存储过程用来取得最新的文档编号输入参数：年度、文档类别处理过程：查询有无该年度和文档类别的记录，有则取得完整编号，并使编号加1，没有则新建该年度和文档类别的记录，且编号为1，重新返回新编号，并使编号加1。

SQL语句：CREATE PROCEDURE SUB_SP_WDBH @Nd varchar(4), @Wdlb varchar(2)ASIf Not EXISTS (Select * From SP_WDBH Where BH_ND=@ND And BH_WDLB=@Wdlb) BeginBEGIN TRANSACTIONInsert Into SP_WDBH (BH_ND,BH_WDLB,BH_QZ) Values(@ND,@Wdlb,@Nd+@Wdlb)CommitEndSelect * From SP_WDBH Where BH_ND=@ND And BH_WDLB=@WdlbBEGIN TRANSACTIONUpdate SP_WDBH Set BH_BH=BH_BH+1 Where BH_ND=@ND And BH_WDLB=@WdlbCommitGO测试方法：在SQL查询分析器中执行EXECUTE SUB_SP_WDBH 2004,03 语句。

2、查询用户基本信息存储过程（SUB_BM_YHXX）：取得用户基本信息输入参数：用户编码处理过程：用户编码不为空，查询指定编码用户信息，为空查询所有用户信息。

SQL语句：CREATE PROCEDURE SUB_BM_YHXX @Yhbm varchar(6)ASIf Len(@Yhbm)=0Select * From VI_BM_YHXXElseSelect * From VI_BM_YHXX Where BM=@YhbmGO测试方法：Execute SUB_MB_YHXX ‘’（查询所有用户信息）Execute SUB_MB_YHXX ‘160101’（查询用户编码为160101的用户信息）3、用户身份验证存储过程（SUB_SFYZ）：验证用户身份输入参数：用户名，登录密码处理过程：查询也之相对应的用户名和密码，返回查询记录SQL语句：CREATE PROCEDURE SUB_SFYZ @Yhbm varchar(6),@Yhmm varchar(16)ASSelect * From VI_BM_YHXX Where BM=@Yhbm And MM=@YhmmGO4、新建用户存储过程（SUB_XJYH）：新建用户输入参数：用户基本信息处理过程：首先查询有无重得编码，没有则插入新用户信息，返回1，否则返回-1，如果出现错误返回0SQL语句：CREATE PROCEDURE SUB_XJYH@VarBM varchar(6),@VarYHMC varchar(10),@VarMM varchar(16),@VarSSBM varchar(2),@VarZW varchar(2),@VarYHLB varchar(2),@VarBMFZR bit,@VarXB varchar(2),@VarYXJ intASDECLARE @RunStatus intIf Not Exists(Select * From BM_YHXX Where BM=@VarBM)BeginBegin TransactionInsert Into BM_YHXX (BM,YHMC,MM,SSBM,ZW,YHLB,BMFZR,XB,YXJ) Values(@V arBM,@VarYHMC,@VarMM,@VarSSBM,@VarZW,@VarYHLB,@VarBMFZR,@VarXB,@VarY XJ)If @@ERROR=0BeginCommit TransactionSet @RunStatus=0EndElseBeginRollback TransactionSet @RunStatus=1EndEndElseSet @RunStatus=-1SELECT 'RunStatus' = @RunStatusGO5、签字存储过程（SUB_YHQZ）：用户签字输入参数：用户名，部门编码，签字密码，笔迹图片编码处理过程：根据输入参数查询所有该用户的签字笔迹SQL语句：CREATE PROCEDURE SUB_YHQZ@VarYHM varchar(6),@VarBMBM varchar(2),@VarQZMM varchar(16),@VarBJBM varchar(6)ASIf Len(@VarBJBM)=0beginSelect * From BM_BJ Where BJ_YHM=@VarYHM And BJ_QZMM=@VarQZMM And BJ_SSBM=@VarBMBMendElsebeginSelect * From BM_BJ Where BJ_BM=@V arBJBM And BJ_YHM=@VarYHM And BJ_QZMM=@VarQZMM And BJ_SSBM=@VarBMBMendGO6、盖章存储过程（SUB_YHGZ）：用户盖章输入参数：部门编码，盖章密码（讨论：用户名是否作为参数出现，从安全性上考虑）处理过程：根据输入参数查询该部门的所有电子章SQL语句：CREATE PROCEDURE SUB_YHGZ@VarBMBM varchar(2),@VarQZMM varchar(16),@VarBJBM varchar(6)ASIf Len(@VarBJBM)=0beginSelect * From BM_DZZ Where DZZ_SYMM=@VarQZMM And DZZ_SSBM=@VarBMBMendElsebeginSelect * From BM_DZZ Where DZZ_BM=@VarBJBM And DZZ_SYMM=@VarQZMM And DZZ_SSBM=@VarBMBMendGO7、单位编码存储过程（SUB_DWBM）：录入单位编码/*该存储过程是有关对BM_DW表的所有更新操作，由@Czlx参数来确定操作类型@Czlx=“BJ”时表示修改@Czlx="ZJ"时表示增加@Czlx="SC"时表示删除*/CREATE PROCEDURE SUB_DWBM@VarId BigInt,@VarDwbm VarChar(6),@VarDwmc VarChar(50),@VarSjdwbm VarChar(6),@VarYxj Int,@Czlx V arChar(2)ASDECLARE @RunStatus VarChar(50)Set @RunStatus=' 'If @Czlx='ZJ'BeginIf Not Exists (Select * From BM_DW Where DWBM=@VarDwbm)Insert Into BM_DW (DWBM,DWMC,SJDWBM,DWYXJ) Values(@V arDwbm,@VarDwmc,@VarSjdwbm,@VarYxj)ElseSet @RunStatus='对不起，数据库中已有相同编码的记录！'EndIf @Czlx='BJ'BeginIf Not Exists (Select * From BM_DW Where DWBM=@VarDwbm And ID<>@VarId) Update BM_DW Set DWBM=@VarDwbm,DWMC=@VarDwmc Where ID=@VarId ElseSet @RunStatus='对不起，数据库中已有相同编码的记录！'EndIf @Czlx='SC'BeginIf Exists(Select * From BM_DW Where SJDWBM=@V arDwbm)Set @RunStatus='对不起，请先删除该单位下面的子单位后才能删除本单位！' ElseDelete From BM_DW Where DWBM=@VarDwbmEndIf @@ERROR<>0Set @RunStatus='对不起，更新数据出错！'SELECT 'RunStatus' = @RunStatusGO8、查询单位编码信息存储过程（SUB_DWBM_LB）CREATE PROCEDURE SUB_DWBM_LB@VarSjdw VarChar(6)ASSelect * From BM_DW Where SJDWBM=@VarSjdw Order By DWYXJGO9、查询部门编码信息存储过程（SUB_BMBM_LB）/*该存储过程用于查询BM_BMBM（部门编码）表中的数据@VarDwbm：单位编码变量@VarBmbm：部门编码变量当@V arDwbm为空且@VarBmbm为空时表示查询所有部门数据当@V arDwbm为空且@VarBmbm不为空时表示查询指定部门编码数据当@V arDwbm不为空且@VarBmbm为空时表示查询指定单位的部门编码数据当@V arDwbm和@VarBmbm均不为空表示查询指定单位、指定部门的编码数据*/CREATE PROCEDURE SUB_BMBM_LB@VarDwbm VarChar(6),@VarBmbm VarChar(6)ASIf Len(@VarDwbm)=0 And Len(@VarBmbm)=0Select * From BM_BMBMif Len(@VarDwbm)=0 And Len(@VarBmbm)>0Select * From BM_BMBM Where BM=@V arBmbmif Len(@VarDwbm)>0 And Len(@VarBmbm)=0Select * From BM_BMBM Where DWBM=@VarDwbmif Len(@VarDwbm)>0 And Len(@VarBmbm)>0Select * From BM_BMBM Where DWBM=@VarDwbm And BM=@VarBmbmGO9、档类别管理：Sub_WDBM_LB/*类别编码@sWDMC VarChar(20) 类别名名@sBMBM VarChar(6) 所属部门编码@sCJRBM VarChar(6) 创建人编码@sSJWDBM VarChar(6) 上级文档类别编码@bFlag int 操作标志，0为添加，1为修改，2为删除*/Create Procedure Sub_WDBM_LB@sBM VarChar(6),@sWDMC Varchar(20),@sBMBM Varchar(6),@sCJRBM VarChar(6),@sSJWDBM VarChar(6),@bFlag intASDECLARE @RunStatus VarChar(50)Set @RunStatus=’’If @bFlag=0beginIf Not Exists(select BM from BM_WDLB where BM=@sBMInsert into BM_WDLB(BM,WDMC,BMBM,CJRBM,SJWDBM) Values(@sBM,@sWDMC,sBMBM,sCJRBM,sSJWDBMElseSet @RunStatus=’对不起，数据库中已经存在相同编码的记录’EndIf @bFlag=1Update BM_ WDLB SET whereIf @bFlag=2Delete from BM_WDLB where BM=@sBMIf @@Error<>0Set @RunStatus=’对不起，操作数据出错了SELECT 'RunStatus' = @RunStatusGO五、Word审批模板中的功能如果要改变审批人则在编辑审批流程中重新处理，但这个功能只能由流程建立者和授权管理者才能更改，在签字和盖章功能中才能退回或返回给流程建立者六、Word创建模板中的功能1、编辑审批流程：包括设置审批位置、设置审批部门和审批人。