机房收费系统之四

基本数据绑定界面的制作和代码

今天做的机房收费系统的数据绑定界面，主要就是设计到收费系统的基础费用的更改问题，不同时间节点内的收费标准不一样，通过基础定价来完成不同情况下所收取费用的计算，界面设计也是很简单的，如下图所示

代码中的主要难点也就是数据库连接修改相关的内容，相对来说也是比较简单的，具体代码如下所示

Option Explicit

Private Sub Command1_Click()
         Text1.Enabled = True
         Text2.Enabled = True
         Text3.Enabled = True
         Text5.Enabled = True
         Text6.Enabled = True
         Text7.Enabled = True
         Command2.Enabled = True
         Command3.Enabled = True
         Command1.Enabled = False
End Sub

Private Sub Command2_Click()
        Dim mrc As ADODB.Recordset
        Dim msgtext As String
        Dim txtSQL As String
         txtSQL = "select*from basicdata_info"
        '执行查询语句
        Set mrc = ExecuteSQL(txtSQL, msgtext)
        Text1.Text = mrc.Fields(0)
         Text2.Text = mrc.Fields(1)
         Text3.Text = mrc.Fields(2)
         Text5.Text = mrc.Fields(3)
         Text6.Text = mrc.Fields(4)
         Text7.Text = mrc.Fields(5)
         Text1.Enabled = False
         Text2.Enabled = False
         Text3.Enabled = False
         Text5.Enabled = False
         Text6.Enabled = False
         Text7.Enabled = False
         Command2.Enabled = False
         Command3.Enabled = False
         Command1.Enabled = True
End Sub

Private Sub Command3_Click()
        Dim mrc As ADODB.Recordset
        Dim msgtext As String
        Dim txtSQL As String
        '判断内容是否为空
        If (Text1.Text = "") Then
              MsgBox "请输入固定用户1小时费用！", vbOKCancel + vbExclamation, "警告"
              Text1.SetFocus
        End If
        If (Text2.Text = "") Then
              MsgBox "请输入临时用户1小时费用！", vbOKCancel + vbExclamation, "警告"
              Text1.SetFocus
        End If
        If (Text3.Text = "") Then
              MsgBox "请输入递增单位时间！", vbOKCancel + vbExclamation, "警告"
              Text1.SetFocus
        End If
        If (Text5.Text = "") Then
              MsgBox "请输入至少上机时间！", vbOKCancel + vbExclamation, "警告"
              Text1.SetFocus
        End If
        If (Text6.Text = "") Then
              MsgBox "请输入准备时间！", vbOKCancel + vbExclamation, "警告"
              Text1.SetFocus
        End If
        If (Text7.Text = "") Then
              MsgBox "请输入最少金额！", vbOKCancel + vbExclamation, "警告"
              Text1.SetFocus
        End If
       'mrc.Delete
        txtSQL = "select*from basicdata_info"
        '执行查询语句
        Set mrc = ExecuteSQL(txtSQL, msgtext)
        '---------------------------------------
        '窗口中添加查询历史记录功能(2017年12月20日备注：未添加此功能）
        '----------------------------------------
        If mrc.RecordCount = 0 Then
        MsgBox "请添加基本数据", vbOKOnly + vbExclamation, "警告"
        Text1.Enabled = True
         Text2.Enabled = True
         Text3.Enabled = True
         Text5.Enabled = True
         Text6.Enabled = True
         Text7.Enabled = True
         Command2.Enabled = False
         Command3.Enabled = True
         Command1.Enabled = False
        Else
        mrc.AddNew
        mrc.Fields(0) = Trim(Text1.Text)
        mrc.Fields(1) = Trim(Text2.Text)
        mrc.Fields(2) = Trim(Text3.Text)
        mrc.Fields(3) = Trim(Text5.Text)
        mrc.Fields(4) = Trim(Text6.Text)
        mrc.Fields(5) = Trim(Text7.Text)
        mrc.Fields(6) = Trim(1)
        mrc.Fields(7) = Trim(Date)
        mrc.Fields(8) = Trim(Time)
        
        mrc.Update
        MsgBox "修改成功！", vbOKOnly + vbExclamation, "警告"
        'mrc.Bookmark = mybookmark
        End If
        
End Sub



Private Sub Form_Load()
        
        Dim mrc As ADODB.Recordset
        Dim msgtext As String
        Dim txtSQL As String
        Text1.Enabled = False
        Text2.Enabled = False
        Text3.Enabled = False
        Text5.Enabled = False
        Text6.Enabled = False
        Text7.Enabled = False
        Command2.Enabled = False
        Command3.Enabled = False
       ' mrc.Delete
        txtSQL = "select*from basicdata_info"
        '执行查询语句
        Set mrc = ExecuteSQL(txtSQL, msgtext)
        Text1.Text = mrc.Fields(0)
         Text2.Text = mrc.Fields(1)
         Text3.Text = mrc.Fields(2)
         Text5.Text = mrc.Fields(3)
         Text6.Text = mrc.Fields(4)
         Text7.Text = mrc.Fields(5)
End Sub