学生信息管理系统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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库学生信息管理系统VB课程设计(12)在线全文阅读。