xbbmenu.mpr

使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用社会计报表系统

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: XBBMENU.MPR <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 PUBLIC MMBZ2 , MMBZ1 , MMBZ3 , MMBZ4
 USE .\LIB\XBB.CFG
 MMBZ2 = YCLRBZ
 MMBZ1 = YELRBZ
 MMBZ3 = JSBZ
 MMBZ4 = BBZL
 USE 
 SET SYSMENU TO
 SET SYSMENU AUTOMATIC 
 DEFINE PAD _0VE0MH6A3 OF _MSYSMENU PROMPT '  \<S. 系统维护' COLOR SCHEME 3 KEY ALT+S ,  ;
      ''
 DEFINE PAD _0VE0MH6A4 OF _MSYSMENU PROMPT '    \<B. 报表处理' COLOR SCHEME 3 KEY ALT+B ,  ;
      ''
 DEFINE PAD _0VE0MH6A5 OF _MSYSMENU PROMPT '    \<H. 服务功能' COLOR SCHEME 3 KEY ALT+H ,  ;
      ''
 DEFINE PAD _0VE0MH6A6 OF _MSYSMENU PROMPT '    \<P. 报表打印' COLOR SCHEME 3 KEY ALT+P ,  ;
      ''
 DEFINE PAD _0VE0MH6A7 OF _MSYSMENU PROMPT '    \<F. 分析报表' COLOR SCHEME 3 KEY ALT+F ,  ;
      ''
 DEFINE PAD _0VE0MH6A8 OF _MSYSMENU PROMPT '    \<X. 退出系统' COLOR SCHEME 3 KEY ALT+X ,  ;
      ''
 ON PAD _0VE0MH6A3 OF _MSYSMENU ACTIVATE POPUP S系统维护
 ON PAD _0VE0MH6A4 OF _MSYSMENU ACTIVATE POPUP B报表处理
 ON PAD _0VE0MH6A5 OF _MSYSMENU ACTIVATE POPUP H服务功能
 ON PAD _0VE0MH6A6 OF _MSYSMENU ACTIVATE POPUP P报表打印
 ON PAD _0VE0MH6A7 OF _MSYSMENU ACTIVATE POPUP F分析报表
 ON SELECTION PAD _0VE0MH6A8 OF _MSYSMENU  ;
      DO _0ve0mh6a9  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 DEFINE POPUP S系统维护 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF S系统维护 PROMPT '\<1. 系统环境维护'
 DEFINE BAR 2 OF S系统维护 PROMPT '\<2. 系统总控维护'
 DEFINE BAR 3 OF S系统维护 PROMPT '\-'
 DEFINE BAR 4 OF S系统维护 PROMPT '\<3. 增加 新 报表'
 DEFINE BAR 5 OF S系统维护 PROMPT '\<4. 删 除  报 表'
 DEFINE BAR 6 OF S系统维护 PROMPT '\-'
 DEFINE BAR 7 OF S系统维护 PROMPT '\<5. 生成历史明细'
 ON BAR 1 OF S系统维护 ACTIVATE POPUP 环境维护
 ON BAR 2 OF S系统维护 ACTIVATE POPUP 总控维护
 ON SELECTION BAR 4 OF S系统维护  ;
      DO _0ve0mh6aa  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 5 OF S系统维护  ;
      DO _0ve0mh6ab  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 7 OF S系统维护  ;
      DO _0ve0mh6ac  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 DEFINE POPUP 环境维护 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 环境维护 PROMPT '\<1. 地区库维护'
 DEFINE BAR 2 OF 环境维护 PROMPT '\<2. 项目库维护'
 DEFINE BAR 3 OF 环境维护 PROMPT '\<3. 打平库维护'
 DEFINE BAR 4 OF 环境维护 PROMPT '\-'
 DEFINE BAR 5 OF 环境维护 PROMPT '\<4. 复制审核库维护'
 DEFINE BAR 6 OF 环境维护 PROMPT '\<5. 比率计算库维护'
 DEFINE BAR 7 OF 环境维护 PROMPT '\-'
 DEFINE BAR 8 OF 环境维护 PROMPT '\<6. 上报转换关系维护'
 DEFINE BAR 9 OF 环境维护 PROMPT '\<7. 打印格式维护'
 ON SELECTION BAR 1 OF 环境维护  ;
      DO _0ve0mh6ad  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 2 OF 环境维护  ;
      DO _0ve0mh6ae  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 3 OF 环境维护  ;
      DO _0ve0mh6af  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 5 OF 环境维护  ;
      DO _0ve0mh6ag  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 6 OF 环境维护  ;
      DO _0ve0mh6ah  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 8 OF 环境维护  ;
      DO _0ve0mh6ai  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 9 OF 环境维护  ;
      DO _0ve0mh6aj  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 DEFINE POPUP 总控维护 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 总控维护 PROMPT '\<1. 打印分页设定'
 DEFINE BAR _MFI_PGSET OF 总控维护 PROMPT '\<2. 打印机设置'
 DEFINE BAR 3 OF 总控维护 PROMPT '\<3. 系 统 总 控'
 ON SELECTION BAR 1 OF 总控维护  ;
      DO _0ve0mh6ak  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 3 OF 总控维护  ;
      DO _0ve0mh6al  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 DEFINE POPUP B报表处理 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF B报表处理 PROMPT '\<1. 转  余  额'
 DEFINE BAR 2 OF B报表处理 PROMPT '\<2. 相关表取数'
 DEFINE BAR 3 OF B报表处理 PROMPT '\-'
 DEFINE BAR 4 OF B报表处理 PROMPT '\<3. 录入 / 修改'
 DEFINE BAR 5 OF B报表处理 PROMPT '\-'
 DEFINE BAR 6 OF B报表处理 PROMPT '\<4. 打 平 数 据'
 DEFINE BAR 7 OF B报表处理 PROMPT '\<5. 审 核 数 据'
 DEFINE BAR 8 OF B报表处理 PROMPT '\<6. 汇 总 数 据'
 DEFINE BAR 9 OF B报表处理 PROMPT '\<7. 上 报 处 理'
 DEFINE BAR 10 OF B报表处理 PROMPT '\-'
 DEFINE BAR 11 OF B报表处理 PROMPT '\<8. 平均余额计算'
 DEFINE BAR 12 OF B报表处理 PROMPT '\<9. 辅 助 功 能'
 ON SELECTION BAR 1 OF B报表处理  ;
      DO _0ve0mh6am  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 2 OF B报表处理  ;
      DO _0ve0mh6an  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 4 OF B报表处理  ;
      DO _0ve0mh6ao  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 6 OF B报表处理  ;
      DO _0ve0mh6ap  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 7 OF B报表处理  ;
      DO _0ve0mh6aq  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 8 OF B报表处理  ;
      DO _0ve0mh6ar  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 9 OF B报表处理  ;
      DO _0ve0mh6as  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 11 OF B报表处理  ;
      DO _0ve0mh6at  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON BAR 12 OF B报表处理 ACTIVATE POPUP 辅助功能
 DEFINE POPUP 辅助功能 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 辅助功能 PROMPT '1. 盈亏合并组合处理'
 DEFINE BAR 2 OF 辅助功能 PROMPT '2. 数据移动复制删除'
 DEFINE BAR 3 OF 辅助功能 PROMPT '3. 数  据  生  成'
 ON SELECTION BAR 1 OF 辅助功能  ;
      DO _0ve0mh6au  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 2 OF 辅助功能  ;
      DO _0ve0mh6av  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 3 OF 辅助功能  ;
      DO _0ve0mh6aw  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 DEFINE POPUP H服务功能 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF H服务功能 PROMPT '\<1. 帮助信息' KEY F1 , 'F1'
 DEFINE BAR _MST_CALCU OF H服务功能 PROMPT '\<2. 计算器' KEY F12 , 'F12'
 DEFINE BAR 3 OF H服务功能 PROMPT '\-'
 DEFINE BAR 4 OF H服务功能 PROMPT '\<3. 备份操作'
 DEFINE BAR 5 OF H服务功能 PROMPT '\<4. ACT数据转换'
 DEFINE BAR 6 OF H服务功能 PROMPT '\<5. 地区数据检查' KEY CTRL+F1 , 'CTRL+F1'
 DEFINE BAR 7 OF H服务功能 PROMPT '\<6. 输出复制审核关系'
 DEFINE BAR 8 OF H服务功能 PROMPT '\-'
 DEFINE BAR 9 OF H服务功能 PROMPT '\<7. 设置密码'
 DEFINE BAR 10 OF H服务功能 PROMPT '\<8. 修改日期'
 DEFINE BAR 11 OF H服务功能 PROMPT '\<9. 综合业务系统报表转换' KEY CTRL+F5 , 'CTRL+F5'
 DEFINE BAR 12 OF H服务功能 PROMPT '\<0. 报表数据转人民银行'
 ON BAR 1 OF H服务功能 ACTIVATE POPUP _0980PW1U2
 ON SELECTION BAR 4 OF H服务功能  ;
      DO _0ve0mh6ax  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 5 OF H服务功能  ;
      DO _0ve0mh6ay  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 6 OF H服务功能  ;
      DO _0ve0mh6az  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 7 OF H服务功能  ;
      DO _0ve0mh6b0  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 9 OF H服务功能 do src\prg\mimacx2
 ON SELECTION BAR 10 OF H服务功能  ;
      DO _0ve0mh6b1  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON BAR 11 OF H服务功能 ACTIVATE POPUP _0BX1ABBXY
 ON SELECTION BAR 12 OF H服务功能 do src\prg\zhrmyh
 DEFINE POPUP _0980PW1U2 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF _0980PW1U2 PROMPT '\<1.帮助目录'
 DEFINE BAR 2 OF _0980PW1U2 PROMPT '\<2.综合业务系统报表上报代号转换'
 DEFINE BAR 3 OF _0980PW1U2 PROMPT '\<3.生成试算表'
 DEFINE BAR 4 OF _0980PW1U2 PROMPT '\<4.生成汇总平均余额表'
 DEFINE BAR 5 OF _0980PW1U2 PROMPT '\<5.表号查询'
 ON SELECTION BAR 1 OF _0980PW1U2 do form src\from\read.scx
 ON SELECTION BAR 2 OF _0980PW1U2 do zhbbbh
 ON SELECTION BAR 3 OF _0980PW1U2  ;
      DO _0ve0mh6b2  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 4 OF _0980PW1U2  ;
      DO _0ve0mh6b3  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 5 OF _0980PW1U2  ;
      DO _0ve0mh6b4  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 DEFINE POPUP _0BX1ABBXY COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF _0BX1ABBXY PROMPT '\<1.读入业务状况表'
 DEFINE BAR 2 OF _0BX1ABBXY PROMPT '\<2.读入财务损益表'
 DEFINE BAR 3 OF _0BX1ABBXY PROMPT '\<3.读入资产负债表'
 DEFINE BAR 4 OF _0BX1ABBXY PROMPT '\<9.XBB业务表转ACT格式'
 ON SELECTION BAR 1 OF _0BX1ABBXY do zhywsbzh
 ON SELECTION BAR 2 OF _0BX1ABBXY do zhywsyb
 ON SELECTION BAR 3 OF _0BX1ABBXY do zhywzcb
 ON SELECTION BAR 4 OF _0BX1ABBXY do zhact
 DEFINE POPUP P报表打印 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF P报表打印 PROMPT '\<1. 整表打印'
 DEFINE BAR 2 OF P报表打印 PROMPT '\-'
 DEFINE BAR 3 OF P报表打印 PROMPT '\<2. 分项目打印'
 ON SELECTION BAR 1 OF P报表打印  ;
      DO _0ve0mh6b5  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 3 OF P报表打印  ;
      DO _0ve0mh6b6  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 DEFINE POPUP F分析报表 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF F分析报表 PROMPT '1. 生成分析报表'
 DEFINE BAR 2 OF F分析报表 PROMPT '2. 分析报表打印'
 DEFINE BAR 3 OF F分析报表 PROMPT '\-'
 DEFINE BAR 4 OF F分析报表 PROMPT '3. 新旧科目转换关系'
 ON SELECTION BAR 1 OF F分析报表  ;
      DO _0ve0mh6b7  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 2 OF F分析报表  ;
      DO _0ve0mh6b8  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION BAR 4 OF F分析报表  ;
      DO _0ve0mh6b9  IN LOCFILE("\XBB\SRC\MENU\XBBMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is XBBMENU?")
 ON SELECTION POPUP S系统维护 wait window " SOrry No Function"

PROCEDURE _0ve0mh6a9
 MSGTTL = '         退出系统'
 MESSGTXT = '确认要退出吗?'
 IF MESSAGEBOX(MESSGTXT,292,MSGTTL) = 6
 CLEAR EVENTS 
 ENDIF 
ENDPROC
*------
PROCEDURE _0ve0mh6aa
 CLOSE DATABASES 
 DO src\prg\ZJXB
 CLOSE DATABASES 
ENDPROC
*------
PROCEDURE _0ve0mh6ab
 CLOSE DATABASES 
 DO .\src\prg\SCXB
 CLOSE DATABASES