第一次机房收费系统之显示全部窗体

Private Sub ShowAll_Click()
    Dim mrc As ADODB.Recordset '连接到online表
    Dim txtSQL As String
    Dim Msgtext As String
    txtSQL = "select * from Online_info"
    Set mrc = ExecuteSQL(txtSQL, Msgtext)
    If mrc.EOF Then
        MsgBox "?????????", vbOKOnly + vbExclamation, "???"
    Else
        With MSHFlexGrid1
            Do While Not mrc.EOF
                .CellAlignment = 4
                .Rows = .Rows + 1'显示多行
                .TextMatrix(.Rows - 2, 0) = mrc.Fields(0)
                .TextMatrix(.Rows - 2, 1) = mrc.Fields(3)
                .TextMatrix(.Rows - 2, 2) = mrc.Fields(6)
                .TextMatrix(.Rows - 2, 3) = mrc.Fields(7)
                .TextMatrix(.Rows - 2, 4) = mrc.Fields(8)
                mrc.MoveNext
            Loop
        End With
    End If
    mrc.Close
End Sub