ASP办公系统(论文+程序)
包括目录名称:
ASP办公系统(论文+程序) - 26 文件数, 3 目录数.
包括目录名称:
ASP075办公系统+论文 - 0 文件数, 1 目录数.
包括目录名称:
asp办公系统 - 0 文件数, 0 目录数.
包括目录名称:
Database - 1 文件数, 0 目录数.
..\office.mdb
包括目录名称:
image - 16 文件数, 0 目录数.
..\ASPLogo3.jpg
..\back.jpg
..\banner2.jpg
..\banner3.jpg
..\Employee.jpg
..\Employee.psd
..\AddFinancialProject.asp
..\AddFinancialRecord.asp
..\AddNewUser.asp
..\Alert.asp
..\Analysis.asp
..\change.asp
毕 业 设 计 论 文
-盐化四厂内部办公系
姓 名: 王少军 __
指导教师: 叶老师
班 级: 04计网
设计日期:2007年5月
目录
目录 2
摘要 3
前 言 3
第一章 系统分析、设计 4
1.1系统需求分析 4
1.2 用户需求 4
1.3系统功能需求简介 5
公司内部办公管理系统对公司加强内部信息管理有着极其重要的作用。由于各个公司每年都在发展,公司的日益庞大,传统的手工信息管理不仅工作量大,而且容易出现问题。 5
1.4功能需求描述 5
1.5功能模块图 5
1.6数据库设计 6
1.7E-R图 9
第二章 系统实现 11
2.1数据库连接 11
2.2登陆界面设计 12
2.3用户登录界面及编码设计 14
2.4进入员工信息管理系统 15
17
2.4.1修改员工个人信息 17
2.4.2添加新用户信息 21
2.4.3删除用户信息: 24
2.5用户进入公司财务信息管理系统 25
2.5.1 添加财务记录 26
2.5.2修改财务记录 28
2.5.3删除财务记录 29
2.5.4生成财务报表 29
2.6用户进入公司内部信息交流系统 33
2.6.1通知公告牌 34
2.6.2内部意见箱 36
第三章 结 论 38
3.1.体会到了系统分析的重要性 38
3.2.理论≠实践 38
3.3.掌握了系统开发的流程 38
3.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 用户需求
系统根据用户身份不同,使用的系统资源也不同。
* 系统管理员:可以对系统中的一切进行查看、添加及修改。
* 财务管理员:除了对自己的相关信息可以查看和修改外,还可以对财务进行查看、添加及修改。
* 普通员工:只能查看和自己相关的信息,修改自己的信息。
具体流程如图所示:
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图
系统用户信息实体图:
图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登陆界面设计
首先是进入登陆界面,本窗体显示用户名称,密码校验等信息,本系统的用户分为三类:系统管理员,财务管理员,普通员工。使用者可以输入相应的用户名和密码,单击"确定"就会将输入提交给系统以验证用户、密码及身份。如果用户名及密码正确,则会进入系统的主体。
本模块的流程图如下:
代码如下:
'校验用户提交的用户信息
else
TheUsername=Request.Form("Username")
ThePassword=Request.Form("Password")
If Instr(TheUsername, "'")=0 and Instr(ThePassword, "'")=0 and Instr(TheUsername, "'")=0 _
and Instr(ThePassword, "'")=0 then
set RSLogin = conn.Execute("select * from PSLogins where " & "LoginID = '" _
& TheUsername & "' and " & "Password = '" & ThePassword & "'")
if RSLogin.EOF then
Session("NumAttempts") = Session("NumAttempts") + 1
if Application("NumAttempts") = 0 then
TheMessage = "登录不成功,请重试:"
elseif Session("NumAttempts") > Application("NumAttempts") then
TheMessage = "登录不成功,登录次数已满,无法重试"
else
TheTimes=Application("NumAttempts")-Session("NumAttempts")+1
TheMessage = "登录不成功,还有" & TheTimes & "次机会,请重试:"
end if
else
Session("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 if
else
TheMessage="用户名或者密码输入不合格式"
end if
end if
<% response.write TheMessage %>
<%
if TheMessage <> "登录不成功,登录次数已满,无法重试" then
%>
-
相关文章
-
最新文件