【学生信息管理系统 4】：有趣的信息查询

借着休息的这个段儿，我看了一下信息的查询，发现了好玩儿的，仅供自己娱乐，或者博美人（君子）一笑。

首先给大家黏一段有意思的代码，再次强调，本文纯属娱乐，不过还是欢迎指点！（这是查询命令的一段）

Dim txtsql As String
Dim msgtext As String‘定义字符串变量
Dim dd(4) As Boolean’结合后面，这里判断查询方式的选择，不过只有三种方式，不明白这里为什么会是4，dd(4)就是有5个元素的数组了，可是定义成dd(2)也就够了，经过测试，完全没问题。我理解的是：难道是为了防止溢出？
Dim mrc As ADODB.Recordset

1，txtsql = "select * from student_Info where "这一句很是关键，关键在什么地方，通过后面的就可以看出来。

If Check1(0).Value Then '按学号查询，学号不能为空

If Trim(txtsid.Text) = "" Then

smeg = "学号不能为空"
MsgBox smeg, vbOKOnly + vbExclamation, "警告"
txtsid.SetFocus
Exit Sub

Else

dd(0) = True
2，txtsql = txtsql & "student_ID='" & Trim(txtsid.Text) & "'"这里就是在1的基础上写入了按学号查询的命令

End If

End If

If Check1(1).Value Then '按姓名查询，姓名不能为空

If Trim(txtname.Text) = "" Then

smeg = "姓名不能为空"
MsgBox smeg, vbOKOnly + vbExclamation, "警告"
txtname.SetFocus
Exit Sub

Else

dd(1) = True
（ txtsql = txtsql & "student_Name='" & txtname.Text & "'"）
If dd(0) = True Then '如果同时也按学号查询

3，txtsql = txtsql & "and student_Name='" & txtname.Text & "'"这个and可是作用不小，这一句又是在2的基础上附加上了按姓名查询，就是说，有了这个and，查询方式就变成了同时按学号和姓名

Else

4，txtsql = txtsql & "student_Name='" & txtname.Text & "'"其实我觉得这个否则可以不要，就想起了米老师说进厕所那个例子，是男的就进，不是就不进，那么这里也是一样，dd(0)要么为真，要么就为假。这个否则不要的前提是加上了括号中的语句，这里也就是起到了一个说明查询条件的作用。

End If

End If

End If

If Check1(2).Value Then '如果按班号查询，班号不能为空

If Trim(txtclassno.Text) = "" Then

smeg = "班号不能为空"
MsgBox smeg, vbOKOnly + vbExclamation, "警告"
txtclassno.SetFocus
Exit Sub

Else

dd(2) = True

If dd(0) Or dd(1) Then '同时选中第一或第二种查询方法

5，txtsql = txtsql & "and class_No='" & txtclassno.Text & "'"我觉得这句话就更有意思了，这里也有一个and附加的查询条件。可是赋值号后面的那个txtsql变量就有意思了，当dd(0)和dd(1)只满足一个时，它就对应的分别是2和4，当两个同时满足时，它又是对应的3

Else

6，txtsql = txtsql & "calss_No='" & txtclassno.Text & "'"这里与4相同

End If

End If

End If

If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then '防止不能选中查询方式
因为测试过定义为dd(2)，这里的dd(3)删除是不影响结果的，就算是定义为dd(4)，我也不明白这dd(3)是什么意思。根据dd(0,1,2)的表达意义，这里的dd(3)也是一种查询方式，可是根本就没有dd(3)这一种，难道说它的意思是代表所有一切不合法的查询方式？

MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"
Exit Sub

End If

好了，我主要是觉得and这个词用的真的太有意思了，还有那个txtsql变量和dd(4)也很有趣
。

感谢我的妈妈，我调程序调不出来，急得慌，都不想调不想学习，可是我妈说：慢慢来，不要急，总会弄出来的。实在不行就看看别人怎么做的，再不行，你们米老师是干嘛的。

我要好好学习，快乐的学习，在学习中成长，在成长中学习。严格遵守爸妈的六字方针：不慌、不急、不怕！

何下下同学，加油啊！你可千万不要变成河虾，会被人煮了滴！

请大家多多指教，谢谢！