力控脚本程序.docVIP

系统登录 (1）IF LoginEx(username,userpwd)==1 THEN Display（”机组监控）; ENDIF (2）IF LoginEx（username,userpwd)==1 THEN Display(”机组监控”)； userpwd=”; username=”; ELSE MsgBox(”用户名或密码不正确,请重新输入”）; ＃Text4。Text=； userpwd=””； ENDIF 2.系统退出 IF MsgBox（确定要退出系统么？）==1 THEN Exit(0）; ENDIF 3.登录界面 username=””; userpwd=; LogoutEx(）; CloseWindowEx(”机组监控”); CloseWindowEx(历史数据查询）； CloseWindowEx(”实时曲线)； CloseWindowEx(”控制参数”); //＃Flash.GotoFrame(1）; //#Flash。Play(); 4.登录密码 IF userpwd〈〉” THEN #Text22.Text=*＊＊**＊”； ELSE #Text22。Text=””； ENDIF 4.机组模式转换 （1）IF MsgBox(”确定要转换到手动模式吗?”)==1 THEN Gasctrl_Manul_A。PV=1； Gasctrl_Temp_A.PV=0； ENDIF （2）IF MsgBox(”确定要转换到自动模式吗？）==1 THEN Gasctrl_Temp_A。PV=1； Gasctrl_Manul_A。PV=0； ENDIF 5。机组监控 IF $UserLevel0 THEN LogoutEx(）; IF （IsWeb（）==1) THEN Display（”登录窗口_WEB); ELSE Display(”登录窗口_本机)； ENDIF ELSE Display(机组监控）; ENDIF 6历史查询 IF ＄UserLevel〈0 THEN LogoutEx（）； IF （IsWeb（)==1） THEN Display(登录窗口_WEB); ELSE Display（登录窗口_本机”)； ENDIF ELSE Display（历史数据查询); ENDIF 7机组启动 IF MsgBox（确定要进行机组启动吗？”）==1 THEN Start_control_A.PV=1; ENDIF 8界面都显示的程序 IF $UserLevel0 THEN LogoutEx（）; IF (IsWeb（）==1) THEN Display(”登录窗口_WEB”）； ELSE Display（登录窗口_本机”）； ENDIF ELSE ENDIF