*       *********************************************************
*       *                                                         
*       * 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