zfmenu.mpr

这是一个在正实际应用当中运行的电力监控系统软件源代码

*       *********************************************************
*       *                                                         
*       * 98-03-28             ZFMENU.MPR               20:07:50  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名                                                  
*       *                                                         
*       * 版权所有 (C) 1998 公司名                               
*       * 地址                                                    
*       * 城市,     邮政编码                                      
*       * 国家                                              
*       *                                                         
*       * 说明：                                            
*       * 本程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _rth175aa0 OF _MSYSMENU PROMPT "转发站参数" COLOR SCHEME 3
DEFINE PAD _rth175aa6 OF _MSYSMENU PROMPT "转发遥测参数" COLOR SCHEME 3
DEFINE PAD _rth175aab OF _MSYSMENU PROMPT "转发遥信参数" COLOR SCHEME 3
DEFINE PAD _rth175aaf OF _MSYSMENU PROMPT "转发电度参数" COLOR SCHEME 3
DEFINE PAD _rth175aak OF _MSYSMENU PROMPT "转发参数公式定义" COLOR SCHEME 3
DEFINE PAD _rth175aao OF _MSYSMENU PROMPT "清内存退出" COLOR SCHEME 3
DEFINE PAD _rth175aar OF _MSYSMENU PROMPT "不清内存退出" COLOR SCHEME 3
ON SELECTION PAD _rth175aa0 OF _MSYSMENU ;
	DO _rth175ab6 ;
	IN LOCFILE("\TCZ\DM\ZFMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZFMENU?")
ON SELECTION PAD _rth175aa6 OF _MSYSMENU ;
	DO _rth175abi ;
	IN LOCFILE("\TCZ\DM\ZFMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZFMENU?")
ON SELECTION PAD _rth175aab OF _MSYSMENU ;
	DO _rth175abt ;
	IN LOCFILE("\TCZ\DM\ZFMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZFMENU?")
ON SELECTION PAD _rth175aaf OF _MSYSMENU ;
	DO _rth175ac3 ;
	IN LOCFILE("\TCZ\DM\ZFMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZFMENU?")
ON SELECTION PAD _rth175aak OF _MSYSMENU ;
	DO _rth175ace ;
	IN LOCFILE("\TCZ\DM\ZFMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZFMENU?")
ON SELECTION PAD _rth175aao OF _MSYSMENU ;
	DO _rth175acq ;
	IN LOCFILE("\TCZ\DM\ZFMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZFMENU?")
ON SELECTION PAD _rth175aar OF _MSYSMENU ;
	DO _rth175ad1 ;
	IN LOCFILE("\TCZ\DM\ZFMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZFMENU?")


*       *********************************************************
*       *                                                         
*       * _RTH175AB6  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZFMENU.MPR,            Record:    3         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     转发站参数                                  
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _rth175ab6
SELECT 1
GOTO TOP
DO FORM DM\ZFSCS



*       *********************************************************
*       *                                                         
*       * _RTH175ABI  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZFMENU.MPR,            Record:    4         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     转发遥测参数                                
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _rth175abi
SELECT 1
GOTO TOP
IF EOF(1)=.F.
SELECT 2
DO FORM dm\ZFYCCS
ENDIF



*       *********************************************************
*       *                                                         
*       * _RTH175ABT  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZFMENU.MPR,            Record:    5         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     转发遥信参数                                
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _rth175abt
SELECT 1
GOTO TOP
IF EOF(1)=.F.
SELECT 3
DO FORM dm\ZFYXCS
ENDIF


*       *********************************************************
*       *                                                         
*       * _RTH175AC3  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZFMENU.MPR,            Record:    6         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     转发电度参数                                
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _rth175ac3
SELECT 1
GOTO TOP
IF EOF(1)=.F.
SELECT 4
DO FORM dm\ZFDDCS
ENDIF


*       *********************************************************
*       *                                                         
*       * _RTH175ACE  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZFMENU.MPR,            Record:    7         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     转发参数公式定义                            
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _rth175ace
DO FORM C:\TCZ\DM\CALC




*       *********************************************************
*       *                                                         
*       * _RTH175ACQ  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZFMENU.MPR,            Record:    8         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     清内存退出                                  
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _rth175acq
SET FILTER TO
CLEAR EVENTS
SET SYSMENU TO DEFAULT
CLOSE ALL
Channel = DDEInitiate('唐增明','Tzm')
if  Channel!=-1
*=DDERequest(Channel,'Tzm')
=DDEpoke(Channel,"Tzm","TZM")

= DDETerminate(Channel)
endif
QUIT
RELEASE ZFDDCS
RELEASE ZDCSS
RELEASE ZFYCCS
RELEASE ZFYXCS
SELECT 1
USE
SELECT 2
USE
SELECT 3
USE
SELECT 4
USE
Channel = DDEInitiate('唐增明','Tzm')
if  Channel!=-1
*=DDERequest(Channel,"Tzm")
=DDEpoke(Channel,'Tzm',"TZM")
= DDETerminate(Channel)
endif
A=0
FOR I=0 TO 1000
	FOR II=0 TO 1000
	ENDFOR
ENDFOR
AREA=SELECT()
USE ZFCSK IN 1
USE ZFYC IN 2
USE ZFYX IN 3
USE ZFDD IN 4
SELECT (AREA)



*       *********************************************************
*       *                                                         
*       * _RTH175AD1  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZFMENU.MPR,            Record:    9         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     不清内存退出                                
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _rth175ad1
SET FILTER TO
CLEAR EVENTS
SET SYSMENU TO DEFAULT
CLOSE ALL
QUIT
Channel = DDEInitiate('唐增明','Tzm')
if  Channel!=-1
*=DDERequest(Channel,'Tzm')
=DDEpoke(Channel,"Tzm","TZM")

= DDETerminate(Channel)
endif