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


*       *********************************************************
*       *                                                         
*       *                         设置代码                        
*       *                                                         
*       *********************************************************
*

modify window screen title "欢迎使用《政风行风评议数据处理系统》" icon file "bmp\ZFCP.ico"
with _screen
	.maxbutton=.f.
	.minbutton=.t.
	.closable=.f.
endwith
do case    &&根据分辨率选择背景图片
   case sysmetric(1)>800
      _screen.picture="bmp\zfcp1024.jpg"
   otherwise
      _screen.picture="bmp\zfcp800.jpg"
endcase


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2r90rijvt OF _MSYSMENU PROMPT "问卷录入(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, "" ;
	SKIP FOR menushow=0
DEFINE PAD _2r90rijvu OF _MSYSMENU PROMPT "数据管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, "" ;
	SKIP FOR menushow=0
DEFINE PAD _2r90rijvv OF _MSYSMENU PROMPT "统计输出(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, "" ;
	SKIP FOR menushow=0
DEFINE PAD _2r90rijvw OF _MSYSMENU PROMPT "系统(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, "" ;
	SKIP FOR menushow=0
ON PAD _2r90rijvt OF _MSYSMENU ACTIVATE POPUP 新菜单项
ON PAD _2r90rijvu OF _MSYSMENU ACTIVATE POPUP _2r90qs64q
ON SELECTION PAD _2r90rijvv OF _MSYSMENU ;
	DO _2r90rijvx ;
	IN LOCFILE("\FXZFCP\MNX\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON PAD _2r90rijvw OF _MSYSMENU ACTIVATE POPUP _2r90qsfxg

DEFINE POPUP 新菜单项 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新菜单项 PROMPT "评议调查问卷(\<S)"
DEFINE BAR 2 OF 新菜单项 PROMPT "\-"
DEFINE BAR 3 OF 新菜单项 PROMPT "科室调查问卷(\<K)"
ON SELECTION BAR 1 OF 新菜单项 do form "scx\ZFCPA.scx"
ON SELECTION BAR 3 OF 新菜单项 do form "scx\ZFCPB.scx"

DEFINE POPUP _2r90qs64q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2r90qs64q PROMPT "系统初始化(\<N)"
DEFINE BAR 2 OF _2r90qs64q PROMPT "\-"
DEFINE BAR 3 OF _2r90qs64q PROMPT "数据备份与恢复(\<B)"
DEFINE BAR 4 OF _2r90qs64q PROMPT "\-"
DEFINE BAR 5 OF _2r90qs64q PROMPT "数据合并(\<A)"
ON SELECTION BAR 1 OF _2r90qs64q do form "scx\xtcsh.scx"
ON SELECTION BAR 3 OF _2r90qs64q do form "scx\bfhf.scx"
ON SELECTION BAR 5 OF _2r90qs64q do form "scx\sjhb.scx"

DEFINE POPUP _2r90qsfxg MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2r90qsfxg PROMPT "登录管理(\<M)"
DEFINE BAR 2 OF _2r90qsfxg PROMPT "\-"
DEFINE BAR 3 OF _2r90qsfxg PROMPT "关于(\<A)"
DEFINE BAR 4 OF _2r90qsfxg PROMPT "\-"
DEFINE BAR 5 OF _2r90qsfxg PROMPT "退出(\<X)" ;
	KEY ALT+F4, "ALT+F4"
ON SELECTION BAR 1 OF _2r90qsfxg ;
	DO _2r90rijvy ;
	IN LOCFILE("\FXZFCP\MNX\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")
ON SELECTION BAR 3 OF _2r90qsfxg do form "scx\about.scx"
ON SELECTION BAR 5 OF _2r90qsfxg ;
	DO _2r90rijvz ;
	IN LOCFILE("\FXZFCP\MNX\BEGIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is BEGIN?")


*       *********************************************************
*       *                                                         
*       * _2R90RIJVX  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  BEGIN.MPR,            Record:   18          
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     统计输出(P)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2r90rijvx
IF XTadmin="Admin"
   do form "scx\scfs.scx"
ELSE
   =MESSAGEBOX("很抱歉，您无权进行本项操作！",48,"系统提示：")
   menushow=1
ENDIF


*       *********************************************************
*       *                                                         
*       * _2R90RIJVY  ON SELECTION BAR 1 OF POPUP _2r90qsfxg      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  BEGIN.MPR,            Record:   21          
*       * Called By:  ON SELECTION BAR 1 OF POPUP _2r90qsfxg      
*       * Prompt:     登录管理(M)                                 
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2r90rijvy
IF XTadmin="Admin"
   do form "scx\klwh.scx"
ELSE
   =MESSAGEBOX("很抱歉，您无权进行本项操作！",48,"系统提示：")
   menushow=1
ENDIF


*       *********************************************************
*       *                                                         
*       * _2R90RIJVZ  ON SELECTION BAR 5 OF POPUP _2r90qsfxg      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  BEGIN.MPR,            Record:   27          
*       * Called By:  ON SELECTION BAR 5 OF POPUP _2r90qsfxg      
*       * Prompt:     退出(X)                                     
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2r90rijvz
if MESSAGEBOX(" 谢谢您的使用，您确实要退出本系统?",32+4,"系统提示:")=6
   if file(mypath+"D_TABLE.DBF")
      close tables all
      erase mypath+"D_TABLE.DBF"
   endif
   quit
else
   return
endif
