基于WEB的学生综合测评系统(内含源代码) - 图文

更新时间:2024-04-11 21:38:01 阅读量: 综合文库 文档下载

说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。

基于WEB的学生综合测评系统

一、系统开发背景:

随着计算机技术的不断发展,在现代化社会中,各种信息的处理基本都是由计算机来完成的。在本课题中,我们要用计算机技术实现学生综合测评信息的管理。在没有计算机之前,所有的信息记录都是由人工记录维护,不但不方便,还经常出错,有了计算机就可以方便的对各种信息进行查询和维护了。

作为高校的学生综合素质测评信息管理系统,它涉及到大量的学生信息,各个学生的素质测评信息等各种信息,信息种类多,信息量大,如果一切都靠人工操作管理,不但查找不方便,维护也更是噩梦,作为计算机专业的一名学生,更有义务通过计算机实现对这些信息的科学化管理,也能通过这次毕业设计锻炼自己独立开发系统的能力。

在这个系统中,我们使用了B/S结构的软件体系,采用的是asp动态网页设计技术和access轻量级数据库,可以灵活地管理各种信息。系统包括四大功能模块:学生信息管理,测评信息管理,信息查询,系统设置。

二、需求分析的基本任务:

需求分析的基本任务是准确回答“系统必须做什么?”这个问题,也就是确定为了满足用户的需要系统必须做什么。具体地说,应该确定系统必须具有的功能和性能,系统要求的运行环境,并且预测系统发展的前景。需求分析阶段必须仔细分析系统的业务流程,对业务流程进行抽象,得到系统的数据流分析。数据流图是从数据流动和加工的角度描述了系统要处理的数据和对数据的处理,所以数据流图代表了系统的逻辑模型。数据流图只是抽象地描述了系统的概貌,还要用其它工具进行更详细的描述。数据字典、IPO图和ER图是详细描述系统中的数据元素、数据流、数据存储、处理和数据概念模型的好工具。通过业务流程图、数据流图、数据字典、IPO图、ER图等图形工具,可以准确、规范地描述系统的需求。 三、系统的功能需求

作为大学生综合素质测评信息管理系统,在系统中一定存在许多的学生,这需要对学生的信息进行管理;每学期期末时都需要对这些学生的各方面素质进行综合测评,系统能根据各个素质的分数自动计算综合的素质分数,所有需要对大量的测评信息进行管理;同时,系统可以提供信息查询的功能,显示出按要求查询到的测评信息,也能对系统的一些信息如专业信息,学期信息,个人密码信息进行设置,所以系统分四大功能模块,为了方便地对各种信息用计算机进行有效的管理,各模块的基本功能说明如下:

学生信息管理:包括学生信息的登记,查询及维护功能

测评信息管理:包括测评信息的登记,查询及维护功能 信息查询:包括学生信息查询和测评信息查询

系统管理:包括专业信息设置,学期信息设置,个人密码修改 四、数据流程分析

数据流程分析,即把数据在组织(或原系统)内部的流动情况抽象地独立出来,舍去了具体组织机构、信息载体、处理工作、物资、材料等,单从数据流动过程来考查实际业务的数据处理模式。数据流程分析主要包括对信息的流动、传递、处理、存储等的分析。数据流程分析的目的就是要发现和解决数据流通中的问题。

现有的数据流程分析多是通过分层的数据流程图来实现。数据流图(Data Flow Diagram,简称DFD图)是用一些规定的图标和符号来描述数据在系统中的流动和处理情况。数据流图一般要采用自上而下逐步求精的结构化表示方法。软件系统归根结底是一个信息处理系统,其最基本的功能是感受输入信息,对输入的信息按照规定的方法归类、处理以及存储,转变为所需要的信息,最后通过输出系统向用户输出所需求的信息。其中最核心的部分就是信息(数据)处理,因此不同的数据也就决定了所需要的不同的处理方法和算法。数据流图也就是以图形的方式将系统中数据的传递、转化过程以直观的方式表述出来。

