本文主要说明如何利用VB结合数据库制作出系统登录界面。(效果如图一)
(图一)
该实例主要分为三大部分。
一、数据库的创建：
①：在vb中选择“外界程序”\“可视化数据管理器”，新建数据库，并且保存到程序文件目录下
② 在数据库窗口中单击右键，新建表。
③ 在“表结构”对话框表名称中输入“系统用户”，并且添加两个字段—“用户名\密码”
④ 添加索引，名称为“用户名索引”，在可用字段列表中双击“用户名”添加到索引的字段中，最后生成表。
二、窗体设计
可参照图一，进行窗体的简单设计。
三、代码部分
在书写的时候一定要细心，否则将错误百出。
Option Explicit
Const maxlogtimes As Integer = 3
Private Sub cmdcancel_Click()
Dim intresult As Integer
intresult = MsgBox("你选择了推出系统登录，退出将不能启动管理系统！" & vbCrLf _
& "是否真的退出？",vbYesNo,"登录验证")
If intresult = vbYes Then End
End Sub
Private Function check_password(ByVal username As String,ByVal password As String) As Byte
On Error GoTo gperror
Dim objcn As New Connection,objrs As New Recordset,strcn As String
Dim strsql As String
objcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\实例2.mdb"
objcn.Open
strsql = "select 口令 from 系统用户 where 用户名='" & username & "'"
Set objrs.ActiveConnection = objcn
objrs.Open (strsql)
If objrs.EOF Then
check_password = 0
Else
If password <> Trim(objrs.Fields("口令").Value) Then
check_password = 1
Else
check_password = 2
End If
End If
objcn.Close
Set objrs = Nothing
Set objcn = Nothing
Exit Function
gperror:
check_password = 255
Set objrs = Nothing
Set objcn = Nothing
End Function
Private Sub cmdok_Click()
Static intlogtimes As Integer '保存用户请求登录次数
Dim intchecked As Integer,strname As String,strpassword As String
intlogtimes = intlogtimes + 1
If intlogtimes > maxlogtimes Then
'超过允许登录次数，显示提示信息
MsgBox "你已经超过允许验证次数！" & vbCr _
& "应用程序将结束！",vbCritical,"登录验证"
End
Else
strname = Trim(txtusername.Text)
strpassword = Trim(txtpassword.Text)
'检验用户名和口令的合法性
Select Case check_password(strname,strpassword)
Case 0
MsgBox "
">不是系统用户，请检查用户名输入是否正确！","登录验证"
txtusername.SetFocus
txtusername.SelStart = 0
txtusername.SelLength = Len(txtusername)
Case 1
MsgBox "口令错误，请重新输入！","登录验证"
txtpassword = ""
txtpassword.SetFocus
Case 2
Unload Me
MsgBox "登录成功，将启动系统程序！",vbInformation,"登录验证"
Case Else
MsgBox "登录验证未正常完场！，请重新运行登录程序," & vbCrLf
End Select
End If
End Sub
今天是高中最后一天，祝你们考个好成绩！
总结
以上是编程之家为你收集整理的VB\数据库--模拟系统登录界面全部内容，希望文章能够帮你解决VB\数据库--模拟系统登录界面所遇到的程序开发问题。
如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您喜欢交流学习经验，点击链接加入交流1群：1065694478(已满)交流2群：163560250
