机房收费系统 — 组合查询

时间:2022-09-16 10:23:20

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

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