机房收费系统 — 组合查询

机房收费系统 — — 组合查询

• 机房进行到现在也有一段时间了，在代码海中游过来，自己也收获到了很多！现在来跟大家说说自己再组合查询上的一些想法。
• 
• 在自己刚建完窗体时就在想这么麻烦的要怎么才能实现。后来看了网上的一些资料后发现，只要自己理清逻辑思维其实蛮简单的。
• 首先你要判断第一组和是否为空，然后选择组合关系后判断二、三组合是否空值。下面是具体代码实现

• `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`