|
1、界面设计步骤如下：
 观看视频
2、代码设计
（4）在窗体第一页内（按班级查询），用记录集对象Rs_TB06、Rs_TB03与树形控件TreeView_TB03选择系、班级，用Adodc_XA01与DataGrid_XA01显示指定班级学生档案表。设计过程与例8.5类似，由读者自己完成。
（5）在第二页（按姓名查询）内添加Adodc_XA01_2、DataGrid_XA01_2控件，使用这两个控件与学生档案编码表XA01连接。再添加Lable1与TextBox1，将TextBox1的Name属性改为Text_Name，当用户在文本框Text_Name输入学生姓名时，在DataGrid_XA01_2控件中只显示该姓名学生记录。文本框Text_Name内容改变时触发事件如下。
Private Sub Text_Name_Change()
With Adodc_XA01_2
.CommandType = adCmdText
'下面查询语句实现根据学生姓名查找学生记录
.RecordSource = "Select A.*,GC0102,GC0202,GC0302,GC0402,TB0302 " & _
" From XA01 As A ,GC01,GC02,GC03,GC04 ,TB03 " & _
" Where XA0106 = GC0101 And XA0108 = GC0301 And XA0109 = GC0201 And XA0110=GC0401 " & _
" And XA0114=TB0301 and XA0104 Like '" & Text_Name.text & "%'"
.Refresh
End With
DataGrid_XA01_2.Refresh '将记录显示在DataGrid_XA01_2控件上
End Sub
（6）在第三页（按学号查询）内添加Adodc_XA01_3、DataGrid_XA01_3控件，使用这两个控件与学生档案编码表XA01连接。再添加Lable1与TextBox1，将TextBox1的Name属性改为Text_No，当用户在文本框Text_No输入学生学号时，在DataGrid_XA01_3控件中只显示该学号学生记录。文本框Text_No内容改变时触发事件过程与（5）中程序类似。 |
