GEIP幫助中石化在儀表隱患治理工程中實(shí)現(xiàn)控制系統(tǒng)改造，以催化劑奧達(dá)分公司為例，三臺(tái)Cimplicity HMI 直接通過以太網(wǎng)聯(lián)接Rx3i, Rx3i cpu 通過本地以太網(wǎng)擴(kuò)展方式連接遠(yuǎn)程機(jī)架，即可以保持用戶原有的傳統(tǒng)DCS下的操作習(xí)慣，并且使用快速先進(jìn)的PAC實(shí)現(xiàn)優(yōu)化的工藝控制。
中石化從2008年起，對(duì)下屬分公司的老舊控制系統(tǒng)系統(tǒng)進(jìn)行了一系列的改造工作。2011年，由GEIP公司負(fù)責(zé)，分別對(duì)勝利油田石化總廠、催化劑奧達(dá)分公司，催化劑長(zhǎng)嶺分公司，燕山石化化工二廠，揚(yáng)州石化，潤(rùn)滑油北京、茂名、重慶分公司的老舊控制系統(tǒng)進(jìn)行了成功的改造，使用的產(chǎn)品為GEIP Rx3i及Cimplicity軟件。
項(xiàng)目名稱
GEIP在中石化儀表隱患治理工程實(shí)現(xiàn)控制系統(tǒng)改造
解決方案
以催化劑奧達(dá)分公司為例，三臺(tái)Cimplicity HMI 直接通過以太網(wǎng)聯(lián)接Rx3i, Rx3i cpu 通過本地以太網(wǎng)擴(kuò)展方式連接遠(yuǎn)程機(jī)架。用戶之前使用的是傳統(tǒng)的DCS, 希望保持一些使用習(xí)慣，例如：普通oper 用戶不可以看到和運(yùn)行非HMI軟件，也看不到桌面；彈出的PID, AUTO_MANUAL等多個(gè)回路調(diào)節(jié)窗口一直在主畫面之上，除非用戶關(guān)閉它們；系統(tǒng)管理員可以不受限制等等。工藝回路調(diào)節(jié)希望使用串級(jí)PID模式但reset 輔助級(jí)可以根據(jù)工藝特點(diǎn)調(diào)整斜率。
在GE智能平臺(tái) professional service工程師的幫助下系統(tǒng)集成商實(shí)現(xiàn)了用戶的期望。
1， 在windows 啟動(dòng)目錄下設(shè)置快捷方式執(zhí)行cimplicity 命令行指令
CimView.exe /autostart /captive /nomenutitle /alwaysmaximized c:ProjectsTESTscreensOverview.cim
用戶只可以使用cimplicity HMI的內(nèi)容
2， 彈出的回路調(diào)節(jié)窗口添加script 調(diào)用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
這樣多個(gè)PID, AUTO_MANUAL等回路調(diào)節(jié)窗口一直在主畫面之上。
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
