主题：[求助]这个自定义登陆界面的代码该怎么写

 登陆界面分为管理员登陆和顾客登陆。管理员用用户名和密码登陆，权限为1的是老板，登陆进去后是管理员信息，权限为2的是管理员，登陆进入酒店菜单窗口，进行酒店日常工作。顾客用订单号和密码登陆，进入顾客信息窗口。

数据库如下

非常感谢

这个不用看图片的，很简单，在AfterOpenProject事件中根据登录用户名，进入不同的表和窗口:

Select Case User.Name

    Case “张三”

         Forms("订单表窗口名称").Open()

         MainTable = Tables(“订单”)

    Case “李四”

       Forms("销售表窗口名称").Open()

       MainTable = Tables(“销售”)

End Select

楼主的意思还要把其他的表隐藏起来吧？比如顾客，不能看到其他的表。怎么隐藏？

Select Case User.Name

    Case “张三”

         Forms("订单表窗口名称").Open()

         MainTable = Tables(“订单”)

tables(“销售”).visible=false

    Case “李四”

       Forms("销售表窗口名称").Open()

       MainTable = Tables(“销售”)

tables(“订单”).visible=false

End Select

呵呵，请参考《开发指南》下《权限管理》这一章