学生成绩管理系统的界面设计.doc

学生成绩管理系统
详细设计报告
五、详细设计说明书
1．引言2
1.1编写目的2
1.2项目背景2
1。3定义3
1。4参考资料3
3．总体设计3
2.1需求概述3
2。2软件结构4
3．程序描述4
3。1控件命名4
3。2功能概述5
3。3数据库的插入与实现（程序代码）7
3。31添加页面（程序员代码）7
3。32删除页面（程序员代码)11
3。33修改页面(程序员代码）12
4．界面设计14
1． 引言
因为学院管理的需要，学院领导急需要一个完善的学生成绩管
理系统,以便我校大学生更好的查询成绩及老师也更好的查询到自己班的成绩。因此我们团队设计了学生成绩管理系统软件，便在此系统系下运作。
1.1编写目的
为经济可行性、技术可行性、社会可行性提供可行性研究的方案.
1.2项目背景
该系统主要是无锡科技职业学院的学生成绩的管理系统,由该校的十一名学生进行开发，实现成绩管理系统的功能。
1.3定义
1、 ASP 是一项微软公司的技术,是一种使嵌入网页中的脚本可由因特网服务器执行的服务器端脚本技术. 指 Active Server Pages（动态服务器页面） ，运行于 IIS 之中的程序 .
2、 SQL Server 是一个关系数据库管理系统。它最初是由Microsoft Sybase 和Ashton—Tate三家公司共同开发的，于1988 年推出了第一个OS/2 版本。在Windows NT 推出后,Microsoft与Sybase 在SQL Server 的开发上就分道扬镳了，Microsoft 将SQL Server 移植到Windows NT系统上，专注于开发推广SQL Server 的Windows NT 版本。Sybase 则较专注于SQL Server在UNIX 操作系统上的应SQL Server安装界面用。
1。4参考资料
参照的《软件工程》和《管理信息系统》两本书
2．总体设计
2.1需求概述
能够实现管理员、老师、学生对成绩的管理,即完成一些基本的功能,如查询、添加、修改、删除等。
输入要求：数据完整、详细
输出要求：简洁，迅速
2。2软件结构
【如给出软件系统的结构图.】
3.程序描述
【逐个模块给出以下的说明：】
3。1：控件命名：
Addclass页面：Txtclass_id； Txtclass_name； SubmitBt1.
Addcourse页面：Txtcourse_id;Txtcourse_name；SubmitBt2。
Adddepartment页面：Txtdepment_id；Txtdepment_name;SubmitBt3。
Addguanliyuan页面:Txtgly_id；Txtgly_name;SubmitBt.4
Addstudent页面：Txtstu_id；Txtstu_name;SubmitBt5.
Addteacher页面:Txttec_id；Txttec_name；SubmitBt6
Delclass页面:del；delbt。
Delcourse页面：del1;delbt1。
Deldepartment页面:del2；delbt2.
Delguanliyuan页面：del3；delbt3。
Delstudent页面:delst_id；delbt4.
Delteacher页面:delte_id；delbt5。
Gradecheck页面:table。
Guanliyuanlogin页面：Txtgly_name;Txtgly_password;Submitbtlog；Submitbtoff.
Shuruchengji 页面:stud_id;course_id;Txtgrade;Submitok。
Studentlogin页面:Txtstu_name；Txtstu_password;Submitbtlog1；Submitbtoff1。
Teacherguanli页面：form。
Teacherlogin页面:Txtteacher_name；Txtteacher_password；Submitbtlog2；Submitbtoff2。
Updateclass页面：Upcl_id；Txtcl_id；Upcl_name；Txtcl_name；Submitok1。
Updatecourse页面：Upcu_id；Txtcu_id;Upcu_name;Txtcu_name；Submitok2。
Updatedepartment页面：Upde_id；Txtcde_id；Upde_name；Txtde_name；Submitok3。
Updateguanliyuan 页面：Upgly_id;Txtgly_id；Upgly_name;Txtgly_name;Submitok4。
3。2功能概述：
系部管理
添加系部
insert Department
（Department_id，Department_name)
values（’01’,'软件系'）
修改系部
update Department
set department_id='02’
删除系部
delete Department
where department_id=’02'
班级管理
添加班级
insert class
Department_id,class_name，class_id)
values（’01'，'软件技术’,'001'）
修改班级
update class
set class_name=’动漫'
where class_id=’001’
删除班级
deleteclass
whereclass_id='001’
学生管理
添加学生
insert student
(student_id，student_name，class_id，sex,home_add，telephone)
values（’0000001’,’张三’，'001’，'0'，’无锡市’，'18851501067'）
修改学生
updatestudent
setstudent_name=’张小三'
wherestudent_id='0000001'
删除学生
deletestudent
wherestudent_id=’0000001’
课程管理
添加课程
insertclassname
（classname_id，classname_name）
values（’01’,’软件技术'）
修改课程
updateclassname
setclassname _id='02'
删除课程
deleteclassname
whereclassname_id='02'
管理员管理
添加管理员
insertmanager
(password，manager_name）
values（'011010','we')
修改管理员
updatemanager
setpassword=’020202'
删除管理员
deletemanager
wherepassword=’020202'
成绩查询
select grade
from grade
where student_id=’0000001'
输入成绩
insert grade
（grade_id，grade,course_id)
values('00000001’，'89.0’，'000001'）
3.3.数据库的插入与实现
3。31 添加页面的程序代码
1。SQL与addclass 的绑定
〈%@LANGUAGE=”VBSCRIPT”％>
〈！--＃include file=”.。/Connections/conn.asp" ——〉
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server。CreateObject（"ADODB.Recordset”)
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1。Source = ”SELECT class_id， class_name FROM dbo。class”
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1。LockType = 1
Recordset1.Open（)
Recordset1_numRows = 0
%〉
<table width=”400” border="1”>
<tr>
〈td width=”161”〉班级号</td〉
<td width="197”〉班级名</td〉
</tr〉
〈tr>
〈td><％=(Recordset1.Fields.Item（"class_id”).Value）%〉〈/td〉
<td><％=(Recordset1。Fields。Item（”class_name"）。Value)％〉</td>
〈/tr〉
〈tr>
〈td〉〈％=（Recordset1.Fields。Item(”class_name”）.Value)％〉〈/td〉
〈td〉〈%=（Recordset1.Fields。Item（”class_name”）。Value)％〉</td>
</tr>
〈tr>
〈td〉〈％=（Recordset1。Fields.Item(”class_id”)。Value）%〉</td>
<td〉〈％=（Recordset1。Fields。Item（”class_name"）.Value）％〉</td〉
</tr>
〈/table〉
2.SQL与addcourse 的绑定
〈％＠LANGUAGE=”VBSCRIPT”%〉
<！—-＃include file=”.。/Connections/conn。asp" ——〉
〈%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB。Recordset”)
Recordset1。ActiveConnection = MM_conn_STRING
Recordset1。Source = "SELECT ＊ FROM dbo。course”
Recordset1。CursorType = 0
Recordset1。CursorLocation = 2
Recordset1。LockType = 1
Recordset1。Open（）
Recordset1_numRows = 0
%>
<table width=”400” border=”1”〉
〈tr>
〈td>课程号〈/td〉
<td>课程名〈/td>
〈/tr>
〈tr〉
〈td><％=（Recordset1.Fields。Item（”course_id"）。Value）%〉〈/td>
<td〉<％=(Recordset1.Fields。Item（”course_name”)。Value）％〉</td〉
〈/tr〉
〈tr〉
〈td〉〈％=（Recordset1。Fields。Item（"course_id”)。Value）%〉〈/td>
〈td〉<%=(Recordset1。Fields。Item（"course_name”）.Value）％〉〈/td〉
〈/tr>
</table〉
3.SQL与adddepartment的绑定
<％＠LANGUAGE=”VBSCRIPT”%〉
〈！--＃include file="。./Connections/conn.asp” --〉
〈%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server。CreateObject（”ADODB。Recordset”）
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1。Source = "SELECT * FROM dbo.department”
Recordset1。CursorType = 0
Recordset1。CursorLocation = 2
Recordset1。LockType = 1
Recordset1。Open()
Recordset1_numRows = 0
％〉
<table width="400” border=”1"〉
<tr〉
〈td>系号〈/td>
〈td〉系名〈/td〉
〈/tr>
<tr>
〈td>〈%=（Recordset1。Fields。Item(”department_id”).Value)％〉</td>
<td〉〈％=(Recordset1。Fields。Item（”department_name”)。Value)％>〈/td〉
</tr〉
〈tr>
<td〉〈％=（Recordset1。Fields.Item(”department_id”).Value）%〉〈/td〉
<td><％=(Recordset1.Fields.Item（”department_name”）。Value)%〉</td〉
〈/tr〉
〈/table〉
4.SQL与addguanliyuan 的绑定
<%@LANGUAGE="VBSCRIPT”％〉
〈！—-＃include file=”。./Connections/conn。asp" ——>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server。CreateObject(”ADODB.Recordset”）
Recordset1。ActiveConnection = MM_conn_STRING
Recordset1。Source = ”SELECT manager_id， manager_name FROM dbo。manager”
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1。LockType = 1
Recordset1.Open（)
Recordset1_numRows = 0
％>
<table width=”400” border=”1”〉
<tr〉
<td>管理员号</td>
<td〉管理员名</td>
〈/tr>
<tr>
〈td>〈%=(Recordset1.Fields.Item("manager_name"）.Value）%>〈/td〉
〈td〉〈％=(Recordset1.Fields。Item（"manager_name”).Value）%〉</td〉
〈/tr〉
〈tr〉
<td〉〈%=（Recordset1。Fields。Item(”manager_id”）。Value）％〉〈/td〉
〈td〉〈％=（Recordset1。Fields。Item（”manager_name”）.Value）％〉</td>
〈/tr>
</table>
5.SQL与addstudent 的绑定
〈%＠LANGUAGE=”VBSCRIPT"%〉
〈!-—＃include file=”。./Connections/conn.asp" --〉
〈%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server。CreateObject(”ADODB。Recordset”)
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = ”SELECT student_id， student_name FROM dbo.student”
Recordset1。CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open（）
Recordset1_numRows = 0
％>
〈table width=”400” border="1”〉
〈tr>
〈td〉学号</td〉
〈td〉姓名〈/td>
〈/tr>
<tr〉
<td〉〈％=（Recordset1。Fields。Item(”student_id"）.Value）%〉〈/td〉
〈td>〈％=(Recordset1.Fields。Item("student_name”）.Value)％〉〈/td〉
</tr>
〈tr〉
〈td〉<%=（Recordset1。Fields。Item(”student_id”）。Value）％〉〈/td〉
〈td>〈%=（Recordset1。Fields。Item(”student_name”）。Value)%></td>
</tr>
〈/table〉
6。SQL与addteacher的绑定
<％＠LANGUAGE=”VBSCRIPT”%〉
<！-—＃include file=".。/Connections/conn.asp" —-〉
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject（”ADODB.Recordset"）
Recordset1。ActiveConnection = MM_conn_STRING
Recordset1。Source = ”SELECT teacher_id，teacher_name FROM dbo。teacher"
Recordset1。CursorType = 0
Recordset1。CursorLocation = 2
Recordset1。LockType = 1
Recordset1.Open(）
Recordset1_numRows = 0
％〉
〈table width="400" border="1">
<tr〉
〈td〉j教师号〈/td〉
〈td>教师名</td>
〈/tr〉
<tr〉
〈td〉〈%=（Recordset1。Fields.Item(”teacher_id”）。Value）%〉〈/td>
<td>〈%=(Recordset1.Fields。Item（"teacher_name”)。Value）%〉〈/td〉
</tr〉
<tr〉
〈td>〈%=（Recordset1.Fields。Item（”teacher_id"）。Value)%〉</td〉
<td〉〈％=（Recordset1。Fields。Item(”teacher_name”).Value）％〉</td〉
〈/tr〉
〈/table〉
3。32删除页面（程序代码）
7。SQL与delclass 的绑定
〈% dim conn，strsql
strsql=”Provider=SQLOLEDB；Server=L207_18；Database=xcglxt;UID=sa;PWD=as”
set conn= server。CreateObject(”ADODB.connection”）
conn.open strsql
strsql=”select count(*） from class”
set n=con。execute（strsql）
％>
8。SQL与delcourse 的绑定
〈％ dim conn，strsql
strsql=”Provider=SQLOLEDB；Server=L207_18;Database=xcglxt；UID=sa；PWD=as”
set conn= server.CreateObject（”ADODB。connection")
conn.open strsql
strsql=”select count（＊) from course”
set n=con.execute（strsql）
%〉
9。SQL与deldepartment的绑定
〈％ dim conn，strsql
strsql="Provider=SQLOLEDB；Server=L207_18；Database=xcglxt；UID=sa;PWD=as"
set conn= server.CreateObject("ADODB。connection")
conn。open strsql
strsql=”select count（*) from department”
set n=con.execute（strsql）
％〉
10。SQL与delguanliyuan 的绑定
〈％ dim conn，strsql
strsql=”Provider=SQLOLEDB;Server=L207_18;Database=xcglxt;UID=sa；PWD=as”
set conn= server。CreateObject（"ADODB。connection”）
conn。open strsql
strsql=”select count（＊) from department”
set n=con.execute（strsql）
%〉
11.SQL与delstudent 的绑定
<% dim conn,strsql
strsql=”Provider=SQLOLEDB;Server=L207_18；Database=xcglxt；UID=sa；PWD=as”
set conn= server。CreateObject（"ADODB。connection”）
conn.open strsql
strsql=”select count(*) from student”
set n=con。execute(strsql）
％〉
12、SQL与addteacher的绑定
<％ dim conn,strsql
strsql=”Provider=SQLOLEDB;Server=L207_18;Database=xcglxt；UID=sa；PWD=as”
set conn= server.CreateObject（”ADODB.connection"）
conn.open strsql
strsql=”select count(＊) from teacher"
set n=con.execute（strsql）
%>
<％
13。SQL与updateclass 的绑定
<％ dim conn，strsql
strsql=”Provider=SQLOLEDB；Server=。；Database=xcglxt；UID=sa;PWD=as”
set conn= server。CreateObject（”ADODB。connection”)
conn。open strsql
strsql="select count(＊） from class"
set n=con。execute（strsql） ％>
〈％ strsql="select count(*） from class"
set n=con.execute（strsql） %〉
14.SQL与updatecourse 的绑定
〈select name="sel1” id="sel1” runat="server”>
<% dim conn，strsql
strsql=”Provider=SQLOLEDB；Server=.；Database=xcglxt；UID=sa；PWD=as"
set conn= server.CreateObject(”ADODB。connection”)
conn。open strsql
strsql="select count(＊) from teacher”
set n=con.execute(strsql) %〉
〈％for i=1 to n%〉
<option value=”<％=teacher_id％>"〉<%=teacher_id％〉</option〉
〈％next%〉
〈/select〉
15.SQL与updatedepartment的绑定
<％ dim conn，strsql
strsql=”Provider=SQLOLEDB；Server=.;Database=xcglxt；UID=sa;PWD=as”
set conn= server。CreateObject（”ADODB.connection”）
conn。open strsql
strsql=”select count(＊） from Manager"
set n=con。execute（strsql） ％〉
<％ strsql=”select count（*） from Manager”
set n=con.execute（strsql) ％>
16.SQL与updatestudent 的绑定
<％ dim conn，strsql
strsql="Provider=SQLOLEDB；Server=。;Database=xcglxt;UID=sa;PWD=as"
set conn= server。CreateObject（"ADODB.connection"）
conn.open strsql
strsql=”select count(*) from course"
set n=con.execute(strsql) %〉
<％ strsql="select count（*） from course”
set n=con。execute（strsql） %〉
17.SQL与updateteacher的绑定
<％ dim conn，strsql
strsql=”Provider=SQLOLEDB；Server=。;Database=xcglxt；UID=sa；PWD=as”
set conn= server.CreateObject（"ADODB。connection”）
conn.open strsql
strsql="select count（＊） from teach
〈% strsql="select count(*） from teacher"
set n=con。execute（strsql） ％>
' FileName="Connection_ado_conn_string。htm"
’ Type=”ADO"
' DesigntimeType="ADO”
’ HTTP="false"
’ Catalog=””
’ Schema=""
Dim MM_conn_STRING
MM_conn_STRING = ”Provider=SQLOLEDB；Server=L207_18;Database=xcglxt;UID=sa；PWD=as"
%〉j
主页
学生登录
成绩查询
教师登录
输入成绩
管理员登录
管理员管理
添加系部
修改系部
删除系部
添加班级
修改班级
删除班级
添加学生
修改学生
删除学生
添加课程
修改课程
删除课程
添加管理员
修改管理员
删除管理员
添加教师
修改教师
删除教师