学生成绩管理系统 数据库原理课设 - 图文

沈阳理工大学课程设计专用纸

x = MsgBox(\确实要删除当前记录吗？\确认\If x = vbYes Then

Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else

Adodc1.Refresh End If End Sub

Private Sub Command9_Click() Adodc1.Refresh

Command6.Enabled = True Command8.Enabled = True Command7.Enabled = False Command9.Enabled = False End Sub

Private Sub Form_Load() Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True Command6.Enabled = True Command8.Enabled = True Command7.Enabled = False Command9.Enabled = False

Label6.Caption = \记录：\& Adodc1.Recordset.AbsolutePosition & \& Adodc1.Recordset.RecordCount Combo1.AddItem \男\Combo1.AddItem \女\End Sub

3.5各科信息浏览界面

在表中，显示学生成绩信息表格和学生课程表格；当选中某行记录并单击[修改数据]按钮时，将打开修改信息界面，显示该行记录的信息，并可以修改数据。点击[返回]键返回信息信息浏览界面。 各科信息浏览界面如下：

11

沈阳理工大学课程设计专用纸

图3.6：各科信息浏览

对应代码如下：

Private Sub Command1_Click()

If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox \请选择要修改的行\ Exit Sub End If

修改信息.Show

各科信息浏览.Hide End Sub

Private Sub 返回_Click() 信息浏览.Show Unload Me End Sub

3.6修改信息浏览界面

当选中上面某个人的信息是点击[修改成绩]将会弹出此界面对应学生的信息进行修改点击[更新]按钮将对学生信息进行修改。点击[返回]按钮将弹出各科信息浏览界面。 修改信息浏览界面如下：

12

沈阳理工大学课程设计专用纸

图3.7：修改信息

代码如下：

Private Sub Command1_Click()

各科信息浏览.Adodc1.Recordset.Fields(\学号\各科信息浏览.Adodc1.Recordset.Fields(\课号\各科信息浏览.Adodc1.Recordset.Fields(\类型\各科信息浏览.Adodc1.Recordset.Fields(\成绩\各科信息浏览.Adodc1.Recordset.Fields(\姓名\各科信息浏览.Adodc1.Recordset.Update 各科信息浏览.Adodc1.Refresh End Sub

Private Sub Command2_Click() Unload 修改信息 各科信息浏览.Show End Sub

Private Sub Form_Load()

Text1.Text = 各科信息浏览.Adodc1.Recordset.Fields(\学号\Text2.Text = 各科信息浏览.Adodc1.Recordset.Fields(\课号\Text3.Text = 各科信息浏览.Adodc1.Recordset.Fields(\类型\Text4.Text = 各科信息浏览.Adodc1.Recordset.Fields(\成绩\Text5.Text = 各科信息浏览.Adodc1.Recordset.Fields(\姓名\End Sub

13

沈阳理工大学课程设计专用纸

3.7混合信息查询界面

可以选择按学号、课程号、课程类别，查询相关信息。查询结果中包含：

按学号、课程号、课程类别进行学生成绩信息统计。点击[返回]按钮则进入MDIForm1界面。

混合信息查询界面如下：

图3.8：查询学号

图3.9：查询课号

14