高手帮下忙啊?急急急

a283054

回复 caoguangyao 的帖子

万分感激啊

LeeTien

建议用条件查询
如果要安全性
建议先匹配用户名
如果存在再验证密码
这样对于爆破将是噩梦，当然还可以加个验证码，再整个MD5加密

flyyoung

都可以，不过比较赞成10楼，易懂，可取。不会出错。楼主的问题是没搞清楚如何把账号密码查询匹配到数据库中的对应的数据中去。其实这问题不难，只不过楼主没有化时间去思考。

雨农

Dim rst As New ADODB.Recordset
Dim strsql As String
strsql = "select 用户名,密码 from 用户名"""  条件在哪里?后面应该加where
' where 用户名='"&控件名 &"' and 密码='"& 控件名 &"'
rst.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Trim(Me.Combo13) = Trim(rst.Fields(0)) And Trim(Me.Text2) = Trim(rst.Fields(1)) Then
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = ChrW(20999) & ChrW(25442) & ChrW(-26782) & ChrW(26495)
    DoCmd.OpenForm stDocName, , , stLinkCriteria

    Else
    MsgBox "登陆失败，请重新登陆"
    Me.Combo13.SetFocus
End If
End Sub