发布时间 : 星期五 文章学生成绩管理系统 数据库原理课设 - 图文更新完毕开始阅读
沈阳理工大学课程设计专用纸
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