谁知道用VB做一个登陆框，要求用datacombo，选择用户，单击后显示登陆框。输入密码正确进入。

Answer 1

Private Sub Combo1_Click()
If Combo1.Text = "" Then
MsgBox "没有选择用户，请选择！", 16, "选择用户！"
Exit Sub
End If
Frame1.Visible = True '使登录框可见
Frame1.Caption = Combo1.Text & "用户登录"
End Sub

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "没有填写该用户密码，请填写！", 16, "填写密码！"
Exit Sub
End If
'连接数据库语句略，不知道你的用户登录的数据存储在那里。
'连接数据表
strSQL = "select * from 登录表 Where 用户名='" & Combo1.Text & "'" '假定了一个登录表，有用户名字段，有用户密码字段
RS.Open strSQL, db, 3, 3
If Not RS.EOF Then
If RS!用户密码 = Text1.Text Then
Unload Me
需要打开的界面名.Show '这里是需要进入的界面名称！！
RS.Close
Set RS = Nothing
'关闭数据库连接
Else
MsgBox "你填写的用户密码不正确！", 16, "密码错误！"
RS.Close
Set RS = Nothing
Exit Sub
'关闭数据库连接
End If
Else
MsgBox "没有这个用户名！", 16, "用户名错误！"
RS.Close
Set RS = Nothing
'关闭数据库连接
End If
End Sub

Private Sub Form_Load()
Frame1.Visible = False '使登录框不可见
Combo1.Clear
Combo1.AddItem "aaa"
Combo1.AddItem "未命名"
Combo1.AddItem "12321"
Combo1.AddItem "张工"
Combo1.AddItem "12324"
Combo1.AddItem "zxc"
Combo1.AddItem "qq"
Combo1.AddItem "12212"
Text1.PasswordChar = "*"
End Sub

追问

你有QQ吗留一个吧。嘿嘿。

追答

QQ:867235513

Answer 2

’窗体1里：

Public userName As String

Private Sub DataCombo1_Click(Area As Integer)

userName = DataCombo1.Text

frmLogin.Show

End Sub

Private Sub Form_Load()

Adodc1.Refresh

End Sub

'登陆框窗体里：

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()

    '设置全局变量为 false

    '不提示失败的登录

    LoginSucceeded = False

    Me.Hide

End Sub

Private Sub cmdOK_Click()

    '检查正确的密码

    If txtPassword = "password" Then

        '将代码放在这里传递

        '成功到 calling 函数

        '设置全局变量时最容易的

        LoginSucceeded = True

        Me.Hide

    Else

        MsgBox "无效的密码，请重试!", , "登录"

        txtPassword.SetFocus

        SendKeys "{Home}+{End}"

    End If

End Sub

Private Sub Form_Load()

txtUserName = Form1.userName

End Sub

张志晨

追问

谢谢大哥，跟数据库连接的，access。连接的代码，用不到循环吗

追答

不用循环。dataCombo会被自动填充。

Answer 3

Dim Username As String'保存用户名

Private Sub ComboBox1_Change()
Username = ComboBox1.List(ComboBox1.ListIndex)
ComboBox1.Visible = False
TextBox1.Visible = True
Label1.Caption = "请输入" & Username & "的密码"
End Sub

Private Sub CommandButton1_Click()'登录按钮
'判断Username与TextBox1.Text的值是否匹配
'不匹配的话重新选择用户
'ComboBox1.Visible = True
'TextBox1.Visible = False
'Label1.Caption = "选择用户："
'Username=""
End Sub

Private Sub UserForm_Initialize()'这个是窗体初始化的函数，
'我是用Excel里面的VBA编的，VB里面是Form_Load()
LoadDefault
End Sub

Sub LoadDefault()
ComboBox1.Clear '清空
For i = 1 To 9
ComboBox1.AddItem ("用户" & i) '添加用户
Next i
TextBox1.PasswordChar = "*"
Label1.AutoSize = True
Label1.Caption = "选择用户："
End Sub

Answer 4

我知道。
你没问怎么做，只问谁知道。
俺已经告诉你了。

Answer 5

新增vb窗体的时候有 登陆 窗体，加载一个稍微修改一下就ok了

Answer 6

将代码代入