机房收费系统之查看窗体

相比之前的查询窗体，该类窗体更为简单，该类窗体只是对表进行查看。

在这里我列出了两种不同类型的查看窗体：查看余额和查看正在值班教师

步骤：

查看余额窗体：

1，判断该卡号是否注册，若没有注册或已经注销则提示。

2，遍历学生信息表查找该卡号的信息，并将其显示出来。

3，余额要从最新余额表中获得（因为此时学生信息表中的余额很可能已经改变）。

查看正在值班教师：

1，遍历正在值班教师表并将其显示出来（该窗体比较简单）。

2，注意在这里卡号，日期等字段名字可能比较长，所以要设置它们的列宽。

3，还有最容易出错的地方就是机器名可能会比较长（比如有的长度都达到了15），所以在数据表设置时该字段的长度一定要设置比较长的长度。

下面是查看正在值班教师窗体的代码：

Private Sub Form_Activate()
Dim strSQL As String
Dim MsgString As String
Dim mrs As ADODB.Recordset
strSQL = "select * from Onduty"
Set mrs = ExecuteSQL(strSQL, MsgString)
With MyFlexGrid
.Rows = 1
.CellAlignment = 4 ‘使列标题
.TextMatrix(0, 0) = "记录号"
.TextMatrix(0, 1) = "教师"
.TextMatrix(0, 2) = "级别"
.TextMatrix(0, 3) = "登录日期"
.TextMatrix(0, 4) = "登录时间"
.TextMatrix(0, 5) = "机器名"
Do While Not (mrs.EOF)
.Rows = .Rows + 1
.CellAlignment = 1 ’时内容左对齐
.ColWidth(0) = 1600 ‘设置列宽
.ColWidth(1) = 1600
.ColWidth(2) = 2000
.ColWidth(3) = 2000
.ColWidth(4) = 2000
.ColWidth(5) = 2000
.TextMatrix(.Rows - 1, 0) = Trim(mrs.Fields(0))
.TextMatrix(.Rows - 1, 1) = Trim(mrs.Fields(1))
.TextMatrix(.Rows - 1, 2) = Trim(mrs.Fields(2))
.TextMatrix(.Rows - 1, 3) = Trim(mrs.Fields(3))
.TextMatrix(.Rows - 1, 4) = Trim(mrs.Fields(4))
.TextMatrix(.Rows - 1, 5) = Trim(mrs.Fields(5))
mrs.MoveNext
Loop
End With
End Sub