VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
  • vb教程之VB5.0中实现系统登录

  • 2017-09-21 16:27 来源:未知
---- 一般进入系统都要登录(如进入Windows NT),进行身份检验,以保证软件的合法使用和维护,便于明确责任。我们自己开发的系统也必须保证系统使用者是合法用户,登录时要进行身份验证。 

---- 系统登录时一般有三次机会,超过则视为非法用户,不让使用系统。本程序是用VB5.0实现的,后台数据库是Access 97。 

其主要源程序代码如下: 
Private Sub cmd_yes_Click() 
'开始检验 
Picture1.Picture = LoadPicture("trffc10b.ico") 
times = times + 1 
'解密 
txt_mm.Text = invert(txt_mm.Text) 
'查找用户名 
ordc_dlmmk.Recordset.FindFirst 
"username='" & txt_bh.Text & "'" 
If ordc_dlmmk.Recordset.NoMatch Then 
If times < 3 Then 
Picture1.Picture = LoadPicture("trffc10c.ico") 
MsgBox "无此用户,请重新输入!", 
vbExclamation + vbOKOnly,"提示信息" 
Picture1.Picture = LoadPicture("trffc09.ico") 
txt_bh.SetFocus 
Call txt_bh_GotFocus 
Exit Sub 
Else 
MsgBox "对不起,您无权使用本系统 
," + vbCrLf + vbCrLf + " 请与系统管理员联系! ", 
vbCritical + vbOKOnly, "提示信息" 
End 
End If 
End If 
If times < 3 Then 
If Not (UCase(txt_mm.Text) 
= UCase(Text2.Text)) Then 
txt_mm.Text = invert(txt_mm.Text) 
Picture1.Picture = LoadPicture("trffc10c.ico") 
MsgBox "用户密码错误,请重新输入!", 
vbExclamation, "提示信息" 
Picture1.Picture = LoadPicture("trffc09.ico") 
txt_mm.SetFocus 
Call txt_mm_GotFocus 
Exit Sub 
Else 
Picture1.Picture = LoadPicture("trffc10a.ico") 
MsgBox "欢迎您使用本系统!", vbInformation, "提示信息" 
Unload Me 
frm_welcome.Show 
End If 
ElseIf times = 3 Then 
If UCase(txt_mm.Text) = UCase(Text2.Text) Then 
Picture1.Picture = LoadPicture("trffc10a.ico") 
MsgBox "欢迎您使用本系统!", vbInformation, "提示信息" 
Unload Me 
frm_welcome.Show 
Exit Sub 
End If 
MsgBox "对不起,您无权使用本系统, 
" + vbCrLf + vbCrLf + " 请与系统管理员联系! ", 
vbCritical + vbOKOnly, "提示信息" 
End 
End If 
End Sub 

---- 由于一般系统用户有多个,所以必须设置多用户。通常用户名和对应密码以数据库的形式保存。但数据库极易暴露,可直接通过打开数据库而获取用户名和密码,安全性不好,所以应进行加密工作--保存在数据库中的密码与登录时输入的密码不一样,保存时进行加密,登录时进行解密。这样,即使看到了数据库内容,如果不知道解密过程也无法进入系统。 

---- 一个比较简单的加密过程如下: 

Public Function invert(passw As String) 
Dim i As Integer 
Dim Temp As String 
Temp = "" 
For i = Len(passw) To 1 Step -1 
Temp = Temp + Mid(passw, i, 1) 
Next i 
invert = Temp 
End Function 

---- 至此一个简单的系统登录过程就实现了。
相关教程
  • 【砥砺奋进的5年】空气质量优良 "南宁蓝"常驻绿城 2019-02-17
  • 机关党建工作巡礼——广东“走前头作表率” 2019-02-17
  • 为什么说一直辛苦劳作的农民没有富起来?而不说一直勤劳的农民没有富起来? 2019-02-17
  • 中欧美六国商会签约 国际战略合作在石达成 2019-02-17
  • 【专题】走龙江丝路 向北看发展 华南城 全国重点网媒龙江集中采访活动 2019-02-16
  • 彩民复式追加投注 斩获体彩大乐透1425万 2019-02-16
  • 多彩课堂熔铸红色魂——甘祖昌干部学院教学素描 2019-02-16
  • 张佳宁杂志玩转新娘风 甜系女生展俏皮魅力 2019-02-15
  • 中央调剂制度促进养老保险制度可持续发展 2019-02-15
  • 西安高科工程技术学校——陕西省政府直属中等职业院校西安高科工程技术学校2018招生简章-陕西教育新闻 2019-02-14
  • 旅游低价团暗藏玄机 治理需保持高压态势--旅游频道 2019-02-14
  • 【高清】傈僳族乡村女教师熊文碧:背着娃娃教书 2019-02-13
  • QS世界大学排名发布:中国11所大学进百强,清华排名创历史 2019-02-13
  • 辽宁贯彻十九大精神:领导沉下去 群众用心学 2019-02-13
  • 多部门三令五申禁网售彩票,世界杯竞猜APP上仍热卖 2019-02-12
  • 983| 57| 728| 631| 374| 191| 397| 831| 739| 857|