力控脚本程序.doc

______________________________________________________________________________________________________________
1. 系统登录
（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 $UserLevel<0 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 $UserLevel<0 THEN
LogoutEx();
IF (IsWeb()==1) THEN
Display("登录窗口_WEB");
ELSE
Display("登录窗口_本机");
ENDIF
ELSE
ENDIF

Welcome To
Download !!!

欢迎您的下载，资料仅供参考！

精品资料