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

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

Select Case User.Name

    Case “张三”

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

         MainTable = Tables(“订单”)

    Case “李四”

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

       MainTable = Tables(“销售”)

End Select

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