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

基于aspaccess的办公系统设计与实现毕业论文程序源码大家好今天给大家介绍基于aspaccess的办公系统设计与实现更多精选毕业设计项目实例见文末哦。文章目录基于aspaccess的办公系统设计与实现毕业论文程序源码1、项目简介2、资源详情3、关键词4、资源下载5、毕设简介6、精选500套毕业设计软件源码和配套论文下载1、项目简介论文叙述了一个公司内部办公信息管理系统的概况。重点介绍了企业内部办公信息管理系统的实现过程包括系统分析、 系统调查、 数据流程分析、功能设计、 数据库设计、 系统实现、 系统测试和调试。本系统主要功能有用户管理、学生成绩查询、学生成绩管理(查找、录入、修改)等数据操作……包括功能需求描述、数据库设计等内容。第二部分介绍了本系统的分析、设计第三部分介绍了本系统的具体实现第四部分关于本系统开发过程中的结论及体会。2、资源详情项目难度中等难度适用场景相关题目的毕业设计配套论文字数8537个字43页包含内容整套源码完整毕业论文很多同学询问怎么下载开题报告、论文答辩、课题报告等ppt模板给大家找了个好用的下载工具可以试试3、关键词公司内部办公信息管理系统 、ASP4、资源下载本项目全套源码及配套论文如下有需要的朋友可以点击进行下载。如果链接失效可点击文章最下方的卡片扫码自助下载。序号毕业设计全套资源点击下载本项目源码基于aspaccess的办公系统设计与实现源码文档_asp_BS架构_办公系统.zip5、毕设简介提示以下为毕业论文的简略介绍项目源码及完整毕业论文下载地址见文末。前 言省略本系统首先对整个公司内部员工进行管理存储同时限制他们的权限使每个人能够有效查看相关信息并修改自己的信息只有具有一定权限的员工才能对相关信息进行查看和修改。其次对公司所有财务按公司规定进行统一管理登记如果有需要可以将财务生成报表使看着更加一目了然。最后设置公司内部交流系统包括内部通知公告牌和内部意见箱使公司可以即时向公司员工发送相关通知还可以使公司员工能够自主向公司提出宝贵意见。是一套比较全面的公司内部办公管理系统。由于一个公司的综合管理是一项复杂的、多样的工作,本系统没有也不可能把所有问题都考虑进去。另外本系统的不足之处①由于公司逐年发展公司部门可能会相应增加等…内部会需要更复杂的系统管理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数据库 connstrProvider Microsoft.Jet.OLEDB.4.0;Data Source Server.MapPath(db)Set connServer.CreateObject(ADODB.Connection)iferr Then err.clear endifconn.Open connstr关闭数据库连接在每页中调用此函数将连接放入连接池 sub CloseConn() conn.Close() Set conn Nothing end sub 替换单引号functionRealString(strSrc)RealStringReplace(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/trtrbgcolorwhiteheight50tdaligncenterahrefEmployeeInformation.aspfontcolor#104DAD企业员工信息管理系统/font/a/td/trtrbgcolorwhiteheight50tdaligncenterahreffinance.aspfontcolor#104DAD公司财务信息管理系统/font/a/td/trtrbgcolorwhiteheight50tdaligncenterahrefCommunication.aspfontcolor#104DAD公司内部交流信息系统/FONT/td2.4进入员工信息管理系统2.4.1修改员工个人信息2.4.2添加新用户信息2.4.3删除用户信息:ifnot IsEmpty(Request.Form(Delete))thenifnot IsEmpty(Request.Form(SelectWho))thenconn.Executedelete 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您不是财务部主管无权删除此财务项目Warningtrue endif2.5.4生成财务报表2.6用户进入公司内部信息交流系统代码如下trheight30tdfontcolor#104DAD公司内部信息交流系统/font-nbspahrefMessageBoard.aspfontcolor#104DAD通知公告牌/a/td/trtrheight30tdfontcolor#104DAD公司内部信息交流系统/font-nbspahrefSuggestionBox.aspfontcolor#104DAD内部意见箱/a/td/trtrtdcolspan3height1fontcolorwhitePALIGNleft今日公司有如下公共通知/FONT/font/td/trtrbgcolorwhitetdwidth15%alignleft通知发送日期/tdtdwidth50%alignleft通知内容/tdtdwidth10%alignleft通知类型/FONT/tdtdalignleft通知发送者/FONT/tdtdalignleft有效天数/FONT/td/tr% Do Until RSPublicMessage.EOF %TRbgcolorwhiteVALIGNtopALIGNleftTDfontfacearial% Response.write RSPublicMessage(MessageSendDate)%/font/TDTDfontfacearial% Response.write RSPublicMessage(MessageContent)%/font/TDTDHEIGHT21fontfacearial% Response.write RSPublicMessage(MessageType)%/font/TDTDHEIGHT21fontfacearial% Response.write RSPublicMessage(MessageSender)%/font/TDTDHEIGHT21fontfacearial% Response.write RSPublicMessage(MessageValidTime)%/font/TD/TR% RSPublicMessage.MoveNext Loop %/tabletablewidth800border0bordercolor#164DA8aligncentercellpadding0cellspacing0trtdheight13imgsrc.././image/banner2.jpgwidth800height12/td/tr/table2.6.1通知公告牌代码如下用户选择发送新通知ifnot IsEmpty(Request.Form(SendNewMessage))thenResponse.RedirectSendNewMessage.asp用户选择删除某条通知 elseif not IsEmpty(Request.Form(DeleteThisMessage)) then if not IsEmpty(Request.Form(CheckMessage)) then set RSThisMessageconn.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.Executedelete from MessageBoard where MessageID _Request.Form(CheckMessage) TheMessage此条通知已删除elseTheMessage您不是系统管理员,也不是此条通知的发送者,无权删除此条通知Warningtrue endifelseTheMessage日程通知看板 endif用户选择修改某条通知 elseif not IsEmpty(Request.Form(ModifyThisMessage)) then if not IsEmpty(Request.Form(CheckMessage)) then set RSThisMessageconn.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 您不是此条通知的发送者,无权修改此条通知 Warningtrue end if else TheMessage 日程通知看板 end if 系统管理员清除过期通知 elseif not IsEmpty(Request.Form(ClearMessage))thenifSession(IsSystemManager)thenconn.Executedelete from MessageBoard where Date() -MessageSendDate MessageValidTimeelseTheMessage您不是系统管理员,不能进行此项操作Warningtrue endifelseTheMessage日程通知看板endifsetRSPublicMessageconn.Execute( select * from MessageBoard where MessageType 公共通知 _ and Date() -MessageSendDate MessageValidTime)setRSDepartmentMessageconn.Execute( select * from MessageBoard where MessageType _Session(Department) and Date()-MessageSendDate MessageValidTime)setRSPrivateMessageconn.Execute( select * from MessageBoard where MessageType _Session(Name) and Date()-MessageSendDate MessageValidTime)setRSDepartmentsconn.Execute(select DepartmentName from Departments _order by DepartmentName)setRSRolesconn.Execute(select Name from PSLogins order by Name)2.6.2内部意见箱代码如下如果用户要查看自己提出的意见的处理结果ifnot isempty(Request.Form(Review))thenSqlReviewselect * from SuggestionRecords where SenderNameSession(Name)_ order by StatussetRSReviewSuggestionconn.Execute(SqlReview)ReviewLabeltrueTheMessage您所提交的意见目前已经处理的结果如下如果用户提交新意见建议 elseif not isempty(Request.Form(OK)) then CurrentTime Now() 将新意见建议插入数据库SqlStringInsert 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 ) 查出要意见建议发往对象的电子邮件地址setRSEmailsconn.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.EOFsetobjMailCreateObject(CDONTS.NewMail)objMail.Send Session(EmailAddress),RSEmails(EmailAddress), _New Suggestion Box Message!,EmailMessagesetobjmailnothing RSEmails.MoveNext loop TheMessage您的意见建议已提交成功您可以填写新意见建议elseTheMessage请在下面填写您的建议意见endifsetRSDepartmentsconn.Execute(select * from Departments where DepartmentName All _order by DepartmentName)setRSTypesconn.Execute(select * from SuggestionTypes order by SuggestionType)第三章 结 论省略致谢省略参考文献张立科. ASP数据库系统开发实例导航 人民邮电出版社 2004张宏林 孔艳 王哲 编著《Visual Basic 6.0开发数据库》人民邮电出版社 2000。李大友主编《Visual Basic 程序设计》清华大学出版 2004年7月第1版。6、精选500套毕业设计软件源码和配套论文下载500套毕业设计软件源码和配套论文下载