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

End Sub

4.2 系统员管理界面设计

如图4-2。

图4-2 系统员管理界面

关键编码：

Private Sub cmdFStudent_Click() '查找学生

Dim sqlstr As String Dim wherestr As String '判断有无Where语句 Dim bwhere As Boolean

sqlstr = "select * from studenttable" wherestr = "" bwhere = False

If txtStudentName.Text <> "" Then

wherestr = wherestr + " Studentname='" & txtStudentName & "'" bwhere = True End If

If chkFStudentID.Value = 1 And txtFStudentID.Text <> "" Then If bwhere Then wherestr = wherestr + " and "

wherestr = wherestr + " Studentid like '%" & txtFStudentID & "%'"

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