mnuassets.mpr

企业生产管理系统

*       *********************************************************
*       *                                                         
*       * 05/03/03            MNUASSETS.MPR             18:22:27  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2003 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0y013drzo OF _MSYSMENU PROMPT "产品管理(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _0y013drzp OF _MSYSMENU PROMPT "原料管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _0y013drzq OF _MSYSMENU PROMPT "生产规划(\<L)" COLOR SCHEME 3 ;
	KEY ALT+L, ""
DEFINE PAD _0y013drzr OF _MSYSMENU PROMPT "统计报表(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _0y013drzs OF _MSYSMENU PROMPT "系统维护(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _0y013drzt OF _MSYSMENU PROMPT "数据备份(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _0y013drzu OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _0y013drzo OF _MSYSMENU ACTIVATE POPUP 产品管理p
ON PAD _0y013drzp OF _MSYSMENU ACTIVATE POPUP 原料管理m
ON PAD _0y013drzq OF _MSYSMENU ACTIVATE POPUP 生产规划l
ON PAD _0y013drzr OF _MSYSMENU ACTIVATE POPUP 统计报表r
ON PAD _0y013drzs OF _MSYSMENU ACTIVATE POPUP 系统维护s
ON PAD _0y013drzt OF _MSYSMENU ACTIVATE POPUP 数据备份b
ON PAD _0y013drzu OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 产品管理p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 产品管理p PROMPT "信息输入" ;
	SKIP FOR iif(g_dom(1)=1,.f.,.t.)
DEFINE BAR 2 OF 产品管理p PROMPT "信息修改" ;
	SKIP FOR iif(g_dom(2)=1,.f.,.t.)
DEFINE BAR 3 OF 产品管理p PROMPT "信息删除" ;
	SKIP FOR iif(g_dom(3)=1,.f.,.t.)
DEFINE BAR 4 OF 产品管理p PROMPT "信息查询" ;
	SKIP FOR iif(g_dom(4)=1,.f.,.t.)
DEFINE BAR 5 OF 产品管理p PROMPT "\-"
DEFINE BAR 6 OF 产品管理p PROMPT "生产单" ;
	SKIP FOR iif(g_dom(5)=1,.f.,.t.)
DEFINE BAR 7 OF 产品管理p PROMPT "销售单" ;
	SKIP FOR iif(g_dom(6)=1,.f.,.t.)
ON SELECTION BAR 1 OF 产品管理p do form frmpinfo
ON SELECTION BAR 2 OF 产品管理p do form frmpedit
ON SELECTION BAR 3 OF 产品管理p do form frmpdel
ON SELECTION BAR 4 OF 产品管理p do form frmpquery
ON SELECTION BAR 6 OF 产品管理p do form frmpoutput
ON SELECTION BAR 7 OF 产品管理p do form frmpsale

DEFINE POPUP 原料管理m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 原料管理m PROMPT "信息输入" ;
	SKIP FOR iif(g_dom(7)=1,.f.,.t.)
DEFINE BAR 2 OF 原料管理m PROMPT "信息修改" ;
	SKIP FOR iif(g_dom(8)=1,.f.,.t.)
DEFINE BAR 3 OF 原料管理m PROMPT "信息删除" ;
	SKIP FOR iif(g_dom(9)=1,.f.,.t.)
DEFINE BAR 4 OF 原料管理m PROMPT "信息查询" ;
	SKIP FOR iif(g_dom(10)=1,.f.,.t.)
DEFINE BAR 5 OF 原料管理m PROMPT "\-"
DEFINE BAR 6 OF 原料管理m PROMPT "订购单" ;
	SKIP FOR iif(g_dom(11)=1,.f.,.t.)
ON SELECTION BAR 1 OF 原料管理m do form frmminfo
ON SELECTION BAR 2 OF 原料管理m do form frmmedit
ON SELECTION BAR 3 OF 原料管理m do form frmmdel
ON SELECTION BAR 4 OF 原料管理m do form frmmquery
ON SELECTION BAR 6 OF 原料管理m do form frmmorder

DEFINE POPUP 生产规划l MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 生产规划l PROMPT "产品销售计算" ;
	SKIP FOR iif(g_dom(12)=1,.f.,.t.)
DEFINE BAR 2 OF 生产规划l PROMPT "原料订购计算" ;
	SKIP FOR iif(g_dom(13)=1,.f.,.t.)
ON SELECTION BAR 1 OF 生产规划l do form frmpsimu
ON SELECTION BAR 2 OF 生产规划l do form frmmsimu

DEFINE POPUP 统计报表r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计报表r PROMPT "产品生产统计报表" ;
	SKIP FOR iif(g_dom(14)=1,.f.,.t.)
DEFINE BAR 2 OF 统计报表r PROMPT "产品销售统计报表" ;
	SKIP FOR iif(g_dom(15)=1,.f.,.t.)
DEFINE BAR 3 OF 统计报表r PROMPT "原料订购统计报表" ;
	SKIP FOR iif(g_dom(16)=1,.f.,.t.)
ON SELECTION BAR 1 OF 统计报表r ;
	DO _0y013drzv ;
	IN LOCFILE("CODE\ASSETS\MNUASSETS" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUASSETS?")
ON SELECTION BAR 2 OF 统计报表r ;
	DO _0y013drzw ;
	IN LOCFILE("CODE\ASSETS\MNUASSETS" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUASSETS?")
ON SELECTION BAR 3 OF 统计报表r ;
	DO _0y013drzx ;
	IN LOCFILE("CODE\ASSETS\MNUASSETS" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUASSETS?")

DEFINE POPUP 系统维护s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护s PROMPT "用户信息"
DEFINE BAR 2 OF 系统维护s PROMPT "权限管理" ;
	SKIP FOR iif(g_dom(17)=1,.f.,.t.)
ON SELECTION BAR 1 OF 系统维护s do form frmlinfo
ON SELECTION BAR 2 OF 系统维护s do form frmset

DEFINE POPUP 数据备份b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据备份b PROMPT "数据备份" ;
	SKIP FOR iif(g_dom(18)=1,.f.,.t.)
DEFINE BAR 2 OF 数据备份b PROMPT "数据恢复" ;
	SKIP FOR iif(g_dom(19)=1,.f.,.t.)
ON SELECTION BAR 1 OF 数据备份b ;
	DO _0y013drzy ;
	IN LOCFILE("CODE\ASSETS\MNUASSETS" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUASSETS?")
ON SELECTION BAR 2 OF 数据备份b ;
	DO _0y013ds01 ;
	IN LOCFILE("CODE\ASSETS\MNUASSETS" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUASSETS?")

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "关于"
DEFINE BAR 2 OF 帮助h PROMPT "\-"
DEFINE BAR 3 OF 帮助h PROMPT "退出系统"
ON SELECTION BAR 1 OF 帮助h do form  frmabout
ON SELECTION BAR 3 OF 帮助h quit


*       *********************************************************
*       *                                                         
*       * _0Y013DRZV  ON SELECTION BAR 1 OF POPUP 统计报表r       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUASSETS.MPR,            Record:   26      
*       * Called By:  ON SELECTION BAR 1 OF POPUP 统计报表r       
*       * Prompt:     产品生产统计报表                            
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y013drzv
do form frmreport1


*       *********************************************************
*       *                                                         
*       * _0Y013DRZW  ON SELECTION BAR 2 OF POPUP 统计报表r       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUASSETS.MPR,            Record:   27      
*       * Called By:  ON SELECTION BAR 2 OF POPUP 统计报表r       
*       * Prompt:     产品销售统计报表                            
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y013drzw
do form frmreport2


*       *********************************************************
*       *                                                         
*       * _0Y013DRZX  ON SELECTION BAR 3 OF POPUP 统计报表r       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUASSETS.MPR,            Record:   28      
*       * Called By:  ON SELECTION BAR 3 OF POPUP 统计报表r       
*       * Prompt:     原料订购统计报表                            
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y013drzx
do form frmreport3


*       *********************************************************
*       *                                                         
*       * _0Y013DRZY  ON SELECTION BAR 1 OF POPUP 数据备份b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUASSETS.MPR,            Record:   35      
*       * Called By:  ON SELECTION BAR 1 OF POPUP 数据备份b       
*       * Prompt:     数据备份                                    
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y013drzy
****让用户选择一个备份的目录*****
m.dir=GETDIR('','请输入文件要备份到的目录：')
****确认选择了目录*****
DO WHILE EMPTY(m.dir)
	IF MESSAGEBOX('您没有选择要备份的目录。'+CHR(13)+'是否要取消备份？',4+32+256,'取消')=7
		m.dir=GETDIR('','请输入文件要备份到的目录：')
	ELSE
		RETURN
	ENDIF
ENDDO

*****************************************************************************
****关闭打开的数据库及表，然后用文件拷贝函数COPY进行通配符拷贝
****注意：如果不是使用子目录存放数据文件，数据文件直接存放在应用程序所在目录下，
****则文件拷贝不能使用通配符
****因为Visual Foxpro同时还打开了系统数据表FOXUSER，这个表存放在应用程序所在目录下
****它在打开时是不能被拷贝的
CLOSE ALL
*****自定义系统窗口******
DEFINE WINDOWS win1 FROM 1,1 TO 7,50 IN DESKTOP SYSTEM TITLE '数据备份' COLOR  RGB(0,0,0,192,192,192)
MOVE WINDOWS win1 CENTER
ACTIVATE WINDOWS win1
SET CONSOLE OFF
@ 2,10 SAY '正在备份数据，请稍候'
COPY FILE DATA\*.* TO (m.dir+'*.*')
DEACTIVATE WINDOWS win1
RELEASE WINDOWS win1
MESSAGEBOX('数据已成功备份。',64,'完成')

*****重新打开数据库及表*****
OPEN DATA DATA\dbassets
SELE 0
USE DATA\tblpinfo
SELE 0
USE DATA\tbluser
SELE 0
USE data\tblmconsume
SELE 0
USE data\tblmorder



*       *********************************************************
*       *                                                         
*       * _0Y013DS01  ON SELECTION BAR 2 OF POPUP 数据备份b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUASSETS.MPR,            Record:   36      
*       * Called By:  ON SELECTION BAR 2 OF POPUP 数据备份b       
*       * Prompt:     数据恢复                                    
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y013ds01
****让用户选择备份所在的目录*****
m.dir=GETDIR('','请输入备份的文件所在的目录：')
DO WHILE EMPTY(m.dir)
	IF MESSAGEBOX('您没有选择目录。'+CHR(13)+'是否要取消恢复数据？',4+32+256,'取消')=7
		m.dir=GETDIR('','请输入备份的文件所在的目录：')
	ELSE
		RETURN
	ENDIF
ENDDO
CLOSE ALL
DEFINE WINDOWS win1 FROM 1,1 TO 7,50 IN DESKTOP SYSTEM TITLE '数据恢复' COLOR  RGB(0,0,0,192,192,192)
MOVE WINDOWS win1 CENTER
ACTIVATE WINDOWS win1
SET CONSOLE OFF
@ 2,10 SAY '正在恢复数据，请稍候'
IF !DIRECTORY('data')     &&如果不存在子目录，则创建之
	MD DATA
ENDIF
COPY FILE (m.dir+'*.*') TO DATA\*.*
DEACTIVATE WINDOWS win1
RELEASE WINDOWS win1
MESSAGEBOX('数据已恢复。',64,'完成')

*****重新打开数据库及表*****
OPEN DATA data\dbassets
SELE 0
USE data\tblpinfo
SELE 0
USE data\tbluser
SELE 0
USE data\tblmconsume
SELE 0
USE data\tblmorder