力控脚本程序.doc

《力控脚本程序.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1.系统登录（1）IFLoginEx(username,userpwd)==1THEN Display("机组监控"); ENDIF （2）IFLoginEx(username,userpwd)==1THEN Display("机组监控"); userpwd=""; username=""; ELSE MsgBox("用户名或密码不正确,请重新输入"); #Text4.Text=""; userpwd=""; ENDIF2.系统退出IFMsgBox("确定要退出系统么？")==1THEN Exit(0); ENDIF3.登录界面username=""; userpwd=""; LogoutEx

2、(); CloseWindowEx("机组监控"); CloseWindowEx("历史数据查询"); CloseWindowEx("实时曲线"); CloseWindowEx("控制参数"); //#Flash.GotoFrame(1); //#Flash.Play();4.登录密码IFuserpwd<>""THEN #Text22.Text="******"; ELSE #Text22.Text=""; ENDIF4.机组模式转换（1）IFMsgBox("确定要转换到手动模式吗？")==1THEN Gasctrl_Manul_A.PV=1; Gasctrl_Temp_A.PV=0; END

3、IF（2）IFMsgBox("确定要转换到自动模式吗？")==1THEN Gasctrl_Temp_A.PV=1; Gasctrl_Manul_A.PV=0; ENDIF5.机组监控IF$UserLevel<0THEN LogoutEx(); IF(IsWeb()==1)THEN Display("登录窗口_WEB"); ELSE Display("登录窗口_本机"); ENDIF ELSE Display("机组监控"); ENDIF6历史查询IF$UserLevel<0THEN LogoutEx(); IF(IsWeb()==1)THEN Display("登录窗口_WEB"); ELSE

4、 Display("登录窗口_本机"); ENDIF ELSE Display("历史数据查询"); ENDIF7机组启动IFMsgBox("确定要进行机组启动吗？")==1THEN Start_control_A.PV=1; ENDIF 8界面都显示的程序IF$UserLevel<0THEN LogoutEx(); IF(IsWeb()==1)THEN Display("登录窗口_WEB"); ELSE Display("登录窗口_本机"); ENDIF ELSE ENDIF