基于asp+access的教师信息管理系统设计与实现(毕业论文+程序源码)
大家好,今天给大家介绍基于asp+access的教师信息管理系统设计与实现,文章末尾附有本毕业设计的论文和源码下载地址哦。需要下载开题报告PPT模板及论文答辩PPT模板等的小伙伴,可以进入我的博客主页查看左侧最下面栏目中的自助下载方法哦
文章目录:
1、项目简介
- 计算机的应用已遍及国民经济的各个领域,计算机来到我们的工作和生活中,改变着我们和周围的一切。在以前,学校用手工处理教师档案以及工资发放等繁多的工作和数据时,人手总会出现些不必要的错误和问题,特别是在查找,统计和保存方面。与此相适应,用计算机代替手工管理,是信息社会发展的必然趋势,也是我们计算机工作者的责任。教师信息管理系统开发主要包括数据库的建立和维护以及应用程序的开发两个方面。要求建立起数据一致性和完整性强。数据安全性好的库,要求应用程序功能完备,易使用等特点。
2、资源详情
项目难度:中等难度
适用场景:相关题目的毕业设计
配套论文字数:5790个字24页
包含内容:全套源码+配整论文
开题报告、论文答辩、课题报告等ppt模板推荐下载方式:
3、关键词
ASP,ACCESS,IIS4、毕设简介
提示:以下为毕业论文的简略介绍,项目完整源码及完整毕业论文下载地址见文末。
第一章 引 言
随着计算机技术的飞速发展和高等教育体制改革的不断深入,计算机技术已进入网络时代,传统的教师信息管理方法,手段及工作效率已不能适应新的发展需要,无法很好的完成管理工作,提高教师信息管理水平的主要途径是更新管理者的思想,增强对管理活动的科学认识,同时运用先进的信息技术,开发高校教师信息管理的需求,是深化管理体制改革的有力措施。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分,使用计算机对工资信息进行管理,具有着手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率,也是教育的科学化、正规化管理,与世界接轨的重要条件。
现在我国的中小学校信息的管理水平还停留在人工的基础上,这样的机制已经不能适应时代的发展,因为它浪费了许多人力和物力,在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。
因此,为了适应现代教育管理的要求,进一步完善教师信息辅助计算机管理,我作为一个计算机应用的专科生,开发这样一套管理软件成为很有必要的事情,在下面的各章中我将以开发一套教师信息管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。
教师信息管理系统是一个教育单位不可缺少的部分,它的内容对于决策者和管理者来说都比较重要,所以教师信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案,这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
建立教师信息管理,采用计算机网络对教师信息进行管理,进一步提高办学效益和现代化水平。帮助广大教师提高工作效率,实现教师信息管理工作流程的系统化、网络化、规范化和自动化。
本系统全称为教师信息管理系统。开发教师信息管理系统可使学院管理人员减轻工作压力,比较系统地对教师信息进行管理,同时,可以减少劳动力的使用,加快查询速度、加强管理。因此开发一套基于计算机网络的管理系统是很有必要的。 开发环境,主要利用ASP+ACCESS及IIS环境进行开发
开发工具,主要利用Dreamweaver8.0 及Access2003进行开发
本论文主要从系统分析、系统设计、系统实施与使用等几个方面进行介绍。
ASP(Active Sever Pages动态网页)是微软公司推出的一种用以取代CGI(Common Gateway Interface)技术。目前,Internet上的许多基于Windows平台的Web站点已开始应用ASP来替换CGI。
ASP是在服务器端脚本编译环境,使用它可以创建和运行动态、交互的Web服务器应用程序。ASP可以与HTML页、脚本命令和 ActiveX组件组合创建交互的Web页和基于Web的功能强大的应用程序。ASP应用程序很容易开发和修改。ASP是一个位于服务器端的脚本运行环境。通过这种环境,用户可以创建和运行动态的交互式Web服务器应用程序,如交互 式动态网页,包括使用HTML 表单收集和处理信息、上传与下载等。 通常情况下,用户通过浏览器看到的网页大多是静态的,目前Internet上的许多站点,仍然提供“静态”(static)的主页内容。所谓“静态”,是指站点的主页内容是“固定不变”的。一个“静态”的站点,若要更新主页的内容,必须手动更新其 HTML的文件数据。而随着Web技术的发展,用户希望能够看到根据要求而动态生成的主页,例如响应用户查询数据库的要求而生成报表等。站点服务器收到要求执行的应用程序,分析表单(form)的输入数据,将执行的结果以HTML的格式传送给浏览器。根据用户请求生成动态主页的传统方法有CGI、ISAPI等。CGI是根据浏览器端的http请求激活响应进程,每一个请求对应一个进程。当同时有很多请求时,程序挤占系统资源,造成效率低下。ISAPI针对这一缺点进行了改进,利用dll(动态链接库技术),以线程代替进程,提高了性能和速度,但要考虑线程的同步问题,而且开发步骤烦琐。这两种技术和另一普遍使用的开发动态网页的技术 Java都还存在着另外一个问题,那就是开发困难,程序的开发和HTML写作是两个完全不同的过程,需要专门的程序员开发。ASP使用的 ActiveX技术基于开放设计环境,用户可以自己定义和制作组件加入其中,使自己的动态网页几乎具有无限的扩充能力,这是传统的CGI等程序所远远不及的地方。
Access是一个数据库管理系统,它之所以被集成到Office中而不是Visual Studio中,是因为它与其它的数据库管理系统(如SQL Server 2000)相比更加简单易学,一个普通的计算机用户即可掌握并使用它。而且最重要的一点是,Access的功能足够强大,足以应付一般的数据管理及处理需要。
Access可以实现建立数据库、报表,以及对数据库、报表的修改、查询等功能。
Access 数据库管理系统是Microsoft Office 套件的重要组成部分,是Access的最新版本,可在
Windows环境下运行。Access适用于小型商务活动,用以存贮和管理商务活动所需要的数据。Access 不仅是一个数据库,而且它具有强大的数据管理功能,它可以方便地利用各种数据源,生成窗体(表单), 查询,报表和应用程序等。
什么是Access 数据库,数据库是有结构的数据集合,它与一般的数据文件不同,(其中的数据是无结构的)是一串文字或数字流。 数据库中的数据可以是文字、图象、声音等。
Microsoft Access是一种关系式数据库,关系式数据库由一系列表组成,表又由一系列行和列组成,每一行 是一个记录,每一列是一个字段,每个字段有一个字段名,字段名在一个表中不能重复。图1是一个“产品” 表的例子。“产品”表由10个记录组成,一个记录占一行,每一个记录由产品ID、产品名称、库存量、订货 量、单价和折扣率6个字段组成。“产品ID”是字段名,其下面的1,2等是字段的值。
表与表之间可以建立关系(或称关联,连接),以便查询相关联的信息。Access数据库以文件形式保存 ,文件的扩展名是MDB。
Access 数据库由六种对象组成,它们是表、查询、窗体、报表、宏和模块。
表(Table) ——表是数据库的基本对象,是创建其他5种对象的基础。表由记录组成,记录由字段组成,表用来存贮数据库的数据,故又称数据表。
查询(Query)——查询可以按索引快速查找到需要的记录,按要求筛选记录并能连接若干个表的字段组成新表。
窗体(Form)——窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。
报表(Report)——报表的功能是将数据库中的数据分类汇总,然后打印出来,以便分析。
宏(Macro)——宏相当于DOS中的批处理,用来自动执行一系列操作。Access列出了一些常用的操作供用户选择,使用起来十分方便。
模块(Module)——模块的功能与宏类似,但它定义的操作比宏更精细和复杂,用户可以根据自己的需要编写程序。模块使用Visual Basic编程。 与Access 以前的版本比较,Access 新增了许多功能,字段类型增加了OLE对象和超级链接,特别是与Internet的融合,在数据库中可以直接链接到指定的Web页面或网络文件,也可以把Web页面上的表格导入到数据库。Access 可以方便地利用各种数据源,包括dBASE, FoxBase,FoxPro,Excel,Word 等。Access 增加了数据库访问的安全机制,可对表一级设置访问许可权。Access还可以方便地利用FoxPro数据库、Excel电子表格的数据,还可以和Word混合使用,打印通用信函或信封。
第二章 系统分析
一、网站的需求分析
(一)、功能需求
1、用户登陆注册,可以实现单点登陆到三个不同的后台
2、首页面要有一个查询,这个查询要求通过编号来对教师信息来进行查询。
3、普通用户后台,可以实现对个人资料进行修改,可以对超级管理员进行留言。
4、普通管理员后台,可以实现对个人资料进行修改,可以对超级管理员进行留言。还可以按编号、姓名、班级、课程、专业等方式对教师信息进行分类查询。
5、①超级管理员后台,超级管理员可对注册申请管理员信息进行审核,审核通过后便可任命为正式管理员。可以对所有用户资料进行添加、删除、修改。可以提升普通用户的权限,可以将普通用户修改为管理员或超级管理员。
②超级管理员后台首页,可以对所有教师信息进行分页显视。在每条记录的后边都可以对记录进行录入、修改、删除等操作。
③超级管理员后台的用户管理页面,要实现对所有用户资料信息进行分页显视,且在每条记录的后边都可以对记录进行录入、修改、删除等操作。
④超级管理员后台的留言管理页面,要实现对所有留言信息进行分页显视,且在每条记录的后边都可以对记录删除操作。
⑤可以按学号、姓名、班级、课程、专业等方式对教师信息进行分类查询。将查询结果分页显视,并且每条记录后都可以进行录入、修改、删除等操作。
6、注册用户、普通管理员和超级管理员登陆后,分别显视登陆用户的用户名,且都可以修改账号信息。
第三章 教师信息的设计
1、网站内容流程图:
2、目录链接设计
数据库的设计:
图一
图二
图三
图四
图五
图六
第四章 教师信息管理系统的实现
首页index.asp
<%="VBSCRIPT" CODEPAGE="936"%>
<%Response.Buffer=True%>
<!--#Include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>教师信息管理系统</title>
<style type="text/css">
<!--
.z {
font-size: 12px;
color: #000000;
}
.x {
border-top-width: 0.1px;
border-right-width: 0.1px;
border-bottom-width: 0.1px;
border-left-width: 0.1px;
border-top-style: solid;
border-right-style: solid;
border-bottom-style: solid;
border-left-style: solid;
font-size: 12px;
color: #000000;
}
a:link {
color: #000000;
text-decoration: none;
}
body {
background-image: url(img/bg.jpg);
}
-->
</style>
</head>
<body topmargin="0" rightmargin="0" leftmargin="0">
<table width="750" height="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="img/750.jpg" alt="设计者:张荣" width="750" height="150"></td>
</tr>
</table>
<table width="750" height="25" border="1" align="center" cellpadding="0" cellspacing="1" bordercolor="#CCCCCC" class="x">
<tr>
<td align="center" valign="middle">教师信息管理系统首页</td>
</tr>
</table>
<table width="750" height="150" border="1" align="center" cellpadding="0" cellspacing="1" bordercolor="#CCCCCC" class="x" id="2">
<tr>
<td width="750"><form action="login.asp" method="post" name="admin" id="admin">
<table width="220" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" class="x">
<tr>
<td height="25" colspan="3" align="center" valign="middle">管理员后台登陆</td>
</tr>
<tr>
<td width="48" height="25" align="right" valign="bottom">账 号:</td>
<td height="25" colspan="2" align="left" valign="bottom"><label>
<input name="user_name" type="text" id="user_name" size="16">
</label></td>
</tr>
<tr>
<td height="25" align="right" valign="bottom">密 码:</td>
<td height="25" colspan="2" align="left" valign="bottom"><label>
<input name="password" type="password" id="password" size="16">
</label></td>
</tr>
<tr>
<td height="25"> </td>
<td width="57" height="25" align="left" valign="middle"><label>
<input type="submit" name="Submit2" value="登陆">
</label></td>
<td width="107" align="left" valign="middle"><a href="sign.htm" target="_blank">管理员申请</a></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<table width="750" align="center" cellpadding="0" bordercolor="#FFFFFF" class="z">
<tr>
<td align="center" valign="bottom"><form name="form1" method="post" action="index.asp">
按教师编号查询信息:
<label>
<input name="xh" type="text" id="xh" size="20">
</label>
<label>
<input type="submit" name="Submit" value="查询">
</label>
</form></td>
</tr>
</table>
<div align="center" class="z">
<%
If Request.Form("xh")<>"" Then
Dim rs,strSql
Set rs=Server.CreateObject("ADODB.Recordset")
strSql="Select * From xs Where xh like '"&Request.Form("xh")&"'"
rs.Open strSql,db,1
If rs.RecordCount<=0 Then
Response.Write "对不起,没有找到信息"
Else
Response.Write "共找到" & rs.RecordCount & "条记录"
%>
<%
If Not rs.Bof And Not rs.Eof Then
Dim page_no
If Request.QueryString("page_no")="" Then
page_no=1
Else
page_no=Cint(Request.QueryString ("page_no")) '用Cint将字符串变为整数
End If
%>
<center>
<table width="633" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC" class="x">
<tr>
<td width="100" height="25" align="center" bgcolor="#CCCCCC">教师编号</td>
<td width="100" align="center">教师姓名</td>
<td width="100" align="center">教师姓别</td>
<td width="100" align="center">所教班级</td>
<td width="100" align="center">所教专业</td>
<td width="100" align="center" bgcolor="#CCCCCC">所教课程</td>
</tr>
<tr>
<% rs.PageSize=8
rs.AbsolutePage=page_no
Dim I
I=rs.PageSize
Do While Not rs.Eof And I>0
I=I-1
%>
<td height="25" align="center" bgcolor="#CCCCCC"><%=rs("xh")%></td>
<td align="center"><%=rs("xm")%></td>
<td align="center"><%=rs("xb")%></td>
<td align="center"><%=rs("bj")%></td>
<td align="center"><%=rs("zy")%></td>
<td align="center" bgcolor="#CCCCCC"><%=rs("kc")%></td>
</tr>
<%
rs.MoveNext
Loop
Response.Write "请选择页数: "
For I=1 To rs.PageCount
If I=page_no Then
Response.Write I & " "
Else
Response.Write "<a href='index.asp?page_no=" & I & "'>" & I & "</a> "
End If
Next
'-------------------------------------------------------------------------------
Else
Response.Write "该记录集为空"
End If
End if
end if
%>
</table>
</center>
</div>
</body>
</html>
普通管理员后台:main.asp
超级管理员后台admin.asp
Admin.asp页面代码:
<%="VBSCRIPT" CODEPAGE="936"%>
<%Response.Buffer=True%>
<!--#Include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>超级管理员后台控制面板</title>
<style type="text/css">
<!--
.z {
font-size: 12px;
color: #000000;
}
.x {
border-top-width: 0.1px;
border-right-width: 0.1px;
border-bottom-width: 0.1px;
border-left-width: 0.1px;
border-top-style: solid;
border-right-style: solid;
border-bottom-style: solid;
border-left-style: solid;
font-size: 12px;
color: #000000;
}
a:link {
color: #000000;
font-size: 12px;
text-decoration: none;
}
.color {color: #000000;
font-size: 12px;
line-height: normal;
}
.z1 { font-size: 12px;
color: #000000;
border-top-width: 0.1px;
border-right-width: 0.1px;
border-bottom-width: 0.1px;
border-left-width: 0.1px;
border-top-style: solid;
border-right-style: solid;
border-bottom-style: solid;
border-left-style: solid;
}
.STYLE1 {color: #FF0000}
.z11 {font-size: 12px;
color: #000000;
}
.z11 {font-size: 12px;
color: #000000;
border-top-width: 0.1px;
border-right-width: 0.1px;
border-bottom-width: 0.1px;
border-left-width: 0.1px;
border-top-style: solid;
border-right-style: solid;
border-bottom-style: solid;
border-left-style: solid;
}
-->
</style>
</head>
<body topmargin="0" rightmargin="0" leftmargin="0">
<table width="750" height="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="img/750.jpg" alt="设计者:张荣" width="750" height="150"></td>
</tr>
</table>
<table width="750" height="25" border="1" align="center" cellpadding="0" cellspacing="1" bordercolor="#CCCCCC" class="z11">
<tr>
<td width="50%" align="center" valign="middle"><span class="color">欢迎<%=session("user_name")%>进入<span class="STYLE1">超级管理员后台</span>控制面板</span></td>
<td width="50%" align="center" valign="bottom"><table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="70%" align="center" valign="middle"><span class="color">登陆时间:<%=now()%></span></td>
<td align="center"><a href="index.asp" class="z11">退出登陆</a></td>
</tr>
</table></td>
</tr>
</table>
<table width="750" height="25" border="1" align="center" cellpadding="0" cellspacing="1" bordercolor="#CCCCCC" class="x">
<tr>
<td width="80" align="center" valign="bottom"><a href="admin.asp">首页</a></td>
<td width="80" align="center" valign="bottom"><a href="yhgl.asp">用户管理</a></td>
<td width="80" align="center" valign="bottom"><a href="lygl.asp">留言管理</a></td>
<td width="80" align="center" valign="bottom"><a href="lrcj.asp">录入信息</a></td>
<td width="120" align="center" valign="bottom"><a href="xhg.asp">按学号查询信息</a></td>
<td width="120" align="center" valign="bottom"><a href="xmg.asp">按姓名查询信息</a></td>
<td width="120" align="center" valign="bottom"><a href="bjg.asp">按班级查询信息</a></td>
<td width="120" align="center" valign="bottom"><a href="kcg.asp">按课程查询信息</a></td>
<td width="120" align="center" valign="bottom"><a href="zyg.asp">按专业查询信息</a></td>
</tr>
</table>
<div align="center" class="z">
<%
Dim rs,strSql
Set rs=Server.CreateObject("ADODB.Recordset")
strSql="Select * From xs order by id desc"
rs.Open strSql,db,1
If rs.RecordCount<=0 Then
Response.Write "对不起,没有找到信息"
Else
Response.Write "共找到" & rs.RecordCount & "条记录"
%>
<%
If Not rs.Bof And Not rs.Eof Then
Dim page_no
If Request.QueryString("page_no")="" Then
page_no=1
Else
page_no=Cint(Request.QueryString ("page_no")) '用Cint将字符串变为整数
End If
%>
<center>
<table width="750" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC" class="x">
<tr>
<td width="100" height="25" align="center" bgcolor="#CCCCCC">教师编号</td>
<td width="100" align="center">教师姓名</td>
<td width="100" align="center">教师姓别</td>
<td width="100" align="center">所教班级</td>
<td width="100" align="center">所教专业</td>
<td width="100" align="center" bgcolor="#CCCCCC">所教课程</td>
<td width="100" align="center">录入</td>
<td width="100" align="center">删除</td>
<td width="100" align="center">修改</td>
</tr>
<tr>
<% rs.PageSize=10
rs.AbsolutePage=page_no
Dim I
I=rs.PageSize
Do While Not rs.Eof And I>0
I=I-1
%>
<td height="25" align="center" bgcolor="#CCCCCC"><%=rs("xh")%></td>
<td align="center"><%=rs("xm")%></td>
<td align="center"><%=rs("xb")%></td>
<td align="center"><%=rs("bj")%></td>
<td align="center"><%=rs("zy")%></td>
<td align="center" bgcolor="#CCCCCC"><%=rs("kc")%></td>
<td align="center"><a href="jia.asp?id=<%=rs("id")%>">录入</a></td>
<td align="center"><a onClick="return confirm('确定删除?')" href="del.asp?id=<%=rs("id")%>">删除</a></td>
<td align="center"><a href="gai.asp?id=<%=rs("id")%>">修改</a></td>
</tr>
<%
rs.MoveNext
Loop
Response.Write "请选择页数: "
For I=1 To rs.PageCount
If I=page_no Then
Response.Write I & " "
Else
Response.Write "<a href='admin.asp?page_no=" & I & "'>" & I & " </a> "
End If
Next
'-------------------------------------------------------------------------------
Else
Response.Write "该记录集为空"
End If
End if
%>
</table>
</center>
</div>
</body>
</html>
其它关键页面代码:
注册页面Sign.asp
<title>教师信息管理系统</title><%option explicit%>
<%
If request.form("user_name")<>""and request.form("password")<>""then
dim db,rs
set db=server.createobject("ADODB.connection")
db.open "dbq="&server.mappath("data/zhangrong.mdb")&";driver={microsoft access driver (*.mdb)};"
dim strsql,user_name ,Password ,realname ,mobi,email,name
name=request.form("user_name")
strSql="select * from user Where user_name='" & Request.Form("user_name") & "'"
Set rs=db.Execute(strSql)
If not rs.eof then
Response.Write "对不起,用户名已被注册,请<a href='sign.htm'>重新注册</a>"
rs.close
else
user_name=request.form("user_name")
Password=request.form("Password")
realname=request.form("realname")
mobi=request.form("mobi")
email=request.form("email")
strsql="insert into user(user_name ,Password ,realname ,mobi,email)values('"&user_name&"','"&Password&"','"&realname&"','"&mobi&"','"&email&"')"
db.execute(strsql)
response.redirect "cg.htm"
end if
else
response.write"请将所有信息填写完整"
response.write"<A HREF='sign.htm'>重新注册</a>"
end if
%>
登陆页面Login.asp
<%Response.Buffer=True%>
<style type="text/css">
<!--
.z {
font-size: 12px;
color: #000000;
}
-->
</style>
<title>教师信息管理系统</title></head>
<body>
<table width="700" height="500" border="0" align="center" cellpadding="0" cellspacing="0" class="z">
<tr>
<td width="700" align="center" valign="middle">
<%
dim db,strsql,rs
set db=server.createobject("ADODB.connection")
db.open "dbq="&server.mappath("data/zhangrong.mdb")&";driver={microsoft access driver (*.mdb)};"
strSql="Select user_name,password,user_type From user"
strSql=strSql & " Where user_name='" & Request.Form("user_name") & "' And password='" & Request.Form("password") & "'"
Set rs=db.Execute(strSql)
If not rs.eof and not rs.bof Then
Session("user_name")=rs("user_name")
session("user_type")=rs("user_type")
Session("password")=rs("password")
select case Session("user_type")
case "A"
Response.Redirect "admin.asp"
case "T"
Response.Redirect "main.asp"
case else
Response.Redirect "user.asp"
end select
Else
Response.Write "对不起,用户名或密码有误,且不能为空,请<a href='index.asp'>返回</a>重新登录"
End If
%> </td>
</tr>
</table>
第五章
结论
通过本次毕业设计,让我深切感悟到,作为一个编程人员,这次设计大大提高了我们综合运用所学理论知识解决实际问题和不断创新的能力。我设计的程序在我的工作中起到了至关重要的作用
致谢:
省略
参考文献:
1、编著:尚俊杰. 网络程序设计——ASP. 清华大学出版社.
2、编著:袁玫 林志英 刘劲松. 网络数据库应用教程 人民邮电出版社.
5、资源下载
本项目源码及完整论文如下,有需要的朋友可以点击进行下载。如果链接失效可点击下方卡片扫码自助下载。
序号 | 毕业设计全套资源(点击下载) |
---|---|
本项目源码 | 基于asp+access的教师信息管理系统设计与实现(源码+文档)_asp_BS架构_教师信息管理系统.zip |