修改一：结账添加管理员
在结账中结的只是操作员的，但既然管理员能够执行这个系统的所用操作，也就是说他也有售卡退卡及充值的权利，那么他的账是不是也要结呢？在听完师傅的建议之后，我觉得有必要把管理员也添加进去。添加管理员并不难，只要将查询的条件修改一下就可以了，如下。
原代码：
图1
修改之后的代码：
图2
修改二：基本数据调用最新一条记录
我们知道，在上下机，注册等窗体都要调用基本数据，而在基本数据设定的窗体中是可以重新修改数据的。这样当修改数据时就会增加一条新的记录，而在调用时查询的却是第一条记录，那修改的意义就没有了。若想查询时调用的是最新添加的那条记录，在点击修改的时候把数据库Basicdata表中之前的记录删除，在确定的时候在添加记录，这样就可以解决这个问题了。但是，如果想要看到修改的记录，那么怎么办呢？那就让查询的时候查询最后一条记录！代码如下。
图3
修改三：MSHFlexGrid自动调节列宽
在给师傅验收的时候，MSHFlexGrid控件显示查询信息时出现部分信息被遮挡，显示不完全的情况。于是上网查了查使MSHFlexGrid自动调节列宽的代码，具体如下：
一、在模块中声明函数
Option Explicit
Public Sub AdjustColWidth(frmCur As Form, _
gridCur As Object, _
Optional bNullRow As Boolean = True, _
Optional dblIncWidth As Double = 0)
'功能 ：自动调整Grid各列列宽为最合适的宽度
'参数
'frmcur 当前工作窗体
'gridcur 当前调整的Grid
Dim i As Integer
Dim j As Integer
Dim dblWidth As Double
With gridCur
For i = 0 To .Cols - 1
dblWidth = 0
If .ColWidth(i) <> 0 Then
For j = 0 To .Rows - 1
If frmCur.TextWidth(.TextMatrix(j, i)) > dblWidth Then
dblWidth = frmCur.TextWidth(.TextMatrix(j, i))
End If
Next j
.ColWidth(i) = dblWidth + dblIncWidth + 100
End If
Next i
End With
End Sub
二、在窗体中调用函数
AdjustColWidth frmStCheckOnRs, MSHFlexGrid
（参考自：http://blog.csdn.net/liu765023051/article/details/6707919）
师傅说给我们的机房收费系统也是师姐敲出来的，所以并不是最完善的，有很多可以修改的更好的地方。师傅的话其实更多的体现了全心全意为人民服务的思想。通过修改这些，也让我有了很多收获，不仅是对代码这些基础知识的应用，还有对这一思想的理解。