办公系统论文1毕业设计论文.doc

办公系统目录目录2摘要3前 言3第一章 系统分析、设计41.1系统需求分析41.2 用户需求41.3系统功能需求简介5公司内部办公管理系统对公司加强内部信息管理有着极其重要的作用。由于各个公司每年都在发展，公司的日益庞大，传统的手工信息管理不仅工作量大，而且容易出现问题。51.4功能需求描述51.5功能模块图51.6数据库设计61.7E-R图9第二章 系统实现112.1数据库连接112.2登陆界面设计122.3用户登录界面及编码设计142.4进入员工信息管理系统15</table>172.4.1修改员工个人信息172.4.2添加新用户信息212.4.3删除用户信息:242.5用户进入公司财务信息管理系统252.5.1 添加财务记录262.5.2修改财务记录282.5.3删除财务记录292.5.4生成财务报表292.6用户进入公司内部信息交流系统332.6.1通知公告牌342.6.2内部意见箱36第三章 结 论383.1体会到了系统分析的重要性383.2理论实践383.3掌握了系统开发的流程383.4巩固了知识38致谢39参考文献39摘要论文叙述了一个公司内部办公信息管理系统的概况。重点介绍了企业内部办公信息管理系统的实现过程：包括系统分析、 系统调查、 数据流程分析、功能设计、 数据库设计、  系统实现、 系统测试和调试。本系统主要功能有用户管理、学生成绩查询、学生成绩管理(查找、录入、修改)等数据操作包括功能需求描述、数据库设计等内容。第二部分介绍了本系统的分析、设计，第三部分介绍了本系统的具体实现，第四部分关于本系统开发过程中的结论及体会。关键词公司内部办公信息管理系统 、ASP 前 言ASP（Active Server Pages）是Microsoft提出的一种网络服务器端编程环境。ASP已经成为开发动态网站的重要而快速、有效的工具。ASP强大的功能使之成为一种优秀的服务器技术。随着网络技术的日益成熟，ASP技术在网络编程中也变得越来越重要。所以，在我们的毕业设计中，我们采用了ASP作为开发工具，构建了一个能实现简单综合素质管理系统，用来负责系统的用户模块的实现。通过这次的毕业设计，我了解了目前管理系统的构成和运作原理，掌握了用ASP的相关知识和技术原理，锻炼了自己的动手实践能力。更重要的是，通过这次的毕业设计，我培养出了刻苦钻研的学习精神和严肃认真的学习态度，这对我以后的学习和工作有很大的益处。本系统首先对整个公司内部员工进行管理存储，同时限制他们的权限，使每个人能够有效查看相关信息，并修改自己的信息，只有具有一定权限的员工才能对相关信息进行查看和修改。其次，对公司所有财务按公司规定进行统一管理，登记，如果有需要，可以将财务生成报表，使看着更加一目了然。最后，设置公司内部交流系统，包括内部通知公告牌和内部意见箱，使公司可以即时向公司员工发送相关通知，还可以使公司员工能够自主向公司提出宝贵意见。是一套比较全面的公司内部办公管理系统。由于一个公司的综合管理是一项复杂的、多样的工作,本系统没有也不可能把所有问题都考虑进去。另外本系统的不足之处，由于公司逐年发展，公司部门可能会相应增加等内部会需要更复杂的系统管理，Access数据库逐渐显现出其不足，可用Sql Server数据库。在管理员模块中，管理员无法对数据库进行备份。通过本系统的使用,将能使一个公司的内部管理更加完善，快速。系统特点1.简单明了，易于操作：此系统一目了然，界面友好，容易上手，操作简单。2.公司员工信息管理： 根据员工所在部门及职位大小对其做了相应权限。2.成绩报表可以根据不同部门，不同项目，不同经手人，不同日期及个人打印出各自所需要的财务报表。第一章 系统分析、设计1.1系统需求分析系统需要经过有效的身份验证才可以登录。将登录本系统的身份分为三种：系统管理员、财务管理员、普通员工，只有被授权的用户才可以使用本系统资源，并根据员工身份对其设置相关的使用权限。系统提供接收添加员工信息。系统提供对公司财务进行查询和统计。系统提供公司发布通知及员工对公司提出意见。1.2 用户需求系统根据用户身份不同，使用的系统资源也不同。l 系统管理员：可以对系统中的一切进行查看、添加及修改。l 财务管理员：除了对自己的相关信息可以查看和修改外，还可以对财务进行查看、添加及修改。l 普通员工：只能查看和自己相关的信息，修改自己的信息。具体流程如图所示：登录系统导航员工管理财务管理信息交流管理员工身份判断员工身份判断系统管理员普通员工用户信息管理修改个人信息查询员工信息财务信息管理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 公司部门信息数据表(Departments)字段名称数据类型说明备注DepartmentID自动编号部门ID主关键字DepartmentName文本部门名称Remard备注备注表2 公司职位信息数据(Positions)字段名称数据类型说明备注ID自动编号主关键字PositionName文本职位名称PositionID数字职位ID表3 公司财务信息数据表(FinancialRecord)字段名称数据类型说明备注ID自动编号主关键字Name文本记录经手人Department文本部门ProjectName文本所属财务项目FundTypeA货币款项A的数额FundTypeB货币款项B的数额FundTypeC货币款项C的数额FundTypeD货币款项D的数额Sun货币各款项求和Summary文本摘要Remark文本备注AccountName文本会计经手人AddDate日期/时间记录添加日期ModifyDate日期/时间记录修改日期表4公司财务项目信息数据表(FinancialProject)字段名称数据类型说明备注FinancialProjectID自动编号主关键字FinancialProjectName文本财务项目名称AddDate日期/时间项目添加日期FinancialManager文本项目主管表5公司通知公告牌数据表(SuggestionRecords)字段名称数据类型说明备注MessageID自动编号主关键字MessageContent文本通知内容MessageType文本通知类型MessageSender文本通知发送者MessageSendDate日期/时间通知发送日期MessageSendTime日期/时间通知发送时间MessageValidTime数字通知有效天数表6系统用户信息数据表（PSLogins）：字段名称数据类型说明备注ID自动编号主关键字LoginID文本系统用户的登录名Name文本系统用户的姓名Password文本用户密码EmailAddress文本用户电子邮件地址Department文本用户所在部门Position文本用户的职位InternalPhone文本用户的内部分机号码HomePhone文本用户的家庭电话MobilePhone文本用户的手机号QQ文本用户的QQ号HomeAddress文本用户的家庭住址IsSystemManager是/否用户是否是系统管理员Birthday日期/时间用户的生日IsFinancialManager是/否用户是否是财务管理员Sex文本用户性别Education文本用户教育程度Remark备注备注表7 公司内部意见信息数据表(SuggestionRecords)字段名称数据类型说明备注SuggestionID自动编号主关键字SenderName文本意见发送者Todepartment文本意见发往部门SuggestionType文本意见类型SuggestionText备注意见内容Status文本意见处理状态Comments文本意见处理评论WhenSent日期/时间意见发送日期表8 公司内部意见类型数据表(SuggestionTypes)字段名称数据类型说明备注ID自动编号主关键字SuggestionType文本意见建议的类型1.7E-R图 系统用户信息实体图：员工信息编号姓名部门手机号登录名密码电子邮件地址职位内部分机家庭电话QQ 家庭住址是否是系统管理员生日是否是财务管理员性别教育程序图1-1系统用户信息实体图公司部门信息实体图：部门信息部门名称编号备注图1-2 公司部门信息实体图公司职位信息实体图：员工职位信息身份编号职位名称职位ID图1-3公司职位信息实体图公司财务信息实体图：备注摘要各款项求和财务项目会计经手人财务信息款项D数额记录添加时间款项C数额记录修改时间款项B数额编号款项A数额部门记录经手人 图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 Thenerr.clearend ifconn.Open connstr'关闭数据库连接，在每页中调用此函数，将连接放入连接池sub CloseConn()conn.Close()Set conn = Nothingend sub'替换单引号function RealString(strSrc)RealString = Replace(Trim(strSrc), "'", "''")end function%>2.2登陆界面设计首先是进入登陆界面，本窗体显示用户名称，密码校验等信息，本系统的用户分为三类：系统管理员，财务管理员，普通员工。使用者可以输入相应的用户名和密码，单击“确定”就会将输入提交给系统以验证用户、密码及身份。如果用户名及密码正确，则会进入系统的主体。本模块的流程图如下：输入用户名，密码正确？Y进入N代码如下：'校验用户提交的用户信息elseTheUsername=Request.Form("Username")ThePassword=Request.Form("Password")If Instr(TheUsername, "'")=0 and Instr(ThePassword, "'")=0 and Instr(TheUsername, "'")=0 _ and Instr(ThePassword, "'")=0 thenset RSLogin = conn.Execute("select * from PSLogins where " & "LoginID = '" _ & TheUsername & "' and " & "Password = '" & ThePassword & "'")if RSLogin.EOF thenSession("NumAttempts") = Session("NumAttempts") + 1if Application("NumAttempts") = 0 thenTheMessage = "登录不成功，请重试:"elseif Session("NumAttempts") > Application("NumAttempts") thenTheMessage = "登录不成功，登录次数已满，无法重试"elseTheTimes=Application("NumAttempts")-Session("NumAttempts")+1TheMessage = "登录不成功，还有" & TheTimes & "次机会，请重试:"end ifelseSession("ID") = RSLogin("LoginID")Application("ID") = RSLogin("LoginID")Session("Name") = RSLogin("Name")Session("Password") = RSLogin("Password")Session("Department") = RSLogin("Department")Session("EmailAddress")=RSLogin("EmailAddress")Session("Position")=RSLogin("Position")Session("InternalPhone")=RSLogin("InternalPhone")Session("HomePhone")=RSLogin("HomePhone")Session("MobilePhone")=RSLogin("MobilePhone")Session("QQ")=RSLogin("QQ")Session("Birthday")=RSLogin("Birthday")Session("HomeAddress")=RSLogin("HomeAddress")Session("IsSystemManager")=RSLogin("IsSystemManager")Session("IsFinancialManager")=RSLogin("IsFinancialManager")Response.Redirect "home.asp"end ifelseTheMessage="用户名或者密码输入不合格式"end ifend if <% response.write TheMessage %><div align="center"> <% if TheMessage <> "登录不成功，登录次数已满，无法重试" then %><form name="form" method="post" action="index.asp"><p><font color="#3466BB">用户</font> <input class=itm name=UserName size=15></p><p><font color="#3466BB">密码</font> <input class=itm name=Password size=15 type=password><br><br><input type="submit" name="Login" value="登录" style="border: 1px solid #B6CAEB; background-color: #3466BB; color: #FFFFFF"><input type="reset" name="Reset" value="重设" style="border: 1px solid #B6CAEB; background-color: #3466BB; color: #FFFFFF">2.3用户登录界面及编码设计 本节以对用户进行管理为例，介绍管理员的编码设计。管理员进入“用户管理”中的各种功能。代码如下：<font color="#104DAD"> <% 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 %> </font></p></td></tr> <tr bgcolor=white height=50><td align=center> <a href="EmployeeInformation.asp"><font color="#104DAD">企业员工信息管理系统</font></a></td></tr><tr bgcolor=white height=50><td align=center> <a href="finance.asp"><font color="#104DAD">公司财务信息管理系统</font></a></td></tr><tr bgcolor=white height=50><td align=center><a href="Communication.asp"> <font color="#104DAD" >公司内部交流信息系统</FONT></td>2.4进入员工信息管理系统代码如下：<table cellpadding=1 cellspacing=1 border=1 align=center width=100%><tr><td width=35><input type="radio" checked name="SendTo" value="AllEmployeeInformation" ><font color="#164DA8">查询所有员工信息</font></td><td><input type="radio" checked name="AllOrder" value="Name" >按姓名排序&nbsp<input type="radio" name="AllOrder" value="Department" >按部门排序&nbsp<input type="radio" name="AllOrder" value="Birthday" >按生日排序</td></tr><tr><td width=30> <input type="radio" name="SendTo" value="DepartmentEmployeeInformation" ><font color="#164DA8">查询某个部门员工信息</font></td><td><select name="DepartmentName" ><%Do Until RSDepartments.EOF%><option value="<% Response.Write RSDepartments("DepartmentName") %>"><% Response.Write RSDepartments("DepartmentName") %></option><%RSDepartments.Movenextloop%></select></td></tr><tr><td> <input type="radio" name="SendTo" value="OneEmployeeInformation" ><font color="#164DA8">查询某个员工信息</font></td><td><table width=100% border=1><tr><td><input type="radio" Checked name="CheckName" value="FromList" ><font color="#164DA8">从列表中选择</font></td><td><select name="RoleName" ><%Do Until RSRoles.EOF%><option value="<% Response.Write RSRoles("Name") %>"><% Response.Write RSRoles("Name") %></option><%RSRoles.Movenextloop%></select></td></tr><tr><td><input type="radio" name="CheckName" value="Type" ><font color="#164DA8">从输入的名字查询</font> </td><td><input type="text" Checked name="TypeName" value="" > </td></tr></table></td></tr> <tr><td width=30%><input type="radio" name="SendTo" value="ModifyPersonalInformation" ><font color="#164DA8">修改关于我的信息</font></td><td>&nbsp;</td></tr><tr><td width=30%><input type="radio" name="SendTo" value="SystemManager" ><font color="#164DA8">系统管理员选项</font></td><td><input type="radio" name=SystemOrder value="Name" checked >以姓名排序进入&nbsp <input type="radio" name=SystemOrder value="Department">以部门排序进入&nbsp<br><input type="radio" name=SystemOrder value="Birthday">以生日排序进入</td></tr></table>2.4.1修改员工个人信息代码如下：'更新用户个人信息 conn.Execute " update PSLogins set " _ & "EmailAddress='" & Request.Form("EmailAddress") & "', " _ & "InternalPhone='" & Request.Form("InternalPhone") & "', " _ & "HomePhone='" & Request.Form("HomePhone") & "', " _ & "MobilePhone='" & Request.Form("MobilePhone") & "', " _ & "QQ='" & Request.Form("QQ") & "', " _ & "HomeAddress='" & Request.Form("HomeAddress") & "', " _ & "Birthday='" & Request.Form("BirthdayYear") & "-" _ & Request.Form("BirthdayMonth") & "-" _ & Request.Form("BirthdayDay") & "' " _ & " Where Name='" & Request.Form("Name") &"'" TheMessage = "您的个人信息已经修改成功"else'如果用户输入了新密码if Request.Form("NewPassword") = Request.Form("ConfirmNewPassword") thenSession("Name") = Request.Form("Name")Session("Password") = Request.Form("NewPassword")Session("EmailAddress")=Request.Form("EmailAddress")Session("InternalPhone")=Request.Form("InternalPhone")Session("HomePhone")=Request.Form("HomePhone")Session("MobilePhone")=Request.Form("MobilePhone")Session("HomeAddress")=Request.Form("HomeAddress")Session("Birthday")=Request.Form("BirthdayYear") & "-" & Request.Form("BirthdayMonth") & "-" & Request.Form("BirthdayDay")Session("QQ")=Request.Form("QQ")Session("HomeAddress")=Request.Form("HomeAddress") conn.Execute " update PSLogins set " _ & "EmailAddress='" & Request.Form("EmailAddress") & "', " _ & "InternalPhone='" & Request.Form("InternalPhone") & "', " _ & "HomePhone='" & Request.Form("HomePhone") & "', " _ & "MobilePhone='" & Request.Form("MobilePhone") & "', " _ & "QQ='" & Request.Form("QQ") & "', " _ & "HomeAddress='" & Request.Form("HomeAddress") & "', " _ & "Birthday='" & Request.Form("BirthdayYear") & "-" _ & Request.Form("BirthdayMonth") & "-" _ & Request.Form("BirthdayDay") & "' " _ & " Where Name='" & Request.Form("Name") &"'" TheMessage = "您的个人信息已经修改成功"else TheMessage = "新密码输入不一致，请重试" end if end ifelseTheMessage = "您输入的密码有误，请重试"end ifelse TheMessage = "请在下面修改您的个人信息" end if用户信息修改表格：<table CELLPADDING=0 CELLSPACING=1 BORDER=0 align=center width=100%><tr bgcolor="#66CCFF"><td width=25%><font color="#164DA8">姓名</font></td><td><INPUT TYPE="text" NAME="Name" VALUE="<% response.write Session("Name") %>" SIZE=51 MAXLENGTH=50 ></td></tr><tr bgcolor="#66CCFF"><td width=25%><font color="#164DA8">电子邮件地址</font></td><td><INPUT TYPE="text" NAME="EmailAddress" VALUE="<% response.write Session("EmailAddress") %>" SIZE=51 MAXLENGTH=50 ></td></tr><tr bgcolor="#66CCFF"><td width=25