zyk.mpr

vfp原程序prg

*       *********************************************************
*       *                                                         
*       * 08/16/2004              ZYK.MPR               09:27:04  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1b50k9970 OF _MSYSMENU PROMPT "修改数据(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, ""
DEFINE PAD _1b50k9971 OF _MSYSMENU PROMPT "打印数据(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _1b50k9972 OF _MSYSMENU PROMPT "索引维护(\<I)" COLOR SCHEME 3 ;
	KEY ALT+I, ""
DEFINE PAD _1b50k9973 OF _MSYSMENU PROMPT "检查重号(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
DEFINE PAD _1b50k9974 OF _MSYSMENU PROMPT "退    出(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
ON SELECTION PAD _1b50k9970 OF _MSYSMENU do form xgk
ON SELECTION PAD _1b50k9971 OF _MSYSMENU do form jdb
ON SELECTION PAD _1b50k9972 OF _MSYSMENU do sywh
ON SELECTION PAD _1b50k9973 OF _MSYSMENU ;
	DO _1b50k9975 ;
	IN LOCFILE("程序文件\ZYK" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZYK?")
ON SELECTION PAD _1b50k9974 OF _MSYSMENU ;
	DO _1b50k9976 ;
	IN LOCFILE("程序文件\ZYK" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZYK?")


*       *********************************************************
*       *                                                         
*       * _1B50K9975  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZYK.MPR,            Record:    6            
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     检查重号(H)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1b50k9975
clos all
select zkzh from zyk group by zkzh having count(*)>1
clos all


*       *********************************************************
*       *                                                         
*       * _1B50K9976  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZYK.MPR,            Record:    7            
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退    出(Q)                                 
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1b50k9976
close all
clear all
set sysmenu to defa
cancel