- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]这个自定义登陆界面的代码该怎么写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19976)
-- 发布时间：2012/5/26 2:24:00
-- [求助]这个自定义登陆界面的代码该怎么写
登陆界面分为管理员登陆和顾客登陆。管理员用用户名和密码登陆，权限为1的是老板，登陆进去后是管理员信息，权限为2的是管理员，登陆进入酒店菜单窗口，进行酒店日常工作。顾客用订单号和密码登陆，进入顾客信息窗口。
数据库如下
非常感谢
-- 发布时间：2012/5/26 23:11:00
--
图片看不见
-- 发布时间：2012/5/28 8:50:00
--
这个不用看图片的，很简单，在AfterOpenProject事件中根据登录用户名，进入不同的表和窗口:
Select Case User.Name
Case “张三”
Forms("订单表窗口名称").Open()
MainTable = Tables(“订单”)
Case “李四”
Forms("销售表窗口名称").Open()
MainTable = Tables(“销售”)
End Select
-- 发布时间：2012/5/28 9:45:00
--
楼主的意思还要把其他的表隐藏起来吧？比如顾客，不能看到其他的表。怎么隐藏？
Select Case User.Name
Case “张三”
Forms("订单表窗口名称").Open()
MainTable = Tables(“订单”)
tables(“销售”).visible=false
Case “李四”
Forms("销售表窗口名称").Open()
MainTable = Tables(“销售”)
tables(“订单”).visible=false
End Select
-- 发布时间：2012/5/28 11:18:00
--
以下是引用andu在2012-5-28 9:45:00的发言：
楼主的意思还要把其他的表隐藏起来吧？比如顾客，不能看到其他的表。怎么隐藏？
呵呵，请参考《开发指南》下《权限管理》这一章