机房收费系统（八）-基本数据设定

下午就该机房收费系统第二次验收了，师傅突然问了我几个关于基本数据设定里面的几个问题，之前确实没有想过，固定用户和临时用户每小时的上机费用，还有递增单位时间，最少金额这些都挺好理解的，师傅问我的是关于至少上机时间和准备时间。
1.基本数据里面最少上机时间是什么，干什么用的？
我说我设定的是两分钟，两分钟内免费，然后如果两分钟以上就收费。
2.准备时间又是什么？
我说我感觉是，登录之前的准备时间。在这个准备时间之前没有登录信息。
3.你系统是怎么用这个准备时间的？
我说这个准备时间是没有登录之前给的准备时间，是两分钟，这期间我感觉，需要录入信息，然后就两分钟，然后最少上机时间是如果你上机还不到两分钟，但是此时又重要的事情要走，这两分钟就不收费了，但是超过两分钟就开始收费。
4.这个准备时间是怎么应用的。
我想了一会感觉，这个至少上机时间有点多余，因为两分钟内是免费的，两分钟以上就收费了，要这个至少上机时间感觉，在下机里面用的也是这个准备时间，而至少上机时间并没有应用到。然后我就把至少上机时间给删了。
这个窗体的代码还是蛮简单的。
首先是点击修改按钮的代码：

Frame1.Enabled = True
    Text1.Enabled = True
    Text2.Enabled = True


    Text5.Enabled = True
    Text6.Enabled = True
Text1.Locked = False
Text2.Locked = False
Text3.Locked = True
Text5.Locked = False
Text6.Locked = False

然后是确定修改按钮的代码：

Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text5.Enabled = False
    Text6.Enabled = False

    '将该界面上设定的信息赋值给basicdata表中

    txtSQL = "select * from basicdata_Info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)

If Len(Trim(Text1.Text)) = 0 Then
  MsgBox "固定用户一个小时费用不能为空！", vbOKOnly + vbExclamation, "温馨提示"
  Exit Sub
End If
 If Trim(Text1.Text) = 0 Then
  MsgBox "固定用户一个小时费用不能为零！", vbOKOnly + vbExclamation, "温馨提示"
Exit Sub
End If

If Len(Trim(Text2.Text)) = 0 Then
 MsgBox "临时用户每小时费用不能为空！", vbOKOnly + vbExclamation, "温馨提示"

 Exit Sub
End If
If Trim(Text2.Text) = 0 Then
  MsgBox "临时用户每小时费用不能为零！", vbOKOnly + vbExclamation, "温馨提示"
End If

If Len(Trim(Text5.Text)) = 0 Then
 MsgBox "准备时间不能为空！", vbOKOnly + vbExclamation, "温馨提示"
 Exit Sub
If Trim(Text5.Text) = 0 Then
  MsgBox "准备时间不能为零！", vbOKOnly + vbExclamation, "温馨提示"
Exit Sub
End If

If Len(Trim(Text6.Text)) = 0 Then
 MsgBox "最少金额不能为空！", vbOKOnly + vbExclamation, "温馨提示"
 Exit Sub
End If
If Trim(Text6.Text) = 0 Then
  MsgBox "最少金额不能为零！", vbOKOnly + vbExclamation, "温馨提示"
Exit Sub
End If

    mrc.Fields(0) = Trim(Text1.Text)
    mrc.Fields(1) = Trim(Text2.Text)
    mrc.Fields(2) = Trim(Text3.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