公文管理系统

1、公文管理系统1、系统概述公文管理系统是应用ASP.NET技术开发的一个简化系统。该系统综合运 用了数据库解决方案、封装、用户控件、文件上传及高级控件等，实现基 于Web的公文发布、接收、浏览、查询和维护功能。系统由多个网站模 块组成。每个模块由一组页面及相关程序组成，完成相对独立的任务，如 公文浏览、发文处理和收文处理等。模块涉及与用户的交互过程，包含的 文件数目和类型较多，并需要访问数据库。因此，设计好页面内容，规划 好页面之间传递的数据及对数据库的访问，对于系统的设计和实现非常重 要，同时也能够为今后系统的维护和升级带来方便。2、系统设计2.1系统功能分析开发应用系统的首要工作是进行需求分

2、析，根据应用需求，设计系统功 能。公文管理系统需要对公文进行收发文处理、收发文查阅和查询，据此 系统由发文浏览、收文浏览、文件查询、发文处理、收文处理、系统维护 和用户登录6个模块组成。（1）用户登录。为了保证系统使用的安全性，进入系统首先要登录。按照 对系统功能的授权，将用户权限划分为六类：1一发文浏览，2收文浏览， 3文件查询，4发文处理，5一收文处理，6系统维护。用户成功登录 系统后，系统使用Session变量记录其操作权限，以后在该用户执行各功 能之前都先进行权限检查，只有具备执行权限时才可使用相应的功能。（2）发文浏览。以分页方式列出所有发文的编号和时间，用户单击编号查 看详细内容，

3、并可发表阅文回执。（3）收文浏览。其功能与发文浏览十分相似，也以分页方式列出所有收 文编码和时间，用户单击编号查看详细内容，并可发表阅文回执。（4）发文处理。用于签发公文。用户填写文件标题、编号、有效期及办理 建议，选择文件名后提交，即可发布文件。（5）收文处理。用于签收公文。用户选择文件标题后，即可显示该文件的 编号、发文日期、有效期及发文单位，并可查阅文件内容。用户可填写办 理建议后执行签收功能。（6）系统维护。由部门维护、用户及权限维护、公文（字）维护三部分组 成。部门维护包括添加新部门、修改现有部门信息；用户及权限维护包括 添加新用户、修改现有用户的权限；公文（字）维护包括添加新，字”

4、和修 改现有“字”信息。系统的主界面和主要功能模块界面均采用框架（Frame）结构设计，系统的 各项功能以用户控件形式加载，位于页面上部，页面的右下部是主显示区， 用于显示文件或维护信息。2.2数据库设计本系统选用Access数据库，所使用的数据库名为oadata.mdb，包括5 个数据表，分别是：userpass:用户信息表。wdlx:文件类型表。wddata:文件信息表。part:部门信息表。readlog :文件签阅意见表。各个表的结构如下： userpass 表结构：字段名数据类型可否为空说 明Userid文本否用户编号，主键Partid文本否该用户所属部门编号Userkey文本否用户

5、权限Username文本可用户姓名Password文本否用户密码wdlx表结构:字段名数据类型可否为空说 明Id数值否自动编号(记录号)lx文本否文档类型zh文本否文档字号wddata表结构:字段名数据类型可否为空说 明Id数值否自动编号(作为文件编 号)zh文本否文档字号lx文本否文档类型Username文本否用户姓名Partid文本否用户所属部门编号SendDate日期/时间否签发时间ExpireDate日期/时间否过期时间Title文本否文件标题Docfile文本否文件名Other备注可文件说明part表结构:字段名数据类型可否为空说 明Id数值否自动编号（记录号）Partid文本否部门

6、编号Partname文本否部门名称 readlog表结构:字段名数据类型可否为空说 明Id数值否自动编号（记录号）Username文本否用户姓名Readdate日期/时间可签阅日期Memo备注可签阅意见Wdid文本否文件编号2.3各子系统设计与实现（1）用户控件的设计与实现为在各功能模块之间方便地切换，将系统的主要功能设计为一个用户 控件。这样在需要的页面中只要加载该用户控件即可，而不必在每个页面中 都进行设计。该用户控件界面如图所示。文件名为oamenu.ascx，内容如下：Sub LBtnHome_Click(ByVal sender As System.Object, ByVal e A

7、s System.EventArgs)Response.Redirect(Webmain.aspx) 首 页End SubSub LBtnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)If Session(userid) Nothing And InStr(Session(userkey), 4) 0 ThenResponse.Redirect(Send.aspx)发文处理ElseResponse.Redirect(Webmain.aspx)尚未登录，需先到首页登录End IfEnd SubSub L

8、BtnReceive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)收文处理If Session(userid) Nothing And InStr(Session(userkey), 5) 0 ThenResponse.Redirect(Receiver.aspx)ElseResponse.Redirect(Webmain.aspx)尚未登录，需先到首页登录End IfEnd SubSub LBtnQuery_Click(ByVal sender As System.Object, ByVal e As Sy

9、stem.EventArgs)文件查询If Session(userid) Nothing And InStr(Session(userkey), 3”) 0 ThenResponse.Redirect(Query.aspx)ElseResponse.Redirect(Webmain.aspx)尚未登录，需先到首页登录End IfEnd SubSub LBtnMgr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)系统维护If Session(userid) Nothing And InStr(Session(u

10、serkey), 6”) 0Then Response.Redirect(Mgr.aspx)ElseResponse.Redirect(Webmain.aspx)尚未登录，需先到首页登录End IfEnd SubSub LBtnSBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)发文浏览If Session(userid) Nothing And InStr(Session(userkey), 1) 0Then Response.Redirect(SBrowse.aspx)ElseResponse.R

