公文管理系统呕心沥血整理版Word文件下载.docx
- 文档编号:17439971
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:15
- 大小:662.16KB
公文管理系统呕心沥血整理版Word文件下载.docx
《公文管理系统呕心沥血整理版Word文件下载.docx》由会员分享,可在线阅读,更多相关《公文管理系统呕心沥血整理版Word文件下载.docx(15页珍藏版)》请在冰豆网上搜索。
各个表的结构如下:
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
Response。
Redirect(”Send。
aspx”)’发文处理
Else
Webmain.aspx"
)'
尚未登录,需先到首页登录
EndIf
EndSub
SubLBtnReceive_Click(ByValsenderAsSystem。
Object,ByValeAsSystem.EventArgs)’收文处理
IfSession(”userid”)<
〉NothingAndInStr(Session(”userkey"
),"
5"
)<
>
0ThenResponse。
Redirect(”Receiver。
)
Redirect(”Webmain。
aspx”)'
SubLBtnQuery_Click(ByValsenderAsSystem.Object,ByValeAsSystem。
EventArgs)’文件查询
IfSession(”userid”)〈〉NothingAndInStr(Session(”userkey"
),"
3”)〈〉0ThenResponse.Redirect(”Query.aspx”)
Redirect(”Webmain.aspx"
SubLBtnMgr_Click(ByValsenderAsSystem。
EventArgs)’系统维护
IfSession("
userid”)<
NothingAndInStr(Session(”userkey"
),”6"
0ThenResponse.Redirect(”Mgr。
aspx”)
Response.Redirect(”Webmain。
SubLBtnSBrowse_Click(ByValsenderAsSystem。
Object,ByValeAsSystem。
EventArgs)'
发文浏览
IfSession(”userid”)〈>
NothingAndInStr(Session("
userkey"
),”1"
)〈>
0ThenResponse.Redirect(”SBrowse。
)’尚未登录,需先到首页登录
SubLBtnRBrowse_Click(ByValsenderAsSystem.Object,ByValeAsSystem。
EventArgs)’收文浏览
IfSession(”userid"
)〈〉NothingAndInStr(Session(”userkey"
),”2"
)〈〉0ThenResponse。
Redirect(”RBrowse。
Redirect(”Webmain.aspx”)’尚未登录,需先到首页登录
<
/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:
楷体;
absolute;
TOP:
HEIGHT:
24px;
FONT—VARIANT:
normal”ms_positioning=”FlowLayout”〉OA公文管理系统〈/DIV>
〈asp:
LinkButtonid=”LBtnHome"
style=”Z—INDEX:
102;
256px;
POSITION:
8px”runat=”server"
Width=”48px”OnClick=”LBtnHome_Click"
〉首页〈/asp:
LinkButton>
asp:
LinkButtonid="
LBtnSend"
style=”Z-INDEX:
103;
LEFT:
544px;
POSITION:
TOP:
8px”runat="
server”Width="
72px”OnClick=”LBtnSend_Click"
〉
发文处理<
/asp:
LinkButton〉
LinkButtonid=”LBtnReceive"
104;
616px;
POSITION:
TOP:
8px"
runat=”server”
Width=”72px”OnClick=”LBtnReceive_Click”〉收文处理〈/asp:
LinkButtonid=”LBtnMgr"
105;
688px;
runat="
88px”OnClick=”LBtnMgr_Click”〉
系统维护〈/asp:
〈asp:
LBtnSBrowse”style=”Z—INDEX:
106;
320px;
absolute;
8px”Width=”72px”runat=”server”
OnClick="
LBtnSBrowse_Click"
〉发文浏览〈/asp:
LinkButtonid=”LBtnRBrowse”style=”Z—INDEX:
107;
392px;
8px”Width="
72px"
OnClick=”LBtnRBrowse_Click"
〉收文浏览〈/asp:
LinkButtonid=”LBtnQUery”style=”Z—INDEX:
108;
472px;
8px”runat=”server”Width="
LBtnQuerye_Click"
文件查询<
LinkButton〉〈/DIV〉
(2)数据库操作文件
–由于多个功能模块都要执行数据库操作,因此将数据库操作功能设计为一个共享文件Db.inc,其内容如下:
%@ImportNamespace=”System。
Data"
%〉
〈%@ImportNamespace="
System.Data.OleDb”%〉
〈ScriptLanguate="
VB”Runat=”Server”>
’创建数据集对象,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
CommandText=strSQL
DimobjAdptAsNewOleDbDataAdapter(cmd)
DimDSAsNewDataSet()
objAdpt。
Fill(DS,TableName)
CreateDataSet=DS
conn.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"
oamenu”Src=”oamenu。
〈Html>
〈Head〉〈Title>
公文管理系统〈/Title〉
〈Style>
A:
link{COLOR:
#0066cc;
TEXT—DECORATION:
none}
A:
hover{COLOR:
#cc0000;
TEXT-DECORATION:
visited{COLOR:
#3333cc;
TEXT-DECORATION:
/Style〉〈/Head>
Bodybackground=”img\Dlhbback.gif”MS_POSITIONING=”GridLayout"
〈Formid=”Form1"
method=”post”runat="
server”〉
Iframeid=”iframeMain"
title=”登录区”style=”Z—INDEX:
72px;
WIDTH:
624px;
64px;
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。
OleDbConnection
DimcmdAsNewSystem。
Data。
OleDb.OleDbCommand
conn.ConnectionString=”Provider=Microsoft。
Jet。
OLEDB.4。
0;
MapPath(”oadata.MDB”)
CommandText=”select*fromuserpasswhereuserid=’"
&
Trim(TxtID。
Text)&”’andpassword=’"
&Trim(TxtPass.Text)&”’"
conn.Open()
DimreaderAsOleDb。
OleDbDataReader=cmd。
ExecuteReader
Ifreader.Read()Then
Session("
userid”)=Trim(reader("
userid”))
Session(”username”)=Trim(reader("
username"
))
Session(”userkey”)=Trim(reader(”userkey”))
Session(”partid”)=Trim(reader(”partid”))
Response.Redirect(”LoginSuccess.aspx”)
Session(”userid”)=Nothing
Session(”username”)=Nothing
userkey”)=Nothing
Session(”partid"
)=Nothing
〈/Script>
Login〈/Title〉<
/Head〉
BodyMS_POSITIONING=”GridLayout”background=”img\Dlhbback。
gif”>
method="
post”runat="
server"
Divstyle="
DISPLAY:
inline;
Z—INDEX:
176px;
WIDTH:
64px;
96px;
24px”ms_positioning="
FlowLayout”〉用户名〈/Div〉
〈Asp:
TextBoxid=”TxtID"
style="
Z—INDEX:
102;
248px;
96px”runat=”server”Width="
104px"
〉<
/asp:
TextBox〉
Z-INDEX:
144px;
24px”ms_positioning=”FlowLayout”〉密&
nbsp;
码<
/Div〉
asp:
TextBoxid="
TxtPass”style="
Z—INDEX:
104;
248px;
144px”runat="
104px”TextMode=”Password”〉<
ImageButtonid=”IBtnLogin”style="
Z-INDEX:
105;
240px;
184px"
runat=”server”Width=”64px"
Height=”24px”ImageUrl=”img\an.gif"
OnClick="
IBtnLogin_Click”〉〈/asp:
ImageButton〉
〈Imgstyle="
Z-INDEX:
424px;
216px;
32px”height="
32"
alt=”"
src=”img\flw_h。
gif”width=”424”>
〈Imgstyle=”Z—INDEX:
400px;
48px;
128px;
48px”height="
48”alt=”"
src=”img\Funface.gif”width=”48”〉〈/Form〉〈/Body〉〈/Html>
用户登陆成功后,在框架iframemain中加载LoginSuccess.aspx页面。
这是一个简单的网页,仅显示一行文字和一幅图像,此时用户就可使用其权限操作的功能了。
(4)发文浏览
首先分页列出发文的编号和发文日期,其中编号为超链接按钮,当用户单击某个发文编号后,将显示该发文的详情,此时用户可通过单击“阅文”按钮查看该发文的全文.在文本框中可输入反馈意见,单击“提交”按钮将用户信息及反馈意见等写入readlog表.
1)DgSummary:
DataGrid控件,显示文档摘要信息(编号和日期)。
2)Dlwd:
DataList控件,显示文档详细内容。
文件Rbrowse.aspx(略去界面部分):
%@RegisterTagPrefix=”uc1”TagName=”oamenu”Src=”o
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 公文 管理 系统 呕心沥血 整理