VB成绩查询系统作业.doc

VB程序设计作业 专业： 班级： 学号： 姓名： 一、作业要求 开发一个班级学生信息管理系统，包括学号、姓名、出生年月、班级、身份证号等基本信息，及课程成绩信息，应包含至少5门课程的成绩，及平均成绩，加权总评（应设计权值），处分内容等，并设计数据库表。不同同学的课程名称应有不同，即使相互讨论共同完成作业的同学。 开发VB数据库管理程序，可以对上述数据库进行浏览、添加、修改、查询等操作。查询应可以按姓名进行查询。 作业的提交： 提交纸质版作业，在17或18周。 作业应有封面、作业要求，及以下内容。 数据库设计，包括字段名，字段数据类型，字段长度，字段含义说明等内容，列表说明。 主要界面、主要代码（事件处理过程代码，要说明代码所对应的控件，及作用，如“数据库查询代码”） 鼓励用上课时介绍的控件之外的VB控件完成作业。 二、主要步骤界面 数据库设计 字段名称 数据类型 说明 姓名 文本 学号 数字 出生年月 日期 班级 文本 身份证号 数字 语文 数字 数学 数字 英语 数字 历史 数字 地理 数字 平均成绩 数字 加权总评 数字 处分内容 文本 1. 2. 3. 3. 4. . 三、程序代码 Private Sub Command1_Click() Me.Data1.Recordset.MoveNext If Me.Data1.Recordset.EOF = True Then Me.Data1.Recordset.MovePrevious End If End Sub Private Sub Command2_Click() On Error Resume Next Command1.Enabled = Not Command1.Enabled Command3.Enabled = Not Command3.Enabled Command4.Enabled = Not Command4.Enabled If Command2.Caption = 添加 Then Command2.Caption = 确认 Data1.Recordset.AddNew Text1.SetFocus Else Command2.Caption = 添加 Data1.Recordset.Update Data1.Recordset.MoveLast End If End Sub Private Sub Command3_Click() On Error Resume Next Command1.Enabled = Not Command1.Enabled Command2.Enabled = Not Command2.Enabled Command4.Enabled = Not Command4.Enabled If Command3.Caption = 修改 Then Command3.Caption = 确认 Data1.Recordset.Edit Text1.SetFocus Else Command3.Caption = 修改 Data1.Recordset.Update End If End Sub Private Sub Command4_Click() Dim mno As String mno = InputBox$(请输入姓名, 查找窗) Data1.Recordset.FindFirst 姓名= mno If Data1.Recordset.NoMatch Then MsgBox 无此学生！, , 提示 End Sub Private Sub Command5_Click() Me.Data1.Recordset.MovePrevious If Me.Data1.Recordset.BOF = True Then Me.Data1.Recordset.MoveNext End If End Sub Sub recalculate() Data1.Recordset.MoveFirst Do While Data1.Recordset.EOF = False Data1.Recordset.Edit Dat