课程设计讲义
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
学生管理信息系统
2.1 课程设计的目的和意义
学生管理工作包括学生档案、课程和成绩等内容的管理;面对大量的学生数据、报表,手工处理方式已经很难跟上现代化的步伐。随着计算机技术及网络通讯技术的飞速发展,许多学校已经有了较好的计算机应用甚至网络硬件建设基础。因此为提高学校管理工作的现代化、科学化水平,保证信息处理的即时化、准确化,开发一套对学生进行管理的软件是极其重要的。
学生管理系统大体分下面几个方面:
·用户的信息要求:随时查询学生、课程和成绩的情况,对记录能随时删除、插入及恢复。
·用户的处理要求:能随时增加、删除、修改每一个记录。
·对数据的安全性、完整性的要求:要保证每个记录必须必须完整,不能被他人非法窃取。
2.2系统分析与设计
2.2.1 功能描述
1、系统模块
系统模块提供用户信息的管理,验证用户信息、添加。
2、学生管理模块
学生管理模块包括添加学生信息、查询和修改学生信息,这些信息包括学生基本情况、学生简历情况。
3、课程设置模块
课程设置模块提供添加课程信息、查询课程信息和修改课程信息。
4、成绩管理模块
成绩管理模块主要提供添加成绩信息、修改成绩信息、查询成绩信息和成绩排名。
5、帮助模块
帮助模块提供使用说明这一功能。
2.3 数据库设计与实现
2.3.1 需求设计
班级信息,包括班级号、班级名称。
课程信息,包括课程编码、课程名称、课程类型、学时数、学分、授课教师。
系信息,包括系编号、系名称。
成绩信息,包括学号、课程号、成绩。
学生信息,包括学号、姓名、班级编号、出生日期、性别、通讯地址、联系电话和备注。
教师信息,包括员工编号、姓名、系编号、出生日期、性别、通讯地址、联系电话、职称、备注。
密码信息,包括用户名,密码。
2.3.2 数据库表的设计
表2.1 班级信息表(classinfo)的数据结构
表2.2 课程信息表(courseinfo)的数据结构
表2.3 系信息表(departmentinfo)的数据结构
表2.4 成绩信息表(scoreinfo)的数据结构
表2.6 教师信息表(teacherinfo)的数据结构
2.4 VB与数据库的连接
1、添加ADO控件
在程序设计中,ADO不是作为可视化的控件来使用的,如果要在应用程序中使用ADO组件,需要在"工程"菜单下的"部件"项中添加该组件。该组件名称为:"Microsoft ADO Data Control 6.0(OLEDB)"。
2、VB与数据库连接的代码
Set cn = New ADODB.Connection’定义一个ADODB连接
Set rst = New ADODB.Recordset’定义Recordset对象
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名称;Data Source=SQL Server 服务器名称 "
cn.Open
2.5 系统界面的实现
1、登陆窗体
该窗体的功能是保证系统的安全性,对用户名和密码进行验证。
图2.1 登陆界面
确认按钮的Click事件代码
Private Sub Command1_Click()
Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User
ID=sa;Initial Catalog=VBTest;Data Source=C151"
cn.Open
UserName = Trim(Text1.Text) 'mysql = "select * from mima where name='" & Text1.Text & "'and mima='" & Text2.Text
& "'"
mysql = "select * from mima where username='" & UserName & "'"
rst.Open mysql, cn
If rst.EOF Then
MsgBox "没有这个用户,请重新输入用户名!"
cn.Close
Text1.Text = ""
Text1.SetFocus
Else
If Trim(rst("password")) = Trim(Text2.Text) Then 'rst.fields(1) = Text2.Text
frmMain.Show
Else
MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"
cn.Close
Text2.Text = ""
Text2.SetFocus
End If
End If
End Sub
2、添加修改用户信息窗体
提供用户信息的添加和修改功能,只有输入的两次密码一致才能实现添加和修改。
图2.2 修改密码窗体
3、系统菜单窗体
提供系统菜单,是程序更专业化,用户使用更加方便。