第一次机房收费系统之添加、删除、更新用户

简介: 第一次机房收费系统之添加、删除、更新用户

添加用户


添加用户的时候跟之前注册的信息差不多,开始还是先判断各个文本框是否为空----核对密码是否一致----判断数据库里是否有此ID

代码展示

Private Sub cmdOK_Click() 
    Dim user As ADODB.Recordset
    Dim txtSQL As String
    Dim Msgtext As String
    If txtUserName.Text = "" Then
        MsgBox "?用户名不能为空", vbOKOnly + vbExclamation, "提示"
        txtUserName.SetFocus
        Exit Sub
    Else
        If Combo1.Text = "" Then
            MsgBox "请选择用户级别", vbOKOnly + vbExclamation, "提示"
            Exit Sub
        Else
            If txtName.Text = "" Then
                MsgBox "姓名不能为空", vbOKOnly + vbExclamation, "提示"
                txtName.SetFocus
                Exit Sub
            End If
        End If
    End If
    If PassWord.Text = "" Then
        MsgBox "请填写密码", vbOKOnly + vbExclamation, "提示"
        PassWord.SetFocus
        Exit Sub
    Else
        If password1.Text = "" Then
            MsgBox "确认密码不能为空", vbOKOnly + vbExclamation, "提示"
            password1.SetFocus
            Exit Sub
        Else
            If PassWord.Text <> password1.Text Then
                MsgBox "密码和确认密码不一致", vbOKOnly + vbExclamation, "提示"
            End If
        End If
    End If
    txtSQL = "select * from User_info"
    Set user = ExecuteSQL(txtSQL, Msgtext)
    If user.EOF = True Then
        MsgBox "已有此用户名,请重新输入"
    Else
        user.AddNew
        user.Fields(0) = Trim(txtUserName.Text)
        user.Fields(1) = Trim(PassWord.Text)
        user.Fields(2) = Trim(Combo1.Text)
        user.Fields(3) = Trim(txtName.Text)
        user.Fields(4) = UserName
        MsgBox "添加成功", vbOKOnly + vbExclamation, "提示"
        user.Update
        user.Close
    End If
End Sub


删除用户


代码

Private Sub cmdDelete_Click()
    Dim txtSQL As String
    Dim Msgtext As String
    Dim mrc As ADODB.Recordset
        If MSHFlexGrid1.RowSel = 0 Then '选择的行数
            MsgBox "请选择数据", vbOKOnly + vbExclamation, "提示"
            Exit Sub
        Else
            '判断用户是否正在登录
            a = MSHFlexGrid1.RowSel
            If Trim(MSHFlexGrid1.TextMatrix(a, 0)) = UserName Then
                MsgBox "该用户正在登录,不能删除", vbOKOnly + vbExclamation, "提示"
                Exit Sub
            Else
                b = MsgBox("确定要删除该用户吗", vbYesNo, "提示")
                If b = 6 Then
                    MSHFlexGrid1.RemoveItem a + 1
                Else
                    Exit Sub
                End If
                txtSQL = "delete  from User_info where userID='" & MSHFlexGrid1.TextMatrix(a, 0) & "'"
                Set mrc = ExecuteSQL(txtSQL, Msgtext)
                MsgBox "删除成功", vbOKOnly + vbExclamation, "提示"
            End If
        End If
End Sub


更新用户


更新是指再删除或者添加之后,点击更新按钮会使表格显示删除或添加的东西

