文档介绍：学生档案管理系统
课程设计报告
学院:信息科学与工程学院
专业班级:智能科学与技术1001班
姓名:
学号:
指导老师:
目录
需求分析 2
概念结构设计 3
系统功能模块示意及E-R图 3
数据库实施 4
系统程序实施 6
6
7
24
课程设计心得 27
需求分析
系统功能描述:
院系信息管理功能
院系信息的录入,包括院系编号、院系名称、院系职能描述和上级院系等信息;
院系信息的修改;
院系信息的删除;
院系信息的查询;
学生基本信息管理功能
学生基本信息的录入,包括学生编号、姓名、性别、生日等信息
学生基本信息的修改;
学生基本信息的删除;
学生基本信息的查询。
学生奖惩管理功能
学生奖惩信息的录入,包括奖惩日期、奖惩内容等信息;
学生奖惩信息的修改;
学生奖惩信息的删除;
学生奖惩信息的查询。
学生成绩管理功能
学生成绩信息的录入,包括课程编号、学生编号、分数等信息;
学生成绩信息的修改;
学生成绩信息的删除;
学生成绩信息的查询。
系统用户管理功能
系统用户信息的录入,包括用户名、密码等信息;
系统用户信息的修改;
系统用户信息的删除;
系统用户信息的查询。
概念结构设计
学生档案管理系统
院系信息管理
学生信息管理
学生奖惩管理
学生学籍管理
考试成绩管理
系统用户管理
学生基本信息管理
学生照片信息管理
学生受教育经历管理
退学/休学管理
转学/调班管理
课程设置管理
考试成绩管理
针对各个模块不同的表实现添加、修改、删除,以及查询显示记录
学生管理系统管理系统功能模块示意图
学号
姓名
性别
出生日期
政治面貌
电话号码
院系
……
学生
组成
班级
班级
班级号
专业
……
组成
学院
学号
课程名
课程号
成绩
课程
数据库实施
用户表:
学生表:
课程表:
成绩表:
奖惩表:
院系表:
系统程序实施
流程:
登录
进入主界面
选择模块
执行相应功能
代码展示:
Dim chkStr As String '通用区声明,用于记录随机码
Private mand1_Click()
Dim sql As String
t As Integer
Dim rs As New
Dim conn As New
cnt = 0
Set conn = New
"Provider=;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=StudentSystem"
If Trim() = "" Then
MsgBox "用户名不能为空,请重新输入!"
Else: sql = "select * from Users where UserName='" & Trim() & "'"
sql, conn, adOpenKeyset, adLockPessimistic
If = True Then
MsgBox "没有这个用户,请重输入!", vbOKOnly + vbExclamation, ""
= ""
Else: UserName =
If rs("Pwd") = Trim() And = chkStr Then
Unload Me
Else: MsgBox "验证码或密码错误,请重新输入!", vbOKOnly + vbExclamation, ""
= ""
= ""
End If
End If
End If
cnt = cnt + 1
t = 3 Then
Unload Me
End If
End Sub
Private mand2_Click()
Unload Me
End Sub
Private mand3_Click()
= True
= 0