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

  在敲这个窗体的时候很多问题没有注意到，也是因为各种问题很多没有很好的深入进去，导致逻辑混乱，也忘了画流程图，做了有一天的时间。很难过，时间就是这么被浪费掉的~~~

 错误：1.文本框赋值到数据表缺三个数据

2.数据应该是更新而不是写入

3.窗体加载显示的基础数据应该是从数据表调用，而不是写入

Private Sub Form_Load()
    Dim txtsql As String
    Dim Msgtext As String
    Dim mrc As ADODB.Recordset
    
    txtsql = "select * from BasicData_info"
    Set mrc = ExecuteSQL(txtsql, Msgtext)
    
    txtFixeduser.Text = mrc.Fields(0)
    txtTemporaryusers.Text = mrc.Fields(1)
    txtIncreasingtime.Text = mrc.Fields(2)
    txtMinimumtime.Text = mrc.Fields(3)
    txtReadytime.Text = mrc.Fields(4)
    txtMinimumsun.Text = mrc.Fields(5)
    
    mrc.Update
    mrc.Close
End Sub


Private Sub cmdok_Click()
    Dim txtsql As String
    Dim Msgtext As String
    Dim mrc As ADODB.Recordset
    
    txtsql = "select * from BasicData_info"
    Set mrc = ExecuteSQL(txtsql, Msgtext)
    
    mrc.Fields(0) = txtFixeduser.Text
    mrc.Fields(1) = txtTemporaryusers.Text
    mrc.Fields(2) = txtIncreasingtime.Text
    mrc.Fields(3) = txtMinimumtime.Text
    mrc.Fields(4) = txtReadytime.Text
    mrc.Fields(5) = txtMinimumsun.Text
    mrc.Fields(6) = Date
    mrc.Fields(7) = Time
    mrc.Update
    txtFixeduser.Enabled = False
    txtTemporaryusers.Enabled = False
    txtIncreasingtime.Enabled = False
    txtMinimumtime.Enabled = False
    txtReadytime.Enabled = False
    txtMinimumsun.Enabled = False
    
    mrc.Close

    MsgBox "数据修改成功！", vbOKOnly + vbExclamation, "提示"
    Unload Me
    frmLine.Show
End Sub

Private Sub cmdmodify_Click()
    
    txtFixeduser.Enabled = True
    txtTemporaryusers.Enabled = True
    txtIncreasingtime.Enabled = True
    txtMinimumtime.Enabled = True
    txtReadytime.Enabled = True
    txtMinimumsun.Enabled = True

End Sub

Private Sub cmdout_Click()
    Unload Me
End Sub

 

来源：CSDN

作者：刘佳宇-Kevin

链接：https://blog.csdn.net/weixin_44621107/article/details/103482277