Private Sub cmdUpdate_Click()
    Dim txtSQL As String
    Dim Msgtext As String
    Dim user As ADODB.Recordset
    txtSQL = "select * from User_info where Level='" & Combo1.Text & "'"
    Set user = ExecuteSQL(txtSQL, Msgtext)
    If Combo1.Text = "" Then
        MsgBox "请选择用户类型!", vbOKOnly + vbExclamation, "提示"
        Exit Sub
    End If
    If user.EOF Then
        MsgBox "没有数据", vbOKOnly + vbExclamation, "提示"
    Else
        With MSHFlexGrid1
            .CellAlignment = 4
            .Rows = 1
            .TextMatrix(0, 0) = "?????"
            .TextMatrix(0, 1) = "????"
            .TextMatrix(0, 2) = "??????"
            Do While Not user.EOF
                .Rows = .Rows + 1
                .CellAlignment = 4
                .TextMatrix(.Rows - 1, 0) = user.Fields(0)
                .TextMatrix(.Rows - 1, 1) = user.Fields(3)
                .TextMatrix(.Rows - 1, 2) = user.Fields(4)
                user.MoveNext
            Loop
        End With
    End If
End Sub

相关文章
TienChin 活动管理-删除活动
TienChin 活动管理-删除活动
47 0
|
机器人
如何查询OpenAI账户余额?ChatGPT怎么查看账户余额的方法
ChatGPT是美国OpenAI研发的聊天机器人程序,也是最近火爆全网的热门应用和话题之王。很多用户在使用openai的时候不知道如何查询OpenAI账户余额?
2323 0
|
5月前
|
Java 数据安全/隐私保护 uml
某系统提供了用户信息操作模块,用户可以修改自己的各项信息。为了使操作过程更加人性化,现使用备忘录模式对系统进行改进,使得用户在进行了错误操作之后可以恢复到操作之前的状态。用户信息中包含账号、密码、电话
该博客文章通过Java代码示例介绍了备忘录模式(Memento Pattern)的应用,通过创建备忘录对象保存用户信息的状态,允许用户在进行错误操作后能够恢复到之前的状态。
某系统提供了用户信息操作模块,用户可以修改自己的各项信息。为了使操作过程更加人性化,现使用备忘录模式对系统进行改进,使得用户在进行了错误操作之后可以恢复到操作之前的状态。用户信息中包含账号、密码、电话
|
6月前
|
前端开发 开发工具 数据库
支付系统资料-青戈版沙箱支付,订单编号样式设计,还有七天无理由退款,常与会员系统相搭配,内网穿透客户看到页面,前端展示,直播过程所有都能访问的写法
支付系统资料-青戈版沙箱支付,订单编号样式设计,还有七天无理由退款,常与会员系统相搭配,内网穿透客户看到页面,前端展示,直播过程所有都能访问的写法
支付系统资料-青戈版沙箱支付,订单编号样式设计,还有七天无理由退款,常与会员系统相搭配,内网穿透客户看到页面,前端展示,直播过程所有都能访问的写法
|
8月前
dedecms会员登录默认增加两积分怎样去掉,怎么让会员登录不加积分?
dedecms会员登录就增加两积分怎样去掉,怎么让会员登录不加积分?
dedecms会员登录默认增加两积分怎样去掉,怎么让会员登录不加积分?
机房收费系统——下机封装、点击下机、全员下机、选择下机和动态下机(有关下机的所有代码)
机房收费系统——下机封装、点击下机、全员下机、选择下机和动态下机(有关下机的所有代码)
|
弹性计算 对象存储
阿里云新老用户、同一用户、同人账号的区别和解释
阿里云新老用户、同一用户、同人账号的区别和解释
213 0
|
小程序
抽奖活动小程序之随机选取中奖用户功能实现
抽奖活动小程序之随机选取中奖用户功能实现
抽奖活动小程序之随机选取中奖用户功能实现
|
机器人
如何把新用户转化为活跃用户?
AARRR的第二个A就是激活。激活指的是引导用户尽快体验产品的啊哈时刻。所谓啊哈时刻就是让用户感觉眼前一亮的时刻,产生原来还可以这么做的感觉。这也是用户真正发现产品核心价值的时刻。
99 0
如何把新用户转化为活跃用户?
|
缓存
实战:第三章:更新数据只能是下月修改,当月不能修改
实战:第三章:更新数据只能是下月修改,当月不能修改