DIAView VBS 如何通过设备去控制组态的登录与登出

效果动画演示

 

 实现步骤

第一步：创建框架页面

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("标题栏,菜单栏,管理员")

第五步：主窗口“文本”动画