在整个机房收费系统中,将从数据库中查询到的信息显示到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
但是这个程序也有一点小瑕疵,首先是第一行出现了一行空白,其次是我点击查询会重复出现查询结果,这两个问题我也已经提起重视,正在想方设法解决这两个问题,哪位朋友知道的可以给我留言。