第一次机房收费系统之管理员基本数据设定

操作流程：

窗体显示之前的记录，点击修改进行修改记录，修改完毕后点击确定，进行保存数据库表中，之后进行使用，当不想修改时，在点击确定之前点击重置，则记录恢复之前，不会变化。

使用数据库表：

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