公文管理系统
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
公文管理系统
·1、系统概述
公文管理系统是应用技术开发的一个简化系统。该系统综合运用了数据库解决方案、封装、用户控件、文件上传及高级控件等,实现基于Web的公文发布、接收、浏览、查询和维护功能。系统由多个网站模块组成。每个模块由一组页面及相关程序组成,完成相对独立的任务,如公文浏览、发文处理和收文处理等。模块涉及与用户的交互过程,包含的文件数目和类型较多,并需要访问数据库。因此,设计好页面内容,规划好页面之间传递的数据及对数据库的访问,对于系统的设计和实现非常重要,同时也能够为今后系统的维护和升级带来方便。
·2、系统设计
2.1系统功能分析
开发应用系统的首要工作是进行需求分析,根据应用需求,设计系统功能。公文管理系统需要对公文进行收发文处理、收发文查阅和查询,据此系统由发文浏览、收文浏览、文件查询、发文处理、收文处理、系统维护和用户登录6个模块组成。
(1)用户登录。为了保证系统使用的安全性,进入系统首先要登录。按照对系统功能的授权,将用户权限划分为六类:1—发文浏览,2—收文浏览,3—文件查询,4—发文处理,5—收文处理,6—系统维护。用户成功登录系统后,系统使用Session变量记录其操作权限,以后在该用户执行各功能之前都先进行权限检查,只有具备执行权限时才可使用相应的功能。
(2)发文浏览。以分页方式列出所有发文的编号和时间,用户单击编号查看详细内容,并可发表阅文回执。
(3)收文浏览。其功能与发文浏览十分相似,也以分页方式列出所有收
文编码和时间,用户单击编号查看详细内容,并可发表阅文回执。
(4)发文处理。用于签发公文。用户填写文件标题、编号、有效期及办理建议,选择文件名后提交,即可发布文件。
(5)收文处理。用于签收公文。用户选择文件标题后,即可显示该文件的编号、发文日期、有效期及发文单位,并可查阅文件内容。用户可填写办理建议后执行签收功能。
(6)系统维护。由部门维护、用户及权限维护、公文(字)维护三部分组成。部门维护包括添加新部门、修改现有部门信息;用户及权限维护包括添加新用户、修改现有用户的权限;公文(字)维护包括添加新“字”和修改现有“字”信息。
系统的主界面和主要功能模块界面均采用框架(Frame)结构设计,系统的各项功能以用户控件形式加载,位于页面上部,页面的右下部是主显示区,用于显示文件或维护信息。
2.2数据库设计
本系统选用Access数据库,所使用的数据库名为oadata.mdb,包括5个数据表,分别是:
(1)userpass:用户信息表。
(2)wdlx:文件类型表。
(3)wddata:文件信息表。
(4)part:部门信息表。
(5)readlog:文件签阅意见表。各个表的结构如下:
·userpass表结构:
•w dlx表结构:
•w ddata表结构:
•p art表结构:
•readlog表结构:
Readdate 日期/时间可签阅日期
Memo 备注可签阅意见
Wdid 文本否文件编号
2.3各子系统设计与实现
(1)用户控件的设计与实现
为在各功能模块之间方便地切换,将系统的主要功能设计为一个用户控件。这样在需要的页面中只要加载该用户控件即可,而不必在每个页面中都进行设计。该用户控件界面如图所示。
文件名为oamenu.ascx,内容如下:
Sub LBtnHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Response.Redirect("Webmain.aspx") '首页
End Sub
Sub LBtnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Session("userid") <> Nothing And InStr(Session("userkey"), "4") <> 0 Then Response.Redirect("Send.aspx") '发文处理
Else
Response.Redirect("Webmain.aspx") '尚未登录,需先到首页登录End If
End Sub
Sub LBtnReceive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) '收文处理
If Session("userid") <> Nothing And InStr(Session("userkey"), "5") <> 0 Then Response.Redirect("Receiver.aspx")
Else
Response.Redirect("Webmain.aspx") '尚未登录,需先到首页登录End If
End Sub
Sub LBtnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) '文件查询
If Session("userid") <> Nothing And InStr(Session("userkey"), "3") <> 0 Then Response.Redirect("Query.aspx")
Else
Response.Redirect("Webmain.aspx") '尚未登录,需先到首页登录End If
End Sub
Sub LBtnMgr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) '系统维护
If Session("userid") <> Nothing And InStr(Session("userkey"), "6") <> 0 Then Response.Redirect("Mgr.aspx")
Else
Response.Redirect("Webmain.aspx") '尚未登录,需先到首页登录End If
End Sub
Sub LBtnSBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) '发文浏览
If Session("userid") <> Nothing And InStr(Session("userkey"), "1") <> 0 Then Response.Redirect("SBrowse.aspx")
Else