vb登录界面设计代码怎么写(用vb设计登陆界面)
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登录窗口制作代码和流程
1、首先，点击菜单栏中的工具按钮，如下图所示。
2、然后点击二级菜单选项按钮，如下图所示。
3、此时将会弹出选项对话框，这时候切换编辑器格式选项卡，如下图所示。
4、然后就可以在这里更改字体大小，如下图所示。
5、更改完毕后点击确定即可成功设置，如下图所示就完成了。
关于VB设计中一个用户登录界面的代码
我好像看出来一点问题，，，
Adodc1.Recordset.Fields(1).Value对应是应该是数据库里的“密码”这个字段。
而你是用Adodc1.Recordset.Fields(1).Value
Combo1.Text
进行比较，肯定是比不来出什么正确的结果的，它俩天生就不相等。所以程序会继续向下运行。
用户名应该
对应Adodc1.Recordset.Fields(0).Value