教研室信 息资源的管理和应用,提高教务工作的效率。 2、针对现代计算机广泛应用的情况以及数据的封闭性,教研室信息
管理系统基于 Windows系统研制、设计和开发。 3、考虑经费等的原因,新系统使用PC机和现有其他打印设备以节省资金、降低成本。 3.2.2功能分析 根据系统分析的结果,按照结构化的系统设计方法, 《教研室信息管理系统》从功能 上可以做出如下系统的划分:
四、详细设计
4.1数据库设计 数据库采用了Microsoft推出的ACCESS 2003数据库,能够快速方便的和其他套件 综合使用。由于ACCESS 2003具有显著的简易性和有效性,大量的
网络数据库系统都采 用ACCESS 2003作为后台数据库。使用ACCESS 2003的好处还在于,为系统以后的扩展 提供方便。 本系统中所涉及到的主要实体共有九个数据表: Admins表:{管理员ID,管理员密码} Students表:{,,性别,专业,出生地,出生日期} Score表:{,,成绩} 各表的物理结构: Admins表:
表4-1
Students表:
表4-2
Score表:
表4-3
4.2系统模块设计
本界面的主要功能是为了对系统进行安全性管理,本系统的用户名和密码保存在 Admins表中,可以用admin;admin为用户名和密码来
登陆本系统,其登录界面如下:
登录页面主要是根据用户输入的用户名和密码,去查找管理员表中是否存在这样的 合法的用户,找到则登录成功;未找到则提示用户登录错误。 其系统流程图如下所示:
由于与数据库链接是整个系统的关键,也是使用就经常的,把与数据库链接的文件 集成到conn.asp这个文件,能减少代码冗余。 数据库链接文件: <%dim conn set conn=server.createobject("ADODB.connection") conn.open "PROVIDER=SQLOLEDB;DATA
SOURCE=192.168.0.66;UID=sa;PWD=sa;DATABASE=student"%> 检查用户输入的合法性代码: <%@language="
VBScript"%> <% dim username,password username=request("username") password=request("pass
word") <%dim rs,sql set rs=server.CreateObject("ADODB.recordset") sql="select * from admins where username='"&; username &;"' and ’获取用户输入的用户名 ’获取用户输入的密码%>
password='"&;password&;"'" ‘根据用户的输入去查找数据库 rs.open sql,conn,1,3 if rs.eof then response.redirect ("error1.htm") else session("UserID")=username response.Redirect("index.asp") ‘成绩登录 ‘输入错误的提示
end if %> 前台主界面: 本模块是本系统的前台主功能界面,在本界面上集成了本系统的教师信息、固定资 产信息、课程信息的所有功能,可完成对相关信息的查询。
列出系统的所有功能: 主页:index.asp 教师信息查询:teacher.asp 固定资产信息查询:fixedassets.asp 课程信息查询:courses.asp 后台管理界面 4.2.1学生信息模块的设计 删除学生信息: 本模块主要用于删除学生信息记录。
图4-3
<% dim rs2,sql2 nItems = Request.Form("selAnnounce").Count if nitems>0 then For i = 1 To nItems items=request.form("selAnnounce")(i) ‘需要删除的某个信息
‘获取要删除的信息
sql2="delete from students where ='"&;items&;"'" 除 conn.execute(sql2) next end if 修改学生信息: 本模块主要用于修改信息记录。
%>
‘逐个删
图4-4
Studentxiugaisave.asp <%
‘修改学生信息
studentno=trim(request("userno")) ‘获取学生的
studentname=trim(request("username")) ‘获取学生的 studentsex=request("sex") ‘获取学生的性别 ‘获取学生的专业
studentzhuanye=trim(request("zhuanye"))
studentchusheng=trim(request("chusheng")) ‘获取学生的出生地 year1=request("year1") month1=request("month1") day1=request("day1") sql="select * from students where ="&;studentno
set rs=server.createobje