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

大家好，今天给大家介绍基于asp+access的办公系统设计与实现，文章末尾附有本毕业设计的论文和源码下载地址哦。

文章目录：

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

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

项目难度：中等难度
适用场景：相关题目的毕业设计
配套论文字数：8537个字43页
包含内容：整套源码+完整毕业论文
资源文件目录简图如下：

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

前 言
省略

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

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

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

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

具体流程如图所示：

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

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

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

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

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

1.5功能模块图

1.6数据库设计

1. 公司部门信息数据表(Departments)
2. 公司职位信息数据表(Positions)
3. 公司财务信息数据表(FinancialRecord)
4. 公司财务项目信息数据表(FinancialProject)
5. 公司通知公告牌数据表(SuggestionRecords)
6. 系统用户信息数据表（PSLogins）：
7. 公司内部意见信息数据表(SuggestionRecords)
8. 公司内部意见类型数据表(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")
if err Then
	err.clear
end if
conn.Open connstr
'关闭数据库连接，在每页中调用此函数，将连接放入连接池
sub CloseConn()
	conn.Close()
	Set conn  =  Nothing
end sub
'替换单引号
function RealString(strSrc)
	RealString  =  Replace(Trim(strSrc), "'", "''")
end function
%>

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

本模块的流程图如下：

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

代码如下：

                <% If Time >= #12:00:00 AM# And Time < #12:00:00 PM# Then 
                Response.Write "早上好!" 
                Elseif Time >= #12:00:00 PM# And Time < #18:00:00 AM# Then 
                Response.Write "下午好!" 
                Else
                Response.Write "晚上好!"
                End If 
                %><% response.write Session("Name") %>,欢迎您访问内网!今天是<% response.write Date %> 
                
               

 企业员工信息管理系统


 公司财务信息管理系统


 公司内部交流信息系统

if not IsEmpty(Request.Form("Delete")) then
if not IsEmpty(Request.Form("SelectWho")) then
conn.Execute   "delete  from PSLogins where LoginID = '" & Request.Form("SelectWho") & "' "
TheMessage="记录已被删除"

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

          公司内部信息交流系统 -> 通知公告牌
        

          公司内部信息交流系统 -> 内部意见箱
        
        
今日公司有如下公共通知
        
        通知发送日期
        通知内容
         通知类型
         通知发送者
         有效天数
        
        <%
        Do Until RSPublicMessage.EOF
        %>
        
<% Response.write RSPublicMessage("MessageSendDate") %>
<% Response.write RSPublicMessage("MessageContent") %>
        <% Response.write RSPublicMessage("MessageType") %>
        <% Response.write RSPublicMessage("MessageSender") %>
        <% Response.write RSPublicMessage("MessageValidTime") %>
        
        <%
        RSPublicMessage.MoveNext
        Loop
        %>           
        

2.6.1通知公告牌

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

if not IsEmpty(Request.Form("SendNewMessage")) then 
Response.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") then
conn.Execute   "delete from MessageBoard where MessageID = '" _
& Request.Form("CheckMessage") & "' "
TheMessage ="此条通知已删除"
else 
TheMessage ="您不是系统管理员,也不是此条通知的发送者,无权删除此条通知"
Warning=true
end if          
else
TheMessage= "日程通知看板 "
end if
'用户选择修改某条通知
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")) then
if Session("IsSystemManager") then
conn.Execute "delete from MessageBoard where Date() -MessageSendDate> MessageValidTime"
else
TheMessage="您不是系统管理员,不能进行此项操作"
Warning=true
end if
else
TheMessage = "日程通知看板"
end if
set RSPublicMessage= conn.Execute(" select * from MessageBoard where MessageType = '公共通知' " _
& " and Date() -MessageSendDate<= MessageValidTime") 
set RSDepartmentMessage= conn.Execute(" select * from MessageBoard where MessageType = '" _
& Session("Department") &"' and " & "Date()-MessageSendDate<= MessageValidTime")         
set RSPrivateMessage= conn.Execute(" select * from MessageBoard where MessageType= '" _
& Session("Name") &"' and " & "Date()-MessageSendDate<= MessageValidTime")   
set RSDepartments = conn.Execute("select  DepartmentName from Departments " _
& "order by DepartmentName")
set RSRoles = conn.Execute("select Name from PSLogins order by Name")

2.6.2内部意见箱

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

if not isempty(Request.Form("Review")) then
SqlReview="select * from SuggestionRecords where SenderName='" & Session("Name") _
& "' order by Status"
set RSReviewSuggestion=conn.Execute(SqlReview)
ReviewLabel=true
TheMessage="您所提交的意见目前已经处理的结果如下"
'如果用户提交新意见建议
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 ")
'查出要意见建议发往对象的电子邮件地址
set RSEmails = 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.EOF
set objMail = CreateObject("CDONTS.NewMail")
objMail.Send Session("EmailAddress"),RSEmails("EmailAddress"), _
"New Suggestion Box Message!",EmailMessage
set objmail = nothing	
RSEmails.MoveNext
loop
TheMessage = "您的意见建议已提交成功，您可以填写新意见建议"
else
TheMessage = "请在下面填写您的建议意见"
end if
set RSDepartments = conn.Execute("select * from Departments where DepartmentName <>'All' " _
& "order by DepartmentName")
set RSTypes = conn.Execute("select * from SuggestionTypes order by SuggestionType")

第三章 结 论
省略

致谢
省略

参考文献
张立科. ASP数据库系统开发实例导航 人民邮电出版社 2004
张宏林 孔艳 王哲 编著《Visual Basic 6.0开发数据库》人民邮电出版社 2000。
李大友主编《Visual Basic 程序设计》清华大学出版 2004年7月第1版。

本项目源码及完整论文如下，有需要的朋友可以点击进行下载