机房收费系统之基本数据设定

窗体功能：设定收费的基本信息（如每小时费用以及最少金额等）。  

步骤：

1，该窗体比较简单，首先启动窗体后这些文本框都是被锁定的，只有在单击修改时才将他们解锁。

2，该基本数据不能盲目的修改，应该根据最初的数据进行调整，对每个文本框的长度都进行了相应的限制。

3，单击确定确认修改，并将修改结果写入到基本数据表中，供其他用户调用。

4，单击取消则不修改，不写入表，并在文本框中显示上一条数据的信息。

该窗体代码：

'修改数据
Private Sub cmdOk_Click()
    Dim strSQL As String
    Dim MsgString As String
    Dim mrs As ADODB.Recordset

    If bLocked = False Then '若已解锁
        If Trim(txtHalf.Text) = "" Then
            MsgBox "固定用户半小时费用不能为空！", vbExclamation + vbOKOnly, "警告"
            txtHalf.Text = ""
            txtHalf.SetFocus
            Exit Sub
        End If
        If Trim(txtLeastMoney.Text) = "" Then
            MsgBox "最少金额不能为空！", vbExclamation + vbOKOnly, "警告"
            txtLeastMoney.Text = ""
            txtLeastMoney.SetFocus
            Exit Sub
        End If
        If IsNumeric(Trim(txtHalf.Text)) = False Then
            MsgBox "固定用户半小时费用应为数字！", vbExclamation + vbOKOnly, "警告"
            txtHalf.Text = ""
            txtHalf.SetFocus
            Exit Sub
        End If
        If IsNumeric(Trim(txtLeastMoney.Text)) = False Then
            MsgBox "最少金额应为数字！", vbExclamation + vbOKOnly, "警告"
            txtLeastMoney.Text = ""
            txtLeastMoney.SetFocus
            Exit Sub
        End If
        '添加Basicdata数据表
        strSQL = "select * from Basicdata"
        Set mrs = ExecuteSQL(strSQL, MsgString)
        If (mrs.Fields(0) = Trim(txtHalf.Text) And mrs.Fields(4) = Trim(txtLeastMoney.Text)) Then
            MsgBox "修改成功！", vbInformation + vbOKOnly, "修改"
            txtHalf.Locked = True
            txtLeastMoney.Locked = True
            bLocked = True
            mrs.Close
            Exit Sub
        Else
            mrs.AddNew
            mrs.Fields(0) = Trim(txtHalf.Text)
            HalfFee = Trim(txtHalf.Text)
            mrs.Fields(1) = "30"
            mrs.Fields(2) = "30"
            mrs.Fields(3) = "30"
            mrs.Fields(4) = Trim(txtLeastMoney.Text)
            LeastMoney = Trim(txtLeastMoney.Text)
            mrs.Fields(5) = Date
            mrs.Fields(6) = Time
            mrs.Update
            mrs.Close
            MsgBox "修改成功！", vbInformation + vbOKOnly, "警告"
            txtHalf.Locked = True
            txtLeastMoney.Locked = True
            bLocked = True
            Exit Sub
        End If
    Else    '若还没解锁
        MsgBox "请先选择修改！", vbExclamation + vbOKOnly, "警告"
        Exit Sub
    End If
End Sub
'初始化
Private Sub Form_Activate()
    Dim strSQL As String
    Dim MsgString As String
    Dim mrs As ADODB.Recordset
'    Dim HalfFee As Single
    '初始化Basicdata数据表
    strSQL = "select * from Basicdata"
    Set mrs = ExecuteSQL(strSQL, MsgString)
    If mrs.EOF = True Then
        mrs.AddNew
        mrs.Fields(0) = "0.5"
        mrs.Fields(1) = "30"
        mrs.Fields(2) = "30"
        mrs.Fields(3) = "30"
        mrs.Fields(4) = "5"
        mrs.Fields(5) = Date
        mrs.Fields(6) = Time
        mrs.Update
    Else
        mrs.MoveLast
        '显示信息
        txtHalf.Text = mrs.Fields(0)
        HalfFee = mrs.Fields(0)
        txtIncreasing.Text = mrs.Fields(1)
        txtAtLeast.Text = mrs.Fields(2)
        txtPrepare.Text = mrs.Fields(3)
        txtLeastMoney.Text = mrs.Fields(4)
        LeastMoney = mrs.Fields(4)
        mrs.Close
        '锁定文本框
        txtHalf.Locked = True
        txtIncreasing.Locked = True
        txtAtLeast.Locked = True
        txtPrepare.Locked = True
        txtLeastMoney.Locked = True
        bLocked = True
    End If
    LeastMoney = 5
End Sub

 

'解锁文本框(只能修改固定半小时费用和最少金额）
Private Sub cmdAlter_Click()
    If bLocked = True Then
        txtHalf.Locked = False
        txtLeastMoney.Locked = False
        txtHalf.SetFocus
        bLocked = False
    End If
End Sub