公文管理系统

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个数据表，分别是：（1） userpass：用户信息表。（2） wdlx：文件类型表。（3） wddata：文件信息表。（4） part：部门信息表。（5） readlog：文件签阅意见表。各个表的结构如下： userpass表结构：字段名数据类型可否为空说明Userid文本否用户编号，主键Partid文本否该用户所属部门编

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

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

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

8、ub LBtnReceive_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

9、 As System.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(S

10、ession(userkey), 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)ElseR

11、esponse.Redirect(Webmain.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) 0Then Response.Redirect(RBrowse.aspx)ElseResponse.Redirect(Webmain.aspx) 尚未登录，需先到首页登录 End IfEnd Sub

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

13、)Dim cmd As New OleDbCommand()conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; DataSource= & Server.MapPath (FileName)conn.Open()cmd.Connection = conncmd.CommandText = strSQLDim objAdpt As New OleDbDataAdapter(cmd)Dim DS As New DataSet()objAdpt.Fill(DS, TableName)CreateDataSet = DSconn.Clos

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

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

16、4.0; DataSource= & Server.MapPath(oadata.MDB)cmd.Connection = conncmd.CommandText = select * from userpass where userid= &Trim(TxtID.Text) & and password= & Trim(TxtPass.Text) & conn.Open()Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReaderIf reader.Read() ThenSession(userid) = Trim(reader(useri

17、d) Session(username) = Trim(reader(username)Session(userkey) = Trim(reader(userkey)Session(partid) = Trim(reader(partid)Response.Redirect(LoginSuccess.aspx)ElseSession(userid) = NothingSession(username) = NothingSession(userkey) = NothingSession(partid) = NothingEnd Ifconn.Close()End SubLogin用户名密 &n

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

19、wse.aspx （略去界面部分）：TagName=oamenu 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 = SortFieldDGSummary.DataSource =

20、DS.Tables(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 =

21、 selectid 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 = Cre

22、ateDS(Sql,oadata.mdb,wdone)Dlwd.DataSource = DS.Tables(wdone).DefaultViewDlwd.DataBind()End IfEnd SubSub DGSummary _PageIndexChanged(ByVal sender As Object, ByVal eAs DataGridPageChangedEventArgs)DataGrid 控件的分页事件处理DGSummary.CurrentPageIndex = e.NewPageIndexdgbind(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(docfile)End SubSub BtOk_Click(ByVal sender As Objec