行业应用

开发平台：

VFP

XSBDRK.PRG：源码内容

							***********
*┌──────────────────────────────────┐ 
*│      Program: EXP5_9.PRG                                           │
*│     Function: 上弹式菜单范例                                       │
*└──────────────────────────────────┘
SET TALK OFF
on key 
SET MESSAGE TO 24 CENTER
* 定义一个窗口:win
DEFINE WINDOW win FROM 20,2 TO 23,77  SHADOW COLOR SCHEME 7
*CLEAR
* 定义一个上弹式菜单: mypop
DEFINE POPUP mypop FROM 4,30  MARGIN SCROLL SHADOW;
       COLOR SCHEME 9
use hzdw
count all to a1
go top
for i=1 to a1
DEFINE BAR i  OF mypop PROMPT hzdw
pd=i
ON SELECTION BAR i  OF mypop DO xsbbdr_1
if !eof()
  skip
endif
endfor
activate popup mypop
DEACTIVATE WINDOW win
SET CURSOR ON
use
on key label escape do Rquit
RETURN

						