vb版机房收费系统“经典代码总结”--01

举报
ksh1998 发表于 2021/12/25 23:58:43 2021/12/25
1.3k+ 0 0
【摘要】 前言:说到经典代码,每个人对经典代码的理解和应用都多多少少有点不同。因为每个人的重点不一样,虽然最后实现的功能是一样的。实现的过程和思路是每个人都不一样的,方法也有区别。所以我分享一下我的经典代码,我认为在我这登录的时候我写的一个,权限判断和数据库的更新过程算是我这的经典代码。 目录 思路: 代码: 总结: 思路: &nb...

前言:说到经典代码,每个人对经典代码的理解和应用都多多少少有点不同。因为每个人的重点不一样,虽然最后实现的功能是一样的。实现的过程和思路是每个人都不一样的,方法也有区别。所以我分享一下我的经典代码,我认为在我这登录的时候我写的一个,权限判断和数据库的更新过程算是我这的经典代码。

目录

思路:

代码:

总结:


思路:

         1,在登录页面把用户权限保存在,全局表里里面(在模块里声明全局变量)。

          2,在主窗体的加载事件里,利用一个过程嵌套实现权限判断和数据库的更新。

代码:


      '权限判断和更新值班表与工作记录表
      Private Sub level()
         '等级判断
         If Trim(Userlevel = "管理员") Then
             '所有功能都可以使用
             Me.generaluser.Enabled = True
             Me.operator.Enabled = True
             Me.adminsitrator.Enabled = True
             Call onupdate '更新表
         ElseIf Trim(Userlevel = "操作员") Then
             '只有一般用户和操作员功能可用
              Me.generaluser.Enabled = True
              Me.operator.Enabled = True
              Me.adminsitrator.Enabled = False
              Call onupdate '更新表
         Else
             '只有一般用户可用
             Me.generaluser.Enabled = True
             Me.operator.Enabled = False
             Me.adminsitrator.Enabled = False
         End If
      End Sub
      '更新正在上机表和上机记录表
      Private Sub onupdate()
         '更新值班表
         Dim onworksql As String
         Dim onworkmrc As ADODB.Recordset
         Dim onmsgtext As String
          onworksql = "select * from onwork_Info" '查询值班表
         Set onworkmrc = ExecuteSQL(onworksql, onmsgtext) '执行sql
          onworkmrc.AddNew '添加记录
          onworkmrc.Fields(0) = Trim(UserName) '用户id
          onworkmrc.Fields(1) = Trim(Userlevel) '用户等级
          onworkmrc.Fields(2) = Trim(Date) '登录日期
          onworkmrc.Fields(3) = Trim(Time) '登录时间
          onworkmrc.Fields(4) = Trim(ComputerName) '计算机名
          onworkmrc.Update '更新
          onworkmrc.Close '关闭
         '更新工作记录
         Dim worksql As String
         Dim workmrc As ADODB.Recordset
         Dim workmsgtext As String
          worksql = "select * from worklog_Info" '获取工作记录表
         Set workmrc = ExecuteSQL(worksql, workmsgtext) '执行sql
          workmrc.AddNew '添加记录
          workmrc.Fields(1) = Trim(UserName) '用户id
          workmrc.Fields(2) = Trim(Userlevel) '用户级别
          workmrc.Fields(3) = Trim(Date) '登录日期
          workmrc.Fields(4) = Trim(Time) '登录时间
          workmrc.Fields(7) = Trim(ComputerName) '计算机名
          workmrc.Fields(8) = Trim("True") '状态
          workmrc.Update '更新
          workmrc.Close '关闭数据集
      End Sub
  
 

总结:

通过对第一遍机房的理解,把登录代码进行了缩减和优化。利用VB里面的过程,实现代码冗余。把需要多次调用的功能根据使用范围判断,来决定过程声明在窗体还是模块。

文章来源: kangshihang.blog.csdn.net,作者:康世行,版权归原作者所有,如需转载,请联系作者。

原文链接:kangshihang.blog.csdn.net/article/details/100730172

【版权声明】本文为华为云社区用户转载文章,如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

作者其他文章

评论(0

抱歉,系统识别当前为高风险访问,暂不支持该操作

    全部回复

    上滑加载中

    设置昵称

    在此一键设置昵称,即可参与社区互动!

    *长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

    *长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。