下面代码是在Combo1里选中用户名就能登陆主窗体,请板主帮再加个必须在text1中输入正确密码才能登陆Frm_Main.Show窗体代码
数据库:Data.mdb,操作员表:UserInfo,编号字段:ID,操作员名字段:MC,密码字段:密码
下面是登陆窗体代码:
Option Explicit
Private Sub Command1_Click() '登陆按钮
 LoginUserId = GetStr(Combo1.Text) '获取用户ID号
 LoginUserName = Mid(Combo1.Text, InStr(1, Combo1.Text, "-") + 1)
 CheckQx LoginUserId
 Unload Me
 Frm_Main.Show
End Sub
Private Sub Form_Load()
 Dim Rs As New ADODB.Recordset
 Set Rs = obj_qx.GetUsers
 With Combo1
      .Clear
      While Rs.EOF = False
            .AddItem Rs.Fields(0) & "-" & Rs.Fields(1)
            Rs.MoveNext
      Wend
      If .ListCount <> 0 Then
         .ListIndex = 0
      End If
 End With      
End Sub
下面是模块代码:
Option Explicit
Public conn As New ADODB.Connection
Public obj_qx As New ClsQx
Public LoginUserId As String
Public LoginUserName As String
Sub main()
 Dim strFile As String
 strFile = App.Path & "\Data.mdb"
 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & strFile & "' ;Persist Security Info=False"
 Frm_Login.Show
End Sub

[ 本帖最后由 幸福xf 于 2013-5-3 09:00 编辑 ]

网上找找有好多这样的东西，自己研究才有进步，要现成的不靠谱！

CheckQx LoginUserId?

老师你好:我是初学者,在网下载了个源码,想在原来基础上加个密码确认登陆,请你帮我修改一下,谢谢!

[ 本帖最后由 幸福xf 于 2013-5-4 08:27 编辑 ]

把登录按钮的代码改成如下代码即可：
Private Sub Command1_Click()
 Dim rs As New ADODB.Recordset, LoginUserId As String, LoginUserName As String, s As String
 If Trim(Text1) = "" Then
   MsgBox "密码不能为空，请输入密码"
   Text1.SetFocus
   Exit Sub
 End If
 LoginUserId = GetStr(Combo1.Text) '获取用户ID号
 LoginUserName = Mid(Combo1.Text, InStr(1, Combo1.Text, "-") + 1)
 s = "select * from userinfo where id=" & LoginUserId & " and 密码='" & Trim(Text1) & "'"
 rs.Open s, conn, adOpenKeyset, adLockOptimistic
 If rs.EOF Then
   MsgBox "用户名或密码不对，请核对密码"
   Text1.SetFocus
   rs.Close
   Exit Sub
 End If
 rs.Close
 CheckQx LoginUserId
 Unload Me
 Frm_Main.Show
End Sub

Private Sub Command1_Click()
 LoginUserId = GetStr(Combo1.Text) '获取用户ID号
 LoginUserName = Mid(Combo1.Text, InStr(1, Combo1.Text, "-") + 1)
Dim rs As New ADODB.Recordset
Set rs = conn.Execute("select * from userinfo where ID=" & LoginUserId & " and 密码='" & Text1.Text & "'")
 If rs.EOF And rs.BOF Then
    MsgBox "密码错误！"
Else
    CheckQx LoginUserId
   
    Unload Me
    Frm_Main.Show
End If
End Sub

上面lowxiong和Artless两位板主提供的代码都能达到目的,让我们这些初学者学到了不同的知识,也觉得板主平易近人.因此特对两位板主老师和这个论坛表示深深地感谢!

希望你不要在得到答案后修改帖子，这成为别人理解问题的障碍。