zhumenu.mpr

客户管理系统：主要是对公司的客户进行管理的系统

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mst_hpsch OF 帮助h PROMPT " 帮助主题(\<V)" ;
	KEY F1, "F1" ;
	MESSAGE "以输入的关键字寻找帮助主题"
DEFINE BAR _mst_about OF 帮助h PROMPT "关于 (\<A)..." ;
	MESSAGE "显示 Visual FoxPro 的版本及版权信息"


*       *********************************************************
*       *                                                         
*       * _1XL197862  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   54        
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出系统(Q)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xl197862
set procedure to zhumenu.mpr		&&指明该过程的位置
close databases										&&关闭数据库
close all											&&关闭所有的表和数据
clear events										&&清除事件循环
quit												&&退出系统



*       *********************************************************
*       *                                                         
*       * _1XL197863  ON SELECTION BAR 2 OF POPUP 数据录入d       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   25        
*       * Called By:  ON SELECTION BAR 2 OF POPUP 数据录入d       
*       * Prompt:     打印客户信息                                
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xl197863
SET FILTER TO							&&指定访问当前表中记录时满足的条件
REPORT FORM 客户信息.frx



*       *********************************************************
*       *                                                         
*       * _1XL197864  ON SELECTION BAR 4 OF POPUP 数据录入d       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   27        
*       * Called By:  ON SELECTION BAR 4 OF POPUP 数据录入d       
*       * Prompt:     打印联系人信息                              
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xl197864
SET FILTER TO							&&指定访问当前表中记录时满足的条件
REPORT FORM 联系人信息.frx &&从联系人信息报表中输出



*       *********************************************************
*       *                                                         
*       * _1XL197865  ON SELECTION BAR 6 OF POPUP 数据录入d       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   29        
*       * Called By:  ON SELECTION BAR 6 OF POPUP 数据录入d       
*       * Prompt:     打印服务信息                                
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xl197865
SET FILTER TO							&&指定访问当前表中记录时满足的条件
REPORT FORM 服务信息.frx



*       *********************************************************
*       *                                                         
*       * _1XL197866  ON SELECTION BAR 1 OF POPUP 报表输出b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   46        
*       * Called By:  ON SELECTION BAR 1 OF POPUP 报表输出b       
*       * Prompt:     客户信息                                    
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xl197866
SET FILTER TO							&&指定访问当前表中记录时满足的条件
REPORT FORM 客户信息.frx 	&&从客户信息报表中输出
close all



*       *********************************************************
*       *                                                         
*       * _1XL197867  ON SELECTION BAR 2 OF POPUP 报表输出b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   47        
*       * Called By:  ON SELECTION BAR 2 OF POPUP 报表输出b       
*       * Prompt:     服务信息                                    
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xl197867
SET FILTER TO							&&指定访问当前表中记录时满足的条件
REPORT FORM 服务信息.frx 	&&从服务信息报表中输出
close all



*       *********************************************************
*       *                                                         
*       * _1XL197869  ON SELECTION BAR 3 OF POPUP 报表输出b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   48        
*       * Called By:  ON SELECTION BAR 3 OF POPUP 报表输出b       
*       * Prompt:     联系人信息                                  
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xl197869
SET FILTER TO							&&指定访问当前表中记录时满足的条件
REPORT FORM 联系人信息.frx &&从联系人信息报表中输出
close all


*       *********************************************************
*       *                                                         
*       * _1XL19786A  ON SELECTION BAR 4 OF POPUP 报表输出b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZHUMENU.MPR,            Record:   49        
*       * Called By:  ON SELECTION BAR 4 OF POPUP 报表输出b       
*       * Prompt:     区号邮编                                    
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1xl19786a
SET FILTER TO							&&指定访问当前表中记录时满足的条件
REPORT FORM 区号邮编.frx 	&&从区号邮编报表中输出
close all