机房收费系统 — — 组合查询
- 机房进行到现在也有一段时间了,在代码海中游过来,自己也收获到了很多!现在来跟大家说说自己再组合查询上的一些想法。
- 在自己刚建完窗体时就在想这么麻烦的要怎么才能实现。后来看了网上的一些资料后发现,只要自己理清逻辑思维其实蛮简单的。
- 首先你要判断第一组和是否为空,然后选择组合关系后判断二、三组合是否空值。下面是具体代码实现
-
`If Trim(comboField1.Text) = “” Or Trim(comsign1.Text) = “” Or Trim(txtContent1.Text) = “” Then
MsgBox “请将选项内容填写完整!”, vbOKOnly, “提示”
Exit Sub
Else
txtSQL = txtSQL & ” ” & Change(comboField1.Text) & ” ” & comsign1.Text & “’” & Trim(txtContent1.Text) & “’”If comboRelation1.Text <> “” Then
‘判断第一个组合关系是否选中
If comboField2.Text = “” Or comsign2.Text = “” Or txtContent2.Text = “” Then
‘如果选中,判断第二行内容是否填写完整,且符合要求
MsgBox “请将第二行选项内容填写完整!”, vbOKOnly, “提示”
Exit Sub
Else
txtSQL = txtSQL & ” ” & Change(comboRelation1.Text) & ” ” & Change(comboField2.Text) & ” ” & comsign2.Text & “’” & Trim(txtContent2.Text) & “’”
‘将前两行的条件联系起来,完成SQL语句
If comboRelation2.Text <> “” Then
‘判断第二个组合关系是否选中
If comboField3.Text = “” Or comsign3.Text = “” Or txtContent3.Text = “” Then
‘如果选中,判断第二行内容是否填写完整,且符合要求
MsgBox “请将第三行选项内容填写完整!”, vbOKOnly, “提示”
Exit Sub
Else
txtSQL = txtSQL & ” ” & Change(comboRelation2.Text) & ” ” & Change(comboField3.Text) & ” ” & Trim(comsign3.Text) & “’” & Trim(txtContent3.Text) & “’”
‘将三行的条件联系起来,完成SQL语句
End If
End If
End If
End If`