当前位置：首页 > news >正文

asp毕业设计下载（全套源码+配套论文）——基于asp+access的办公系统设计与实现

news 2026/8/19 23:44:27

基于asp+access的办公系统设计与实现（毕业论文+程序源码）

大家好，今天给大家介绍基于asp+access的办公系统设计与实现，更多精选毕业设计项目实例见文末哦。

文章目录：

基于asp+access的办公系统设计与实现（毕业论文+程序源码）
- 1、项目简介
- 2、资源详情
- 3、关键词：
- 4、资源下载
- 5、毕设简介
- 6、精选500套毕业设计软件源码和配套论文下载

1、项目简介

论文叙述了一个公司内部办公信息管理系统的概况。重点介绍了企业内部办公信息管理系统的实现过程：包括系统分析、系统调查、数据流程分析、功能设计、数据库设计、系统实现、系统测试和调试。本系统主要功能有用户管理、学生成绩查询、学生成绩管理(查找、录入、修改)等数据操作……包括功能需求描述、数据库设计等内容。第二部分介绍了本系统的分析、设计，第三部分介绍了本系统的具体实现，第四部分关于本系统开发过程中的结论及体会。

2、资源详情

项目难度：中等难度
适用场景：相关题目的毕业设计
配套论文字数：8537个字43页
包含内容：整套源码+完整毕业论文
很多同学询问怎么下载开题报告、论文答辩、课题报告等ppt模板，给大家找了个好用的下载工具，可以试试：

3、关键词：

公司内部办公信息管理系统、ASP

4、资源下载

本项目全套源码及配套论文如下，有需要的朋友可以点击进行下载。如果链接失效可点击文章最下方的卡片扫码自助下载。

序号	毕业设计全套资源（点击下载）
本项目源码	基于asp+access的办公系统设计与实现（源码+文档）_asp_BS架构_办公系统.zip

5、毕设简介

提示：以下为毕业论文的简略介绍，项目源码及完整毕业论文下载地址见文末。

前言
省略

本系统首先对整个公司内部员工进行管理存储，同时限制他们的权限，使每个人能够有效查看相关信息，并修改自己的信息，只有具有一定权限的员工才能对相关信息进行查看和修改。其次，对公司所有财务按公司规定进行统一管理，登记，如果有需要，可以将财务生成报表，使看着更加一目了然。最后，设置公司内部交流系统，包括内部通知公告牌和内部意见箱，使公司可以即时向公司员工发送相关通知，还可以使公司员工能够自主向公司提出宝贵意见。是一套比较全面的公司内部办公管理系统。由于一个公司的综合管理是一项复杂的、多样的工作,本系统没有也不可能把所有问题都考虑进去。另外本系统的不足之处，①由于公司逐年发展，公司部门可能会相应增加等…内部会需要更复杂的系统管理，Access数据库逐渐显现出其不足，可用Sql Server数据库。③在管理员模块中，管理员无法对数据库进行备份。通过本系统的使用,将能使一个公司的内部管理更加完善，快速。

系统特点
1.简单明了，易于操作：
此系统一目了然，界面友好，容易上手，操作简单。
2.公司员工信息管理：
根据员工所在部门及职位大小对其做了相应权限。
2.成绩报表
可以根据不同部门，不同项目，不同经手人，不同日期及个人打印出各自所需要的财务报表。

第一章系统分析、设计
1.1系统需求分析
系统需要经过有效的身份验证才可以登录。
将登录本系统的身份分为三种：系统管理员、财务管理员、普通员工，只有被授权的用户才可以使用本系统资源，并根据员工身份对其设置相关的使用权限。
系统提供接收添加员工信息。
系统提供对公司财务进行查询和统计。
系统提供公司发布通知及员工对公司提出意见。

1.2 用户需求
系统根据用户身份不同，使用的系统资源也不同。
 系统管理员：可以对系统中的一切进行查看、添加及修改。
 财务管理员：除了对自己的相关信息可以查看和修改外，还可以对财务进行查看、添加及修改。
 普通员工：只能查看和自己相关的信息，修改自己的信息。

具体流程如图所示：

