下面代码是在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 编辑 ]

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

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

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