趣味组合查询——机房收费

这两天实现了组合查询的基本功能，发现很多有意思的事儿。大家一起来看看是不是很有趣！

【趣味一】代码的复用

“多个不同的事件过程需要执行一段相同的程序代码，完成相同或相似的任务，为了避免程序代码的重复，也便于程序的修改，可以把这一段代码独立出来，作为一个过程，这样的过程称为通用过程，该过程独立于事件过程，可供事件过程和其他通用过程调用。”——此段话出自《VB程序设计》P168页，有兴趣的同学可以再次深入的研究一下。

实例一：窗体模块

</pre><pre name="code" class="vb"><span style="font-size:18px;">Public Function tianjia()                   '自定义函数，当查询成功后，调用此函数，显示数据库内容
Set mrc = ExecuteSQL(txtSQL, Msgtext)       '在line表中查询记录
With myflexgrid                             '在grid控件中加载字段
    .Rows = 1
    .CellAlignment = 4
    .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) = "备注"
    
    Do While Not mrc.EOF
        .Rows = .Rows + 1                   '在grid控件中显示数据库数据
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(1))     'trim函数目的是使grid表格内容显示完整。
        .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3))
        .TextMatrix(.Rows - 1, 2) = Format(mrc.Fields(6), "yyyy-mm-dd")
        .TextMatrix(.Rows - 1, 3) = Format(mrc.Fields(7), "hh:mm:ss")
        .TextMatrix(.Rows - 1, 4) = Format(mrc.Fields(8), "yyyy-mm-dd")
        .TextMatrix(.Rows - 1, 5) = Format(mrc.Fields(9), "hh:mm:ss")
        .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 Function
</span>

此段代码是直接写在窗体中的，不用放在模块中，因为这个代码的使用范围只是在一个窗体中。执行查询的时候，直接一句话：call tianjia（过程名），是不是很管用啊？

实例二：标准模块

</pre><pre name="code" class="vb"><span style="font-size:18px;">Public Function Field(strfilename As String) As String
    '选项转化成数据库字段
        Select Case strfilename
            Case "学号"
                Field = "studentNo"
            Case "姓名"
                Field = "studentName"
            Case "卡号"
                 Field = "cardno"
            Case "系别"
                Field = "department"
            Case "年级"
                Field = "grade"
            Case "班级"
                Field = "class"
            Case "性别"
                Field = "sex"
            Case "与"
                Field = "and"
            Case "或"
                Field = "or"
            Case "状态"
                Field = "status"
            Case "备注"
                Field = "explain"
            Case "日期"
                Field = "date"
            Case "时间"
                Field = "time"
            Case "金额"
                Field = "cash"
            Case "类型"
               Field = "type"
            Case "教师"
                Field = "UserID"
            Case "注册日期"
                Field = "LoginDate"
            Case "注册时间"
                Field = "LoginTime"
            Case "注销时间"
                Field = "LogoutDate"
            Case "注销时间"
                Field = "LogoutTime"
            Case "机器名"
                Field = "computer"
        End Select
End Function
</span>

在模块中写入以上代码，作用是每当组合查询的时候都要将combox选项字段转化为数据库中的字段名称，这样在查询语句的时候，字段作为条件就可以直接在数据库中查找数据了。模块的适用范围是将多个窗体中相同的过程，抽取出来并得到复用。并在所需要的窗体写一下查询语句中，实现调用。

<span style="font-size:18px;">txtSQL = txtSQL & Field(com01.Text) & com02.Text & "'" & txt03.Text & "'"</span>

在这里，我们把窗体模块和模块作了一个简单的介绍，一样的是都是代码的复用，不一样的是写入代码的位置不同，最重要的是实现功能。实现通用过程的优点是，减少代码，便于修改。这些优点都为我们节省了很多的时间，使我们的效率得到提升。

【趣味二】流程图

在流程图的帮助，代码也就跟上了脚步。为什么这么说呢？每一步流程，代表的就是身后代码的支持。最后实现最后的功能，并且不至于一头雾水，我就在这里吃了亏，后来一直都停步不前，直到理清思路，代码问题也就迎刃而解了。那大家先来看一下我的流程图吧。

【趣味三】正常思维

实现了查询功能，可就是看着别扭，听了师父的建议，我才思考到了这一点，正常人的思维。

实例一：

首先，我们需要的只是第一行查询条件，二、三行都不可用。

查询第一行输入之后，判断组合关系是否为空，如果为空的话，直接出现查询结果；否则，提示“输入第二行查询内容”。

同理，判断第二个组合关系。

实例二：

性别只有男女，这样的话，只有 = 或 <> ,

<span style="font-size:18px;"> </span>

<span style="font-size:18px;">If Combo1.Text = "姓名" Or Combo1.Text = "性别" Then  '如果是姓名或性别，操作符为<> =
        Combo2.Clear

        Combo2.AddItem "="

        Combo2.AddItem "<>"

 Else								'其他情况操作符为<, > , <>, =

<span style="white-space:pre">	</span>Combo2.Clear

        Combo2.AddItem "="

        Combo2.AddItem "<"

        Combo2.AddItem ">"

        Combo2.AddItem "<>"

End If

End Sub</span>

想法很重要，用户需求很很重要，为人民服务的准则。

【趣味总结】

虽说是趣味，又何尝不是我们在做组合查询这一功能时，需要特别注意的啊。就像趣味一，就是一些课本知识的运用，所以，知识需要我们不断的重复，不断回顾，每次都会是新收获。以小见大，学习就是一个不断总结的过程，每学新知识都是不断重复旧知识。知识从何而来呢？实践出真知，趣味学习，乐学，我们要一点点的向着这一目标靠近。