数据流图由四种基本的元素组成:数据流(Data Flow)、处理(Process)、数据存储和数据源(数据终点)。

(1)数据流(Data Flow):为具有名称且有流向的数据,用标有名称的箭头表示。一个数据流可以是记录、组合项或基本项。

(2)处理(Process):表示对数据多进行的加工和变换,在图中用圆形表示。指向处理的数据流为该处理的输入数据,离开处理的数据流为该处理的输出数据.

(3)数据存储:表示用文件方式或数据库形式所存储的数据,对其进行的存取分别以指向或离开数据存储的箭头表示。

(4)数据源及数据终点:表示数据的来源或数据的去向,可以是一个组织或人员,它处于系统范围之外,所以又称它为外部实体,它是与系统有关的外部事物或外部环境。其图形符号用平行四边形表示。符号如图2.1所示:

根据上面的分析我们可以对系统画出如图所示的顶层数据流图,如图2.2:

图1 系统顶层数据流图

第1层数据流图是在顶层上的细分,从整体考虑通讯录信息管理系统出现的数据流动及流向,如图2.3:

学生信息管理请求 管理处理 学生信息登录信息 管理 用户端界面显示 出 输界面显示

大学生综错误提示 提交数合测评信据 息系统 数据流执行结果 外部实体 处理 数据存储 操作请求 图2.1 数据流图的基本图形符号 access数据库

用户提交数据

五、概要设计

经过前面的分析,我们已经确定了系统的基本功能,下面就是分析系统的总体框架,分析系统处理的实体对象,分析实体间的联系,从而得到系统各种实体和联系对应的数据表,最终设计中数据表。

1、系统的总体框架

数据 处理 结果 测评信息管理请求 管理处理 测评信息管 理 数据处理 与用户端交互 信息打印请求 信息管理处理 打印 系统管理请求 管理处理 系统设置 图2 系统第1层数据流图 数据 中心 整个系统信息管理中,实现了验证功能,也就是说,必须输入正确的帐号和密码才能进入系统的各个功能操作中,当通过用户认证后就可以进行各种功能的信息管理了。系统功能分四大模块:学生信息管理、测评信息管理、信息打印、系统管理,各个系统模块下都有添加,修改,删除,查询功能的实现,系统的总体框架如图3所示:

大学生综合素质管理系统 学生信息管理 测评信息管理 信息查询 系统设置 学学学测测测学测密专学

2、系统实体联系图(E-R图)

其中,

college表:用于存储学生和学生所在专业的学院或学校; specialFiledInfo:用于存储学生所学的专业; termInfo:用于存储所要测评的学期信息;

studentInfo:用存储的信息,包括学生的姓名,性别,班级,学院,专业名称,学生出生等信息;

evaluationInfo:用于存储学生的测评信息; admin表:用于存储登陆用户的信息; 3、程序流程图:

开始 管理员登陆系统了? 是 取得操作命令? 否 转到登陆页 是要添加学期信息? 否 是要删除学期信息? 是 该学期还存在测评信息? 否 执行该学期信息的删除 是 取得学期相关信息并执行添加操作 否 是 查询所有学期信息显示

六、软件功能设计以及界面设计 1、登陆功能设计:

功能简介:提供确认系统用户的功能,用户只有提供用户名和正确的密码,才能登陆,否则拒绝用户的登录; 以下是界面的截图:

提示:初始用户名为:admin;初始密码为:chenjl 2、主界面功能及其界面设计:

主界面是用户进入系统时看到的系统布局,主界面提供了进入各个功能的按钮,用户通过按钮进入不同的系统功

能,从而进行各种系统所提供的操作,用户第一次进入系统时,第一个看到的是系统的桌面,桌面给出了该系统的功能简介;

以下是主界面截图:

3、学生管理:

