【机房】基本数据设定

机房收费系统中，管理员可以设置基本数据。

窗体界面：

机房是需要收费的，所以我们要设定基本的数据。下面是我的设定：

固定用户每个小时的费用要比临时用户的费用低，且递增单位时间是60分钟，也就是间隔一个小时收费一次，不足一个小时的时候按一个小时收费。

准备时间是两分钟，也就是给用户两分钟的准备时间，开卡之后两分钟之后才会上机。

至少上机时间是两分钟，就是上机两分钟之后才开始计时收费，上机两分钟是不收费的，随时可以下机离开。

最少金额是五元，也就是每次上机账户中余额不能低于五元。

窗体一加载就要连接数据库，显示数据表中最后一条记录，各个控件是不可以更改的状态，只有点击修改之后这些控件才可以更改。
注意递增单位时间是60分钟，不可以修改。

	txtSQL = "select * from BasicData_Info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
      Text1.Text = mrc.Fields(0)  '固定用户收费费用
      Text2.Text = mrc.Fields(1) '临时用户收取费用
      Text3.Text = mrc.Fields(2) '递增单位时间
      Text4.Text = mrc.Fields(3)  '至少上机时间
      Text5.Text = mrc.Fields(4) '准备时间
      Text6.Text = mrc.Fields(5)  '最少金额

修改数据完成之后要点击更新。
更新数据的时候首先要判断各个文本框是不是空值，然后连接数据库进行判断数值是否修改了，这里判断数值是否修改要判断全部的数值，也就是只有一个数值修改也是可以更新的。

txtSQL = "select * from BasicData_Info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    
    If Text1.Text = mrc.Fields(0) And Text2.Text = mrc.Fields(1) And Text3.Text = mrc.Fields(2) And _
        Text4.Text = mrc.Fields(3) And Text5.Text = mrc.Fields(4) And Text6.Text = mrc.Fields(5) Then
            MsgBox "什么数据都没有修改", 64, "温馨提示"
    Else
    
        mrc.Fields(0) = Trim(Text1.Text) '固定用户收费费用
        mrc.Fields(1) = Trim(Text2.Text) '临时用户收取费用
        mrc.Fields(2) = Trim(Text3.Text) '递增单位时间
        mrc.Fields(3) = Trim(Text4.Text) '至少上机时间
        mrc.Fields(4) = Trim(Text5.Text) '准备时间
        mrc.Fields(5) = Trim(Text6.Text) '最少金额
        mrc.Fields(6) = Username
        mrc.Fields(7) = Date
        mrc.Fields(8) = Time
        
        mrc.Update
        mrc.Close
        
    MsgBox "修改成功", 64, "温馨提示"
    
    End If

更新结束之后，各个控件是不可以修改的状态。
这样更新完毕之后就会显示最后更新的记录。

感谢阅读，欢迎斧正~