11、edirect(HWebmain.aspx)尚未登录，需先到首页登录End IfEnd SubSub LBtnRBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)收文浏览If Session(userid) Nothing And InStr(Session(userkey), 2”) 0 Then Response.Redirect(RBrowse.aspx)ElseResponse.Redirect(Webmain.aspx)尚未登录，需先到首页登录End IfEnd Sub OA 公文管理系统

12、首页 发文处理 收文处理 系统维护 发文浏览 收文浏览 文件查询数据库操作文件-由于多个功能模块都要执行数据库操作，因此将数据库操作功能设计为一个共享文件 Db.inc，其内容如下：Script Languate=VBH Runat=Server创建数据集对象，strSQL为SQL语句，FileName为数据库文件名 TableName为数据表名称Function CreateDataSet(strSQL As String, FileName As String, TableNameAs String) As DataSetDim conn As New OleDbConnection()D

13、im cmd As New OleDbCommand() conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; DataSource= & Server.MapPath (FileName) conn.Open()cmd.Connection = conn cmd.CommandText = strSQL Dim objAdpt As New OleDbDataAdapter(cmd) Dim DS As New DataSet() objAdpt.Fill(DS9 TableName) CreateDataSet = DS con

14、n.Close()End Function （3）首页首页提供用户登录界面。当用户成功登录后，用Session变量记录其用户信息， 包括用户名、使用权限等。文件名为Webmain.aspx。其中，以下声明为引用 用户空间oamenu：首页中还包含一个标识为“iframeMaiilW框架，它的src属性为Login.aspx， 即在该框架中加载Login.aspx用户登录页面。文件 Webmain.aspx 公文管理系统 A:link COLOR: #0066cc; TEXT-DECORATION: none A:hover COLOR: #cc0000; TEXT-DECORATION: no

15、ne A:visited COLOR: #3333cc; TEXT-DECORATION: none Login.aspx 内容： Sub IBtnLogin_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs)Dim conn As New System.Data.OleDb.OleDbConnectionDim cmd As New System.Data.OleDb.OleDbCommand conn.ConnectionString = Provider=Microsoft.

16、Jet.OLEDB.4.0; Data Source= & Server.MapPath(oadata.MDB) cmd.Connection = conn cmd.CommandText = select * from userpass where userid= & Trim(TxtID.Text) & and password= & Trim(TxtPass.Text) & conn.Open() Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReader If reader.Read() Then Session(userid) =

17、Trim(reader(userid) Session(username) = Trim(reader(username) Session(userkey) = Trim(reader(userkey)Session(partid) = Trim(reader(partid) Response.Redirect(LoginSuccess.aspx)ElseSession(userid) = NothingSession(username) = Nothing Session(userkey) = Nothing Session(partid) = Nothing End If conn.Clo

18、se() End Sub Login 用户名 码 用户登陆成功后，在框架iframemain中加载LoginSuccess.aspx页面。这是一个 简单的网页，仅显示一行文字和一幅图像，此时用户就可使用其权限操作的功能 了。（4）发文浏览首先分页列出发文的编号和发文日期，其中编号为超链接按钮，当用户单击某个 发文编号后，将显示该发文的详情，此时用户可通过单击“阅文”按钮查看该发文 的全文。在文本框中可输入反馈意见，单击“提交”按钮将用户信息及反馈意见等 写入 readlog 表。1）DgSummary： DataGrid控件，显示文档摘要信息（编号和日期）。2）Dlwd： DataList控件

19、，显示文档详细内容。文件Rbrowse.aspx （略去界面部分）：Dim DS As New DataSet()Sub dgbind(ByVal SortField As String) 创建数据集，并与 DgSummary 绑定Dim Sql As String = Select Id,zh,SendDate,Docfile From wddata Where lx=发文DS = CreateDS(Sql,oadata.mdb,wddata) DS.Tables(wddata).DefaultView.Sort = SortField DGSummary.DataSource = DS.T

20、ables(wddata).DefaultView DGSummary.DataBind()End SubSub Page_Load(ByVal sender As Object, ByVal e As EventArgs) If Not Page.IsPostBack Then dgbind(zh) End IfEnd SubPublic Sub DGSummary_ItemCommand(ByVal sender As Object, ByVal e AsDataGridCommandEventArgs)用户单击发文编号的处理，在表中查询记录并显示If e.CommandName = se

21、lectid ThenViewState(docfile) = e.Item.Cells(3).TextViewState(id) = e.Item.Cells(1).TextBtRead.Enabled = TrueBtOk.Enabled = TrueDim Sql As String = Select a.Title,b.Partname,a.Username,a.zh, a.SendDate, a.ExpireDate From wddata a,wdpart b Where a.partid=b.partid and a.ID = & ViewState(id)DS = Create

22、DS(Sql,oadata.mdb,wdone)Dlwd.DataSource = DS.Tables(wdone).DefaultViewDlwd.DataBind()End IfEnd SubSub DGSummary _PageIndexChanged(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs) (DataGrid控件的分页事件处理DGSummary.CurrentPageIndex = e.NewPageIndex dgbind(zh)End SubSub DGSummary _Sort(ByVal Sender As Object, ByVal e AsDataGridSortCommandEventArgs)(DataGrid控件的排序事件处理 dgbind(E.SortExpression)End SubSub BtRead_Click(ByVal sender As Object, ByVal e As EventArgs) (单击“阅文”按钮Response.Redirect(ViewState(docfileH)End SubSub BtOk_Click(ByVal sender As Object, ByVal e