学生信息管理系统VB课程设计(12)

DataE.conLibrary.Open DataE.cmdfindstudent dgrdStudent.ClearFields

dgrdStudent.DataMember = http://www.77cn.com.cnmands("cmdFindStudent").Name dgrdStudent.ReBind

If DataE.rscmdFindStudent.RecordCount = 0 Then

MsgBox "在数据库中没找到要查询的对象", vbOKOnly + vbInformation, "查询失败" End If End Sub

4.3 用户查询界面设计

如图4-3。

图4-3 用户查询界面

查询控件编码：

Private Sub cmdSearch_Click() Dim sqlstr As String Dim wherestr As String Dim i As Integer

sqlstr = "select StudentID,StudentName,Class,Gender from StudentTable " wherestr = ""

If cmbItem.ListIndex <> 0 And txtKey.Text <> "" Then Select Case cmbItem.ListIndex