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

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

《公文管理系统Word文件下载.docx》由会员分享，可在线阅读，更多相关《公文管理系统Word文件下载.docx（14页珍藏版）》请在冰豆网上搜索。

文件类型表。

（3）wddata：

文件信息表。

（4）part：

部门信息表。

（5）readlog：

文件签阅意见表。

各个表的结构如下：

userpass表结构：

字段名

数据类型

可否为空

说明

Userid

文本

否

用户编号，主键

Partid

该用户所属部门编号

Userkey

用户权限

Username

可

用户姓名

Password

用户密码

•wdlx表结构：

Id

数值

自动编号（记录号）

lx

文档类型

zh

文档字号

•wddata表结构：

自动编号（作为文件编号）

用户所属部门编号

SendDate

日期/时间

签发时间

ExpireDate

过期时间

Title

文件标题

Docfile

文件名

Other

备注

文件说明

•part表结构：

部门编号

Partname

部门名称

•readlog表结构：

Readdate

签阅日期

Memo

签阅意见

Wdid

文件编号

2.3各子系统设计与实现

（1）用户控件的设计与实现

为在各功能模块之间方便地切换，将系统的主要功能设计为一个用户控件。

这样在需要的页面中只要加载该用户控件即可，而不必在每个页面中都进行设计。

该用户控件界面如图所示。

文件名为oamenu.ascx，内容如下：

<

ScriptLanguage="

VB"

Runat="

Server"

>

SubLBtnHome_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）

Response.Redirect（"

Webmain.aspx"

）'

首页

EndSub

SubLBtnSend_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）

IfSession（"

userid"

）<

NothingAndInStr（Session（"

userkey"

）,"

4"

0Then

Send.aspx"

发文处理

Else

尚未登录，需先到首页登录

EndIf

EndSub

SubLBtnReceive_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）'

收文处理

5"

0ThenResponse.Redirect（"

Receiver.aspx"

）

SubLBtnQuery_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）'

文件查询

3"

Query.aspx"

SubLBtnMgr_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）'

系统维护

IfSession（"

6"

Mgr.aspx"

SubLBtnSBrowse_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）'

发文浏览

1"

SBrowse.aspx"

SubLBtnRBrowse_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）'

收文浏览

2"

RBrowse.aspx"

<

/Script>

DIVstyle="

WIDTH:

777px;

POSITION:

relative;

HEIGHT:

32px;

BACKGROUND-COLOR:

#ccccff"

ms_positioning="

GridLayout"

DISPLAY:

inline;

FONT-SIZE:

16pt;

Z-INDEX:

101;

LEFT:

8px;

168px;

COLOR:

#ff0066;

FONT-STYLE:

italic;

FONT-FAMILY:

楷体;

absolute;

TOP:

24px;

FONT-VARIANT:

normal"

FlowLayout"

OA公文管理系统<

/DIV>

asp:

LinkButtonid="

LBtnHome"

style="

Z-INDEX:

102;

256px;

POSITION:

8px"

runat="

server"

Width="

48px"

OnClick="

LBtnHome_Click"

首页<

/asp:

LinkButton>

LBtnSend"

103;

544px;

TOP:

Width="

72px"

LBtnSend_Click"

发文处理<

LBtnReceive"

104;

616px;

LBtnReceive_Click"

收文处理<

LBtnMgr"

105;

688px;

88px"

LBtnMgr_Click"

系统维护<

LBtnSBrowse"

106;

320px;

OnClick="

LBtnSBrowse_Click"

发文浏览<

LBtnRBrowse"

107;

392px;

LBtnRBrowse_Click"

收文浏览<

LBtnQUery"

108;

472px;

LBtnQuerye_Click"

文件查询<

（2）数据库操作文件

–由于多个功能模块都要执行数据库操作，因此将数据库操作功能设计为一个共享文件Db.inc，其内容如下：

%@ImportNamespace="

System.Data"

%>

System.Data.OleDb"

ScriptLanguate="

'

创建数据集对象，strSQL为SQL语句，FileName为数据库文件名

‘TableName为数据表名称

FunctionCreateDataSet（strSQLAsString,FileNameAsString,TableNameAsString）AsDataSet

