机房收费系统（三）

在整个机房收费系统中，将从数据库中查询到的信息显示到MSHFlexGrid控件中是整个软件经常出现的功能，也是后面几个窗体基本的功能。下面的代码需要在MSHFlexGrid控件中的表格上将显示的信息的类型标注出来，这些代码应该是写在整个窗体的名下。

Private Sub Form_Load()
    With MSHFlexGrid1
    .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
End Sub

要产生这个功能，很重要的过程是要从数据库中查询对应的信息。代码如下：

   Dim txtSQL As String
   Dim MsgText As String
   Dim mrc As ADODB.Recordset
   Dim sMeg As String
   '查询制定卡号的上机记录
   txtSQL = "select * from Line_Info where cardno='" & txtCardno.Text & "'"
   '执行查询语句
   Set mrc = ExecuteSQL(txtSQL, MsgText)

最后的一部操作是将从数据库中查询到的信息显示在MSHFlexGrid控件中，这些代码应该是写在第二串代码也就是从数据库中查询信息之后。

   With MSHFlexGrid1
   '判断是否移动到数据集对象的最后一条几率
   Do While Not mrc.EOF
   .Rows = .Rows + 1
   .CellAlignment = 4
     .TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
     .TextMatrix(.Rows - 1, 1) = mrc.Fields(3)
     .TextMatrix(.Rows - 1, 2) = mrc.Fields(6)
     .TextMatrix(.Rows - 1, 3) = mrc.Fields(7)
     .TextMatrix(.Rows - 1, 4) = mrc.Fields(8) & ""
     .TextMatrix(.Rows - 1, 5) = mrc.Fields(9) & ""
     .TextMatrix(.Rows - 1, 6) = mrc.Fields(11) & ""
     .TextMatrix(.Rows - 1, 7) = mrc.Fields(12) & ""
     .TextMatrix(.Rows - 1, 8) = mrc.Fields(13) & ""
    mrc.MoveNext
    Loop
    End With
    If mrc.BOF Then
        MsgBox "没有记录！", vbOKOnly, "友情提示"
    Else
    End If
End Sub

最后发现只能显示一行查询信息，没有办法显示所有的查询信息。我查看了所有的代码，发现很可能是这一行代码出了问题

.Rows = .Rows

我将代码改成如下,终于实现了这个功能，界面如下：

   .Rows = .Rows + 1

但是这个程序也有一点小瑕疵，首先是第一行出现了一行空白，其次是我点击查询会重复出现查询结果，这两个问题我也已经提起重视，正在想方设法解决这两个问题，哪位朋友知道的可以给我留言。