公文管理系统

#公文管理系统1、公文管理系统是应用ASP.NET技术开发的一个简化系统.该系统综合运用了数据库解决方案、封装、用户控件、文件上传及高级控件等，实现基于Web的公文发布、接收、浏览、查询和维护功能。系统由多个网站模块组成。每个模块由一组页面及相关程序组成,完成相对独立的任务，如公文浏览、发文处理和收文处理等.模块涉及与用户的交互过程，包含的文件数目和类型较多,并需要访问数据库。因此，设计好页面内容，规划好页面之间传递的数据及对数据库的访问,对于系统的设计和实现非常重要，同时也能够为今后系统的维护和升级带来方便.2、系统设计2。1系统功能分析开发应用系统的首要工作是进行需求分析，根据应用需求，设计系统功能。公文管理系统需要对公文进行收发文处理、收发文查阅和查询，据此系统由发文浏览、收文浏览、文件查询、发文处理、收文处理、系统维护和用户登录6个模块组成.用户登录。为了保证系统使用的安全性，进入系统首先要登录。按照对系统功能的授权，将用户权限划分为六类：1—发文浏览，2—收文浏览,3—文件查询，4—发文处理，5—收文处理,6—系统维护。用户成功登录系统后,系统使用Session变量记录其操作权限，以后在该用户执行各功能之前都先进行权限检查，只有具备执行权限时才可使用相应的功能。发文浏览。以分页方式列出所有发文的编号和时间，用户单击编号查看详细内容，并可发表阅文回执。收文浏览。其功能与发文浏览十分相似，也以分页方式列出所有收

文编码和时间，用户单击编号查看详细内容，并可发表阅文回执。发文处理.用于签发公文。用户填写文件标题、编号、有效期及办理建议,选择文件名后提交,即可发布文件。（5）收文处理.用于签收公文。用户选择文件标题后，即可显示该文件的编号、发文日期、有效期及发文单位，并可查阅文件内容。用户可填写办理建议后执行签收功能.（6）系统维护。由部门维护、用户及权限维护、公文（字）维护三部分组成。部门维护包括添加新部门、修改现有部门信息;用户及权限维护包括添加新用户、修改现有用户的权限;公文（字）维护包括添加新“字"和修改现有“字”信息。系统的主界面和主要功能模块界面均采用框架（Frame）结构设计，系统的各项功能以用户控件形式加载,位于页面上部，页面的右下部是主显示区，用于显示文件或维护信息。2.2数据库设计本系统选用Access数据库，所使用的数据库名为oadata.mdb，包括5个数据表，分别是：（1）userpass:用户信息表.（2）wdlx:文件类型表。（3）wddata:文件信息表。（4）part:部门信息表。（5）readlog:文件签阅意见表。各个表的结构如下:userpass表结构:字段名数据类型可否为空说明Userid文本否用户编号，主键Partid文本否该用户所属部门编号Userkey文本否用户权限Username文本可用户姓名Password文本否用户密码•wdlx表结构:

