美女网站一区二区_在线观看日韩毛片_成人在线视频首页_欧美精品一区二区三区久久久_国产精品亚洲一区二区三区在线_日本免费新一区视频_日本美女一区二区三区_精品亚洲成a人_久久不见久久见免费视频1_91首页免费视频_欧美一区二区在线看_91精品91久久久中77777_天堂蜜桃一区二区三区_av在线一区二区_欧美不卡一区二区_欧美影视一区二区三区

       GEIP幫助中石化在儀表隱患治理工程中實現控制系統改造，以催化劑奧達分公司為例，三臺Cimplicity HMI 直接通過以太網聯接Rx3i, Rx3i cpu 通過本地以太網擴展方式連接遠程機架，即可以保持用戶原有的傳統DCS下的操作習慣，并且使用快速先進的PAC實現優化的工藝控制。

        中石化從2008年起，對下屬分公司的老舊控制系統系統進行了一系列的改造工作。2011年，由GEIP公司負責，分別對勝利油田石化總廠、催化劑奧達分公司，催化劑長嶺分公司，燕山石化化工二廠，揚州石化，潤滑油北京、茂名、重慶分公司的老舊控制系統進行了成功的改造，使用的產品為GEIP Rx3i及Cimplicity軟件。
        項目名稱
        GEIP在中石化儀表隱患治理工程實現控制系統改造
        解決方案
        以催化劑奧達分公司為例，三臺Cimplicity HMI 直接通過以太網聯接Rx3i, Rx3i cpu 通過本地以太網擴展方式連接遠程機架。用戶之前使用的是傳統的DCS, 希望保持一些使用習慣，例如：普通oper 用戶不可以看到和運行非HMI軟件，也看不到桌面；彈出的PID, AUTO_MANUAL等多個回路調節窗口一直在主畫面之上，除非用戶關閉它們；系統管理員可以不受限制等等。工藝回路調節希望使用串級PID模式但reset 輔助級可以根據工藝特點調整斜率。
        在GE智能平臺 professional service工程師的幫助下系統集成商實現了用戶的期望。

        1， 在windows 啟動目錄下設置快捷方式執行cimplicity 命令行指令
        CimView.exe /autostart /captive /nomenutitle /alwaysmaximized c:ProjectsTESTscreensOverview.cim
        用戶只可以使用cimplicity HMI的內容
        2， 彈出的回路調節窗口添加script 調用windows的窗體
        Declare Function SetWindowPos Lib "user32" _ 
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ 
        ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ 
        ByVal cy As Long, ByVal wFlags As Long) As Long 
        Const SWP_NOSIZE = &H1 
        Const SWP_NOMOVE = &H2 
        Const HWND_TOPMOST = -1  
        Sub onScreenOpen()  
        Dim oCimScr As GefScreen 
        Set oCimScr = CimGetScreen 
         ret = SetWindowPos(oCimScr.hwnd, HWND_TOPMOST, _ 
        0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) 
        oCimScr.TitleVisible = True
        End Sub
        這樣多個PID, AUTO_MANUAL等回路調節窗口一直在主畫面之上。
        3， 熱鍵退出按鈕
        Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
        Const EWX_LogOff As Long = 0
        Const EWX_SHUTDOWN As Long = 1
        Const EWX_REBOOT As Long = 2
        Const EWX_FORCE As Long = 4
        Const EWX_POWEROFF As Long = 8
        Sub CheckRole
        Dim Role As New Point
        TEMP$ = "$ROLE"
        Role.Id = TEMP$
        Role.Get
        If (Right$(Role.Value,3) Like "MGR") Then
        Begin Dialog SYSMGR_LOGOUT_BOX ,,183,60,"Exiting PMC System",,,1
        Text 20,5,150,8,"You are about to Exit the PMC system."
        Text 20,15,150,8,"You have a choice of Logging off the system "
        Text 20,24,150,8,"or entering the Windows NT Desktop."
        PushButton 24,36,40,14,"Logout"
        PushButton 76,36,40,14,"Desktop"
        CancelButton 128,36,40,14
        End Dialog