《Visual Basic程序设计基础》习题参考答案(9)

& \成绩.课程号='\& \成绩.课程号=课程.课程号 and \& \成绩.学号=学生.学号) order by 成绩.学号\

Frame1.Caption = \单位：人\

Label2.Caption = Trim(DataList2.Text) & \成绩信息列表\End If cjcx.Refresh

If Not cjcx.Recordset.EOF Then cjcx.Recordset.MoveFirst While Not cjcx.Recordset.EOF

If cjcx.Recordset(\成绩\

dcase = 0 Els

dcase = (cjcx.Recordset(\成绩\– 5 End If

Select Case dcase

Case 4, 5: cjdcjs(0) = cjdcjs(0) + 1 Case 3: cjdcjs(1) = cjdcjs(1) + 1 Case 2: cjdcjs(2) = cjdcjs(2) + 1 Case 1: cjdcjs(3) = cjdcjs(3) + 1 Case 0: cjdcjs(4) = cjdcjs(4) + 1 End Select

cjcx.Recordset.MoveNext Wend

For i = 0 To 4: Text1(i).Text = cjdcjs(i): Next i End Sub 程序4.

（1）数据访问控件以及数据绑定控件的相关属性设置如下：

Adodc1：ConnectionString(\

Data Source = E:\\GYH\\VB\\学籍1b.mdb; Persist Security Info = False\CommandType(\、RecordSource(\学生\LockType(\

Adodc2：ConnectionString(\

Data Source = E:\\GYH\\VB\\学籍1b.mdb; Persist Security Info=False\CommandType(\、RecordSource(\课程\LockType(\

Adodc3：ConnectionString(\

Data Source = E:\\GYH\\VB\\学籍1b.mdb; Persist Security Info = False\CommandType(\、RecordSource(\成绩\LockType(\

Text1：用于显示编辑\学号\，但是本字段不设置数据绑定属性，输入或修改后的\学号\数据通过代码方式写入数据源中。

Text2：DataSource(\、DataField(\姓名\Check1：DataSource(\、DataField(\性别\Text3：DataSource(\、DataField(\出生日期\Text4：DataSource(\、DataField(\奖学金\

Text5：用于显示编辑\课程号\，但是本字段不设置数据绑定属性，输入或修改后的\课程号\数据通过代码方式写入数据源中。

Text6：DataSource(\、DataField(\课程名\Text7：DataSource(\、DataField(\学时数\Text8：DataSource(\、DataField(\学分数\Text9：DataSource(\、DataField(\开课学期\Text10：DataSource(\、DataField(\考试考查标志\

Text11：用于显示编辑成绩表中的\学号\，但是本字段不设置数据绑定属性，输入或修改后的\学号\数据通过代码方式写入数据源中。

Text12：用于显示编辑成绩表中的\课程号\，但是本字段不设置数据绑定属性，输入或修改后的\课程号\数据通过代码方式写入数据源中。

Text12：DataSource(\、DataField(\成绩\ （2）主要事件过程代码 Option Explicit

Dim vlt As Boolean, rn As Variant Private Sub Form_Load() Dim i As Integer For i = 0 To 7

Command1(i).Caption = Mid(\追加更新删除表首前翻后翻表尾返回\2 * i + 1, 2) Next i

Command1(3).Enabled = False: Command1(4).Enabled = False Label1.Caption = \学号：\姓名：\ Label3.Caption = \出生年月：\奖学金：\ Check1.Caption = \性别（选中为男，否则为女）\

Label5.Caption = \课程号：\课程名：\ Label7.Caption = \学时数：\学分数：\

Label9.Caption = \开课学期：\考试考查标志：\ Label11.Caption = \学号：\课程号：\ Label13.Caption = \成绩\

Label14.Caption = \“追加”、“删除”或是修改操作完成之后必须按“更新”按钮\ Caption = \学籍信息浏览编辑\

Text1.Text=Adodc1.Recordset(\学号\课程号\ Text11.Text=Adodc3.Recordset(\学号\Text12.Text=Adodc3.Recordset(\课程号\ vlt = True End Sub

Private Sub Command1_Click(Index As Integer) Dim xh As String, kch As String, answer As Byte On Error GoTo errshow Select Case Index Case 0

Select Case SSTab1.Tab Case 0

Adodc1.Recordset.AddNew: Adodc1.Recordset (\学号\= \ Case 1

Adodc2.Recordset.AddNew: Adodc2.Recordset (\课程号\= \ Case 2

Adodc3.Recordset.AddNew: Adodc3.Recordset (\学号\= \ Adodc3.Recordset (\课程号\ End Select

Case 1

Select Case SSTab1.Tab

Case 0: Adodc1.Recordset.UpdateBatch Case 1: Adodc2.Recordset.UpdateBatch Case 2: Adodc3.Recordset.UpdateBatch End Select

Case 2

answer = MsgBox(\真的确定要删除当前记录吗？\删除确认\ If answer = 1 Then Select Case SSTab1.Tab Case 0

xh = Adodc1.Recordset(\学号\Adodc3.Recordset.MoveFirst Do

Adodc3.Recordset.Find \学号='\ If Not Adodc3.Recordset.EOF Then

Adodc3.Recordset.Delete: Adodc3.Recordset.MoveNext

Else Exit Do End If Loop

Adodc3.Recordset.MoveFirst: Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext Case 1

kch = Adodc2.Recordset(\课程号\ Do

Adodc3.Recordset.Find \课程号='\ If Not Adodc3.Recordset.EOF Then

Adodc3.Recordset.Delete: Adodc3.Recordset.MoveNext Else Exit Do End If Loop

Adodc3.Recordset.MoveFirst: Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext Case 2

Adodc3.Recordset.Delete: Adodc3.Recordset.MoveNext End Select End If

Case 3

Select Case SSTab1.Tab

Case 0: Adodc1.Recordset.MoveFirst Case 1: Adodc2.Recordset.MoveFirst Case 2: Adodc3.Recordset.MoveFirst End Select

Command1(3).Enabled = False: Command1(4).Enabled = False Command1(5).Enabled = True: Command1(6).Enabled = True

Case 4

Select Case SSTab1.Tab Case 0

If Not Adodc1.Recordset.BOF And Adodc1.Recordset.Bookmark > 1 Then Adodc1.Recordset.MovePrevious Else

Command1(3).Enabled = False: Command1(4).Enabled = False End If Case 1