1.3系统功能需求简介
公司内部办公管理系统对公司加强内部信息管理有着极其重要的作用。由于各个公司每年都在发展，公司的日益庞大，传统的手工信息管理不仅工作量大，而且容易出现问题。

1.4功能需求描述
用户分为系统管理员、财务管理员、普通员工三类。不论是系统管理员或财务管理员，还是普通员工都需要通过用户名和口令进行登录……

财务管理员可以看到财务信息进行添加和修改。财务信息包括项目名称、款项的数额、经手人、添加日期、修改日期。当公司员工查找某一财务情况时，可以自动显示出该财务的所有情况。在财务信息管理中，财务管理员可以对财务进行增加、修改和删除。并能够打印各部门、各项目、个人财务报表和综合财务报表……

普通员工登录后，他们只能看到自己的个人信息及修改自己的信息，还可以查看公司内部通知和向公司提出自己的意见。个人信息包括登录名、姓名、登录密码、电子邮件、部门、职位、内部分机号码、家庭电话、手机号、QQ号、家庭住址、是否是系统管理员、生日、是否是财务管理员、性别及教育程度。

管理员登录后，管理员可以看到系统中包含的所有信息，并对其进行修改和添加。

1.5功能模块图

1.6数据库设计

公司部门信息数据表(Departments)
公司职位信息数据表(Positions)
公司财务信息数据表(FinancialRecord)
公司财务项目信息数据表(FinancialProject)
公司通知公告牌数据表(SuggestionRecords)
系统用户信息数据表（PSLogins）：
公司内部意见信息数据表(SuggestionRecords)
公司内部意见类型数据表(SuggestionTypes)

1.7E-R图
系统用户信息实体图：

图1-1系统用户信息实体图
公司部门信息实体图：

图1-2 公司部门信息实体图
公司职位信息实体图：

图1-3公司职位信息实体图

公司财务信息实体图：

图1-4 公司财务信息实体图
公司财务项目信息实体图：

图1-5 公司财务项目信息实体图
公司通知公告牌实体图：

图1-6 公司通知公告牌实体图
公司内部意见信息实体图：

图1-7 公司内部意见信息实体图
公司内部意见类型实体图：

图1-8公司内部意见类型实体图

第二章系统实现
下面给出系统开发出来的详细界面以阐述公司内部管理系统的具体功能。

2.1数据库连接
代码如下：

<% dim conn'数据库连接 dim connstr '连接字符串 dim db'数据库文件路径 db = "Database/office.mdb" '演示时用ACCESS数据库 connstr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(db)Set conn=Server.CreateObject("ADODB.Connection")iferr Then err.clear endifconn.Open connstr'关闭数据库连接，在每页中调用此函数，将连接放入连接池 sub CloseConn() conn.Close() Set conn = Nothing end sub '替换单引号functionRealString(strSrc)RealString=Replace(Trim(strSrc),"'","''")endfunction%>

2.2登陆界面设计
首先是进入登陆界面，本窗体显示用户名称，密码校验等信息，本系统的用户分为三类：系统管理员，财务管理员，普通员工。使用者可以输入相应的用户名和密码，单击“确定”就会将输入提交给系统以验证用户、密码及身份。如果用户名及密码正确，则会进入系统的主体。

本模块的流程图如下：

2.3用户登录界面及编码设计
本节以对用户进行管理为例，介绍管理员的编码设计。管理员进入“用户管理”中的各种功能。

代码如下：

<fontcolor="#104DAD"><% If Time>=#12:00:00 AM# And Time < #12:00:00 PM# ThenResponse.Write"早上好!"Elseif Time>=#12:00:00 PM# And Time < #18:00:00 AM# ThenResponse.Write"下午好!"Else Response.Write"晚上好!"End If %><% response.write Session("Name")%>,欢迎您访问内网!今天是<% response.write Date %></font></p></td></tr><trbgcolor=whiteheight=50><tdalign=center><ahref="EmployeeInformation.asp"><fontcolor="#104DAD">企业员工信息管理系统</font></a></td></tr><trbgcolor=whiteheight=50><tdalign=center><ahref="finance.asp"><fontcolor="#104DAD">公司财务信息管理系统</font></a></td></tr><trbgcolor=whiteheight=50><tdalign=center><ahref="Communication.asp"><fontcolor="#104DAD">公司内部交流信息系统</FONT></td>

2.4进入员工信息管理系统

2.4.1修改员工个人信息

2.4.2添加新用户信息

2.4.3删除用户信息:

ifnot IsEmpty(Request.Form("Delete"))thenifnot IsEmpty(Request.Form("SelectWho"))thenconn.Execute"delete from PSLogins where LoginID = '"&Request.Form("SelectWho")&"' "TheMessage="记录已被删除"

2.5用户进入公司财务信息管理系统

2.5.2修改财务记录

2.5.3删除财务记录

elseif not IsEmpty(Request.Form("DeleteProject"))then'判断用户是否是财务部门主管ifSession("Department")="财务部"and Session("Position")="主管"thenconn.execute("delete from FinancialProject where FinancialProjectID="_&Request.Form("RadioFinancialProject"))TheMessage="您已经删除了此财务项目"elseTheMessage="您不是财务部主管，无权删除此财务项目"Warning=true endif

2.5.4生成财务报表

2.6用户进入公司内部信息交流系统

代码如下：

<trheight=30><td><fontcolor="#104DAD">公司内部信息交流系统</font>->&nbsp<ahref="MessageBoard.asp"><fontcolor="#104DAD">通知公告牌</a></td></tr><trheight=30><td><fontcolor="#104DAD">公司内部信息交流系统</font>->&nbsp<ahref="SuggestionBox.asp"><fontcolor="#104DAD">内部意见箱</a></td></tr><tr><tdcolspan=3height=1><fontcolor=white><PALIGN="left">今日公司有如下公共通知</FONT></font></td></tr><trbgcolor=white><tdwidth=15%align=left>通知发送日期</td><tdwidth=50%align=left>通知内容</td><tdwidth=10%align=left>通知类型</FONT></td><tdalign=left>通知发送者</FONT></td><tdalign=left>有效天数</FONT></td></tr><% Do Until RSPublicMessage.EOF %><TRbgcolor=whiteVALIGN="top"ALIGN="left"><TD><fontface=arial><% Response.write RSPublicMessage("MessageSendDate")%></font></TD><TD><fontface=arial><% Response.write RSPublicMessage("MessageContent")%></font></TD><TDHEIGHT=21><fontface=arial><% Response.write RSPublicMessage("MessageType")%></font></TD><TDHEIGHT=21><fontface=arial><% Response.write RSPublicMessage("MessageSender")%></font></TD><TDHEIGHT=21><fontface=arial><% Response.write RSPublicMessage("MessageValidTime")%></font></TD></TR><% RSPublicMessage.MoveNext Loop %></table><tablewidth="800"border="0"bordercolor="#164DA8"align="center"cellpadding="0"cellspacing="0"><tr><tdheight="13"><imgsrc=".././image/banner2.jpg"width="800"height="12"></td></tr></table>

2.6.1通知公告牌

代码如下：
'用户选择发送新通知

