操作流程:
窗体显示之前的记录,点击修改进行修改记录,修改完毕后点击确定,进行保存数据库表中,之后进行使用,当不想修改时,在点击确定之前点击重置,则记录恢复之前,不会变化。
使用数据库表:
basicdata_info(存放基本数据)
具体代码如下:
显示操作:
Private Sub Form_Load()
'对basicdata_info表操作
Dim mrcbasicdata As ADODB.Recordset '用于存放记录集
Dim basicdataSQL As String '用于存放SQL语句
Dim basicdataMsgText As String '用于存放返回信息
basicdataSQL = "select * from basicdata_info"
Set mrcbasicdata = ExecuteSQL(basicdataSQL, basicdataMsgText)
txtFixedUser.Text = (mrcbasicdata.Fields(0))
txtCasualUser.Text = (mrcbasicdata.Fields(1))
txtUnitTime.Text = (mrcbasicdata.Fields(2))
txtLeastTime.Text = (mrcbasicdata.Fields(3))
txtPrepareTime.Text = (mrcbasicdata.Fields(4))
txtLimitCharge.Text = (mrcbasicdata.Fields(5))
mrcbasicdata.Close
txtFixedUser.Enabled = False
txtCasualUser.Enabled = False
txtUnitTime.Enabled = False
txtLeastTime.Enabled = False
txtPrepareTime.Enabled = False
txtLimitCharge.Enabled = False
End Sub
修改操作:
Private Sub cmdModify_Click()
txtFixedUser.Enabled = True
txtCasualUser.Enabled = True
txtUnitTime.Enabled = True
txtLeastTime.Enabled = True
txtPrepareTime.Enabled = True
txtLimitCharge.Enabled = True
cmdModify.Enabled = False
End Sub
确定操作:
Private Sub cmdOK_Click()
'对basicdata_info表操作
Dim mrcbasicdata As ADODB.Recordset '用于存放记录集
Dim basicdataSQL As String '用于存放SQL语句
Dim basicdataMsgText As String '用于存放返回信息
basicdataSQL = "select * from basicdata_info"
Set mrcbasicdata = ExecuteSQL(basicdataSQL, basicdataMsgText)
'限制各个控件不可以为空
If txtFixedUser.Text = "" Then
MsgBox "请输入数据!", vbOKOnly + vbExclamation, "警告"
txtFixedUser.SetFocus
Exit Sub
Else
If txtCasualUser.Text = "" Then
MsgBox "请输入数据!", vbOKOnly + vbExclamation, "警告"
txtCasualUser.SetFocus
Exit Sub
Else
If txtUnitTime.Text = "" Then
MsgBox "请输入数据!", vbOKOnly + vbExclamation, "警告"
txtUnitTime.SetFocus
Exit Sub
Else
If txtLeastTime.Text = "" Then
MsgBox "请输入数据!", vbOKOnly + vbExclamation, "警告"
txtLeastTime.SetFocus
Exit Sub
Else
If txtPrepareTime.Text = "" Then
MsgBox "请输入数据!", vbOKOnly + vbExclamation, "警告"
txtPrepareTime.SetFocus
Exit Sub
Else
If txtLimitCharge.Text = "" Then
MsgBox "请输入数据!", vbOKOnly + vbExclamation, "警告"
txtLimitCharge.SetFocus
Exit Sub
Else
If Val(txtFixedUser.Text) < 0 Then
MsgBox "数据应该大于零!", vbOKOnly + vbExclamation, "警告"
txtFixedUser.Text = ""
txtFixedUser.SetFocus
Exit Sub
Else
If Val(txtCasualUser.Text) < 0 Then
MsgBox "数据应该大于零!", vbOKOnly + vbExclamation, "警告"
txtCasualUser.Text = ""
txtCasualUser.SetFocus
Exit Sub
Else
If Val(txtUnitTime.Text) < 0 Then
MsgBox "数据应该大于零!", vbOKOnly + vbExclamation, "警告"
txtUnitTime.Text = ""
txtUnitTime.SetFocus
Exit Sub
Else
If Val(txtLeastTime.Text) < 0 Then
MsgBox "数据应该大于零!", vbOKOnly + vbExclamation, "警告"
txtLeastTime.Text = ""
txtLeastTime.SetFocus
Exit Sub
Else
If Val(txtPrepareTime.Text) < 0 Then
MsgBox "数据应该大于零!", vbOKOnly + vbExclamation, "警告"
txtPrepareTime.Text = ""
txtPrepareTime.SetFocus
Exit Sub
Else
If Val(txtLimitCharge.Text) < 0 Then
MsgBox "数据应该大于零!", vbOKOnly + vbExclamation, "警告"
txtLimitCharge.Text = ""
txtLimitCharge.SetFocus
Exit Sub
Else
'添加新记录,删除旧记录
mrcbasicdata.Delete
mrcbasicdata.AddNew
mrcbasicdata.Fields(0) = Trim(txtFixedUser.Text)
mrcbasicdata.Fields(1) = Trim(txtCasualUser.Text)
mrcbasicdata.Fields(2) = Trim(txtUnitTime.Text)
mrcbasicdata.Fields(3) = Trim(txtLeastTime.Text)
mrcbasicdata.Fields(4) = Trim(txtPrepareTime.Text)
mrcbasicdata.Fields(5) = Trim(txtLimitCharge.Text)
mrcbasicdata.Fields(6) = Trim(frmLogin.txtUserName.Text)
mrcbasicdata.Fields(7) = Date
mrcbasicdata.Fields(8) = Time
mrcbasicdata.Update
mrcbasicdata.Close
MsgBox "数据已修改成功!", vbOKOnly + vbInformation, "提示"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
txtFixedUser.Enabled = False
txtCasualUser.Enabled = False
txtUnitTime.Enabled = False
txtLeastTime.Enabled = False
txtPrepareTime.Enabled = False
txtLimitCharge.Enabled = False
cmdModify.Enabled = True
End Sub
重置操作:
Private Sub cmdCancel_Click()
'对basicdata_info表操作
Dim mrcbasicdata As ADODB.Recordset '用于存放记录集
Dim basicdataSQL As String '用于存放SQL语句
Dim basicdataMsgText As String '用于存放返回信息
basicdataSQL = "select * from basicdata_info"
Set mrcbasicdata = ExecuteSQL(basicdataSQL, basicdataMsgText)
txtFixedUser.Text = (mrcbasicdata.Fields(0))
txtCasualUser.Text = (mrcbasicdata.Fields(1))
txtUnitTime.Text = (mrcbasicdata.Fields(2))
txtLeastTime.Text = (mrcbasicdata.Fields(3))
txtPrepareTime.Text = (mrcbasicdata.Fields(4))
txtLimitCharge.Text = (mrcbasicdata.Fields(5))
mrcbasicdata.Close
txtFixedUser.Enabled = False
txtCasualUser.Enabled = False
txtUnitTime.Enabled = False
txtLeastTime.Enabled = False
txtPrepareTime.Enabled = False
txtLimitCharge.Enabled = False
cmdModify.Enabled = True
End Sub
退出操作:
Private Sub cmdOFF_Click()
Unload Me
frmMain.Show
End Sub
优化方面:
1.背景图随窗体改变而变化
Dim H As Single '定义窗体高的变量
Dim W As Single '定义窗体高的变量
Private Sub Form_Load()
H = Me.Height
W = Me.Width
End Sub
Private Sub Form_Resize()
Me.Height = H
Me.Width = W
Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight '实现背景图随窗体变大而改变
End Sub
2.禁止粘贴
Private Sub txtFixedUser_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'禁止粘贴
If Button = 2 Then
Clipboard.Clear
End If
End Sub
3.限制字符类型
https://blog.csdn.net/TGB__15__ZYB/article/details/86636625