vb版机房收费系统“经典代码总结”--01
【摘要】
前言:说到经典代码,每个人对经典代码的理解和应用都多多少少有点不同。因为每个人的重点不一样,虽然最后实现的功能是一样的。实现的过程和思路是每个人都不一样的,方法也有区别。所以我分享一下我的经典代码,我认为在我这登录的时候我写的一个,权限判断和数据库的更新过程算是我这的经典代码。
目录
思路:
代码:
总结:
思路:
&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)