力控脚本程序.doc

_1. 系统登录（1）IF LoginEx(username,userpwd)=1 THENDisplay(机组监控);ENDIF（2）IF LoginEx(username,userpwd)=1 THENDisplay(机组监控);userpwd=;username=;ELSEMsgBox(用户名或密码不正确,请重新输入);#Text4.Text=;userpwd=;ENDIF2.系统退出IF MsgBox(确定要退出系统么？)=1 THENExit(0);ENDIF3.登录界面username=;userpwd=;LogoutEx();CloseWindowEx(机组监控);CloseWindowEx(历史数据查询);CloseWindowEx(实时曲线);CloseWindowEx(控制参数);/#Flash.GotoFrame(1);/#Flash.Play();4.登录密码IF userpwd THEN#Text22.Text=*;ELSE#Text22.Text=;ENDIF4.机组模式转换（1）IF MsgBox(确定要转换到手动模式吗？)=1 THENGasctrl_Manul_A.PV=1;Gasctrl_Temp_A.PV=0;ENDIF（2）IF MsgBox(确定要转换到自动模式吗？)=1 THENGasctrl_Temp_A.PV=1;Gasctrl_Manul_A.PV=0;ENDIF5.机组监控IF $UserLevel0 THENLogoutEx();IF (IsWeb()=1) THENDisplay(登录窗口_WEB);ELSEDisplay(登录窗口_本机);ENDIFELSEDisplay(机组监控);ENDIF6历史查询IF $UserLevel0 THENLogoutEx();IF (IsWeb()=1) THENDisplay(登录窗口_WEB);ELSEDisplay(登录窗口_本机);ENDIFELSEDisplay(历史数据查询);ENDIF7机组启动IF MsgBox(确定要进行机组启动吗？)=1 THENStart_control_A.PV=1;ENDIF8界面都显示的程序IF $UserLevel0 THENLogoutEx();IF (IsWeb()=1) THENDisplay(登录窗口_WEB);ELSEDisplay(登录窗口_本机);ENDIFELSEENDIFWelcome ToDownload !欢迎您的下载，资料仅供参考！精品资料