学生管理系统之查询窗体

查询窗体的特色在于三种查询之间的关系。既可以按照单一条件查询也可以按照用户自定义选择查询。

If Check1(0).Value Then                                              '选中第一个单选框        If Trim(txtSID.Text) = "" Then                                   '防止学号为空            MsgBox "学号不能为空！", vbOKOnly + vbExclamation, "警告"            txtSID.SetFocus            Exit Sub        Else            If Not IsNumeric(Trim(txtSID.Text)) Then                     '学号必须为数字                MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"                 Exit Sub                txtSID.SetFocus                                         End If            dd(0) = True                                                  '赋值，与check1(1),check1(2)建立关系            txtSQL = txtSQL & "student_ID= '" & Trim$(txtSID.Text) & "'"  '从学籍信息表中查找学生ID        End If    End If    If Check1(1).Value Then                                                '选中第二个单选框        If Trim(txtName.Text) = "" Then                                    '防止姓名为空            MsgBox "姓名不能为空！", vbOKOnly + vbExclamation, "警告"            txtName.SetFocus            Exit Sub        Else            dd(1) = True                                                  '赋值，与check1(2)建立关系            If dd(0) Then                                                 '选中第一个单选框                txtSQL = txtSQL & "and student_Name= '" & txtName.Text & "'"   '学生ID和学生姓名            Else                                                          '如果没选中第一个输入框                txtSQL = txtSQL & "student_Name= '" & txtName.Text & "'"   '查找学生姓名            End If        End If    End If    If Check1(2).Value Then                                               '选中第三个输入框        If Trim$(txtCourse.Text) = "" Then                                '确保课程不为空            MsgBox "课程不能为空!", vbOKOnly + vbExclamation, "警告"            txtCourse.SetFocus            Exit Sub        Else            dd(2) = True                                                   '便利后面的判断            If dd(0) Or dd(1) Then                                         '判断选中的是check1(0)，还是check1(1).                txtSQL = txtSQL & "and course_Name= '" & txtCourse.Text & "'"            Else                                                           '只选第三个                txtSQL = txtSQL & "course_Name= '" & txtCourse.Text & "'"  '从表中查找课程名            End If        End If    End If    If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then                         '防止都不选的情况发生        MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"        Exit Sub    End If