机房收费系统修改篇

在刚开始做机房收费系统的时候并没有考虑太多，想着只要照原来的那样敲出来就行了。但在验收的过程中，发现机房中其实有很多可以改进的地方。现总结如下几处。

修改一：结账添加管理员

在结账中结的只是操作员的，但既然管理员能够执行这个系统的所用操作，也就是说他也有售卡退卡及充值的权利，那么他的账是不是也要结呢？在听完师傅的建议之后，我觉得有必要把管理员也添加进去。添加管理员并不难，只要将查询的条件修改一下就可以了，如下。

原代码：

图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）


师傅说给我们的机房收费系统也是师姐敲出来的，所以并不是最完善的，有很多可以修改的更好的地方。师傅的话其实更多的体现了全心全意为人民服务的思想。通过修改这些，也让我有了很多收获，不仅是对代码这些基础知识的应用，还有对这一思想的理解。