本文主要是介绍VB\数据库--模拟系统登录界面，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
本文主要说明如何利用VB结合数据库制作出系统登录界面。（效果如图一）
（图一）
该实例主要分为三大部分。
一、数据库的创建：
①：在vb中选择“外界程序”\“可视化数据管理器”，新建数据库，并且保存到程序文件目录下
② 在数据库窗口中单击右键，新建表。
③ 在“表结构”对话框表名称中输入“系统用户”，并且添加两个字段—“用户名\密码”
④ 添加索引，名称为“用户名索引”，在可用字段列表中双击“用户名”添加到索引的字段中，最后生成表。
二、窗体设计
可参照图一，进行窗体的简单设计。
三、代码部分
在书写的时候一定要细心，否则将错误百出。
Option Explicit
Const maxlogtimes As Integer = 3Private Sub cmdcancel_Click()Dim intresult As Integerintresult = MsgBox("你选择了推出系统登录，退出将不能启动管理系统！" & vbCrLf _& "是否真的退出？", vbYesNo, "登录验证")If intresult = vbYes Then EndEnd SubPrivate Function check_password(ByVal username As String, ByVal password As String) As Byte
On Error GoTo gperrorDim objcn As New Connection, objrs As New Recordset, strcn As StringDim strsql As Stringobjcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\实例2.mdb"objcn.Openstrsql = "select 口令 from 系统用户 where 用户名='" & username & "'"Set objrs.ActiveConnection = objcnobjrs.Open (strsql)If objrs.EOF Thencheck_password = 0ElseIf password <> Trim(objrs.Fields("口令").Value) Thencheck_password = 1Elsecheck_password = 2End IfEnd Ifobjcn.CloseSet objrs = NothingSet objcn = NothingExit Functiongperror:check_password = 255Set objrs = NothingSet objcn = NothingEnd FunctionPrivate Sub cmdok_Click()Static intlogtimes As Integer '保存用户请求登录次数Dim intchecked As Integer, strname As String, strpassword As Stringintlogtimes = intlogtimes + 1If intlogtimes > maxlogtimes Then'超过允许登录次数，显示提示信息MsgBox "你已经超过允许验证次数！" & vbCr _& "应用程序将结束！", vbCritical, "登录验证"EndElsestrname = Trim(txtusername.Text)strpassword = Trim(txtpassword.Text)'检验用户名和口令的合法性Select Case check_password(strname, strpassword)Case 0MsgBox "<" & strname & _">不是系统用户，请检查用户名输入是否正确！", vbCritical, "登录验证"txtusername.SetFocustxtusername.SelStart = 0txtusername.SelLength = Len(txtusername)Case 1MsgBox "口令错误，请重新输入！", vbCritical, "登录验证"txtpassword = ""txtpassword.SetFocusCase 2Unload MeMsgBox "登录成功，将启动系统程序！", vbInformation, "登录验证"Case ElseMsgBox "登录验证未正常完场！，请重新运行登录程序," & vbCrLfEnd SelectEnd IfEnd Sub
今天是高中最后一天，祝你们考个好成绩！
这篇关于VB\数据库--模拟系统登录界面的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
