论文部分内容阅读
摘 要：本文首先简要地介绍了学生学籍管理现代化的时代背景，指出学籍管理现代化的必要性和重要性，接着详细阐述了学生学籍管理系统的设计与实现，在学籍系统的设计这一部分，主要是对系统设计到的数据以及主要的功能进行分析，以期提升学校对学生学籍的管理水平。
关键词：学籍管理; 教育管理; 信息化 ; VB; SQL
1引言
本文的重點是系统的设计与实现，以自己开发的学生管理信息系统为例，详细说明开发的一般流程和开发数据库的基本语言。
2设计目的
《数据库系统原理及应用》课程设计是我校计算机科学与技术学科中计算机应用专业（本科）教学大纲要求的重要实践性环节之一，是学习完《数据库系统概论》课程后进行的一次性全面的综合练习。其目的在于：配合《数据库系统概论》课程的教学，使学生能巩固和加深对数据库基础理论和基本知识的理解;掌握使用数据库进行软件设计的基本思想和方法。
3系统结构及功能设计
3.1主要功能模块设计
在仔细分析调查有关学生信息需要的基础上，将得到如下图所示的本系统所处理的数据流程：
3.2 数据库设计
针对学生管理系统的要求，通过对学生学习过程的内容和数据流程分析，设计如下面所示的数据项和数据结构数据库中包含班级信息基本表、课程信息基本表、年级课程开设基本表、成绩基本表、学校信息基本表、年级信息基本表、用户信息基本表。每个表表示数据库中的一个数据表。
3.3各模块主要原代码
①公用模快
'定义一个属性过程反映连接字符串
Public Property Get conString（） As Variant
conString = "data source=.;initial catalog=Sims_four;user id=sa;password=;"
End Property
'定义一个提供者反映数据库类型
Public Property Get conProvide（） As Variant
conProvide = "sqloledb"
End Property
②数据备分还原模块
Dim cn As ADODB.Connection
Dim success As Long
Dim ret As Long '返回值
Dim buff As String
Private Sub Check1_Click（）
buff = String（255， 0）
ret = GetPrivateProfileString（"BackUp"， "Restore"， ""， buff， 256， App.Path & "＼Sims.ini"）
If ret = 0 Then
MsgBox "你无权执行还原数据库的操作，请与管理员联系！"， vbOKOnly + vbInformation， "还原数据库"
Unload Me
Exit Sub
End If
If Check1.Value = 1 Then
buff = String（255， 0）
ret = GetPrivateProfileString（"BackUp"， "NewFile"， ""， buff， 256， App.Path & "＼Sims.ini"）
If ret <> 0 Then cboFile.Text = buff
Else
cboFile.Text = ""
End If
End Sub
Private Sub cmdExit_Click（）
success = WritePrivateProfileString（"BackUp"， "Restore"， ""， App.Path & "＼Sims.ini"）
Unload Me
End Sub
Private Sub cmdRestore_Click（）
On Error GoTo err1
buff = String（255， 0）
ret = GetPrivateProfileString（"BackUp"， "Restore"， ""， buff， 256， App.Path & "＼Sims.ini"）
If ret = 0 Then
MsgBox "你无权执行还原数据库的操作，请与管理员联系！"， vbOKOnly + vbInformation， "还原数据库"
Unload Me
Exit Sub
End If...
4调试运行结果
输入ID密码登陆后。进行年级、班级、课程、学籍、课程、成绩等信息的设置与填加;查询界面可以支持班级、课程、成绩、学籍的查询;数据的备分及还原。
5结语
通过这次课程设计，我更加熟练的掌握了使用VB进行SQL数据库软件开发的方法，加深了对数据库课程知识的理解，在今后的学习中我会加强理论与实践的结合，通过不断的摸索来弥补自己在软件制作方面的差距。
参考文献：
[1]杨建强. 基于B/S的学生学籍管理系统的设计与实现[J]. 福建电脑， 2007（6）：121-122.
关键词：学籍管理; 教育管理; 信息化 ; VB; SQL
1引言
本文的重點是系统的设计与实现，以自己开发的学生管理信息系统为例，详细说明开发的一般流程和开发数据库的基本语言。
2设计目的
《数据库系统原理及应用》课程设计是我校计算机科学与技术学科中计算机应用专业（本科）教学大纲要求的重要实践性环节之一，是学习完《数据库系统概论》课程后进行的一次性全面的综合练习。其目的在于：配合《数据库系统概论》课程的教学，使学生能巩固和加深对数据库基础理论和基本知识的理解;掌握使用数据库进行软件设计的基本思想和方法。
3系统结构及功能设计
3.1主要功能模块设计
在仔细分析调查有关学生信息需要的基础上，将得到如下图所示的本系统所处理的数据流程：
3.2 数据库设计
针对学生管理系统的要求，通过对学生学习过程的内容和数据流程分析，设计如下面所示的数据项和数据结构数据库中包含班级信息基本表、课程信息基本表、年级课程开设基本表、成绩基本表、学校信息基本表、年级信息基本表、用户信息基本表。每个表表示数据库中的一个数据表。
3.3各模块主要原代码
①公用模快
'定义一个属性过程反映连接字符串
Public Property Get conString（） As Variant
conString = "data source=.;initial catalog=Sims_four;user id=sa;password=;"
End Property
'定义一个提供者反映数据库类型
Public Property Get conProvide（） As Variant
conProvide = "sqloledb"
End Property
②数据备分还原模块
Dim cn As ADODB.Connection
Dim success As Long
Dim ret As Long '返回值
Dim buff As String
Private Sub Check1_Click（）
buff = String（255， 0）
ret = GetPrivateProfileString（"BackUp"， "Restore"， ""， buff， 256， App.Path & "＼Sims.ini"）
If ret = 0 Then
MsgBox "你无权执行还原数据库的操作，请与管理员联系！"， vbOKOnly + vbInformation， "还原数据库"
Unload Me
Exit Sub
End If
If Check1.Value = 1 Then
buff = String（255， 0）
ret = GetPrivateProfileString（"BackUp"， "NewFile"， ""， buff， 256， App.Path & "＼Sims.ini"）
If ret <> 0 Then cboFile.Text = buff
Else
cboFile.Text = ""
End If
End Sub
Private Sub cmdExit_Click（）
success = WritePrivateProfileString（"BackUp"， "Restore"， ""， App.Path & "＼Sims.ini"）
Unload Me
End Sub
Private Sub cmdRestore_Click（）
On Error GoTo err1
buff = String（255， 0）
ret = GetPrivateProfileString（"BackUp"， "Restore"， ""， buff， 256， App.Path & "＼Sims.ini"）
If ret = 0 Then
MsgBox "你无权执行还原数据库的操作，请与管理员联系！"， vbOKOnly + vbInformation， "还原数据库"
Unload Me
Exit Sub
End If...
4调试运行结果
输入ID密码登陆后。进行年级、班级、课程、学籍、课程、成绩等信息的设置与填加;查询界面可以支持班级、课程、成绩、学籍的查询;数据的备分及还原。
5结语
通过这次课程设计，我更加熟练的掌握了使用VB进行SQL数据库软件开发的方法，加深了对数据库课程知识的理解，在今后的学习中我会加强理论与实践的结合，通过不断的摸索来弥补自己在软件制作方面的差距。
参考文献：
[1]杨建强. 基于B/S的学生学籍管理系统的设计与实现[J]. 福建电脑， 2007（6）：121-122.