字段名数据类型可否为空说明Id数值否自动编号（记录号）lx文本否文档类型zh文本否文档字号•wddata表结构：字段名数据类型可否为空说明Id数值否自动编号（作为文件编号）zh文本否文档字号lx文本否文档类型Username文本否用户姓名Partid文本否用户所属部门编号SendDate日期/时间否签发时间ExpireDate日期/时间否过期时间Title文本否文件标题Docfile文本否文件名Other备注可文件说明•part表结构：字段名数据类型可否为空说明Id数值否自动编号（记录号）Partid文本否部门编号Partname文本否部门名称•readlog表结构:字段名数据类型可否为空说明Id数值否自动编号（记录号）Username文本否用户姓名Readdate日期/时间可签阅日期Memo备注可签阅意见Wdid文本否文件编号2.3各子系统设计与实现(1)用户控件的设计与实现为在各功能模块之间方便地切换，将系统的主要功能设计为一个用户控件。这样在需要的页面中只要加载该用户控件即可，而不必在每个页面中都进行设计。该用户控件界面如图所示。文件名为oamenu.ascx，内容如下：〈ScriptLanguage=”VB”Runat=”Server”〉SubLBtnHome_Click(ByValsenderAsSystem。Object,ByValeAsSystem.EventArgs)Response.Redirect("Webmain.aspx")'首页EndSubSubLBtnSend_Click(ByValsenderAsSystem。Object,ByValeAsSystem.EventArgs)IfSession("userid”)<>NothingAndInStr(Sessio(n"userkey")，"4”)<>0ThenResponse.Redirect("Send。aspx")'发文处理ElseResponse。Redirect(”Webmain.aspx”)'尚未登录，需先到首页登录EndIfEndSubSubLBtnReceive_Click(ByValsenderAsSystem.Object，ByValeAsSystem.EventArgs)'收文处理IfSession("userid”)〈>NothingAndInStr(Session(”userkey")，”5”)〈〉0ThenResponse.Redirect(”Receiver.aspx")ElseResponse。Redirect("Webmain.aspx")'尚未登录，需先到首页登录EndIfEndSubSubLBtnQuery_Click(ByValsenderAsSystem.Object，ByValeAsSystem.EventArgs)'文件查询IfSession("userid”)＜＞NothingAndInStr(Session(”userkey"),"3")＜〉0ThenResponse.Redirect(”Query。aspx")ElseResponse.Redirect(”Webmain。aspx”)'尚未登录，需先到首页登录EndIfEndSubSubLBtnMgr_Click(ByValsenderAsSystem。Object，ByValeAsSystem.EventArgs)'系统维护IfSession("userid”)＜〉NothingAndInStr(Session("userkey")，"6”)〈〉0ThenResponse.Redirect("Mgr。aspx”)ElseResponse.Redirect(”Webmain.aspx")'尚未登录，需先到首页登录EndIfEndSubSubLBtnSBrowse_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)'发文浏览IfSession("userid”)〈＞NothingAndInStr(Session(”userkey")，”1")〈＞0ThenResponse。Redirect("SBrowse。aspx”)ElseResponse.Redirect(”Webmain。aspx”)'尚未登录，需先到首页登录EndIfEndSubSubLBtnRBrowse_Click(ByValsenderAsSystem.Object,ByValeAsSystem。EventArgs)'收文浏览IfSession("userid")〈>NothingAndInStr(Session("userkey")，"2”)〈〉0ThenResponse。Redirect(”RBrowse・aspx”)ElseResponse・Redirect(”Webmain・aspx")'尚未登录，需先到首页登录EndIfEndSub</Script><DIVstyle="WIDTH:777px；POSITION：relative；HEIGHT：32px;BACKGROUND—COLOR:#ccccff"ms_positioning=”GridLayout”>〈DIVstyle="DISPLAY:inline；FONT-SIZE：16pt；Z-INDEX：101；LEFT：8px;WIDTH:168px;COLOR：＃ff0066;FONT—STYLE：italic;FONT—FAMILY：楷体_GB2312;POSITION:absolute;TOP：8px;HEIGHT:24px;FONT—VARIANT：normal"ms_positioning="FlowLayout">OA公文管理系统</DIV>〈asp：LinkButtonid="LBtnHome"style="Z-INDEX:102;LEFT：256px;POSITION:absolute;TOP：8px”runat=”server"Width=”48px"OnClick=”LBtnHome_Click")首页〈/asp:LinkButton〉<asp：LinkButtonid="LBtnSend"style="Z-INDEX：103；LEFT:544px；POSITION:absolute;TOP：8px”runat="server"Width=”72px"OnClick="LBtnSend_Click"〉发文处理</asp:LinkButton><asp:LinkButtonid=”LBtnReceive"style="Z-INDEX:104;LEFT:616px;POSITION：absolute;TOP:8px"runat=”server"Width=”72px”OnClick=”LBtnReceive_Click”>收文处理</asp:LinkButton)〈asp:LinkButtonid="LBtnMgr”style="Z—INDEX:105；LEFT：688px；POSITION:absolute；TOP:8px"runat=”server"Width=”88px"OnClick=”LBtnMgr_Click”>系统维护〈/asp：LinkButton>〈asp：LinkButtonid="LBtnSBrowse"style="Z-INDEX：106;LEFT:320px；POSITION：absolute；TOP:8px"Width=”72px”runat=”server”OnClick=”LBtnSBrowse_Click”>发文浏览〈/asp:LinkButton〉<asp：LinkButtonid=”LBtnRBrowse”style=”Z—INDEX:107；LEFT:392px;POSITION:absolute；TOP:8px”Width=”72px”runat="server”OnClick="LBtnRBrowse_Click"〉收文浏览〈/asp：LinkButton)〈asp:LinkButtonid=”LBtnQUery”style=”Z-INDEX:108;LEFT：472px;POSITION：absolute;TOP：8px”runat="server”Width=”72px”OnClick="LBtnQuerye_Click”>文件查询〈/asp:LinkButton>〈/DIV>(2)数据库操作文件-由于多个功能模块都要执行数据库操作，因此将数据库操作功能设计为一个共享文件Db。inc，其内容如下：〈％@ImportNamespace=”System.Data”%〉〈％@ImportNamespace="System0Data。OleDb"%>〈ScriptLanguate="VB”Runat=”Server”>'创建数据集对象，strSQL为SQL语句，FileName为数据库文件名TableName为数据表名称FunctionCreateDataSet(strSQLAsString，FileNameAsString,TableNameAsString)AsDataSetDimconnAsNewOleDbConnection()DimcmdAsNewOleDbCommand()conn.ConnectionString="Provider=Microsoft.Jet.OLEDB。4。0;DataSource="＆Server.MapPath(FileName)conn。Open()cmd.Connection=conncmd.CommandText=strSQLDimobjAdptAsNewOleDbDataAdapter（cmd）DimDSAsNewDataSet（）objAdpt.Fill（DS，TableName）CreateDataSet=DSconn.Close（）EndFunction〈/Script〉（3）首页首页提供用户登录界面。当用户成功登录后，用Session变量记录其用户信息，包括用户名、使用权限等。文件名为Webmain。aspx.其中，以下声明为引用用户空间oamenu:<％@RegisterTagPrefix="uc1”TagName="oamenu”Src=”oamenu。ascx”％>首页中还包含一个标识为“iframeMain的框架，它的src属性为Login。aspx，即在该框架中加载Login.aspx用户登录页面。文件Webmain.aspx<%@RegisterTagPrefix=”uc1"TagName="oamenu”Src=”oamenu.ascx”％〉〈Html>〈Head〉vTitle〉公文管理系统</Title>（Style）A：link{COLOR：#0066cc；TEXT-DECORATION：none}A:hover{COLOR:#cc0000；TEXT—DECORATION：none}A:visited{COLOR：#3333cc；TEXT-DECORATION：none}〈/Style〉〈/Head〉vBodybackground="img\Dlhbback.gif"MS_POSITIONING="GridLayout"〉vFormid=”Form1”method=”post"runat=”server"><Iframeid="iframeMain”title="登录区”style=”Z-INDEX：104;LEFT：72px;WIDTH:624px;POSITION：absolute;TOP:64px；HEIGHT:338px”name=”iframeMain"align=”middle”src="Login.aspx”frameBorder=”no”scrolling="auto”runat=”server”></Iframe><uc1：oamenuid="Oamenu1”runat=”server”〉〈/uc1:oamenu〉</Form〉〈/Body>〈/Html〉Login。aspx内容：〈！-—#includeFile="Db.inc"--><ScriptLanguage=”VB”Runat="Server”〉SubIBtnLogin_Click(ByValsenderAsSystem。Object,ByValeAsSystem。Web。UI。ImageClickEventArgs)DimconnAsNewSystem.Data.OleDb.OleDbConnectionDimcmdAsNewSystem。Data・OleDb・OleDbCommandconn。ConnectionString="Provider=Microsoft.Jet.OLEDB。4.0；DataSource="&Server。MapPath(”oadata。MDB")cmd・Connection=conncmd。CommandText=”select*fromuserpasswhereuserid='”&Trim(TxtID・Text)＆”'andpassword='"&Trim(TxtPass・Text)&”conn。Open()DimreaderAsOleDb。OleDbDataReader=cmd・ExecuteReaderIfreader・Read()ThenSession("userid")=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")=NothingSession("userkey")=NothingSession("partid")=NothingEndIfconn.Close()EndSub〈/Script〉〈Html>〈Head>〈Title>Login〈/Title〉</Head〉<BodyMS_POSITIONING="GridLayout”background="img\Dlhbbackogif”><Formid="Form1”method="post"runat="server”><Divstyle="DISPLAY:inline;Z—INDEX：101；LEFT：176px;WIDTH:64px;POSITION：absolute；TOP:96px；HEIGHT:24px”ms_positioning="FlowLayout"〉用户名</Div〉〈Asp：TextBoxid="TxtID”style=”Z-INDEX：102；LEFT：248px;POSITION:absolute；TOP：96px"runat="server"Width=”104px">〈/asp:TextBox〉〈Divstyle="DISPLAY:inline;Z-INDEX:103;LEFT：176px;WIDTH：64px；POSITION：absolute；TOP：144px；HEIGHT:24px"ms_positioning=”FlowLayout”〉密 ；码</Div〉〈asp：TextBoxid=”TxtPass"style="Z-INDEX:104；LEFT:248px；POSITION：absolute；TOP：144px"runat="server"Width="104px”TextMode=”Password”></asp：TextBox〉<asp：ImageButtonid="IBtnLogin”style=”Z—INDEX：105；LEFT:240px；POSITION：absolute；TOP:184px”runat=”server"Width=”64px”Height=”24px”ImageUrl=”img\an.gif"OnClick="IBtnLogin_Click”〉</asp：ImageButton>〈Imgstyle="Z-INDEX:107；LEFT:64px;WIDTH：424px；POSITION:absolute；TOP：216px；HEIGHT:32px”height="32”alt=""src=”img\flw_hogif"width=”424”><Imgstyle="Z—INDEX:108；LEFT：400px；WIDTH：48px;POSITION：absolute；TOP:128px；HEIGHT:48px”height="48”alt=”"src=”img\Funfaceogif”width="48">〈/Form〉〈/Body〉</Html>用户登陆成功后，在框架iframemain中加载LoginSuccess。aspx页面。这是一个简单的网页，仅显示一行文字和一幅图像，此时用户就可使用其权限操作的功能了。发文浏览首先分页列出发文的编号和发文日期，其中编号为超链接按钮，当用户单击某个发文编号后，将显示该发文的详情，此时用户可通过单击“阅文”按钮查看该发文的全文.在文本框中可输入反馈意见，单击“提交”按钮将用户信息及反馈意见等写入readlog表。DgSummary：DataGrid控件,显示文档摘要信息(编号和日期).Dlwd：DataList控件，显示文档详细内容。文件Rbrowse。aspx(略去界面部分)：<%@RegisterTagPrefix="uc1”TagName="oamenu”Src=”oamenu.ascx"％〉<！——＃includeFile=”Db.inc”--〉<%@PageLanguage=”VB”Debug="true”%><ScriptLanguage="VB"Runat=”Server”〉DimDSAsNewDataSet()Subdgbind(ByValSortFieldAsString)'创建数据集,并与DgSummary绑定DimSqlAsString="SelectId,zh,SendDate，DocfileFromwddataWherelx='发文'”DS=CreateDS(Sql,"oadata.mdb”,"wddata”)DS.Tables(”wddata”)。DefaultView.Sort=SortFieldDGSummary。DataSource=DS・Tables("wddata”).DefaultViewDGSummaryoDataBind()EndSubSubPage_Load(ByValsenderAsObject,ByValeAsEventArgs)IfNotPage.IsPostBackThendgbind(”zh")EndIfEndSubPublicSubDGSummary_ItemCommand(ByValsenderAsObject，ByValeAsDataGridCommandEventArgs)'用户单击发文编号的处理，在表中查询记录并显示Ife.CommandName="selectid”ThenViewState(”docfile")=e。Item.Cells(3).TextViewState("id”)=e。Item。Cells(1).TextBtRead.Enabled=TrueBtOk.Enabled=TrueDimSqlAsString=”Selecta。Title,b。Partname，a。Username，a。zh,a。SendDate,a.ExpireDateFromwddataa,wdpartbWherea.partid=b。partidanda.ID="&ViewState(”id")DS=CreateDS(Sql，"oadata.mdb",”wdone")Dlwd。DataSource=DS。Tables(”wdone”).DefaultViewDlwd.DataBind()EndIfEndSubSubDGSummary_PageIndexChanged(ByValsenderAsObject，ByValeAsDataGridPageChangedEventArgs)'Dat