sfxt.mpr

收费系统我的第一个系统

*       *********************************************************
*       *                                                         
*       * 11/22/04              SFXT.MPR                18:48:42  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 欧阳军                                                  
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 益阳市, 湖南  413045                                      
*       * 中国                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1dv14bj5x OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, "ALT+F"
DEFINE PAD _1dv14bj5y OF _MSYSMENU PROMPT "系统管理(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, "ALT+S"
DEFINE PAD _1dv14bj5z OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, "ALT+H"
ON PAD _1dv14bj5x OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _1dv14bj5y OF _MSYSMENU ACTIVATE POPUP 系统管理s
ON PAD _1dv14bj5z OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 文件f PROMPT "查询(\<S)" ;
	KEY CTRL+S, "CTRL+S"
DEFINE BAR 2 OF 文件f PROMPT "收费(\<M)" ;
	KEY CTRL+M, "CTRL+M"
DEFINE BAR 3 OF 文件f PROMPT "\-"
DEFINE BAR 4 OF 文件f PROMPT "退出(\<Q)" ;
	KEY CTRL+Q, "CTRL+Q"
ON SELECTION BAR 1 OF 文件f do form xxb.scx
ON SELECTION BAR 2 OF 文件f do form sfb.scx
ON SELECTION BAR 4 OF 文件f quit

DEFINE POPUP 系统管理s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统管理s PROMPT "收款参数设置(\<K)" ;
	KEY CTRL+K, "CTRL+K"
DEFINE BAR 2 OF 系统管理s PROMPT "收款人设置(\<R)" ;
	KEY CTRL+R, "CTRL+R"
DEFINE BAR 3 OF 系统管理s PROMPT "用户密码设置(\<P)" ;
	KEY CTRL+P, "CTRL+P"
DEFINE BAR 4 OF 系统管理s PROMPT "\-"
DEFINE BAR 5 OF 系统管理s PROMPT "备份(\<B)" ;
	KEY CTRL+B, "CTRL+B"
ON SELECTION BAR 1 OF 系统管理s do form sksz.scx
ON SELECTION BAR 2 OF 系统管理s do form skr.scx
ON SELECTION BAR 3 OF 系统管理s do form mmsz.scx
ON SELECTION BAR 5 OF 系统管理s ;
	DO _1dv14bj67 ;
	IN LOCFILE("\SFXT\SFXT" ,"MPX;MPR|FXP;PRG" ,"WHERE is SFXT?")

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "技术支持(\<T)" ;
	KEY CTRL+T, "CTRL+T" ;
	MESSAGE "提供获得其他技术帮助的方法"
DEFINE BAR 2 OF 帮助h PROMPT "帮助主题(\<H)" ;
	KEY CTRL+H, "CTRL+H" ;
	MESSAGE "提供获得帮助"
DEFINE BAR 3 OF 帮助h PROMPT "\-"
DEFINE BAR 4 OF 帮助h PROMPT "关于..."
ON SELECTION BAR 4 OF 帮助h do form about.scx


*       *********************************************************
*       *                                                         
*       * _1DV14BJ67  ON SELECTION BAR 5 OF POPUP 系统管理s       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  SFXT.MPR,            Record:   17           
*       * Called By:  ON SELECTION BAR 5 OF POPUP 系统管理s       
*       * Prompt:     备份(B)                                     
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1dv14bj67
release windows
close all
clea windows
dirpath=getdir()
if !empty(dirpath) then
  wait "数据正在备份...." window nowait
  copy file xsb.* to left(dirpath,len(dirpath)-1)
  set talk off
  set safe off
  close all
  wait clear
  set talk on
  set safe on
  wait window "已成功备份" timeout 1
endif