ifnot IsEmpty(Request.Form("SendNewMessage"))thenResponse.Redirect"SendNewMessage.asp"'用户选择删除某条通知 elseif not IsEmpty(Request.Form("DeleteThisMessage")) then if not IsEmpty(Request.Form("CheckMessage")) then set RSThisMessage=conn.Execute("select * from MessageBoard where MessageID=" _ & Request.Form("CheckMessage")) if Session("IsSystemManager") then conn.Execute "delete from MessageBoard where MessageID = " & Request.Form("CheckMessage") TheMessage ="此条通知已删除" elseif RSThisMessage("MessageSender") = Session("Name") then conn.Execute "delete from MessageBoard where MessageID = '" _&Request.Form("CheckMessage")&"' "TheMessage="此条通知已删除"elseif RSThisMessage("MessageType")=Session("Name")thenconn.Execute"delete from MessageBoard where MessageID = '"_&Request.Form("CheckMessage")&"' "TheMessage="此条通知已删除"elseTheMessage="您不是系统管理员,也不是此条通知的发送者,无权删除此条通知"Warning=true endifelseTheMessage="日程通知看板 "endif'用户选择修改某条通知 elseif not IsEmpty(Request.Form("ModifyThisMessage")) then if not IsEmpty(Request.Form("CheckMessage")) then set RSThisMessage=conn.Execute("select * from MessageBoard where MessageID=" _ & Request.Form("CheckMessage")) if RSThisMessage("MessageSender")=Session("Name") then Session("MessageID")=RSThisMessage("MessageID") Response.Redirect "ModifyMessage.asp" else TheMessage ="您不是此条通知的发送者,无权修改此条通知" Warning=true end if else TheMessage= "日程通知看板 " end if '系统管理员清除过期通知 elseif not IsEmpty(Request.Form("ClearMessage"))thenifSession("IsSystemManager")thenconn.Execute"delete from MessageBoard where Date() -MessageSendDate> MessageValidTime"elseTheMessage="您不是系统管理员,不能进行此项操作"Warning=true endifelseTheMessage="日程通知看板"endifsetRSPublicMessage=conn.Execute(" select * from MessageBoard where MessageType = '公共通知' "_&" and Date() -MessageSendDate<= MessageValidTime")setRSDepartmentMessage=conn.Execute(" select * from MessageBoard where MessageType = '"_&Session("Department")&"' and "&"Date()-MessageSendDate<= MessageValidTime")setRSPrivateMessage=conn.Execute(" select * from MessageBoard where MessageType= '"_&Session("Name")&"' and "&"Date()-MessageSendDate<= MessageValidTime")setRSDepartments=conn.Execute("select DepartmentName from Departments "_&"order by DepartmentName")setRSRoles=conn.Execute("select Name from PSLogins order by Name")

2.6.2内部意见箱

代码如下：
'如果用户要查看自己提出的意见的处理结果

ifnot isempty(Request.Form("Review"))thenSqlReview="select * from SuggestionRecords where SenderName='"&Session("Name")_&"' order by Status"setRSReviewSuggestion=conn.Execute(SqlReview)ReviewLabel=trueTheMessage="您所提交的意见目前已经处理的结果如下"'如果用户提交新意见建议 elseif not isempty(Request.Form("OK")) then CurrentTime = Now() '将新意见建议插入数据库SqlString="Insert into SuggestionRecords (SenderName, ToDepartment, "_&"SuggestionType, SuggestionText, WhenSent, Status) values ("_&"'"&Session("Name")&"', "_&"'"&Request.Form("ToDepartment")&"', "_&"'"&Request.Form("SuggestionType")&"', "_&"'"&Request.Form("SuggestionText")&"', "_&"'"&CurrentTime&"', "_&"'未处理')"conn.Execute(SqlString)'查出刚提交的意见建议的内容 set RSSuggestionID = conn.Execute("select SuggestionID from SuggestionRecords ") '查出要意见建议发往对象的电子邮件地址setRSEmails=conn.Execute("Select EmailAddress from PSLogins where Department='"_&Request.Form("ToDepartment")&"'")'构造电子邮件的内容 EmailMessage = "意见建议来自: " & Session("Name") & chr(13) EmailMessage = EmailMessage & "意见类型: " & Request.Form("SuggestionType") & chr(13) EmailMessage = EmailMessage & "意见内容: " & Request.Form("SuggestionText") & chr(13) EmailMessage = EmailMessage & "想要处理这条意见建议，请点击下面的链接: " & chr(13) EmailMessage = EmailMessage & "http://166.111.56.212/" EmailMessage = EmailMessage & "MessageBoard/Analysis.asp?SuggestionID=" _ & RSSuggestionID("SuggestionID") '向所有对象发送电子邮件 Do Until RSEmails.EOFsetobjMail=CreateObject("CDONTS.NewMail")objMail.Send Session("EmailAddress"),RSEmails("EmailAddress"), _"New Suggestion Box Message!",EmailMessagesetobjmail=nothing RSEmails.MoveNext loop TheMessage="您的意见建议已提交成功，您可以填写新意见建议"elseTheMessage="请在下面填写您的建议意见"endifsetRSDepartments=conn.Execute("select * from Departments where DepartmentName <>'All' "_&"order by DepartmentName")setRSTypes=conn.Execute("select * from SuggestionTypes order by SuggestionType")