效果动画演示
实现步骤
第一步:创建框架页面
a) 标题栏 大小:1024 * 100,坐标:0,0
b) 菜单栏 大小:100 * 668 ,坐标:0,100
c) 主窗口、操作员和管理员统一 大小:924 * 668,坐标:100,100
第二步: 添加变量地址“设备电子锁”==>用于标记设备是否打开允许管理员或超级管理员登录的标记;“是否登录”用户标记用户是否已登录;
第三步:标题栏 窗口 对应的事件
a) 动画显示
b) 按钮“模拟机器退出”==>事件“左键按下”
Var.设备电子锁= Not Var.设备电子锁
c) 按钮“登录”==>事件“左键按下”
UserCmd.LoginBox()
usertype=UserCmd.GetUserType(UserCmd.UserName)
'判断当前用户是否为管理员或超级管理员
If usertype="Admin" Or usertype="SystemAdmin" then
If Var.设备电子锁=False then
MsgBox "请打开设备电子锁!"
UserCmd.Logout()
Var.是否登录=False
Call HMICmd.OpenWindowAndCloseOther("标题栏,菜单栏,主窗口")
Exit Sub
End If
End If
'判断用户是否登录,如果不为None表示已登录
If UserCmd.UserName<>"None" then
Var.是否登录=True
End If
d) 按钮“注销”==>事件“左键按下”
UserCmd.Logout()
Var.是否登录=False
Call HMICmd.OpenWindowAndCloseOther("标题栏,菜单栏,主窗口")
e) 窗口==>事件==>画面程序==>运行时事件
usertype=UserCmd.GetUserType(UserCmd.UserName)
If Var.是否登录=True And Var.设备电子锁=False And ( usertype="Admin" Or usertype="SystemAdmin" ) then
Var.是否登录=False
UserCmd.Logout()
Call HMICmd.OpenWindowAndCloseOther("标题栏,菜单栏,主窗口")
End If
第四步:菜单栏窗口“按钮”和事件
a) 按钮“操作员”==>事件“左键按下”
Call HMICmd.OpenWindowAndCloseOther("标题栏,菜单栏,操作员")
b) 按钮“管理员”==>事件“左键按下”
Call HMICmd.OpenWindowAndCloseOther("标题栏,菜单栏,管理员")
第五步:主窗口“文本”动画