该功能包括包括学生信息的添加和学生信息的维护,用户界面设计如下: 学生信息的添加界面:

学生信息维护界面:

4、综合测评管理

该功能提供了对学生测评信息的添加和维护,用户界面的设计如下: 学生测评信息的添加:

学生测评信息的维护界面:

5、信息查询:

该功能包括对学生信息的查询和对学生测评信息的查询,查询提供了时,该功能提供了按学号查询和按姓名查询两种查询条件设置,设置好条件后,可按关键字进行查询,为进一步提高查询的精确度,还提供了查询时的学生所在专业的约束: 该功能界面截图如下:

学生信息查询:

学生综合测评信息查询界面:

6、系统设置

系统的设置包括系统的密码的设置,提供修改密码密码的功能;专业设置,添加新的专业和对已有的专业进行删除的功能;学期设置,包括学期信息的添加和删除两种操作, 界面设计如下:

登陆密码设置界面:

专业信息设置界面:

学期信息设置界面:

除以上主要功能以外,还提供了以下的辅助功能:

前进、后退:返回的用户当期界面的下一个界面和前一个界面 刷新:用来刷新用户界面显示的数据; 桌面:返回到桌面界面; 退出:退出系统; 七、系统代码:

1、con.asp:(用来连接数据库) <%

