学生信息管理系统设计与开发

) ON [PRIMARY]
GO
4、创建成绩信息表
CREATE TABLE [dbo].[class_info] (
[student_Id] [int] NOT NULL ,
[course_No] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[result] [float] NULL
MsgBox"无此用户!请重新登陆!!",vbCritical,"错误"
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1)
nTryCount=nTryCount+1
If nTryCount>=5 Then
MsgBox"您无权操作本系统！",vbCritical,"错误"
char
10
能
无
student_sex性别
char
2
否
无
Born_date出生日期
Datatime
8
能
无
class_no班级号
int
能
无
Tele_number联系方式
char
10
能
外关键字
ru_date入学日期
Datatime
能
无
address地址
Varchar
50
能
无
comment备注
Varcher
If str<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Exit Sub
Else
strr=InStr(Text1.Text,"'")
If strr<>0 Then
MsgBox"不能输入非法字符！！",vbCritical+vbOKOnly,"错误"
Char
10
否
无
course_score学分
Int
4
能
无
course_time学时
int
4
能
无
course_type课程类型
char
10
能
无
course_start开课时间
char
1
能
无
表3课程基本信息
表4成绩基本信息
字段名
数据类型
大小
是否可空
说明
exam_no成绩号
Char
10
否
主关键字
Student_no学号
[course_Type] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[course_start] [char] (1) COLLATE Chinese_PRC_CI_AS NULL ,
[course_time] [int] NULL ,
[course_score] [int] NULL
Combo1.AddItem “女”
sqlstr = “select from class_Info “
Set rst = QuerySQL(sqlstr,MsgText)
For i = 1 To rst.RecordCount
Combo2.AddItem rst.Fields(0)
Rst.moveNext
[ru_Date] [datetime] NULL ,
[address] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[comment] [varchar] (200) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
Text2.SelLength=Len(Text2)
nTryCount=nTryCount+1
If nTryCount>=5 Then
MsgBox"您无权操作本系统！",vbCritical,"错误"
Unload Me
End IfEnd If
End IfEnd If
图13 系统启动窗体
图14用户登录窗体
图7窗口目录的创建
图8班级信息管理创建
图9学生信息管理创建
图10课程信息创建
图11成绩信息管理创建
图12工程主窗体的创建
用户登录：
Dim a As String
Dim b As String
Dim str As String
Dim strr As String
str=InStr(Text2.Text,"'")
数据库及系统整体修改调试
评分项目及分值要素
成绩评定
项目
最高分
评分要素
成绩
1．学习态度
20
上机出勤及端正的学习态度、认真刻苦程度，工作量饱满程度等
2．软件设计质量
40
采用的算法、设计方案，设计结果，界面友好等方面进行综合评定
3．答辩过程
20
能简明扼要地阐述设计的主要内容，能准确流利地回答各种问题
4．设计报告书写
[student_Sex] [char] (2) COLLATE Chinese_PRC_CI_AS NULL ,
[born_Date] [datetime] NULL ,
[class_NO] [int] NULL ,
[tale_Number] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
Int
4
否
外关键字
course_no课程号
Char
10
否
外关键字
result成绩
Int
4
是
无
4、物理结构设计（索引）
图6学生信息管理系统数据流程图
学生基本信息：包括学生学号、姓名、性别、出生日期、联系电话、家庭住址等。
班级基本信息：包括班级号、班级名、班主任等。
课程基本信息：包括课程编号、课程名称、课程类型、学分等。
Set r=DataEnvironment1.rsuser
Dim c As String
Static nTryCount As Integer
c="select*from用户登陆where用户名='"&a&"'"
If r.State=adStateOpen Then r.Close
r.Open c
If r.EOF Then
200
能
无
?表2班级基本信息
字段名
数据类型
大小
是否可空
说明
class_no班级编号
Int
10
否
主关键字
class_name班级名
Char
20
否
无
profession专业
Char
14
能
无
director班主任
charr
10
能
外关键字
字段名
数据类型
大小
是否可空
说明
course_no课程号
Int
否
关键字
course_name课程名
学生成绩信息：包括学生学号、课程编号和考试成绩等。
四、详细系统设计
针对此次学生信息管理系统，分为了学生信息管理，班级信息管理，课程信息管理和成绩信息管理界面，分多种功能操作，由于时间原因，简单针对学生信息管理进行了比较详细的功能操作测试，先是通过菜单编辑器实现了多功能布局操作，选取了学生信息进行了窗口功能操作。例如：点击添加学生信息，可以实现添加学生信息功能，并且单独设置了模拟用户登录界面，实现了用户隐私安全性保护数据。
（5）学生成绩信息的统计。
（6）模拟用户登录操作。
系统功能模块设计：
图1系统功能模块
三、系统数据库设计
1、数据需求分析
用户的需求具体体现在各种信息的提供、保存、更新和查询方面，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本的数据、数据结构以及数据处理的流程，组成一份相近的数据字典，为后面的具体设计打下良好的基础。
10
内容按要求步骤书写，条理清晰，表述清楚、措词得当
5．实际动手能力
10
熟练使用开发工具，能够迅速准确的进行调试、纠错和运行；组长全面负责，承担复杂的模块设计分值就高
总成绩
等 级
评语
1、数据需求分析……………………………………………………………………….3
.2、概念结构设计（ER图）……………………………………………………………….4
Dim i As Integer
男”
Combo2.Text = “200001”:Text5.Text = “2000-01-01”: Text6.Text = “2000-01-01”
Text7.Text = “”: Text8.Text = “”: Text9.Text = “”
Combo1.AddItem “男”
2、概念结构设计（ER图）
图2学wenku.baidu.com实体E-R图
图3 班级实体E-R图
图4 课程实体E-R图
图5实体和实体之间E-R图
3、逻辑结构设计（规范化）
学生管理系统数据库中各个表格的设计如下所示：?
表1学生基本信息
字段名
数据类型
大小
是否为空
说明
student_no学号
int
4
否
主键
student_name姓名
[profession] [char] (14) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
GO
3、创建课程信息表
CREATE TABLE [dbo].[class_info] (
[course_No] [int] NOT NULL ,
[course_Name] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
河南工程学院
《数据库原理及应用》课程设计
成果报告
学生信息管理系统设计与开发
学生学号：
学生姓名：
学 院：计算机学院
专业班级：
专业课程：数据库原理及应用课程设计
指导教师：
年月日
课程设计指导教师评分表
课程设计题目
学生信息管理系统设计与开发
成员
姓名
学号
任务分工
VB系统窗体设计及数据库设计
数据库代码片段筛选及整理
2、总体设计
系统功能分析：
系统开发的目的是实现学生信息管理系统的关系化、规范化和自动化。学生信息管理系统主要提供对学生信息的管理、班级信息的管理、课程信息的管理以及学生成绩的管理。
主要功能有：
（1）有关学生信息的输入、修改和查询。
（2）班级信息的输入、修改和查询。
（3）基本课程的输入、修改和查询。
（4）成绩的输入、修改和查询。
) ON [PRIMARY]
GO
学生信息管理系统主窗体的创建与调试：
图15基础工程窗体概览
图16工程窗体的代码展示
添加学生信息：
图17添加学生信息窗体
Private Sub From_Load()
Dim rst As ADODB.Recordset
Dim sqlstr As String
Dim MsgText As String
GO
2、创建班级信息表
CREATE TABLE [dbo].[class_info] (
[class_No] [int] NOT NULL ,
[class_Name] [char] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[director] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
五、系统调试运行
数据库的创建与调试：
1、创建学生信息表
CREATE TABLE [dbo].[student_Info] (
[student_ID] [int] NOT NULL ,
[student_Name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
3、逻辑结构设计（规范化）…………………………………………………………………5
4、物理结构设计（索引）……………………………………………………………………6
学生信息管理系统设计与开发
一、设计目的
设计目的：建立高效利用的学生信息管理系统，实现大量信息的规范管理、科学统计和快速查询，从而更好的减少管理方面的工作量。
Next i
Rst.Close
End Sub
学生信息管理系统提供了强大的学生信息管理功能，方便管理员对学生信息进行添加、修改、删除、查询、统计等操作。因此，学生信息管理系统能够满足学校的需要，简化学生信息的管理过程，提高管理效率，是学校学生信息管理的一种重要的工具。
二、系统实现思路
1、需求分析
本次的实训课程着手于学生信息管理系统，原因在于学校的规模不断扩大，学生数量也在急剧增加，有关学生的各种信息量也在成倍增长。对于庞大的信息量，一个高效的信息管理系统是能够很大程度上提高学生管理工作的效率。
Unload Me
End If
Else
If b=Trim(r.Fields(1))Then
quanxian=Trim(r.Fields(2))
MDIForm1.Show
Unload MeElse
MsgBox"密码错误!请重新登陆!!",vbCritical,"错误"
Text2.SetFocus
Text2.SelStart=0
Exit Sub
End If
End If
a=Trim(Text1)
b=Trim(Text2)
If a=""Then
MsgBox"用户名不能为空!",vbCritical,"错误"
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1)
Else
Dim r As New ADODB.Recordset