第一次机房收费系统--修改密码

最新推荐文章于 2019-07-30 09:17:50 发布
最新推荐文章于 2019-07-30 09:17:50 发布
阅读量893 收藏
点赞数
分类专栏： ♫ 基础学习 ------【数据库】 ------【第一次机房收费系统】
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Sunny5319/article/details/52684481
版权

前言

修改密码这个模块是机房中进行的比较早的部分，因为和学生的一样，所以自己也没有多想，就这样过去了，但是验收的时候师傅说：你认为这个设计的合理吗？我是不是只要知道他的ID和旧密码就可以随意修改？师傅让我修改，但是其实心里是有点打鼓的，觉得太复杂了，自己可能不会改！但是没有办法，硬着头皮改吧！


添加功能

1.登录用户为管理员：能修改所有操作员和一般用户的密码，但是只能修改管理员是自己的密码

2.登录用户为操作员：不能修改管理员的密码，能修改所有一般用户的密码，但是只能修改操作员是自己的密码

3.登录用户为一般用户：只能修改自己的密码


代码展示

Private Sub Command1_Click()
    '设置修改密码的权限问题，如果登陆的为管理员，则可以修改其操作员和一般用户的密码，但是管理员的密码只能修改自己的
    '如果登陆的是操作员，则可以修改一般用户的密码，但是操作员的密码只能修改自己的
    '如果是一般用户，则只可以修改自己的密码
    txtSQL = "select * from user_info where userid='" & UserName & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    Level = Trim(mrc.Fields(2))
    Select Case Level
        Case "管理员"
            '当登录的用户是管理员时只能修改管理员是自己的密码，不能修改其他人的
            txtSQL = "select * from user_info where level='管理员' and userid='" & UserName & "'"
            Set mrc2 = ExecuteSQL(txtSQL, MsgText)
            If Text4.Text = Trim(mrc2.Fields(0)) Then
            
                If Text4.Text = "" Then
                    MsgBox "用户ID不能为空，请输入！", 0 + 48, "提示"
                    Text4.SetFocus
                Else
                    '判断数据库中是否有文本框中输入的用户ID
                    txtSQL = "select * from user_info where userid='" & Trim(Text4.Text) & "'"
                    Set mrc1 = ExecuteSQL(txtSQL, MsgText)
                    If mrc1.EOF = True Then
                        MsgBox "没有该用户，请重新输入！", 0 + 48, "提示"
                        Text1.Text = ""
                        Text1.SetFocus
                    Else
                        If Text1.Text = "" Then
                            MsgBox "原密码不能为空！", vbOKOnly + vbExclamation, "警告"
                        Else
                            '判断文本框中输入的原密码是否与数据库中的一致
                            If Text1.Text <> Trim(mrc1.Fields(1)) Then
                                MsgBox "原密码错误，请重新输入！", 0 + 48, "提示"
                                Text1.Text = ""
                                Text1.SetFocus
                            Else
                                '判断新密码部分
                                If Text2.Text = "" Then
                                    MsgBox "新密码不能为空！", vbOKOnly + vbExclamation, "警告"
                                Else
                                    If Trim(Text3.Text) <> Trim(Text2.Text) Then
                                        MsgBox "两次输入密码不一致，请核对！", vbOKOnly + vbExclamation, "警告"
                                       Text2.Text = ""
                                       Text3.Text = ""
                                    Else
                                        txtSQL = "select * from user_info where userid='" & Trim(Text4.Text) & "'"
                                        Set mrc = ExecuteSQL(txtSQL, MsgText)
                                        mrc.Fields(1) = Trim(Text3.Text)
                                        mrc.Update     '打开所需数据
                                        mrc.Close    '将数据库关闭，释放资源
                                        MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            Else
                MsgBox "您没有权限修改其他管理员的密码！", 0 + 48, "警告"
                Text1.Text = ""
                Text2.Text = ""
                Text3.Text = ""
                Text4.Text = ""
                Text4.SetFocus
            End If
            
        Case "操作员"
            '不能修改管理员的密码
            txtSQL = "select * from user_info where userid='" & Trim(Text4.Text) & "'"
            Set mrc3 = ExecuteSQL(txtSQL, MsgText)
            If mrc3.Fields(2) = "管理员" Then
                MsgBox "您没有权限修改管理员的密码！", 0 + 48, "警告"
                Text1.Text = ""
                Text2.Text = ""
                Text3.Text = ""
                Text4.Text = ""
                Text4.SetFocus
             Else
                '当登录的用户是操作员时只能修改操作员是自己的密码，不能修改其他人的
                  txtSQL = "select * from user_info where level='操作员' and userid='" & UserName & "'"
                  Set mrc2 = ExecuteSQL(txtSQL, MsgText)
                  If Text4.Text = Trim(mrc2.Fields(0)) Then
                  
                      If Text4.Text = "" Then
                          MsgBox "用户ID不能为空，请输入！", 0 + 48, "提示"
                          Text4.SetFocus
                      Else
                          '判断数据库中是否有文本框中输入的用户ID
                          txtSQL = "select * from user_info where userid='" & Trim(Text4.Text) & "'"
                          Set mrc1 = ExecuteSQL(txtSQL, MsgText)
                          If mrc1.EOF = True Then
                              MsgBox "没有该用户，请重新输入！", 0 + 48, "提示"
                              Text1.Text = ""
                              Text1.SetFocus
                          Else
                              If Text1.Text = "" Then
                                  MsgBox "原密码不能为空！", vbOKOnly + vbExclamation, "警告"
                              Else
                                  '判断文本框中输入的原密码是否与数据库中的一致
                                  If Text1.Text <> Trim(mrc1.Fields(1)) Then
                                      MsgBox "原密码错误，请重新输入！", 0 + 48, "提示"
                                      Text1.Text = ""
                                      Text1.SetFocus
                                  Else
                                      '判断新密码部分
                                      If Text2.Text = "" Then
                                          MsgBox "新密码不能为空！", vbOKOnly + vbExclamation, "警告"
                                      Else
                                          If Trim(Text3.Text) <> Trim(Text2.Text) Then
                                              MsgBox "两次输入密码不一致，请核对！", vbOKOnly + vbExclamation, "警告"
                                             Text2.Text = ""
                                             Text3.Text = ""
                                          Else
                                              txtSQL = "select * from user_info where userid='" & Trim(Text4.Text) & "'"
                                              Set mrc = ExecuteSQL(txtSQL, MsgText)
                                              mrc.Fields(1) = Trim(Text3.Text)
                                              mrc.Update     '打开所需数据
                                              mrc.Close    '将数据库关闭，释放资源
                                              MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
                                          End If
                                      End If
                                  End If
                              End If
                          End If
                      End If
                  Else
                      MsgBox "您没有权限修改其他管理员的密码！", 0 + 48, "警告"
                      Text1.Text = ""
                      Text2.Text = ""
                      Text3.Text = ""
                      Text4.Text = ""
                      Text4.SetFocus
                  End If
            End If
    Case "一般用户"
        Text1.SetFocus
        '因为一般用户权限最低，所以只能修改自己的密码，那么久直接将用户同步到文本框中，不需要输入了！
        If Text1.Text = "" Then
            MsgBox "原密码不能为空！", vbOKOnly + vbExclamation, "警告"
        Else
            '判断文本框中输入的原密码是否与数据库中的一致
            If Text1.Text <> Trim(mrc1.Fields(1)) Then
                MsgBox "原密码错误，请重新输入！", 0 + 48, "提示"
                Text1.Text = ""
                Text1.SetFocus
            Else
                '判断新密码部分
                 If Text2.Text = "" Then
                    MsgBox "新密码不能为空！", vbOKOnly + vbExclamation, "警告"
                 Else
                     If Trim(Text3.Text) <> Trim(Text2.Text) Then
                        MsgBox "两次输入密码不一致，请核对！", vbOKOnly + vbExclamation, "警告"
                        Text2.Text = ""
                        Text3.Text = ""
                     Else
                        txtSQL = "select * from user_info where userid='" & Trim(Text4.Text) & "'"
                        Set mrc = ExecuteSQL(txtSQL, MsgText)
                        mrc.Fields(1) = Trim(Text3.Text)
                        mrc.Update     '打开所需数据
                        mrc.Close    '将数据库关闭，释放资源
                        MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
                     End If
                 End If
            End If
        End If
    End Select
