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

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

目录

思路：

代码：

总结：

---

思路：

         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里面的过程，实现代码冗余。把需要多次调用的功能根据使用范围判断，来决定过程声明在窗体还是模块。