机房收费系统（二）

机房收费系统进行到一半了，从刚开始的盲目无助到现在的能够缓慢进行，也算是小有进步了。机房收费系统中的基本数据设置窗体是整个软件中非常重要的一个窗体。我打开数据库软件的时候，看到对应的表里面中有好多条数据，但是基本数据应该只有一条，我便猜测使用的应该是最新的即使最上面的一条数据，更改基础数据就是添加一条新的数据。

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

这是确认按钮的代码，也是常规的添加数据的代码。更新数据库和关闭数据集的代码一定不能忘记，最后提示基础信息设置成功。