どのようにDIAView VBSは、機器によってログインおよびログアウトを制御するように構成しました

アニメーション効果

実装手順

ステップ1：フレームワークページを作成します。

a）のタイトルバーのサイズ：1024 * 100は、座標：0,0

b）のメニューバーのサイズ：100 * 668、座標：0100

C）メインウィンドウ、オペレータ及び均一なサイズの管理者：924 * 668、座標：100、100

ステップ2：変数のアドレス「電子ロック装置」を追加します==>デバイス用のタグがオンに管理者またはスーパー管理者は、マークを記録することができます。ユーザーがログインしているかどうかをユーザーマーク「に記録されます」。

第三段階：ウインドウ対応するイベントのタイトルバー

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

ステップ4：ウィンドウ「ボタン」とイベントのメニューバー

A）ボタン「演算子」==>イベント「ボタンを押して」

Call HMICmd.OpenWindowAndCloseOther("标题栏,菜单栏,操作员")

B）ボタン「管理者」==>イベント「ボタンを押して」

Call HMICmd.OpenWindowAndCloseOther("标题栏,菜单栏,管理员")

ステップ5：「テキスト」アニメーションのメインウィンドウ

どのようにDIAView VBSは、機器によってログインおよびログアウトを制御するように構成しました

おすすめ