信息技术系课程设计报告
课程：年级： 09 级 专业： 计算机应用技术专业 姓名： 李成元 指导老师： 龙 娟 评语：
得分： 指导老师签名：
完 成 日 期：二 ○ 一 一 年 一 月 八 日
一、前言
1. 管理信息系统
管理信息系统：是一个不断发展的新型学科,MIS 的定义随着计算机技术和通讯技术的进步也在不断更新, 在现阶段普遍认为管理信息系统MIS 是由人和计算机设备或其他信息处理手段组成并用于管理信息的系统。 2. 开发学生学籍系统的必要性
高等院校的学生管理工作是学校管理工作中一项十分重要的工作, 占有十分重要的位置, 也是高校日常事务管理中的一个重要环节。随着学校规模扩大, 在校学生人数不断增加, 加大了学生管理管理的难度。
然而, 长期以来学生管理工作一直是使用传统人工的管理方式, 这样的管理方式存在着:效率低、保密性差, 大量的文件和数据难于查找、更新和维护, 造成了办事效率低这样的现状。远远不能适应发展的需要。
随着科学技术的不断提高, 计算机科学日渐成熟, 其强大的功能已为人们深刻认识, 它已进入人类社会的各个领域并发挥着越来越重要的作用。应用计算机对高校学生信息进行管理, 具有人工管理所无法比拟的优点. 例如:检索迅速、查找方便、可靠性强、存储量大、保密性能好等。这些优点能够极大地提高学生管理的工作质量和效率, 也是高校学生管理的科学化、规范化、信息化管理的重要条件。
3. 学生学籍系统简介以及系统概要设计 （1）. 学生学籍系统总体功能简介
学生学籍系统是针对各个学生在校的个人信息管理系统。根据初期的设计, 实现了学生基本情况的管理。
（2）. 学生学籍系统功能模块简介
系统的功能模块包括用户注册登录模块，学生基本信息管理模块，院系信息管理，专业信息管理模块，系统管理模块。信息管理模块是可以对学生进行查询、录入、修改、删除等操作, 动态了解各学生基本信息。对学生的所在的院系及专业进行管理, 系统管理模块是让个系统管理负责人进行系统数据的添加, 修改, 删除, 查询, 提高了工作效率。
二、系统框图
1. 学籍管理系统功能结构模块图，如图1—1所示：
图1—1. 系统结构功能结构模块图 2. 用户注册登录结构模块图，如图1—2所示:
图
1—2. 用户注册登录结构模块图 3. 学生信息管理结构模块图，如图1—3所示：
图1—3. 学生信息管理结构模块图
三、表结构
(1).student(学生信息表)
学生信息表是用来保存学生的基本信息和用来登录注册信息。该表的表结构如下表1
(2).manger(管理员信息表)
管理员信息表用来保存管理员的基本信息和用来登录注册信息。该表的表结四、程序流程图、清单
1．用户注册登录（zhuce.asp ） (1).流程图：如图1—4所示：
图1-4. 注册登录流程图 （2）. 程序清单（关键程序段）
注册登录界面主要用于对用户点击登入按钮进入相关的端口对相关的端口进行超链接，可以进入学生端和管理员端。
用户注册登录界面所涉及的程序代码(zhuce.asp)如下：
'*********************************
' 验证用户登录
'********************************* Dim uno '用户名 Dim upass '密码 Dim utype '用户类别
Dim sql '将被执行的SQL 命令 Dim rs 'RecordSet对象
Session.Timeout=30'读取用户提交的数据并进行完整性判断 uno=Trim(Request.Form("uno")) upass=Trim(Request.Form("upass")) utype=Request.Form("utype")
if uno="" OR upass ="" OR utype=""Then
Alert ("对不起，你的信息填写不完整，请查实后再登录！") GOBack() Response.End End if
' 进行登录信息验证 Select Case utype
Case "student" '学生登录
sql="SELECT sname FROM student WHERE sno= '" & uno &"' AND spass = '" & upass &"'"
Set rs=ExecuteQuery(sql) if rs.EOF Then
Alert ("对不起，你输入的用户名或密码错误，请查实！") GoBack() Response.End Else
Session("uno") = uno '学号 Swssion("unname") = rs("sname") '姓名 Sever.Transfer("studentmenu.htm") End if
Case "manager" '管理员登录
sql="SELECT mname FROM manager WHERE mno= '" & uno &"' AND mpass = '" & upass &"'"
Set rs=ExecuteQuery(sql) if rs.EOF Then
Alert ("对不起，你输入的用户名或密码错误，请查实！") GoBack() Response.End Else
Session("uno") = uno '编号 Swssion("unname") = rs("mname") '姓名 Sever.Transfer("managermenu.htm") End if
End Select %>
2. 学生信息管理端（由updatestudentpass.asp1 , editstudent1.asp , logout.asp 组成）
（1）. 流程图：学生信息管理端图如图1—5所示
图1—5. 学生信息管理端图
（2）. 程序清单（关键程序段）
学生信息管理端界面是由updatestudentpass1.asp , editstudent1.asp , editstudent3.asp logout.asp 四个网页组成）
a. 该页面主要是用于学生对自己的密码进行更改。所涉及的程序代码(updatestudentpass1.asp)如下：
Dim uno '学号 Dim opass '旧密码
Dim npass '第一次输入新密码
Dim npass1 '第二次输入的新密码 Dim sql 'SQL字符串
Dim rs 'Recordset对象 uno=Session("uno")
opass=Trim(Request.Form("opass")) npass=Trim(Request.Form("npass")) npass1=Trim(Request.Form("npass1")) if npassnpass1 Then
Alert("两次输入的密码不匹配!") GoBack()
Response.End End if
sql="SELECT*FROM student WHERE sno="' & uno & '" AND spass="' & opass & '""
Set rs="ExecuteQuerry(sql) if rs.EOF Then
Alert("对不起，你输入的学号或密码输入错误，请查实！") GoBack()
Response.End End if
sql = "UPDATE student SET spass=" & npass sql = sql '"WHERE sno="'& uno &"" ExecuteNonQuery(sql)
Alert("你的密码已成功修改，请记住!") GoBack()
Response.End %>
b. 该页面主要用于学生查看自己的相关信息，所涉及的程序代码(editstudent1.asp)如下：
我的信息
'声明变量
Dim rs 'Recordset对象 Dim sql '数据操作命令
Dim count '消息计数器，用来判断是否到达分页条目 Dim page '用户请求页面索引 Dim pageSize '每页显示信息数目 sql="SELECT * FROM student"
Set rs=ExecuteQuery(sql) if rs.RecordCount=0 Then
Alert("对不起，你还没有输入学生记录！") GoBack() Response.End %>
. . .
|
返回到查看我的信息页面 |
信息技术系课程设计报告
课程：年级： 09 级 专业： 计算机应用技术专业 姓名： 李成元 指导老师： 龙 娟 评语：
得分： 指导老师签名：
完 成 日 期：二 ○ 一 一 年 一 月 八 日
一、前言
1. 管理信息系统
管理信息系统：是一个不断发展的新型学科,MIS 的定义随着计算机技术和通讯技术的进步也在不断更新, 在现阶段普遍认为管理信息系统MIS 是由人和计算机设备或其他信息处理手段组成并用于管理信息的系统。 2. 开发学生学籍系统的必要性
高等院校的学生管理工作是学校管理工作中一项十分重要的工作, 占有十分重要的位置, 也是高校日常事务管理中的一个重要环节。随着学校规模扩大, 在校学生人数不断增加, 加大了学生管理管理的难度。
然而, 长期以来学生管理工作一直是使用传统人工的管理方式, 这样的管理方式存在着:效率低、保密性差, 大量的文件和数据难于查找、更新和维护, 造成了办事效率低这样的现状。远远不能适应发展的需要。
随着科学技术的不断提高, 计算机科学日渐成熟, 其强大的功能已为人们深刻认识, 它已进入人类社会的各个领域并发挥着越来越重要的作用。应用计算机对高校学生信息进行管理, 具有人工管理所无法比拟的优点. 例如:检索迅速、查找方便、可靠性强、存储量大、保密性能好等。这些优点能够极大地提高学生管理的工作质量和效率, 也是高校学生管理的科学化、规范化、信息化管理的重要条件。
3. 学生学籍系统简介以及系统概要设计 （1）. 学生学籍系统总体功能简介
学生学籍系统是针对各个学生在校的个人信息管理系统。根据初期的设计, 实现了学生基本情况的管理。
（2）. 学生学籍系统功能模块简介
系统的功能模块包括用户注册登录模块，学生基本信息管理模块，院系信息管理，专业信息管理模块，系统管理模块。信息管理模块是可以对学生进行查询、录入、修改、删除等操作, 动态了解各学生基本信息。对学生的所在的院系及专业进行管理, 系统管理模块是让个系统管理负责人进行系统数据的添加, 修改, 删除, 查询, 提高了工作效率。
二、系统框图
1. 学籍管理系统功能结构模块图，如图1—1所示：
图1—1. 系统结构功能结构模块图 2. 用户注册登录结构模块图，如图1—2所示:
图
1—2. 用户注册登录结构模块图 3. 学生信息管理结构模块图，如图1—3所示：
图1—3. 学生信息管理结构模块图
三、表结构
(1).student(学生信息表)
学生信息表是用来保存学生的基本信息和用来登录注册信息。该表的表结构如下表1
(2).manger(管理员信息表)
管理员信息表用来保存管理员的基本信息和用来登录注册信息。该表的表结四、程序流程图、清单
1．用户注册登录（zhuce.asp ） (1).流程图：如图1—4所示：
图1-4. 注册登录流程图 （2）. 程序清单（关键程序段）
注册登录界面主要用于对用户点击登入按钮进入相关的端口对相关的端口进行超链接，可以进入学生端和管理员端。
用户注册登录界面所涉及的程序代码(zhuce.asp)如下：
'*********************************
' 验证用户登录
'********************************* Dim uno '用户名 Dim upass '密码 Dim utype '用户类别
Dim sql '将被执行的SQL 命令 Dim rs 'RecordSet对象
Session.Timeout=30'读取用户提交的数据并进行完整性判断 uno=Trim(Request.Form("uno")) upass=Trim(Request.Form("upass")) utype=Request.Form("utype")
if uno="" OR upass ="" OR utype=""Then
Alert ("对不起，你的信息填写不完整，请查实后再登录！") GOBack() Response.End End if
' 进行登录信息验证 Select Case utype
Case "student" '学生登录
sql="SELECT sname FROM student WHERE sno= '" & uno &"' AND spass = '" & upass &"'"
Set rs=ExecuteQuery(sql) if rs.EOF Then
Alert ("对不起，你输入的用户名或密码错误，请查实！") GoBack() Response.End Else
Session("uno") = uno '学号 Swssion("unname") = rs("sname") '姓名 Sever.Transfer("studentmenu.htm") End if
Case "manager" '管理员登录
sql="SELECT mname FROM manager WHERE mno= '" & uno &"' AND mpass = '" & upass &"'"
Set rs=ExecuteQuery(sql) if rs.EOF Then
Alert ("对不起，你输入的用户名或密码错误，请查实！") GoBack() Response.End Else
Session("uno") = uno '编号 Swssion("unname") = rs("mname") '姓名 Sever.Transfer("managermenu.htm") End if
End Select %>
2. 学生信息管理端（由updatestudentpass.asp1 , editstudent1.asp , logout.asp 组成）
（1）. 流程图：学生信息管理端图如图1—5所示
图1—5. 学生信息管理端图
（2）. 程序清单（关键程序段）
学生信息管理端界面是由updatestudentpass1.asp , editstudent1.asp , editstudent3.asp logout.asp 四个网页组成）
a. 该页面主要是用于学生对自己的密码进行更改。所涉及的程序代码(updatestudentpass1.asp)如下：
Dim uno '学号 Dim opass '旧密码
Dim npass '第一次输入新密码
Dim npass1 '第二次输入的新密码 Dim sql 'SQL字符串
Dim rs 'Recordset对象 uno=Session("uno")
opass=Trim(Request.Form("opass")) npass=Trim(Request.Form("npass")) npass1=Trim(Request.Form("npass1")) if npassnpass1 Then
Alert("两次输入的密码不匹配!") GoBack()
Response.End End if
sql="SELECT*FROM student WHERE sno="' & uno & '" AND spass="' & opass & '""
Set rs="ExecuteQuerry(sql) if rs.EOF Then
Alert("对不起，你输入的学号或密码输入错误，请查实！") GoBack()
Response.End End if
sql = "UPDATE student SET spass=" & npass sql = sql '"WHERE sno="'& uno &"" ExecuteNonQuery(sql)
Alert("你的密码已成功修改，请记住!") GoBack()
Response.End %>
b. 该页面主要用于学生查看自己的相关信息，所涉及的程序代码(editstudent1.asp)如下：
我的信息
'声明变量
Dim rs 'Recordset对象 Dim sql '数据操作命令
Dim count '消息计数器，用来判断是否到达分页条目 Dim page '用户请求页面索引 Dim pageSize '每页显示信息数目 sql="SELECT * FROM student"
Set rs=ExecuteQuery(sql) if rs.RecordCount=0 Then
Alert("对不起，你还没有输入学生记录！") GoBack() Response.End %>
. . .
|
返回到查看我的信息页面 |