请问各位老大FOXBASE怎么样才能设计出有菜单那种效果希望给小弟源码谢谢

[立志做一个佳娃~]

请问各位老大FOXBASE怎么样才能设计出有菜单那种效果希望给小弟源码谢谢

[lz_zxf]

define menu MAIN_MENU
define pad XSCX of MAIN_MENU prompt '\<A.销售毛利查询' at 2 , 1
define pad JHCX of MAIN_MENU prompt '\<B.进货查询' at 2 , 18
define pad KCCX of MAIN_MENU prompt '\<C.库存查询' at 2 , 31
define pad HKCX of MAIN_MENU prompt '\<D.货款查询' at 2 , 44
define pad XT of MAIN_MENU prompt '\<E.系统' at 2 , 57
on selection pad XSCX of MAIN_MENU ACTIVATE POPUP Xscx_1
define popup XSCX_1 from 3 , 1 shadow
define bar 1 of XSCX_1 prompt '\<1. 销售查询 '
define bar 2 of XSCX_1 prompt '\<──────────' skip
define bar 3 of XSCX_1 prompt '\<2. 毛利查询 '
on selection bar 1 of XSCX1_1 Do CH_GC With "1"
on selection bar 2 of XSCX_1 Do Cjxs
on selection bar 3 of XSCX_1 Do Bmxs
on selection bar 7 of XSCX_1 Do Pdcx
on selection bar 1 of XSCX_1 Do z_xscx
on selection bar 3 of XSCX_1 Do z_mlcx

on selection pad JHCX of MAIN_MENU ACTIVATE POPUP Jhcx_1

define popup JHCX_1 from 3 , 18 shadow
define bar 1 of JHCX_1 prompt '\<. 商品上柜查询 → '
define bar 2 of JHCX_1 prompt '\<──────────' skip
define bar 3 of JHCX_1 prompt '\<. 商品入库查询 '
define bar 4 of JHCX_1 prompt '\<──────────' skip
define bar 5 of JHCX_1 prompt '\<. 商品配送查询 '
on selection bar 3 of JHCX_1 Do Sprk
on selection bar 5 of JHCX_1 Do Spps
on selection bar 1 of JHCX_1 ACTIVATE POPUP Jhcx_1_1
define popup JHCX_1_1 from 4 , 31 shadow
define bar 1 of JHCX_1_1 prompt '\<G. 按柜组查询 '
define bar 2 of JHCX_1_1 prompt '\<B. 按部门查询 '
define bar 3 of JHCX_1_1 prompt '\<────────' skip
define bar 4 of JHCX_1_1 prompt '\<F. 按厂家查询 '
on selection bar 1 of JHCX_1_1 Do Sgcx
on selection bar 2 of JHCX_1_1 Do BmSg
on selection bar 4 of JHCX_1_1 Do Cjsg
on selection pad KCCX of MAIN_MENU Activate Popup Kccx_1
define popup KCCX_1 from 3 , 32 shadow
define bar 1 of KCCX_1 prompt '\<.查询柜组库存'
define bar 2 of KCCX_1 prompt '\<.查询部门库存'
define bar 3 of KCCX_1 prompt '\<────────' skip
define bar 4 of KCCX_1 prompt '\<.查询厂家库存'
define bar 5 of KCCX_1 prompt '\<.大库库存查询'
on selection bar 1 of KCCX_1 Do Gzkc
on selection bar 2 of KCCX_1 Do Bmkc
on selection bar 4 of KCCX_1 Do Cjkc
on selection bar 5 of KCCX_1 Do S3kcx
on selection pad HKCX of MAIN_MENU Activate Popup Hkcx_1
define popup HKCX_1 from 3 , 45 shadow
define bar 1 of HKCX_1 prompt '\<.应付款查询'
define bar 2 of HKCX_1 prompt '\<────────' skip
define bar 3 of HKCX_1 prompt '\<.已结款查询'
on selection bar 1 of HKCX_1 Do Yfk
on selection bar 3 of HKCX_1 Do Yjk
on selection pad XT of MAIN_MENU ACTIVATE POPUP Xt_1
define popup XT_1 from 3 , 70 shadow
define bar 1 of XT_1 prompt '\<. 帮助 Help '
define bar 2 of XT_1 prompt '\──────────' skip
define bar 3 of XT_1 prompt '\<. 系统维护 Modi→'
define bar 4 of XT_1 prompt '\<. 退出系统 Quit '
on selection bar 1 of XT_1 Do Help
on selection bar 3 of XT_1 ACTIVATE POPUP Xt11
activate menu MAIN_MENU

[xiolig]

怎么还在用 FOXBASE？
大概只能用 @...SAY 实现了，可能要涉及到 INKEY 函数及COLOR设置。
如果汉字系统支持直接写屏，还可以配合汇编语言实现类WINDOWS仿真下拉菜单。

[fj_jiangqi]

用foxbase不好实现，如果你用的是foxbae2.1可以用数组来实现。
foxbase的命令行.help 里头有例子
在dos下建议你用foxpro2.5有窗口功能，更好用。

[Raf1945]

我手里有，当年的老程序了，要的话来找我吧
[e-mail]