查询窗体--机房收费系统

该类窗体更为简单，只是对表进行查询。

一般用户中的学生查看余额、上机记录；操作员中的查询收取返还金额；管理员中的查询正在值班教师。

学生查看余额：

步骤：

1.判断该卡号是否注册，若没有注册或已经注销则提示，用到了学生表。

2.查看学生表将该卡号的信息显示出来。

3.更新余额，有可能此时的余额已经改变。

 

查看正在值班教师：

1.查询正在值班教师表并将其显示出来。

2.要注意此表的登录日期、时间、机器名可能过长，所以要注意设置（登录日期和时间设置控件的列宽，机器名从数据库中更改）。

 

其他的查询窗体也多大同小异。

 

下面附上正在值班教师的代码：

Private Sub Form_Load()Dim strSQL As StringDim MsgString As StringDim mrc As ADODB.RecordsetstrSQL = "select * from OnWork_Info"Set mrc = executesql(strSQL, MsgString)With MSFlexGrid1    .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 (mrc.EOF)        .Rows = .Rows + 1        .CellAlignment = 6   '使内容右对齐        .ColWidth(0) = 1600   '设置列宽        .ColWidth(1) = 1600        .ColWidth(2) = 2000        .ColWidth(3) = 2000        .ColWidth(4) = 2000        .ColWidth(5) = 2000        .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(0))        .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(1))        .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(2))        .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(3))        .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(4))        .TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(5))        mrc.MoveNext     Loop      End With        End Sub

这样我们的查询窗体大致就解决了。