submenu.prg

来自「vfp数据库应用编程」· PRG 代码 · 共 64 行

***********************
* 子菜单程序(SUBMENU.RPG)*
********************************
PARA STITLE,CLIMO
Clos DATA
DO CASE
CASE CLIMO=1
	SUBCOLO=[RGB(0,0,0,187,198,198)]
CASE CLIMO=2
	SUBCOLO=[RGB(0,0,0,240,230,210)]
CASE CLIMO=3
	SUBCOLO=[RGB(0,0,0,248,207,120)]
CASE CLIMO=4
	SUBCOLO=[RGB(0,0,0,192,192,192)]
ENDC

DEFINE WINDOW smwxz;
	AT 0.000,0.000;
    SIZE 19.778	,25.875;
	TITLE STITLE+"选择";
	FONT"宋体",12;
	FLOAT;
	NOCLOSE;
	NOMINIMIZE;
	SYSTEM;
	COLOR &SUBCOLO
Move WINDOW smwxz CENTER
Activate WINDOW smwxz NOSHOW
@5.278,6.375 GET subxz;
	PICTURE "@*VT 商品代码;库存数据;购入商品;销售商品;返回主菜单";
	SIZE 1.722,13.375,0.889;
	DEFAULT 1;
	FONT"宋体",12
@1.389,	5.000 SAY STITLE+"选择";
	FONT "宋体",15;
	STYLE "BT"
@0.944,2.875 TO 3.055,23.000;
	PEN 1,8
@3.000,2.875 TO 3.000,22.875;
	PEN 1,8;
	STYLE "1";
    COLOR RGB(255,255,255,255,255,255)
@1.000,22.875 TO 3.056,22.875;
	PEN 1,8;
	COLOR RGB(255,255,255,255,255,255)
@4.000,2.875 TO 18.722,22.875;
	PEN 1,8
@ 4.000,2.875 TO 18.722,22.875;
	PEN 1,8;
	COLOR RGB(255,255,255,255,255,255)
@4.000,3.000 TO 4.000,22.875;
	PEN 1,8;
	STYLE "1";
    COLOR RGB(255,255,255,255,255,255)

Activate WINDOW smwxz
IF LAST()=27
	subxz=27
ENDI
READ CYCLE MODA
Rele WIND smwxz
RETU subxz