End Sub


总结：

以上功能是在原有的基础上，通过添加Select Case语句来实现的，虽然看起来代码比较多，但是实际上操作起来还是比较简单的，只要敢动手去做就可以！虽然只是一个小小的修改密码的界面，但是让我学会了：任何时候都要相信自己，我可以完成！做什么事情多想一点点，在原有的基础上进步一点点！


杨光彩-sunny
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 24
    评论
专栏目录
机房收费系统——修改密码
最好的时光里
09-16 930
修改密码，其实非常简单，流程是这样的，首先输入原密码→输入新密码→再次确认新密码，输入完成以后，当点击修改密码的时候，开始进行验证，首先，原密码是否正确，原密码正确的前提下，判断新密码是否和原密码一致，不一致的情况下判断两次输入的新密码是否一致，如果此时新密码一致，那么提示用户修改密码成功，强制用户下线，因为在主界面关闭的时候需要有提示，此时就应该在用户即使选择不退出系统的情况下依然退出系统，具体
结合机房收费系统对UML的总结
01-31
前一段时间学习了软件工程，所以将UML建模和软工做了一个对比（这里没有画出构件图和部署图）：分析图形：下面就通过机房收费系统具体介绍几种主要的图形理解：用例图是从用户的角度来看我们所开发的系统。...
第一次机房收费系统之一般用户修改密码
ZYB的博客
07-30 261
执行操作入下： 输入原密码，查询是否正确，不正确提示，否则输入新密码，确认密码，两者对比是否相同，相同则将密码设置为新密码，退出系统重新登陆，否则提示两者不同，无法修改。 使用数据库表： user_info（存放用户信息） 具体代码如下： Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOK_Click() ...
机房收费系统之密码修改
Elsa~的博客
09-17 310
       密码修改的窗体较为简单，这个窗体里并没有复杂的逻辑，都是常用的查询、更新语句，此窗体没有错误集和查询集，我们就简单的分享一下它的流程图和代码片段吧^_^ 一、密码修改窗体流程图 二、代码片段 ①、判断是否与原密码相同 txtSQL = "select * from User_Info where userID='" &amp; frmlogin.txtuseri...
