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

目录

思路：

代码：

总结：

思路：

         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