学生信息管理系统vb课程设计(编辑修改稿)

学生信息管理系统vb课程设计(编辑修改稿)内容摘要：

en wherestr = wherestr + Studentname=39。 amp。 txtStudentName amp。 39。 bwhere = True End If If = 1 And Then If bwhere Then wherestr = wherestr + and wherestr = wherestr + Studentid like 39。 % amp。 txtFStudentID amp。 %39。 VB 课程设计论文 10 bwhere = True End If If = 1 And Then If bwhere Then wherestr = wherestr + and wherestr = wherestr + studentname like 39。 % amp。 txtFStudentName amp。 %39。 bwhere = True End If If = 1 And Then If bwhere Then wherestr = wherestr + and wherestr = wherestr + class like 39。 % amp。 txtFStudentClass amp。 %39。 bwhere = True End If If = 1 Then If bwhere Then wherestr = wherestr + and If = 0 Then wherestr = wherestr + gender like 39。 % amp。 男 amp。 %39。 ElseIf = 1 Then wherestr = wherestr + gender like 39。 % amp。 女 amp。 %39。 End If bwhere = True End If If = 1 And Then If = Then = 00 If bwhere Then wherestr = wherestr + and If Then wherestr = wherestr + acceptancetime39。 amp。 txtFYear + + txtFMon amp。 39。 Else wherestr = wherestr + acceptancetime39。 amp。 txtFYear + + txtFMon amp。 39。 End If bwhere = True End If If = 1 And Then If bwhere Then wherestr = wherestr + and wherestr = wherestr + hometown like 39。 % amp。 txtFHometown amp。 %39。 bwhere = True End If If bwhere Then sqlstr = sqlstr + where + wherestr sqlstr = sqlstr + order by Studentid asc (cmdFindStudent).CommandText = sqlstr 39。 刷新 Grid,这两句不可省 VB 课程设计论文 11 = (cmdFindStudent).Name If = 0 Then MsgBox 在数据库中没找到要查询的对象 , vbOKOnly + vbInformation, 查询失败 End If End Sub 用户查询界面设计 如图 43。 图 43 用户查询界面 查询控件编码： 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 0 And Then Select Case VB 课程设计论文 12 Case 1 39。 学号 wherestr = wherestr + StudentID=39。 amp。 txtKey amp。 39。 Case 2 39。 姓名 wherestr = wherestr + StudentName=39。 amp。 txtKey amp。 39。 Case 3 39。 班级 wherestr = wherestr + Class=39。 amp。 txtKey amp。 39。 Case 4 39。 备注 wherestr = wherestr + Gender=39。 amp。 txtKey amp。 39。 Case 5 39。 关键字 wherestr = wherestr + (studentid like 39。 % amp。 txtKey amp。 %39。 or studentname like 39。 % amp。 txtKey amp。 %39。 or class like 39。 % amp。 txtKey amp。 %39。 ) End Select End If 39。 学号关键字 If And = 1 And Then If wherestr Then If Then wherestr = wherestr + and Else。