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

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

RecordSource（\成绩.学号,学生.姓名,成绩.课程号,课程.课程名, _

成绩.成绩 from 学生,课程,成绩 where 成绩.课程号 = 课程.课程号 _ and 成绩.学号 = 学生.学号 \

DataGrid1：DataSource(\

DataList1：RowSource(\、ListField (\姓名\）、BoundColumn(\学号\DataList2：RowSource(\、ListField(\课程名\、BoundColumn(\课程号\ （2）主要事件过程代码 Option Explicit Dim p As Byte

Private Sub Form_Load() Dim i As Integer For i = 0 To 4

Label1(i).Caption = Mid(\优秀良好中等及格差等\ Text1(i).Text = \ Text1(i).Locked = True Next i

cjcx.RecordSource = \成绩.学号,学生.姓名,成绩.课程号,课程.课程名, \_

& \成绩.成绩from 学生,课程,成绩 \

\成绩.课程号=课程.课程号 and 成绩.学号=学生.学号\cjcx.Refresh: Label2.Caption = \成绩信息列表\

Label3.Caption = \选择学生姓名:\选择课程名:\xs.Visible = False: kc.Visible = False: cjcx.Visible = False Caption = \学籍信息查询\End Sub

Private Sub DataList1_Click() p = 0: Call cjdctj End Sub

Private Sub DataList2_Click() p = 1: Call cjdctj End Sub

Private Sub cjdctj()

Dim cjdcjs(5) As Integer, dcase As Byte, i As Byte If p = 0 Then

cjcx.RecordSource = \成绩.学号,学生.姓名,成绩.课程号, \

& \课程.课程名,成绩.成绩 from 学生,课程,成绩 \

& \成绩.学号='\ & \成绩.课程号=课程.课程号 and \

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

Frame1.Caption = \单位：门\

Label2.Caption = Trim(DataList1.Text) & \成绩信息列表\Else

cjcx.RecordSource = \成绩.学号,学生.姓名,成绩.课程号, \

& \课程.课程名,成绩.成绩 from 学生,课程,成绩 \