机房收费系统---美化外观

    对于一个系统来说，他的受欢迎度我个人认为取决于三点：

第一：功能性

第二：使用的流畅度

第三：美观

一个软件的外观是非常重要的，所以针对机房我也对他进行了一点点的美化

一：让窗体中的图片大小自适应图片的大小

       这里我没有用任何控件，而是直接在窗体的 picture 属性 中放图片

Private Sub Form_Paint()
    Me.PaintPicture Me.Picture, 0, 0, ScaleWidth, ScaleHeight
    ’切记，如果调用这个事件，我们窗体的picture属性中必须有图片，否则就会报错
End Sub

通过这个代码可以让图片大小根据窗体的大小自己调整

二：让MDI 子窗体 不被 主窗体覆盖：

刚开始设置了子窗体之后我们会发现，当点击主窗体的菜单之后我们的子窗体被默认的覆盖在了主窗体的下面，所以我们需要一定的操作让子窗体显示在MDI主窗体之上。

     在菜单的单机事件中加入代码：

Private Sub overMoney_Click()
SetParent frmClosemoney.hWnd, frmMain.hWnd
      frmClosemoney.Show

三：允许msflexgrid1 中显示 null 值

因为如果在查询学生上机记录的时候，肯定会有很多同学还没有下机，所以这个时候我们的下机日期和时间一定为空

所以就要显示空，那么如何在不出错的情况下显示出来？

 .textmatrix(i,i)=mrc.fields(1) & ""  

在最后加上 & “”

实现此功能的代码：

with myflexgrid1
.rows=2
 
.CellAlignment = 4
                  .TextMatrix(i, 0) = mrc.Fields(1)
                  .TextMatrix(i, 1) = mrc.Fields(6)
                  .TextMatrix(i, 2) = mrc.Fields(7)
                  .TextMatrix(i, 3) = mrc.Fields(8) & ""
                  .TextMatrix(i, 4) = mrc.Fields(9) & ""
                  .textMatrix(i, 5) = mrc.Fields(11) & ""
                  .TextMatrix(i, 6) = mrc.Fields(12) & ""
                  
                  .TextMatrix(i, 7) = mrc.Fields(13) & ""

四：数据显示不整齐，没有全部Trim（）处理

可以看到我们 myflexgrid 表格中显示的数据都是乱七八糟的，所以 我们需要利用一些方法来实现

旧代码：

With myFlexGrid1
                                    .Rows = .Rows + 1
                                    .CellAlignment = 4
                                    .TextMatrix(i, 1) = mrc.Fields(0)
                                    .TextMatrix(i, 2) = mrc.Fields(1)
                                    .TextMatrix(i, 3) = mrc.Fields(2)
                                    .TextMatrix(i, 4) = mrc.Fields(3)
                                    .TextMatrix(i, 5) = mrc.Fields(4)
                                    .TextMatrix(i, 6) = mrc.Fields(7)
                                    mrc.MoveNext
                              End With

修改后代码：

With myFlexGrid1
                                    .Rows = .Rows + 1
                                    .CellAlignment = 4
                                    .TextMatrix(i, 1) = Trim(mrc.Fields(0))
                                    .TextMatrix(i, 2) = Trim(mrc.Fields(1))
                                    .TextMatrix(i, 3) = Trim(mrc.Fields(2))
                                    .TextMatrix(i, 4) = Trim(mrc.Fields(3))
                                    .TextMatrix(i, 5) = Trim(mrc.Fields(4))
                                    .TextMatrix(i, 6) = Trim(mrc.Fields(7))
                                    mrc.MoveNext
                              End With

很明显我们只需要在前面加一个去空格的函数“trim（）” 即可。

五：在注册用户窗体中，应该限制“充值金额”只能显示，不能输入，否则出现俩个输入金额的文本框。

       最终实现：   一个用来输入金额，一个用来显示输入的金额。