DimconnAsNewOleDbConnection（）

DimcmdAsNewOleDbCommand（）

conn.ConnectionString="

Provider=Microsoft.Jet.OLEDB.4.0;

DataSource="

&

Server.MapPath（FileName）

conn.Open（）

cmd.Connection=conn

cmd.CommandText=strSQL

DimobjAdptAsNewOleDbDataAdapter（cmd）

DimDSAsNewDataSet（）

objAdpt.Fill（DS,TableName）

CreateDataSet=DS

conn.Close（）

EndFunction

（3）首页

首页提供用户登录界面。

当用户成功登录后，用Session变量记录其用户信息，包括用户名、使用权限等。

文件名为Webmain.aspx。

其中，以下声明为引用用户空间oamenu：

%@RegisterTagPrefix="

uc1"

TagName="

oamenu"

Src="

oamenu.ascx"

首页中还包含一个标识为“iframeMain”的框架，它的src属性为Login.aspx，即在该框架中加载Login.aspx用户登录页面。

文件Webmain.aspx

Html>

Head>

Title>

公文管理系统<

/Title>

Style>

A:

link{COLOR:

#0066cc;

TEXT-DECORATION:

none}

A:

hover{COLOR:

#cc0000;

visited{COLOR:

#3333cc;

/Style>

/Head>

Bodybackground="

img\Dlhbback.gif"

MS_POSITIONING="

Formid="

Form1"

method="

post"

Iframeid="

iframeMain"

title="

登录区"

72px;

WIDTH:

624px;

64px;

338px"

name="

align="

middle"

src="

Login.aspx"

frameBorder="

no"

scrolling="

auto"

/Iframe>

uc1:

oamenuid="

Oamenu1"

/uc1:

oamenu>

/Form>

/Body>

/Html>

Login.aspx内容：

!

--#includeFile="

Db.inc"

-->

SubIBtnLogin_Click（ByValsenderAsSystem.Object,ByValeAsSystem.Web.UI.ImageClickEventArgs）

DimconnAsNewSystem.Data.OleDb.OleDbConnection

DimcmdAsNewSystem.Data.OleDb.OleDbCommand

Server.MapPath（"

oadata.MDB"

cmd.CommandText="

select*fromuserpasswhereuserid='

"

Trim（TxtID.Text）&

"

andpassword='

Trim（TxtPass.Text）&

conn.Open（）

DimreaderAsOleDb.OleDbDataReader=cmd.ExecuteReader

Ifreader.Read（）Then

Session（"

）=Trim（reader（"

））

username"

））

Session（"

partid"

LoginSuccess.aspx"

）=Nothing

）=Nothing

Login<

BodyMS_POSITIONING="

background="

Divstyle="

176px;

96px;

24px"

用户名<

/Div>

Asp:

TextBoxid="

TxtID"

248px;

96px"

104px"

TextBox>

144px;

密&

nbsp;

码<

TxtPass"

144px"

TextMode="

Password"

ImageButtonid="

IBtnLogin"

240px;

184px"

64px"

Height="

24px"

ImageUrl="

img\an.gif"

OnClick="

IBtnLogin_Click"

ImageButton>

Imgstyle="

424px;

216px;

32px"

height="

32"

alt="

img\flw_h.gif"

width="

424"

400px;

48px;

128px;

48px"

48"

img\Funface.gif"

用户登陆成功后，在框架iframemain中加载LoginSuccess.aspx页面。

这是一个简单的网页，仅显示一行文字和一幅图像，此时用户就可使用其权限操作的功能了。

（4）发文浏览

首先分页列出发文的编号和发文日期，其中编号为超链接按钮，当用户单击某个发文编号后，将显示该发文的详情，此时用户可通过单击“阅文”按钮查看该发文的全文。

在文本框中可输入反馈意见，单击“提交”按钮将用户信息及反馈意见等写入readlog表。

1）DgSummary：

DataGrid控件，显示文档摘要信息（编号和日期）。

2）Dlwd：

DataList控件，显示文档详细内容。

文件Rbrowse.aspx（略去界面部分）：

oamenu.a