mnusold.mpr

企业售后管理系统

*       *********************************************************
*       *                                                         
*       * 05/04/03             MNUSOLD.MPR              23:24:44  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 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 _0y11e6iep OF _MSYSMENU PROMPT "订单处理(\<O)" COLOR SCHEME 3 ;
	KEY ALT+O, ""
DEFINE PAD _0y11e6ieq OF _MSYSMENU PROMPT "出货管理(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _0y11e6ier OF _MSYSMENU PROMPT "数据计算(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, ""
DEFINE PAD _0y11e6ies OF _MSYSMENU PROMPT "统计报表(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _0y11e6iet OF _MSYSMENU PROMPT "系统维护(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _0y11e6ieu OF _MSYSMENU PROMPT "数据备份(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _0y11e6iev OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _0y11e6iep OF _MSYSMENU ACTIVATE POPUP 订单处理o
ON PAD _0y11e6ieq OF _MSYSMENU ACTIVATE POPUP 出货管理t
ON PAD _0y11e6ier OF _MSYSMENU ACTIVATE POPUP 数据计算c
ON PAD _0y11e6ies OF _MSYSMENU ACTIVATE POPUP 统计报表r
ON PAD _0y11e6iet OF _MSYSMENU ACTIVATE POPUP 系统维护s
ON PAD _0y11e6ieu OF _MSYSMENU ACTIVATE POPUP 数据备份b
ON PAD _0y11e6iev OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 订单处理o MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 订单处理o PROMPT "处理信息输入" ;
	SKIP FOR iif(g_dom(1)=1,.f.,.t.)
DEFINE BAR 2 OF 订单处理o PROMPT "处理信息修改" ;
	SKIP FOR iif(g_dom(2)=1,.f.,.t.)
DEFINE BAR 3 OF 订单处理o PROMPT "处理信息删除" ;
	SKIP FOR iif(g_dom(3)=1,.f.,.t.)
DEFINE BAR 4 OF 订单处理o PROMPT "处理信息查询" ;
	SKIP FOR iif(g_dom(4)=1,.f.,.t.)
DEFINE BAR 5 OF 订单处理o PROMPT "\-"
DEFINE BAR 6 OF 订单处理o PROMPT "退货单"
ON SELECTION BAR 1 OF 订单处理o do form frmoinfo
ON SELECTION BAR 2 OF 订单处理o do form frmoedit
ON SELECTION BAR 3 OF 订单处理o do form frmodel
ON SELECTION BAR 4 OF 订单处理o do form frmoquery
ON SELECTION BAR 6 OF 订单处理o do form frmoback

DEFINE POPUP 出货管理t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 出货管理t PROMPT "出货信息输入" ;
	SKIP FOR iif(g_dom(5)=1,.f.,.t.)
DEFINE BAR 2 OF 出货管理t PROMPT "出货信息修改" ;
	SKIP FOR iif(g_dom(6)=1,.f.,.t.)
DEFINE BAR 3 OF 出货管理t PROMPT "出货信息删除" ;
	SKIP FOR iif(g_dom(7)=1,.f.,.t.)
DEFINE BAR 4 OF 出货管理t PROMPT "出货信息查询" ;
	SKIP FOR iif(g_dom(8)=1,.f.,.t.)
ON SELECTION BAR 1 OF 出货管理t do form frmsinfo
ON SELECTION BAR 2 OF 出货管理t do form frmsedit
ON SELECTION BAR 3 OF 出货管理t do form frmsdel
ON SELECTION BAR 4 OF 出货管理t do form frmsquery

DEFINE POPUP 数据计算c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据计算c PROMPT "销售统计"
DEFINE BAR 2 OF 数据计算c PROMPT "退货统计"
DEFINE BAR 3 OF 数据计算c PROMPT "出货统计"
ON SELECTION BAR 1 OF 数据计算c do form frmcal with 1
ON SELECTION BAR 2 OF 数据计算c do form frmcal with 2
ON SELECTION BAR 3 OF 数据计算c do form frmcal with 3

DEFINE POPUP 统计报表r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计报表r PROMPT "订单处理统计报表"
DEFINE BAR 2 OF 统计报表r PROMPT "销售退货统计报表"
DEFINE BAR 3 OF 统计报表r PROMPT "出货统计报表"
ON SELECTION BAR 1 OF 统计报表r do form frmreport with 1
ON SELECTION BAR 2 OF 统计报表r do form frmreport with  2
ON SELECTION BAR 3 OF 统计报表r do form frmreport with 3

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(9)=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(10)=1,.f.,.t.)
DEFINE BAR 2 OF 数据备份b PROMPT "数据恢复" ;
	SKIP FOR iif(g_dom(11)=1,.f.,.t.)
ON SELECTION BAR 1 OF 数据备份b ;
	DO _0y11e6iew ;
	IN LOCFILE("新建文件夹\MNUSOLD" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUSOLD?")
ON SELECTION BAR 2 OF 数据备份b ;
	DO _0y11e6iex ;
	IN LOCFILE("新建文件夹\MNUSOLD" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUSOLD?")

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


*       *********************************************************
*       *                                                         
*       * _0Y11E6IEW  ON SELECTION BAR 1 OF POPUP 数据备份b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUSOLD.MPR,            Record:   33        
*       * Called By:  ON SELECTION BAR 1 OF POPUP 数据备份b       
*       * Prompt:     数据备份                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y11e6iew
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 '正在备份数据，请稍候'
COPY FILE DATA\*.DBF TO (m_dir+'*.dbf')
COPY FILE DATA\*.CDX TO (m_dir+'*.cdx')
DEACTIVATE WINDOWS win1
RELEASE WINDOWS win1
MESSAGEBOX('数据已成功备份',64,'完成')

OPEN DATA DATA\dbsold
SELE 0
USE DATA\tblorder
SELE 0
USE DATA\tblstock
SELE 0
USE DATA\tbluser



*       *********************************************************
*       *                                                         
*       * _0Y11E6IEX  ON SELECTION BAR 2 OF POPUP 数据备份b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUSOLD.MPR,            Record:   34        
*       * Called By:  ON SELECTION BAR 2 OF POPUP 数据备份b       
*       * Prompt:     数据恢复                                    
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y11e6iex
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+'*.dbf') TO DATA\*.DBF
COPY FILE (m_dir+'*.cdx') TO DATA\*.CDX
DEACTIVATE WINDOWS win1
RELEASE WINDOWS win1
MESSAGEBOX('数据已成功恢复',64,'完成')

OPEN DATA DATA\dbsold
SELE 0
USE DATA\tblorder
SELE 0
USE DATA\tblstock
SELE 0
USE DATA\tbluser