公文管理系统Word文件下载.docx

1、文件类型表。（3）wddata：文件信息表。（4）part：部门信息表。（5）readlog：文件签阅意见表。各个表的结构如下：userpass表结构：字 段 名数据类型可否为空说 明Userid文本否用户编号，主键Partid该用户所属部门编号Userkey用户权限Username可用户姓名Password用户密码wdlx表结构：Id数值自动编号（记录号）lx文档类型zh文档字号wddata表结构：自动编号（作为文件编号）用户所属部门编号SendDate日期/时间签发时间ExpireDate过期时间Title文件标题Docfile文件名Other备注文件说明part表结构：部门编号Partn

2、ame部门名称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 SubSub

3、LBtnSend_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） If Session（userid） Nothing And InStr（Session（userkey）, 4 0 ThenSend.aspx发文处理 Else尚未登录，需先到首页登录 End IfEnd Sub Sub LBtnReceive_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） 收文处理5 0 Then Response.Redirect（Rece

4、iver.aspx）Sub LBtnQuery_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） 文件查询3Query.aspxSub LBtnMgr_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） 系统维护 If Session（6Mgr.aspxSub LBtnSBrowse_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） 发文浏览1SBrow

5、se.aspxSub LBtnRBrowse_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） 收文浏览2RBrowse.aspxDIV style=WIDTH: 777px; POSITION: relative; HEIGHT: 32px;BACKGROUND-COLOR: #ccccff ms_positioning=GridLayoutDISPLAY: inline; FONT-SIZE: 16pt; Z-INDEX: 101; LEFT: 8px; 168px; COLOR: #ff0066; FONT

6、-STYLE: italic; FONT-FAMILY:楷体; absolute; TOP: 24px;FONT-VARIANT: normalFlowLayoutOA 公文管理系统asp:LinkButton id=LBtnHome style=Z-INDEX: 102; 256px;POSITION: 8px runat=serverWidth=48px OnClick=LBtnHome_Click首 页LBtnSend 103; 544px;TOP: Width=72pxLBtnSend_Click发文处理LBtnReceive 104; 616px;LBtnReceive_Click收

7、文处理LBtnMgr 105; 688px;88pxLBtnMgr_Click系统维护LBtnSBrowse 106; 320px;OnClick=LBtnSBrowse_Click发文浏览LBtnRBrowse 107; 392px;LBtnRBrowse_Click收文浏览LBtnQUery 108; 472px;LBtnQuerye_Click文件查询System.Data.OleDbScript Languate=创建数据集对象，strSQL为SQL语句，FileName为数据库文件名TableName为数据表名称Function CreateDataSet（strSQL As Str

8、ing, FileName As String, TableName As String） As DataSet Dim conn As New OleDbConnection（） Dim cmd As New OleDbCommand（）conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & Server.MapPath （FileName） conn.Open（） cmd.Connection = conn cmd.CommandText = strSQL Dim objAdpt As New Ole

9、DbDataAdapter（cmd） Dim DS As New DataSet（） objAdpt.Fill（DS, TableName） CreateDataSet = DS conn.Close（）End Function（3）首页 首页提供用户登录界面。当用户成功登录后，用Session变量记录其用户信息，包括用户名、使用权限等。文件名为Webmain.aspx。其中，以下声明为引用用户空间oamenu：% Register TagPrefix=uc1 TagName=oamenu Src=oamenu.ascx首页中还包含一个标识为“iframeMain”的框架，它的src属性为Lo

10、gin.aspx，即在该框架中加载Login.aspx用户登录页面。文件Webmain.aspxHtmlHeadTitle公文管理系统StyleA:link COLOR: #0066cc; TEXT-DECORATION: none A:hover COLOR: #cc0000;visited COLOR: #3333cc;/Style/HeadBody background=imgDlhbback.gif MS_POSITIONING=Form id=Form1 method=postIframe id=iframeMain title=登录区 72px; WIDTH: 624px; 64p

11、x; 338px name= align=middle src=Login.aspx frameBorder=no scrolling=auto/Iframeuc1:oamenu id=Oamenu1/uc1:oamenu/Form/Body/HtmlLogin.aspx内容：!- #include File=Db.inc -Sub IBtnLogin_Click（ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs） Dim conn As New System.Data.OleDb.OleDb

12、Connection Dim cmd As New System.Data.OleDb.OleDbCommand Server.MapPath（oadata.MDB 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（） = Trim（r

13、eader（）username） Session（partidLoginSuccess.aspx） = Nothing） = Nothing LoginBody MS_POSITIONING= background=Div style= 176px; 96px; 24px用户名Asp:TextBox id=TxtID 248px; 96px104pxTextBox 144px;密  码Img style= 424px; 216px; 32px height=32 alt=imgflw_h.gif width=424 400px; 48px; 128px; 48px48imgFunfa

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