摘要
论文叙述了一个公司内部办公信息管理系统的概况。重点介绍了企业内部办公信息管理系统的实现过程：包括系统分析、 系统调查、 数据流程分析、功能设计、 数据库设计、 系统实现、 系统测试和调试。本系统主要功能有用户管理、学生成绩查询、学生成绩管理(查找、录入、修改)等数据操作……包括功能需求描述、数据库设计等内容。第二部分介绍了本系统的分析、设计，第三部分介绍了本系统的具体实现，第四部分关于本系统开发过程中的结论及体会。
关键词
公司内部办公信息管理系统 、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功能模块图
第二章 系统实现
下面给出系统开发出来的详细界面以阐述公司内部管理系统的具体功能。
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用户登录界面及编码设计
本节以对用户进行管理为例，介绍管理员的编码设计。管理员进入“用户管理”中的各种功能。
代码如下：
<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" >按姓名排序
<input type="radio" name="AllOrder" value="Department" >按部门排序
<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.Movenext
loop
%>
</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.Movenext
loop
%>
</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> </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 >以姓名排序进入
<input type="radio" name=SystemOrder value="Department">以部门排序进入 <br>
<input type="radio" name=SystemOrder value="Birthday">以生日排序进入</td>
</tr>
</table>
2.4.1修改员工个人信息
2.4.2添加新用户信息
2.5用户进入公司财务信息管理系统
2.5.1 添加财务记录
如果您在计算机领域有任何疑虑或不确定的地方，请毫不犹豫地与老师交流噢，我们期待着为您提供有针对性的建议和指导。您的问题和讨论对我们来说都非常重要。
561
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
