沈阳理工大学课程设计专用纸
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
相关推荐: