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