【第一次机房收费系统】—修改密码
在这个充满危险的乱世之中，只有学会烤鸡才能顽强的活下去。
11-03 378
一、思维导图 这个容易理解，就不写了哈。 二、代码 Private Sub cmdOk_Click() Dim txtSQL As String Dim msgtext As String Dim mrc As ADODB.Recordset Dim updatemrc As ADODB.Recordset '判断输入的旧口令是否为空 ...
机房合作—MD5加密密码
张伟杰
12-23 683
  我们知道注册用户时，用户的密码都存在数据库中了，但是都不是以明文存储的，这些数据库中的密码都是经过加密的。因为如果存储的是明文，一旦数据库被侵入，将会给用户带来巨大的损失，所以我们要对密码进行加密。   在登录的时候，可以先将明文用加密算法转换成密文，然后再用密文和数据库中存储的密文进行比较，如果一致就说明密码正确，如果不一致密码自然也就不正确。下面我介绍两种用MD5算法加密的方法，不过第一种...
第一次机房收费系统--模块（三）
马踏飞燕
11-19 548
最近对于模块有了新的认识，其实模块就是将每个窗体中重复的部分拿出来放到模块中，公共定义，可以让每个有需要的窗体调用，这样可以少些很多代码，节省时间，提高效率。 　　 　下面就是对于模块的详细了解，其实很简单！代码：Public Function Connectstring() As String '返回一个数据库连接 Connectstring = "FileDSN=charge.dsn
基于Java写的一款机房收费管理系统
08-15
本项目是一款基于Java技术实现的机房收费管理系统，旨在解决学校等机构对机房资源的高效管理与收费问题。利用Java的稳定性和跨平台特性，该系统能够运行在多种操作系统上，为用户提供便捷的操作体验。 1. **系统...
VB机房收费系统
07-19
通过"第一次机房收费"这个文件名，我们可以推测这可能是系统首次运行的配置文件或者示例数据，用于帮助用户理解系统的基本操作流程和设置方法。 总的来说，VB机房收费系统利用VB的强大功能，实现了机房的高效管理，...
C语言实践-机房收费管理系统.zip
04-11
在这个项目中，我们利用C语言实现了一个简单的机房收费管理系统，该系统旨在模拟实际的机房计费流程，提供用户管理、计费规则设置以及费用计算等功能。这一课程设计不仅锻炼了开发者对C语言的理解和应用，也涉及到了...
vb版机房收费系统
09-13
【VB版机房收费系统】是一款基于Visual Basic（VB）编程语言开发的计算机机房管理软件，主要用于管理和计费在机房中使用计算机资源的活动。这个系统旨在提高机房运营效率，确保公平、准确地计算用户的使用时间，并...
机房一、修改密码窗体问题
YNO
08-27 791
这个状态吧一直没怎么调整好，这不为了让自己不忘初心，所以我还是慢慢的开始调整自己。话说今天在敲机房的修改密码窗体的时候吧，发现一个特别有意思的地方，修改密码就三个为本框，两个命令按钮。可别小看这个，今天我可是捣鼓了好半天（当然是有大神的帮助滴）         废话不多说今天的问题是这样的，本来三个文本框得功能一开始是这样的——如果没有输入直接单击确定是没有提醒的。但是我就想着怎么有点奇怪，登录
【学生信息管理系统】总结一
破茧成蝶
05-15 2391
首先说一下敲学生的一点点小感受：无论是敲学生还是调错亦或者是优化，都不要断断续续，要在一个集中的时间段里完成，这样不仅效率高而且能够及时发现问题。     接下来是我所遇到的一些问题，和大家一起分享，大家有什么好的建议或者是意见，及时沟流哦！ 登录对话框 问题一： 对于这段简短的代码，我不是很明白，后来经过查证终于明白地很透彻了：ok为全局变量，用户登录成功，OK被赋值为T
第一次机房收费系统--上机
破茧成蝶
08-24 1881
前言： 原以为上机很困难，自己没有办法完成的，但是当自己真正地静下心来去点师姐给的系统，对应着数据库一点点地看，才发现原来上机并没有想象中的那么困难！ 流程图：
【学生信息管理系统】总结三
破茧成蝶
05-25 1755
问题 十二：文本框输入超出范围问题  在添加学籍信息的时候，假如输入的数太多，是不是会出现上面那样的情况，别急，下面我们一起来解决一下： 打开：SQL--Student--表--dbo.student_info--设计，  就会出现如下图所示的内容：  我们一般需要控制输入个数分为两部分：学号、电话号码，所以将他们的数据类型后面的字符个数改为自己需要的就OK啦！接下
【学生信息管理系统】之“实时错误‘91'"
破茧成蝶
05-14 1327
学生已经断断续续地进行了很长一段时间了，现在也是处于调试阶段，通过了这些天的努力，自己独立处理了很多问题，这是自己独立完成的第一个系统，希望可以做到出了错误自己调试，不能让别人帮忙，加油！对于“实时错误'91'对象变量或with块变量未设置”这个问题，我也是和它奋战了很久，第一次解决了之后，隔不了多久它就会跳出来，但是稀奇的是每一次出错的地方都不一样，以下是我总结的一些问题，希望和大家一起进步！
【学生信息管理系统】总结二
破茧成蝶
05-21 1293
学生的优化还在继续，所以就会有新的问题跳出来！遇到问题解决问题，这就是我们提高班人的作风！加油！
第一次机房收费系统--安装连接之初体验
破茧成蝶
07-25 1115
前言： 机房开始，自己迷迷糊糊的，看着给的少得可怜的资料，心里默默打鼓呀，不论如何加油吧！打开之后也不知道应该先干什么，怎么干，于是就看着机房收费系统使用说明一步步来，接下来是我遇到的一些问题，以及解决办法，和大家一起分享，还望大家多多指教啊！ 配置文件DSN： 下面以win8.1系统为例： 第一步：打开控制面板--选择管理工具 第二步：选择ODBC数
机房收费系统--层次图
最新发布
11-05
机房收费系统的层次图是一种展示系统结构的图形化工具，它将系统分解为多个层次，每个层次都有其特定的功能和职责。通常，机房收费系统的层次图包括三个层次：表示用户界面的表示层、表示业务逻辑的业务层和表示数据...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 24
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值