机房收费系统之组合查询

机房收费系统之组合查询

    Select Case Combo4
        Case "卡号"
        ZiDuan(1) = "cardID"
        Case "姓名"
        ZiDuan(1) = "studentName"
        Case "上机日期"
        ZiDuan(1) = "OnboardDate"
        Case "上机时间"
        ZiDuan(1) = "OnboardTime"
        Case "下机日期"
        ZiDuan(1) = "OffboardDate"
        Case "下机时间"
        ZiDuan(1) = "OffboardTime"
        Case "消费金额"
        ZiDuan(1) = "OnboardCost"
        Case "余额"
        ZiDuan(1) = "RemainMoney"
        Case "备注"
        ZiDuan(1) = "BeiZhu"
    End Select
    
        Select Case Combo3
        Case "与"
        ZuHeRelation(0) = "and"
        Case "或"
        ZuHeRelation(0) = "or"
    End Select

End Sub

Private Sub SQL()
        txtSQL = "select * from studentOnboardRecord_Info where "
	
	    If Combo1.Text = "" Then
        MsgBox "字段不能为空", vbOKOnly + vbExclamation, "提示"
        Combo1.SetFocus
        Exit Sub
    End If
		    If Combo2.Text = "" Then
        MsgBox "操作符不能为空", vbOKOnly + vbExclamation, "提示"
        Combo2.SetFocus
        Exit Sub
    End If
		    If Text1.Text = "" Then
        MsgBox "查询内容不能为空", vbOKOnly + vbExclamation, "提示"
        Text1.SetFocus
        Exit Sub
    End If
    
    Call QueryCondition1
    
	
    If Combo3.Text = "" Then
        txtSQL = txtSQL & " " & Trim(ZiDuan(0)) & "  " & Trim(Combo2.Text) & " '" & Trim(Text1.Text) & "'"
    Else
		        If Combo4.Text = "" Then
            MsgBox "字段不能为空", vbOKOnly + vbExclamation, "提示"
            Combo4.SetFocus
            Exit Sub
        End If
			        If Combo5.Text = "" Then
            MsgBox "操作符不能为空", vbOKOnly + vbExclamation, "提示"
            Combo5.SetFocus
            Exit Sub
        End If
			        If Text2.Text = "" Then
            MsgBox "查询内容不能为空", vbOKOnly + vbExclamation, "提示"
            Text2.SetFocus
            Exit Sub
        End If
        ‘调用查询条件2
        Call QueryCondition2
        
		        If Combo6.Text = "" Then
            txtSQL = txtSQL & " " & Trim(ZiDuan(0)) & "  " & Trim(Combo2.Text) & " '" & Trim(Text1.Text) & "' " & Trim(ZuHeRelation(0)) & " " & Trim(ZiDuan(1)) & "  " & Trim(Combo5.Text) & " '" & Trim(Text2.Text) & "'"
        Else
			            If Combo7.Text = "" Then
                MsgBox "字段不能为空", vbOKOnly + vbExclamation, "提示"
                Combo7.SetFocus
                Exit Sub
            End If
				            If Combo8.Text = "" Then
                MsgBox "操作符不能为空", vbOKOnly + vbExclamation, "提示"
                Combo8.SetFocus
                Exit Sub
            End If
				            If Text3.Text = "" Then
                MsgBox "查询内容不能为空", vbOKOnly + vbExclamation, "提示"
                Text3.SetFocus
                Exit Sub
            End If
            
			            Call QueryCondition3
            txtSQL = txtSQL & " " & Trim(ZiDuan(0)) & "  " & Trim(Combo2.Text) & " '" & Trim(Text1.Text) & "' " & Trim(ZuHeRelation(0)) & " " & Trim(ZiDuan(1)) & "  " & Trim(Combo5.Text) & " '" & Trim(Text2.Text) & "' " & Trim(ZuHeRelation(1)) & " " & Trim(ZiDuan(2)) & "  " & Trim(Combo8.Text) & " '" & Trim(Text3.Text) & "'"
        End If
    End If
End Sub