【机房收费系统】VB中的组合查询探索

[code]    机房的代码还没开始，就听说组合查询是个困难的玩意。一步三停的走到组合查询窗体之前，还没怎么行动就差点给吓投降了。不过好歹也是做过学生信息管理系统的人了，多少对自己有点自信。不会弄，查呗！
    先回忆 sqlsever 中的复合查询语句：

[code]select * from 表名 where 字段名 = 值 and（or） 字段名 =值

[code]那么 我们只要在vb 中拼成这样一个语句，然后让 rst.open txtsql，cnn 就 ok了。

1. 选择控件

我选择了combox 控件 和 text 框

让窗体加载时，combox 按数据库中字段 additem

操作符 加载 < > <> =

组合框 “与” “ 或”

2.使用变量

然后具体代码实现如下：

[code]Private Sub fieldcob1_click() 'change 事件不行，判断语句不生效

    If fieldcob1.Text = "卡号" Then fieldname1 = "Number"
    If fieldcob1.Text = "上机日期" Then fieldname1 = "ondate"
End sub

3.拼凑语句

设置了一个 fildname 变量 用来存储 field1.text 对应的数据库中的字段名

[code]sqltxt1 = fieldname1 & operatecob1.Text & fieldtxt1.Text
sqltxt2 = fieldname2 & operatecob2.Text & fieldtxt2.Text
sqltxt3 = fieldname3 & operatecob3.Text & fieldtxt3.Text
sqltxt = sqltxt & sqltxt1 & Space(1) & assemble1 & Space(1) & sqltxt2 & Space(1) & assemble2 & Space(1) & sqltxt3

然后让将各个变量拼凑起来就成了需要的sql语句了 。

剩下的就没有什么新东西了。还是原来的套路。执行sql语句，结果存放在记录集里。然后进行数据操作就好了。

**

值得注意的是 最后语句拼凑中一定要加上space（1），没有这个空格的话，sql语句就执行不了了

**

写到这里，其实这个组合查询的操作就已经完成了。接下来，我提一下我在看到几这个组合查询窗体时的窗体 的感觉， 第一感觉： 四个窗体一样呀。。 没什么区别。那我为什么要用四个窗体呢？ 用一个行不行呢。。 于是这次的机房，我的窗体要比别人的少一些。 16个窗体解决了。

将功能集成到一个窗体中就是要进行一下判断， 改窗体调出的时候准备实现那种功能。调用那个表中的数据。

[code]public FormType as string
Private Sub QuerryChargeMoneyMenu_Click() ' 用变量记录要实现的功能
    FormType = "QuerryChargeMoney"
    frmQuerry.Show
End Sub

当查询窗体出现的时候，再根据要实现的功能让控件出现。

[code]If FormType = "QuerryChargeMoney" Then
    querrymenu.Visible = True
    showallmenu.Visible = True
    OnManageMenu.Visible = True
End If

最后不同的功能调用不同的数据： 其实这几个用到组合查询的功能都差不多，当时没有尝试往模块里写一个函数， 直接粘贴的。 有点不好。 写一个函数应该是没问题。能省好几页代码。查询窗体也是一样。。

[code] If FT = "inqurecord" Then
        If Numbertxt.Text = "" Then
            MsgBox "卡号不得为空"
        Else

            sqltxt = "select*from Son where number ='" & Trim(Numbertxt.Text) & "'"

            Set mrc = ExecuteSQL(sqltxt, msgtext)
            If mrc.RecordCount = 0 Then
                MsgBox "没有该卡号的上机信息"
            Else
                With MyFlexGrid

                Do While Not mrc.EOF
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = (mrc.fields(0))
                    .TextMatrix(.Rows - 1, 2) = mrc.fields(5)
                    .TextMatrix(.Rows - 1, 3) = mrc.fields(1)
                    .TextMatrix(.Rows - 1, 4) = mrc.fields(6)
                    .TextMatrix(.Rows - 1, 5) = mrc.fields(2)
                    .TextMatrix(.Rows - 1, 6) = Str((DateDiff("d", mrc.fields(5), mrc.fields(6)) * 60 * 24 + DateDiff("n", mrc.fields(1), mrc.fields(2))) * price)
                    .TextMatrix(.Rows - 1, 8) = mrc.fields(4)
                    .TextMatrix(.Rows - 1, 7) = mrc.fields(7)

                    mrc.MoveNext

                Loop
                    .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) = "备注"
                 End With
                sqltxt = "select*from  S where number ='" & Trim(Numbertxt.Text) & "'"
                 Set mrc = ExecuteSQL(sqltxt, msgtext)
            With MyFlexGrid
                Do While Not p = a
                .Rows = .Rows + 1
                .CellAlignment = 4
                .TextMatrix(.Rows - 1, 1) = mrc.fields(1)
                Loop
            End With
          End If

       End If

    End If

大家可以尝试一下。 这样程序会变的很简洁。 代码也少，窗体也少。 看着会舒服很多！



祝大家 工作顺心，学习愉快~~