vb mysql登录界面_VB\数据库--模拟系统登录界面

本文主要说明如何利用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