酷毙了的用户登陆[二]

huanghai

其实就是在原来的例子的基础上优化了代码，加了动画效果

游客，如果您要查看本帖隐藏内容请回复

ok123.1

有个问题请教这位高手朋友,
这样的窗口界面怎么设置呢?
且进入就是,是用窗体吗?
谢谢!

bili

登录之后就又回到ACCESS系统了，如何能隐藏系统的菜单栏呢

anna.lee

好

仙鹤

可以呀！

pangli

这是用什么做的窗体呀？

我同意

我没怎学过代码想请教，先谢了！
Public Function login() As Boolean
    Dim rst As New ADODB.Recordset
    Dim strSQL As String
    下面句子里的判断为何用员工ID而不是员工姓名？登录窗里不是选的姓名吗？秘密在组合框里吗？
    strSQL = "SELECT 员工Id, 密码 FROM 员工表 WHERE 员工Id = " & Me.cboUserName
    下面这句又是什么意思？如何与上句联系理解？
    rst.Open strSQL, CurrentProject.Connection, adOpenStatic

    If rst.RecordCount > 0 Then
        If rst("密码") = Me.TxtPwd Then login = True
    End If

End Function

weiping

好

wlfh888

谁帮我看看,为什么老是出错.

a22

ding