cd.mpr

本入库信息管理系统

*       *********************************************************
*       *                                                         
*       * 05-01-19               CD.MPR                 10:50:27  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (c) 2005 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This program was automatically generated by GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _1fi0n8hsf OF _MSYSMENU PROMPT "信息输入" COLOR SCHEME 3 ;
       SKIP FOR cd1
DEFINE PAD _1fi0n8hsg OF _MSYSMENU PROMPT "信息编辑" COLOR SCHEME 3 ;
       SKIP FOR cd1
DEFINE PAD _1fi0n8hsh OF _MSYSMENU PROMPT "信息查询" COLOR SCHEME 3 ;
       SKIP FOR cd1
DEFINE PAD _1fi0n8hsi OF _MSYSMENU PROMPT "信息打印" COLOR SCHEME 3 ;
       SKIP FOR cd1
DEFINE PAD _1fi0n8hsj OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3 ;
       SKIP FOR cd1
ON SELECTION PAD _1fi0n8hsf OF _MSYSMENU ;
       DO _1fi0n8hsk ;
       IN LOCFILE("\JOB\CD" ,"MPX;MPR|FXP;PRG" ,"Where is CD?")
ON SELECTION PAD _1fi0n8hsg OF _MSYSMENU ;
       DO _1fi0n8hsl ;
       IN LOCFILE("\JOB\CD" ,"MPX;MPR|FXP;PRG" ,"Where is CD?")
ON SELECTION PAD _1fi0n8hsh OF _MSYSMENU ;
       DO _1fi0n8hsm ;
       IN LOCFILE("\JOB\CD" ,"MPX;MPR|FXP;PRG" ,"Where is CD?")
ON SELECTION PAD _1fi0n8hsi OF _MSYSMENU ;
       DO _1fi0n8hsn ;
       IN LOCFILE("\JOB\CD" ,"MPX;MPR|FXP;PRG" ,"Where is CD?")
ON PAD _1fi0n8hsj OF _MSYSMENU ACTIVATE POPUP 退出系统

DEFINE POPUP 退出系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出系统 PROMPT "退至Foxpro"
DEFINE BAR 2 OF 退出系统 PROMPT "退至Windows"
ON SELECTION BAR 1 OF 退出系统 ;
       DO _1fi0n8hso ;
       IN LOCFILE("\JOB\CD" ,"MPX;MPR|FXP;PRG" ,"Where is CD?")
ON SELECTION BAR 2 OF 退出系统 ;
       DO _1fi0n8hsp ;
       IN LOCFILE("\JOB\CD" ,"MPX;MPR|FXP;PRG" ,"Where is CD?")


*       *********************************************************
*       *                                                         
*       * _1FI0N8HSK  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:    3             
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     信息输入                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1fi0n8hsk
do rksr.spr



*       *********************************************************
*       *                                                         
*       * _1FI0N8HSL  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:    4             
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     信息编辑                                    
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1fi0n8hsl
do rkbj.spr



*       *********************************************************
*       *                                                         
*       * _1FI0N8HSM  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:    5             
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     信息查询                                    
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1fi0n8hsm
do rkcx.spr



*       *********************************************************
*       *                                                         
*       * _1FI0N8HSN  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:    6             
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     信息打印                                    
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1fi0n8hsn
use rkjbxxk
repo form bb preview
cd1=.f.



*       *********************************************************
*       *                                                         
*       * _1FI0N8HSO  ON SELECTION BAR 1 OF POPUP 退出系统        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:    9             
*       * Called By:  ON SELECTION BAR 1 OF POPUP 退出系统        
*       * Prompt:     退至Foxpro                                  
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1fi0n8hso
set talk on
set esca on
set safe on
clear all
set sysmenu to defa
keyboard [{ctrl+f2}]
retu



*       *********************************************************
*       *                                                         
*       * _1FI0N8HSP  ON SELECTION BAR 2 OF POPUP 退出系统        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:   10             
*       * Called By:  ON SELECTION BAR 2 OF POPUP 退出系统        
*       * Prompt:     退至Windows                                 
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1fi0n8hsp
quit