vb登陆系统代码（vb设置登录程序）

今天给各位分享vb登陆系统代码的知识，其中也会对vb设置登录程序进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、怎样用VB编写一个登陆系统，可以注册账号的那种
• 2、关于vb中的登录代码
• 3、VB的用户登录代码
• 4、vb用户登录界面代码
• 5、vb用户怎么登录界面？用户登陆的代码是多少？

怎样用VB编写一个登陆系统，可以注册账号的那种

1、打开“Microsoft Visual Basic 6.0 中文版”，选择“标准 EXE”，并单击“打开”按钮，进入软件界面。

2、建立如图所示窗体。

3、双击窗体，定义如下全局变量。

4、双击“开始”按钮。

5、输入如下代码。

6、双击“停止”按钮。

7、双击Timer控件，输入如下代码。

8、运行程序，单击“开始”按钮，计时器开始计时。

关于vb中的登录代码

当你判断登陆成功后，应结束事件（Exit Sub/Function）,如果没有结束，则不管成功与否，都执行了错误对话框。类似于错误处理。

建议你，将错误对话框加到IF判断中！ 有问题在联系。。。

VB的用户登录代码

if text1.text "" and text2.text "" then

if 查找返回值 0 then

if 查找返回值 then

msgbox "登录成功"

form2.show

me.visible = false

' or unload me

else

msgbox "输入密码不正确"

endif

else

msgbox "输入用户名不正确"

Exit sub

endif

else

msgbox "请输入帐号密码"

endif

vb用户登录界面代码

送给你一段现存的登录代码：

Option Explicit

Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象

Dim ConnStr As String

Dim Conn As ADODB.Connection

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Set Conn = New ADODB.Connection

'On Error GoTo MyErr:

ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=001234;Initial Catalog=Mydatabase;Data Source=MERRYCHINA" '这是连接SQL数据库的语句

Conn.Open ConnStr

rs.CursorLocation = adUseClient

rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic

Set Selectsql = rs

'Exit Function

'MyErr:

'Set rs = Nothing

'Set Conn = Nothing '释放相关的系统资源

'MsgBox Err.Description, vbInformation, "系统提示" '显示出错信息

End Function

Private Sub Form_Load()

Dim SQL As String

Dim rs As ADODB.Recordset

Dim X As Long

On Error GoTo Err_box

SQL = " select * from A用户表 ORDER BY ID"

Set rs = Selectsql(SQL)

If rs.RecordCount 0 Then

rs.MoveFirst

For X = 1 To rs.RecordCount

Combo1.AddItem rs.Fields("姓名").Value

rs.MoveNext

Next X

Combo1.ListIndex = 0

End If

rs.Close

Exit Sub

Err_box:

End Sub

Private Sub Command1_Click()

Dim SQL As String

Dim rs As ADODB.Recordset

If Text1.Text = "" Then

MsgBox "请输入口令!", 64, "提示"

Text1.SetFocus

Exit Sub

End If

If Combo1.Text = "" Then

MsgBox "请选择帐号!", 64, "提示"

Combo1.SetFocus

Exit Sub

End If

SQL = "SELECT * FROM A用户表 WHERE 姓名='" Combo1.Text "' AND 密码='" Text1.Text "' "

Set rs = Selectsql(SQL)

If rs.RecordCount 0 Then

Form1.Show

Unload Me

Else

MsgBox "口令不对,请重新输入!", 64, "提示"

Text1.SetFocus

End If

End Sub

'**********************************************************************

'说明:1) 在工程中引用Microsoft ActiveX Data Objects 2.8 Library ,其它版本也行如:2.0

' 2) 在窗体中加Texe1.text(文本框控件),Combo1.text(组合框控件),Command1(命令按钮)各一个

' 3) 在SQL Server2000中创建数据库"MyDatabase",新建表"A用户表",表中包含"ID,姓名,密码"等字段,然后将以上代码复制,OK搞定

vb用户怎么登录界面？用户登陆的代码是多少？

vb登陆程序源代码

你可以这样做建一个模块在里面输入下列

Public conn As ADODB.Connection

Sub main()

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _

+ "User ID=sa;password=sa;Initial Catalog=您的数据库名;Data Source=127.0.0.1"

conn.Open

from1.Show ’登录界面

End Sub

再在登录界面“确定”下写入如下代码：

Private Sub Command1_Click()

If id.Text = "" Then

MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"

id.SetFocus

Exit Sub

End If

If password.Text = "" Then

MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"

password.SetFocus

Exit Sub

End If

Dim strSQl As String

strSQl = "select * from Users where users_name='" Trim$(id.Text) "' and password='" Trim$(password.Text) "' "

Dim str As New ADODB.Recordset

Set str = New ADODB.Recordset

str.CursorLocation = adUseClient

str.Open strSQl, conn, adOpenStatic, adLockReadOnly

With str

If .State = adStateOpen Then .Close

.Open strSQl

If .EOF Then

Try_times = Try_times + 1

If Try_times = 3 Then

MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"

Unload Me

Else

MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"

id.SetFocus

id.Text = ""

password.Text = ""

End If

Else

Unload Me

Form2.Show ’登录进入的另一个界面

End If

End With

End Sub

vb登陆系统代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb设置登录程序、vb登陆系统代码的信息别忘了在本站进行查找喔。