学生选课管理系统讲解

Private Sub CmdAdd_Click() Adodcstudent.Recordset.AddN ew CmdAdd.Enabled = False CmdDel.Enabled = False CmdUpdate.Enabled = True End Sub



系统详细结构图如下所示 ：
学生选 课管理 系统
学生 信息
课程 信息
学生 选课
查询学 生信息
修改学 生信息
添加学 生信息
删除学 生信息
查询课 程信息
修改课 程信息
添加课 程信息
删除课 程信息
选课 操作
查询及 删除所 选课程
学生选课管理系统主要实现从学生、课程到选 课的一体化管理，涉及学生信息、课程信息、学生 选课三个实体。下面简单介绍几个关键的实体和系 统的综合E-R图。
student course choose
将数据库建好后，成功连接数据源 ODBC，就可以实现系统的开发了。下面 我将一一介绍我所做系统的各个界面以 及相关代码。
登录界面——
通过左图所示界面可 以登录系统，只有输入 了正确的用户名和密码 才能进入系统，否则提 示“请输入正确的用户 名和密码！”三次登录 失败，将会退出系统。 点击“注销”按钮， 出现确认注销提示，选 择“是”退出系统，选 择”否“继续留在当前 页面。
通过正确输入，进入到学生选课管 理系统的界面——
学生信息管理——
此界面可以实现学生信息的查询、修改、添加、 删除等操作，通过点击“第一条”等的按钮，实现信 息的翻页功能。
☆

查找代码：
Private Sub Command1_Click() If Len(Text1.Text) > 0 Then Adodcstudent.CommandType = adCmdText Adodcstudent.RecordSource = "select sno,sname,ssex,sdept from student where sno='" & Trim(Text1.Text) & "'" Adodcstudent.Refresh Else MsgBox ("请输入要查找的学号") End If End Sub
学号
选课
姓名
图3 学生选课管理系统选课实体属性E-R分图
学生选课管理系统实体关系E-R图
学生选课管理系统各个实体之间的关系如 图4所示。
学生
选课
课程
图4 视图关系E-R图
由于本系统是由VB+SQL server联合 开发的，所以需要设计相关的信息表， 将信息导入表内，通过数据源ODBC将VB 与SQL Server连接起来。本系统涉及到 三个表：
学生选课管理系统
● 系统背景和意义介绍 ● 系统开发平台 ● 系统总体设计 ● 系统详细设计 ● 总结
项目背景——
随着我国经济的迅速发展，教育机 构的管理水平也在不断的提高，在学校 内部利用计算机进行管理已成为一种必 然。目前计算机的迅猛发展突破了时间、 空间的局限性，给学校管理带来了极大 的方便。为了适应社会的发展，提高学 校的管理效率，学校必须改变以前的传 统管理方式，利用计算机管理软件逐步 淘汰落后的手工管理方式。本课程设计 《学生选课管理系统》就是为一个学校 选课系统而开发的管理软件，可以利用 计算机方便的实现学生信息、课程信息、 选课等诸多环节的管理。
系统开发的软件平台主要有：
1.操作系统：Windows XP/ Windows 7
2.数据库：Microsoft SQL Server 2000 3.VB:Microsoft Visual Basic 6.0
系统界面设计

系统登录 该部分主要实现登陆限制功能及退出系统。 学生信息 该部分主要实现四个功能：查询学生信息，添加学生信息，修改学生 信息，删除学生信息。 课程信息 该部分主要实现四个功能：查询课程信息，添加课程信息，修改课程 信息，删除课程信息。 学生选课 该部分主要实现两大部分功能：学生选课操作，所选课程查询及删除。
点回车键可以进入系统的代码： Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command7_Click End If End Sub


初始化及密码为*的代码：
Private Sub Form_load() cnt = 0 Text1.Text = "" Text2.Text = "" Text2.PasswordChar = "*" End Sub
登录相关代码如下所示

用户名及密码设置的代码：
Private Sub Command7_Click() If Text1 = “**" And Text2 = “***" Then LoginSucceeded = True Form2.Show Text1.Text = "" Text2.Text = "" Else MsgBox "请输入正确的用户名和密码！ “ End If Text1.Text = "" Text2.Text = "“ cnt = cnt + 1 If cnt = 3 Then MsgBox "三次登录失败，请明天再试吧！ “ Unload Me End If End Sub
● 学生实体属性图
学生实体包括：学号、姓名、性别和所在系属性，如图1所示。
性别
姓名
学生
所在 系
学号
图1 学生选课管理系统学生实体属性E-R分图
● 课程实体属性图
课程实体包括：课程号、课程名、学分和学期 属性。如图2所示。
学分
课程名
课程
课程号
学期
图2 学生选课管理系统课程实体属性E-R分图
● 选课实体属性图 选课实体包括：学号、姓名和课程名属性。 如图3所示。 课程名
源自文库
添加代码
删除代码 Private Sub CmdDel_Click() Dim res As Integer res = MsgBox("确定要删除此行 记录吗?", vbExclamation + vbYesNo + vbDefaultButton2) If res = vbYes Then Adodcstudent.Recordset.Delete Adodcstudent.Recordset.MoveNe xt End If End Sub