编程论坛 → VB6论坛

请板主帮加个密码输入正确才能登陆Frm_Main.Show窗体代码

幸福xf 发布于 2013-05-02 19:48， 2202 次点击

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

7 回复

#2

wxflw2013-05-02 21:07

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

#3

Artless2013-05-03 12:03

CheckQx LoginUserId?

#4

幸福xf2013-05-03 19:17

回复 3楼 Artless

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

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

#5

lowxiong2013-05-03 19:48

把登录按钮的代码改成如下代码即可：
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

#6

Artless2013-05-03 19:57

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

#7

幸福xf2013-05-04 08:14

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

#8

Artless2013-05-04 17:30

以下是引用幸福xf在2013-5-4 08:14:23的发言：

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

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

1