机房收费系统之查询数据

前情提示：
作为机房收费系统中非常重要的一个模块，查询数据在困扰我们的学习方面做出了很大的贡献，但我们终究会克服这一困难，使自己得到成长，让自己得到进步。今天就跟大家分享一些我的收获。

我理解的机房收费系统的查询数据主要分为三类：简单查询、时间段内查询、组合查询。
首先是简单查询:
简单查询的思路比较容易理解：就是根据输入的内容来进行查询。需要注意的就是查询的字段与文本框输入的内容相互对应。以查询卡内余额为例，我们应该先去判断卡号是否为空、卡号是否为数字以及查询内容是否存在等相关内容。接下来进行赋值即可。
部分代码如下：

txtSQL = "select * from student_Info where"

If Not Testtxt(txtCardNO.Text) Then
    MsgBox "请输入卡号！", vbOKOnly, "提示"
    txtCardNO.SetFocus
Else
    If Not IsNumeric(txtCardNO.Text) Then
        MsgBox "卡号请输入数字！", vbOKOnly, "提示"
        txtCardNO.SetFocus
    Else
        txtSQL = "select * from student_Info where cardno ='" & Trim(txtCardNO.Text) & " '"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        If mrc.EOF Then
            MsgBox "用户不存在，请重新输入！", vbOKOnly, "提示"
            txtCardNO.Text = ""
            txtCardNO.SetFocus
        Else
            If Trim(mrc.Fields(0)) = Trim(txtCardNO.Text) Then
                txtStudentNO.Text = Trim(mrc.Fields(1))
                txtName.Text = mrc.Fields(2)
                txtSex.Text = mrc.Fields(3)
                txtDepartment.Text = mrc.Fields(4)
                txtGrade.Text = mrc.Fields(5)
                txtClass.Text = mrc.Fields(6)
                txtStatus.Text = mrc.Fields(10)
                txtExplain.Text = mrc.Fields(8)
                txtBalance.Text = mrc.Fields(7)
            End If
        End If
    End If
End If

接下来是时间段内的查询：
时间段内的查询思路也比较简单，但是查询语句有点不太好写。首先我们应该判断结束日期是否大于等于开始日期。接下来我们就要写一下查询语句了。我就简单说一下我的，仅供参考。
txtSQL = “select * from ReCharge_Info where date >= ‘” & dtpStart.Value & “’ and date <= ‘” & dtpEnd.Value & “’”

其中dtpStart是开始日期的日期控件，dtpEnd是结束日期的日期控件。这里需要注意的是单引号与双引号的用法，双引号主要是用于vb的程序，而单引号主要是用于数据库的。
具体的单双引号的使用的方法请看我的另一篇博客。
接下来就是赋值语句了，我们需要将从数据库里面查到的数据添加到显示的那个控件里。这里就不做过多的赘述。

最后是组合查询：
组合查询在这几个查询里面算是比较难一点的，但还算比较容易理解。我的思路是这样的：先判断组合条件是否为空，若为空，判断第一行的内容是否完整，若不完整则提示，否则查询，若不为空，判断前两行的查询内容是否完整，不完整则提示，完整则判断第二个组合条件是否为空，若为空则查询，不为空则判断前三行的内容是否完整，不完整则提示，否则三行条件一起查询。代码如下：

txtSQL = "select * from Line_Info where "

If comboRe.Text = "" Then

    If Not (Testtxt(comboMrc(0).Text) Or Testtxt(comboOp(0).Text) Or txtCon(0).Text = "") Then
        MsgBox "请输入查询条件！", vbOKOnly, "提示"
        Exit Sub
        comboMrc(0).SetFocus
    Else
        txtSQL = txtSQL & "" & field(comboMrc(0).Text) & comboOp(0).Text & "'" & txtCon(0).Text & "'"

        Set mrc = ExecuteSQL(txtSQL, MsgText)
        GoTo Sentence
    End If
Else
    If comboRe1.Text = "" Then

        If comboMrc(1).Text = "" Or comboOp(1).Text = "" Or txtCon(1).Text = "" Then
            MsgBox "请将第二行选项内容填写完整！", vbOKOnly, "提示"
            comboMrc(1).SetFocus
            Exit Sub
        Else
            txtSQL = txtSQL & "" & field(comboMrc(0).Text) & comboOp(0).Text & "'" & txtCon(0).Text & "'"
            txtSQL = txtSQL & " " & field(comboRe.Text) & " " & field(comboMrc(1).Text) & comboOp(1).Text & "'" & txtCon(1).Text & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
            GoTo Sentence
            Exit Sub
        End If

    Else

        If comboMrc(2).Text = "" Or comboOp(2).Text = "" Or txtCon(2).Text = "" Then
            MsgBox "请将第三行选项内容填写完整！", vbOKOnly, "提示"
            comboMrc(2).SetFocus
            Exit Sub
        Else
            txtSQL = txtSQL & "" & field(comboMrc(0).Text) & comboOp(0).Text & "'" & txtCon(0).Text & "'"
            txtSQL = txtSQL & " " & field(comboRe.Text) & " " & field(comboMrc(1).Text) & comboOp(1).Text & "'" & txtCon(1).Text & "'"
            txtSQL = txtSQL & field(comboRe1.Text) & " " & field(comboMrc(2).Text) & comboOp(2).Text & " '" & txtCon(2).Text & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
            GoTo Sentence
            Exit Sub
        End If
    End If
End If

If mrc.EOF Then
    MsgBox "该条件的数据不存在，请您重新输入！", vbOKOnly, "提示"
    comboMrc(0).SetFocus
    Exit Sub
End If

Sentence:
    With myFlexGrid
        .Rows = 1
        .TextMatrix(0, 0) = "卡号"
        .TextMatrix(0, 1) = "姓名"
        .TextMatrix(0, 2) = "上机日期"
        .TextMatrix(0, 3) = "上机时间"
        .TextMatrix(0, 4) = "下机日期"
        .TextMatrix(0, 5) = "下机时间"
        .TextMatrix(0, 6) = "消费金额"
        .TextMatrix(0, 7) = "余额"
        .TextMatrix(0, 8) = "备注"
        .ColWidth(2) = 2000
        .ColWidth(4) = 2000
    End With

If mrc.EOF Then
        MsgBox "暂无记录，请您重新输入！", vbOKOnly, "提示"
Else

   With myFlexGrid
       Do While Not mrc.EOF
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(1))
            .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3))
            .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(6))
            .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(7))
            .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(8)) & ""
            .TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(9)) & ""
            .TextMatrix(.Rows - 1, 6) = Trim(mrc.Fields(11)) & ""
            .TextMatrix(.Rows - 1, 7) = Trim(mrc.Fields(12)) & ""
            .TextMatrix(.Rows - 1, 8) = Trim(mrc.Fields(13)) & ""
            mrc.MoveNext
        Loop

        mrc.Close
    End With
End If

总结：查询数据的主要就是理清思路然后写好查询语句，最后将数据添加上就好。当然这仅仅是个人见解，还请大家多提意见。