行业应用

开发平台：
VFP

MENU.PRG：源码内容
							*********************************************************
*
* Name: Menu
*       此程序演示菜单函数
*
**********************************************************
set dele on
set talk off
on key label escape  quit
set path to ..
set mouse off
set clock to 23,66
dh='                 '
clea
defi wind jqwin from 0,0 to 24,79 colo 6+/3 titl ' JQ 系 列 软 件 '
acti wind jqwin
define window jqfaxwin from 2,2 to 18,75 titl '    JQFAX 通讯窗口   ;
        黄朝生制作          JQ软件工作室  ' shadow
acti windows jqfaxwin 
DEFINE MENU mainmenu
defi pad pad1  of MAINMENU prom '<S. 文 件' &&at 0,0
defi pad pad2  of MAINMENU prom '<T. 报 表' &&at 0,14
defi pad pad3  of MAINMENU prom '<N. 其 他' &&at 0,28
defi pad pad4     of MAINMENU prom '<G. 关 于' &&at 0,42
ON PAD pad1 OF mainmenu ACTIVATE POPUP pop1   && 选择1 相当于DO CASE
ON PAD pad2 OF mainmenu ACTIVATE POPUP pop2
ON PAD pad3 OF mainmenu ACTIVATE POPUP pop3
ON PAD pad4 OF mainmenu ACTIVATE POPUP pop4
*N PAD PAD5 OF MAINMENU ACTIVATE POPUP POP5
*N PAD pad6 OF mainmenu ACTIVATE POPUP pop6
DEFINE POPUP pop1 MARGIN  shadow
defi bar  1 of pop1 prom '<1. 传输文件' 
defi bar  2 of pop1 prom '<2. 接收文件'
defi bar  3 of pop1 prom '-'
defi bar  4 of pop1 prom '<3. 文件打包' 
defi bar  5 of pop1 prom '<4. 文件解包' 
defi bar  6 of pop1 prom '<5. 文件转存'
defi bar  7 of pop1 prom '-'
defi bar  8 of pop1 prom '<6. 退出JQFAX'
on selection bar 1 of pop1 do cswj
on selection bar 2 of pop1 do jswj
On selection bar 4 of pop1 do wjdb
on selection bar 5 of pop1 do wjjb
on selection bar 6 of pop1  a=1
on selection bar 8 of pop1 quit
DEFINE POPUP pop2 MARGIN  shadow
defi bar  1 of pop2 prom '<1. 传输报表' 
defi bar  2 of pop2 prom '<2. 接收报表'
defi bar  3 of pop2 prom '-' 
defi bar  4 of pop2 prom '<3. 报表打包'
defi bar  5 of pop2 prom '<4. 报表解包'  
on selection bar 1 of  pop2 do csbb
on selection bar 2 of  pop2 do jsbb
on selection bar 4 of  pop2 do bbdb
on selection bar 5 of  pop2 do bbjb 
DEFINE POPUP pop3 MARGIN  shadow
defi bar 1 of pop3 prom '<1. 转到UCCOM'
defi bar 2 of pop3 prom '<2. 检查MODEM'
defi bar 3 of pop3 prom '<3. MODEM参数'
defi bar 4 of pop3 prom '<4. 下属单位'
defi bar 5 of pop3 prom '<5. 汇总设置'
defi bar 6 of pop3 prom '<6. 编辑UCCOM.INI'
defi bar 7 of pop3 prom '<7. 默认UCCOM.INI'
defi bar 8 of pop3 prom '<8. DOS 命令'
on selection bar 1 of pop3  do zuccom
on selection bar 2 of pop3  do zcheck
on selection bar 3 of pop3  do cssz
on selection bar 4 of pop3  do hzdwgl
on selection bar 5 of pop3  do hzsz
on selection bar 6 of pop3  do bjuccom
on selection bar 7 of pop3  do mruccom 
on selection bar 8 of pop3  do dos
DEFINE POPUP pop4 MARGIN  shadow
defi bar 1 of pop4 prom '<1. 关于JQFAX'
defi bar 2 of pop4 prom '<2.  帮   助 '
on selection  bar 1 of pop4 do gy
on selection  bar 2 of pop4 do help
acti menu mainmenu
deacti window jqfaxwin
retu

						