前言:
有了信息之后,就是对这些信息进行查询了!
内容:
1、设置查询方式
If Not (dd(0) Or dd(1) Or dd(2)) Then
MsgBox "请设置查询方式!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
2、查询内容不为空
'判断是否选择姓名查询方式
If Check1(1).Value Then
'判断是否输入姓名
If Trim(txtName.Text) = "" Then
sMeg = "姓名不能为空"
MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
txtName.SetFocus
Exit Sub
Else
dd(1) = True
If dd(0) Then
'组合查询语句
txtSQL = txtSQL & "and student_Name= '" & txtName.Text & "'"
Else
txtSQL = txtSQL & "student_Name= '" & txtName.Text & "'"
End If
End If
End If
3、查询满足的内容并显示
'查询所有满足条件的内容
txtSQL = txtSQL & "order by student_ID "
'执行查询语句
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.BOF = True Then
MsgBox "无查询记录!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
'将查询语句显示在表格控件中
With myFlexgrid
.Rows = 2
.CellAlignment = 4
.TextMatrix(1, 0) = "学号"
.TextMatrix(1, 1) = "姓名"
.TextMatrix(1, 2) = "性别"
.TextMatrix(1, 3) = "出生日期"
.TextMatrix(1, 4) = "班号"
.TextMatrix(1, 5) = "联系电话"
.TextMatrix(1, 6) = "入校日期"
.TextMatrix(1, 7) = "家庭住址"
4、如果复选框没有被选中,后面的文本框不可以输入
If Check1(0).Value = Unchecked Then
txtSID.Enabled = False
txtSID.Text = ""
Else
txtSID.Enabled = True
txtSID.SetFocus
End If
后记:
其实查询窗体的逻辑顺序就是:设置查询的方式,输入查询的内容,可以复合查询,最后将查询的内容显示出来即可。