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

思路：

代码：

总结：

思路：

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

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

代码：

'权限判断和更新值班表与工作记录表
Private Sub level()'等级判断If Trim(Userlevel = "管理员") Then'所有功能都可以使用Me.generaluser.Enabled = TrueMe.operator.Enabled = TrueMe.adminsitrator.Enabled = TrueCall onupdate '更新表ElseIf Trim(Userlevel = "操作员") Then'只有一般用户和操作员功能可用Me.generaluser.Enabled = TrueMe.operator.Enabled = TrueMe.adminsitrator.Enabled = FalseCall onupdate '更新表Else'只有一般用户可用Me.generaluser.Enabled = TrueMe.operator.Enabled = FalseMe.adminsitrator.Enabled = FalseEnd If
End Sub
'更新正在上机表和上机记录表
Private Sub onupdate()'更新值班表Dim onworksql As StringDim onworkmrc As ADODB.RecordsetDim onmsgtext As Stringonworksql = "select * from onwork_Info" '查询值班表Set onworkmrc = ExecuteSQL(onworksql, onmsgtext) '执行sqlonworkmrc.AddNew '添加记录onworkmrc.Fields(0) = Trim(UserName) '用户idonworkmrc.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 StringDim workmrc As ADODB.RecordsetDim workmsgtext As Stringworksql = "select * from worklog_Info" '获取工作记录表Set workmrc = ExecuteSQL(worksql, workmsgtext) '执行sqlworkmrc.AddNew '添加记录workmrc.Fields(1) = Trim(UserName) '用户idworkmrc.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里面的过程，实现代码冗余。把需要多次调用的功能根据使用范围判断，来决定过程声明在窗体还是模块。

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

可行性研究报告——【VB版机房收费系统】
1引言 1.1编写目的在电子信息高速发展的今天,计算机已经是大家生活中必不可少的工具了.人工管理信息的时代已经一去不复返.计算机管理收费系统早已成为了现实,它具有管理方便.检索迅速.查找快速.可靠性 ...
VB版机房收费系统流程图--00
前言:在完成学生信息管理的时候没有化流程图因为,学生有源码.但是机房收费系统几乎没有源码.有都是零零散散的,不是一个人写的所以不连贯.思路已不是很一致,功能一样但是人的思想是不一样的.所以实现方式上是 ...
VB版机房收费系统”登录“--02
前言:所有软件一开始第一个功能都是登录,所以登录可以说是用户体验度非常重要的一个环节.假如:你的登录页面做的非常的不好看,而且用户登录的时间还长.这个会大大的影响到用户后面的功能体验,所以登录功能担任 ...
VB.NET版机房收费系统---报表
报表,即报告情况的表格,简单的说:报表就是用表格.图表等格式来动态显示数据,可以用公式表示为:"报表 = 多样的格式 + 动态的数据". 在没有计算机以前,人们利用纸和笔来记录数据 ...
VB.net版机房收费系统——结账功能实现（代码部分）
实现结账功能的时候,被选项卡控件整的有点郁闷,瞬间脑袋就凌乱了,听上去自己好像很可笑的样子--于是,便去爬巨人的肩膀了~ 看了欢哥的博客,发现她的结账博客是按照"索引"思想写的,在 ...
VB.net版机房收费系统——结账功能实现（调错与优化）
调错部分上一篇博客<VB.net版机房收费系统--结账功能实现(代码部分>说的是结账功能的实现,亮出了代码.是在为这篇博客做铺垫.尽管结账功能代码是借鉴的巨人的博客.可是自己比着葫芦画瓢 ...
VB.NET版机房收费系统---七仙女之系统登录
VB.NET第一版机房收费系统,告一段落,验收的时候,问题也是大大的存在,没有用上设计模式,什么触发器,存储过程,都没有用上,看看其她小伙伴的,七层实现登录?那是什么东东,相比较我的三层而言,多了两倍 ...
重构机房VB.NET机房收费系统个人重构版你都学会了什么（之一）
每日一贴,今天的内容关键字为重构机房在VB.NET机房收费系统个人重构版时你都学会了什么?在开始第二遍的机房收费系统个人重构时,我发明不知不觉竟接触了很多很多之前不晓得的货色,也学到了很多新知识.下 ...
VB.NET版机房收费系统---组合查询
查询的意思就是查找,寻找,指在某一个或几个地方找出自己所要的信息,假如我想搜索一下我自己写的博客,名字叫做初雪之恋,我在百度的搜索框中输入丁国华三个字,会有怎样的惊喜等着我? 啊哦,这个信息并不是我想 ...

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

思路：

代码：

总结：

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

最新文章

热门文章