机房收费系统进行到一半了,从刚开始的盲目无助到现在的能够缓慢进行,也算是小有进步了。机房收费系统中的基本数据设置窗体是整个软件中非常重要的一个窗体。我打开数据库软件的时候,看到对应的表里面中有好多条数据,但是基本数据应该只有一条,我便猜测使用的应该是最新的即使最上面的一条数据,更改基础数据就是添加一条新的数据。
Private Sub Form_Load()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim sMeg As String
'组合SQL语句
txtSQL = "SELECT top 1 * From BasicData_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "没有基础数据", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
txtRate.Text = mrc.Fields(0)
txttmpRate.Text = mrc.Fields(1)
txtunitTime.Text = mrc.Fields(2)
txtleastTime.Text = mrc.Fields(3)
txtPrepareTime.Text = mrc.Fields(4)
txtlimitCash.Text = mrc.Fields(5)
frmLogin.a = mrc.Fields(6)
Data = mrc.Fields(7)
Time = mrc.Fields(8)
txtRate.Enabled = False
txttmpRate.Enabled = False
txtunitTime.Enabled = False
txtleastTime.Enabled = False
txtPrepareTime.Enabled = False
txtlimitCash.Enabled = False
End If
End Sub
这是整个窗体的代码,窗体的界面分为两个部分,一个Frame加一组系列的按钮。刚开始进入这个窗体的时候,Frame里面的每一个文本框都是不可以操作的,点击修改按钮才能对他们进行修改,点击确定按钮就会把用户修改过的数据添加到数据库中并且让每个文本框的enabled属性变成false,这样整个窗体的功能就基本完成了。
Private Sub cmdOk_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
txtSQL = "select * from BasicData_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "没有数据", vbOKOnly + vbExclamation, "警告"
Else
mrc.AddNew
'给每个字段赋值
mrc.Fields(0) = Trim(txtRate.Text)
mrc.Fields(1) = Trim(txttmpRate.Text)
mrc.Fields(2) = Trim(txtunitTime.Text)
mrc.Fields(3) = Trim(txtleastTime.Text)
mrc.Fields(4) = Trim(txtPrepareTime.Text)
mrc.Fields(5) = Trim(txtlimitCash.Text)
mrc.Fields(6) = Trim(frmLogin.a)
mrc.Fields(7) = Date
mrc.Fields(8) = Time
'更新数据库
mrc.Update
'关闭数据集对象
mrc.Close
Me.Hide
MsgBox "基础信息设置成功", vbOKOnly, "提示"
End If
这是确认按钮的代码,也是常规的添加数据的代码。更新数据库和关闭数据集的代码一定不能忘记,最后提示基础信息设置成功。