VB课程设计报告--学生成绩管理系统.docVIP

课程设计报告 课程名称：　 Visual Basic实用教程　　　 设计题目：　 学生成绩管理系统　 指导教师：　　 　　　　 时 间：　2010 ～ 2011　 学年第 一 学期 南京人口学院信息科学系 课程设计课程设计要求 2、课程表 3、成绩表 二、窗体 1、主窗体。包含课程管理、学生管理、选课管理、成绩管理、退出5个按钮，通过单击各个按钮，启动不同窗体实现各自的功能。 代码： Private Sub Command1_Click() Form2.Show End Sub Private Sub Command2_Click() Form3.Show End Sub Private Sub Command3_Click() Form4.Show End Sub Private Sub Command4_Click() Form5.Show End Sub Private Sub Command5_Click() End End Sub 2、课程管理窗体。主要功能是对课程表的记录进行浏览、添加、编辑、删除、实现对课程信息的管理，界面自行设计 代码： Private Sub Command1_Click() Data1.Recordset.AddNew Data1.Recordset.Update Data1.Recordset.MoveLast End Sub Private Sub Command2_Click() Data1.Recordset.Edit Data1.Recordset.Update End Sub Private Sub Command3_Click() Dim mag mag = MsgBox(要删除吗？, vbYesNo, 删除记录) If mag = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveLast End If End Sub 3、学生管理窗体。主要功能是对学生表的记录进行浏览、添加、编辑、删除、实现对课程信息的管理，界面自行设计 代码： Private Sub Command1_Click() Data1.Recordset.AddNew Data1.Recordset.Update Data1.Recordset.MoveLast End Sub Private Sub Command2_Click() Data1.Recordset.Edit Data1.Recordset.Update End Sub Private Sub Command3_Click() Dim mag mag = MsgBox(要删除吗？, vbYesNo, 删除记录) If mag = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveLast End If End Sub 4、选课管理窗体。主要功能是每个学生通过选择课程表中所设定的课程，产生选课纪录，并在成绩表中记录选课情况，形成一个只有学号、课程号，而成绩为空的空白成绩表。界面自行设计 Dim num As Integer Private Sub Command1_Click() Data1.RecordSource = 学生成绩表 Data1.Refresh For i = 0 To num If List1.Selected(i) = True Then If Data1.Recordset.NoMatch = True Then Data1.Recordset.AddNew Data1.Recordset(学号) = Trim(Text1.Text) Data1.Recordset(课程号) = sele(i) Data1.Recordset.Update End If End If Next i MsgBox 添加记录成功 End Sub Private Sub Form_Load() Dim i As Integer Data1.RecordSource = 课程表 Data1.Refresh i = 0 Do While Data1.Recordset.EOF = False List1.AddItem Data1.Recordset(课程名) sele(i) = Data1.Recordset(课程号) Data1.Recordset.MoveNext i = i + 1 Loop num = i - 1 End Sub 成绩管理窗体。主要功能是用来录入、修改不同课程的学生成绩。当选择某一课程时