set conn=server.createobject(\mypath=server.mappath(\

conn.open \%>

2、day.asp:(用来处理日期信息的)

Date

oldDate=request(\

if not isDate(oldDate) then oldDate=date yy=year(cdate(oldDate)) mm=month(cdate(oldDate))

if request(\if request(\if yy=\if mm=\if mm>12 then mm=1:yy=yy+1 if mm<1 then mm=12:yy=yy-1

dim m(12) m(1)=31 m(3)=31 m(5)=31 m(7)=31 m(8)=31 m(10)=31 m(12)=31 m(2)=28 m(4)=30 m(6)=30 m(9)=30 m(11)=30

if (yy mod 4=0 and yy mod 100<>0) or yy mod 400=0 then m(2)=29 mms=m(mm)

week1=(weekday(cdate(yy & \%>

<%=yy%> 年   <%=mm%> 月

一 二 三 四 五 六 <%

if week1<>0 then

response.write \for i=1 to week1

response.write \next end if

for i=1 to mms

if (i+week1-1) mod 7=0 then response.write \response.write \width=35 height=20 align=center bgcolor=#ffffff onmousemove=this.bgColor='#ececec' onmouseout=this.bgColor='#ffffff'>\if cdate(yy & \%>

style=\1px groove;width:30;height:16;font-size:9pt;background-color:#FFD9D9;color:#CD0101\onclick=\title=\年<%=mm%>月<%=i%>日(今天)\<% else %>

style=\1px groove;width:30;height:16;font-size:9pt;background-color:#ffffff;color:#000000\

onclick=\年<%=mm%>月<%=i%>日\<% end if next

if (mms+week1) mod 7<>0 then

for i=1 to (7-((mms+week1) mod 7))

response.write \next end if %>

3、desk.asp:(桌面实现代码)

  *

  

  分(满分100分)

  分(满分100分)

  分(满分100分)

  分(满分100分)   分(满分100分)

  


5、evaluateInfoDel.asp:(学生测评信息删除) <%

if session(\ Response.Redirect \ end if %>

<%

dim sqlString,rscount,lastpage,currentpage,nextpage,pagesize,frontpage,i'skipcount; pagesize = 8

sqlString = \查询总的学生信息记录数 if Request(\请选择查询方式\

sqlString = sqlString & \'%\& \ end if

set rs = conn.Execute(sqlString) rscount = CInt(rs(\

if (0=(rscount mod pagesize)) then lastpage = rscount \\ pagesize else

lastpage = rscount \\ pagesize + 1 end if

currentpage = Request(\ if currentpage = \ currentpage = 1 else

currentpage = CInt(currentpage) end if

if (currentpage < 1 or currentpage > lastpage) then currentpage = 1 end if

if currentpage = 1 then frontpage = 1 else

frontpage = currentpage - 1 end if

if currentpage = lastpage then nextpage = lastpage else

nextpage = currentpage + 1 end if

'skipcount = pagesize * (currentpage - 1) 'do while skipcount>0 ' rs.movenext

'skipcount = skipcount - 1 'if rs.eof then ' Exit do

' end if 'Loop %>

<%

sqlString = \

if Request(\请选择查询方式\

sqlString = sqlString & \\

end if

set rs=server.createobject(\ rs.Open sqlString,conn,1,2 if(not rs.eof) then rs.MoveFirst

rs.PageSize = pagesize

rs.AbsolutePage = currentpage For i = 1 To rs.PageSize %>

 

<%

rs.MoveNext if rs.EOF Then Exit For end if Next %>

选中所有的测评信息 

If currentpage = 1 Then

Response.Write \第一页 上一页\ End If

If currentpage <> 1 Then Response.Write \href=evaluationInfoManage.asp?searchWay=\& Request(\第一页\ Response.Write \ 上一页\ End If

If currentpage <> RS.PageCount Then Response.Write \ 下一页\

Response.Write \ 最后一页\ End If

If currentpage = RS.PageCount Then

Response.Write \下一页 最后一页\ End If %>

<%Response.Write \显示输入页数框并将pageno参数传递下去%>

第<%=currentpage%>页/共<%=rs.PageCount%>页 总记录:<%=rs.recordCount%>

信息查询:

关键字: 

<%else%>

<%end if%>

7、evaluateInfoSearch.asp:(学生测评信息查询) <%

if session(\ Response.Redirect \ end if %>



<%

sqlString = \

if Request(\请选择查询方式\

sqlString = sqlString & \\Request(\

end if

if Request(\

sqlString = sqlString & \ end if

set rs=server.createobject(\ rs.Open sqlString,conn,1,2 if(not rs.eof) then rs.MoveFirst

rs.PageSize = 4 '设置每页查询的学生信息条数 pageCount = rs.PageCount For i = 1 To pageCount %>

条记录/共<%=rs.RecordCount%>条记录  当前第<%=i%>页/共<%=rs.PageCount%>页 <%

rs.AbsolutePage = i

for j=1 to rs.PageSize %>

学号: <%=rs(\ 姓名: <%=rs(\

专业: <%=rs(\

所评学期: <%=rs(\

综合素质分: <%=rs(\ <%

if rs(\ %>

对该生评价: <%=rs(\ <%

end if %>

<%

rs.MoveNext

if rs.EOF Then Exit For end if Next %>

<%

if i

%>


end if Next else

Response.Write \对不起,当前没有符合条件的测评信息供

\ end if %>

8、evaluationInfoUpdate.asp(学生信息维护) <%

if session(\ Response.Redirect \ end if %>

<%

evaluationId = Trim(Request(\

sqlString = \ set rs = conn.Execute(sqlString) %>

  <%=rs(\   <%=rs(\   <%=rs(\   

  \ else

conn.Execute(\\

Response.Write \删除成功!');\ end if

elseif action = \

specialFieldName = Request(\ collegeName = Request(\ sql = \into specialFieldInfo(specialFieldName,collegeName) values ('\& specialFieldName & \ Conn.Execute(sql)

if err.number <> 0 then

Response.Write \操作时发生了错误!');\ else

Response.Write \添加成功');\ end if end if %>

学院专业操作 <%

sql = \ set specialFieldRs = conn.Execute(sql) while not specialFieldRs.eof Response.Write \& specialFieldRs(\& \&

specialFieldRs(\& \href='fieldSet.asp?action=del&specialFieldName=\& specialFieldRs(\删除\ specialFieldRs.MoveNext wend %>

10、main.asp:(系统主框架设计代码) <%

if session(\ response.Redirect \end if %>

<%

if errorMessage <> \

Response.Write \ end if %>


12、password.asp(密码设置代码)

<%=Request(\

13、studentInfoAdd.asp:(学生信息添加代码) <%

if session(\ Response.Redirect \ end if %>

  *

  *   

  

  

  

  

onClick=\,'directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=250,height=170,top=150,left=590');\

  

  


14、studentInfoDel.asp:(学生信息删除代码) <%

if session(\ Response.Redirect \ end if %>

<%

dim sqlString,rscount,lastpage,currentpage,nextpage,pagesize,frontpage,i'skipcount; pagesize = 8

sqlString = \查询总的学生信息记录数 if Request(\请选择查询方式\

sqlString = sqlString & \'%\& \ end if

set rs = conn.Execute(sqlString) rscount = CInt(rs(\

if (0=(rscount mod pagesize)) then lastpage = rscount \\ pagesize else

lastpage = rscount \\ pagesize + 1 end if

currentpage = Request(\ if currentpage = \ currentpage = 1 else

currentpage = CInt(currentpage) end if

if (currentpage < 1 or currentpage > lastpage) then currentpage = 1 end if

if currentpage = 1 then frontpage = 1 else

frontpage = currentpage - 1 end if

if currentpage = lastpage then nextpage = lastpage else

nextpage = currentpage + 1 end if

'skipcount = pagesize * (currentpage - 1) 'do while skipcount>0 ' rs.movenext

'skipcount = skipcount - 1 'if rs.eof then ' Exit do ' end if 'Loop

%>

If currentpage = 1 Then

Response.Write \第一页 上一页\ End If

If currentpage <> 1 Then Response.Write \href=studentInfoManage.asp?searchWay=\& Request(\& \第一页\ Response.Write \ 上一页\ End If

If currentpage <> RS.PageCount Then Response.Write \ 下一页\

Response.Write \ 最后一页\ End If

If currentpage = RS.PageCount Then

Response.Write \下一页 最后一页\ End If %>

<%Response.Write \显示输入页数框并将pageno参数传递下去%>

第<%=currentpage%>页/共<%=rs.PageCount%>页 总记录:<%=rs.recordCount%>

信息查询:

关键字: 

<%else%>

<%end if%>

16、studentInfoSearch.asp:(学生信息查询) <%

if session(\ Response.Redirect \ end if %>

查询条件设置:

关键字:   



<%

sqlString = \

if Request(\请选择查询方式\

sqlString = sqlString & \\Request(\ end if

if Request(\

sqlString = sqlString & \ end if

set rs=server.createobject(\ rs.Open sqlString,conn,1,2 if(not rs.eof) then rs.MoveFirst

rs.PageSize = 4 '设置每页查询的学生信息条数 pageCount = rs.PageCount For i = 1 To pageCount %>

条记录/共<%=rs.RecordCount%>条记录  当前第<%=i%>页/共<%=rs.PageCount%>页 <%

rs.AbsolutePage = i

for j=1 to rs.PageSize %>

学号: <%=rs(\ 姓名: <%=rs(\ 性别: <%=rs(\

生日: <%=rs(\

政治面貌: <%=rs(\

所在学院: <%=rs(\

所学专业: <%=rs(\

地址: <%=rs(\

<%

rs.MoveNext

if rs.EOF Then Exit For end if Next %>

<%

if i


end if Next else

Response.Write \对不起,当前没有符合条件的学生信息供

\ end if %>

17、studentInfoUpdate.asp:(学生信息维护) <%

if session(\ Response.Redirect \ end if %>

<%

studentNumber = Trim(Request(\

sqlString = \ set rs = conn.Execute(sqlString) %>

size=\带*号的为必填项)

  

  

  

本文来源:https://www.bwwdw.com/article/cy9p.html

Top