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

 基本数据设定窗体很简单。直接来看代码把！

修改：

Rem:修改
Private Sub cmdmodify_Click()
    txtrate.Enabled = True
    txttmprate.Enabled = True
    txtunittime.Enabled = True
    txtltime.Enabled = True
    txtptime.Enabled = True
    txtlcash.Enabled = True
    cmdok.Enabled = True

txtsql = "select * from basicdata_info"
Set mrcba = executeSQL(txtsql, msgtext)
If mrcba.EOF = False Then
    mrcba.Delete
    Exit Sub
Else
    mrcba.AddNew
    mrcba.Fields(0) = txtrate.Text
    mrcba.Fields(1) = txttmprate.Text
    mrcba.Fields(2) = txtunittime.Text
    mrcba.Fields(3) = txtltime.Text
    mrcba.Fields(4) = txtptime.Text
    mrcba.Fields(5) = txtlcash.Text
    mrcba.Fields(6) = username
    mrcba.Fields(7) = Date
    mrcba.Fields(8) = Time
    mrcba.Update
    mrcba.Close
    MsgBox "基本数据设定成功！", vbOKOnly, "提示"
End If
    txtrate.Enabled = False
    txttmprate.Enabled = False
    txtunittime.Enabled = False
    txtltime.Enabled = False
    txtptime.Enabled = False
    txtlcash.Enabled = False
End Sub

窗体代码：

Private Sub Form_Load()
    txtrate.Enabled = False
    txttmprate.Enabled = False
    txtunittime.Enabled = False
    txtltime.Enabled = False
    txtptime.Enabled = False
    txtlcash.Enabled = False
    cmdok.Enabled = True
    txtrate.MaxLength = 2
    txttmprate.MaxLength = 2
    txtunittime.MaxLength = 2
    txtltime.MaxLength = 1
    txtptime.MaxLength = 1
    txtlcash.MaxLength = 2
txtsql = "select * from basicdata_info"
Set mrcba = executeSQL(txtsql, msgtext)
    txtrate.Text = mrcba.Fields(0)
    txttmprate.Text = mrcba.Fields(1)
    txtunittime.Text = mrcba.Fields(2)
    txtltime.Text = mrcba.Fields(3)
    txtptime.Text = mrcba.Fields(4)
    txtlcash.Text = mrcba.Fields(5)
End Sub

一定要加限制。一定要加限制。一定要加限制。