zyhwa_se.prg

vfp数据库应用编程

***********************************
*以下是人机对话程序(ZYHWA_SE.PRG)*
***********************************
PARA WAN_TIT,WAN_CHA,WAN_IMO,WAN_SELE,WAN_X,WAN_Y,WAN_GET
PRIV PARB,PP_CAPS
PARB=PARA()
IF len(wan_cha)<6
	wan_cha=spac(120)
ENDI

PUSH KEY CLEA
Clea TYPE
IF AT([\],WAN_TIT)>0
	PRIV UL1
	UL1=SUBS(WAN_TIT,2,1)
	WAN_TIT=IIF(UL1=[1],[系统提示],;
		IIF(UL1=[2],[系统报告],;
		IIF(UL1=[3],[系统警告],;
		IIF(UL1=[4],[异常报告],;
		IIF(UL1=[5],[梗阻报告],[系统说明])))))
	Rele UL1
ENDI
PP_CAPS=CAPS()
=CAPS(.t.)
DO CASE
CASE INLI(WAN_IMO,1,11,12)
	IF WAN_IMO=12
		Rele WIND RJDH
		POP KEY
		Clea TYPE
		=CAPS(PP_CAPS)
		RETU
	ENDI
	PRIV UL1
	UL1=INT(LEN(wan_cha)/34+1.6)+2
	IF PARB > 5 AND WAN_X > -0.9
DEFI WIND RJDH AT WAN_X,WAN_Y SIZE UL1,44 SYST COLO 0/7*,7+/1,7+/1;
	TITL WAN_TIT FONT "宋体",12
Acti WIND RJDH
ELSE
DEFI WIND RJDH AT 0,0 SIZE UL1,44 SYST COLO 0/7*,7+/1,7+/1;
	TITL WAN_TIT FONT "宋体",12
Move WIND RJDH CENT
Acti WIND RJDH
ENDI
=zwaf("喂!")
@ 0.6,6 SAY wan_cha ;
	SIZE 7,35;
	FONT"宋体",12;
	COLOR RGB(,,,255,255,255)

IF WAN_IMO<>11
	Clea TYPE
	PRIV QQWWTT
	@LEN(wan_cha )/34 + 0.9,36 GET QQWWTT func"*h 确定";
		FONT "宋体",11 SIZE 1.5,7,0.2 DEFA 1
	Clea GETS
	@0.4,2 say[]
	UL1=INKE(0,"M")
	Clea TYPE
	Rele WIND RJDH
ENDI
CASE WAN_IMO=2
	IF PARB>=6 AND WAN_X>-0.9
DEFI WIND RJDH AT WAN_X,WAN_Y SIZE 3.5,37 SYST;
	TITL WAN_TIT FONT "宋体",12
ELSE
DEFI WIND RJDH AT 0,0 SIZE 3.5,37 SYST TITL WAN_TIT FONT "宋体",12
Move WIND RJDH CENT
ENDI
Acti WIND RJDH

WAN_SELE=0
DO WHIL WAN_SELE<1
	IF PARB<7
		@ 1,3 GET WAN_SELE FUNC"*H \<Y:确认;\<N:修改;\<Q:放弃" SIZE 1.3,9,2;
			colo 6+/4,7+/5,,7+/1
	ELSE
		@ 1,3 GET WAN_SELE FUNC"*H& WAN_GET" SIZE 1.3,9,2;
			colo 6+/4,7+/5,,7+/1
	ENDI
	READ CYCL MODA
ENDD
Rele WIND RJDH

CASE WAN_IMO=3
	IF PARB>=6 .AND.WAN_X>-0.9
DEFI WIND RJDH AT WAN_X,WAN_Y SIZE 3.5,34 SYST;
	TITL WAN_TIT FONT "宋体",12
ELSE
DEFI WIND RJDH AT 0,0 SIZE 3.5,34 SYST TITL WAN_TIT FONT "宋体",12
Move WIND RJDH CENT
ENDI
Acti WIND RJDH
WAN_SELE=0
DO WHIL WAN_SELE<1
	IF PARB<7
		@1,3 GET WAN_SELE FUNC"*H\<Y:确认;\<Q:放弃"SIZE 1.3,12,4;
			colo 6+/4,7+/5,,7+/1
	ELSE
		@1,3 GET WAN_SELE FUNC"*H&WAN_GET"SIZE 1.3,12,4;
			colo 6+/4,7+/5,,7+/1
	ENDI
	READ CYCL MODA
ENDD
Rele WIND RJDH

IF WAN_SELE<>1
	WAN_SELE=3
ENDI
CASE WAN_IMO=4
	IF PARB>=6 .AND.WAN_X>-0.9
DEFI WIND RJDH AT WAN_X,WAN_Y SIZE 7,15 SYST TITL WAN_TIT FONT "宋体",12
ELSE
DEFI WIND RJDH AT 0,0 SIZE 7,15 SYST TITL WAN_TIT FONT "宋体",12
Move WIND RJDH CENT
ENDI
Acti WIND RJDH
WAN_SELE=0
DO WHIL WAN_SELE<1
	IF PARB<7
		@1,1.5 GET WAN_SELE FUNC"*\<Y:确认;\<N:修改;\<Q:放弃"SIZE 1.3,12,0.6;
			colo 6+/4,7+/5,,7+/3
	ELSE
		@1,1.5 GET WAN_SELE FUNC"*& AN_GET"SIZE 1.3,12,0.6;
			colo 6+/4,7+/5,,7+/3
	ENDI
	READ CYCL MODA
ENDD
Rele WIND RJDH

CASE WAN_IMO=5
	IF PARB>=6 .AND.WAN_X>-0.9
DEFI WIND RJDH AT WAN_X,WAN_Y SIZE 6,15 SYST TITL WAN_TIT FONT "宋体",12
ELSE
DEFI WIND RJDH AT 0,0 SIZE 6,15 SYST TITL WAN_TIT FONT "宋体",12
Move WIND RJDH CENT
ENDI
Acti WIND RJDH
WAN_SELE=0
DO WHIL WAN_SELE<1
	IF PARB<7
		@1.2,1.5 GET WAN_SELE FUNC"*\<Y:确认;\<Q:放弃"SIZE 1.3,12,0.8;
			colo 6+/4,7+/5,,7+/3
	ELSE
		@1.2,1.5 GET WAN_SELE FUNC"*&WAN_GET"SIZE 1.3,12,0.8;
			colo 6+/4,7+/5,,7+/3
	ENDI
	READ CYCL MODA
ENDD
Rele WIND RJDH

IF WAN_SELE<>1
	WAN_SELE=3
ENDI
CASE WAN_IMO=6
	PRIV UL1
	UL1=INT(LEN(wan_cha)/34+0.8)+4
	IF PARB>=5 .AND.WAN_X>-0.9
DEFI WIND RJDH AT WAN_X,WAN_Y SIZE UL1,44 SYST colo 0/7*,,7+/1,7+/1 ;
	TITL WAN_TIT FONT "宋体",12
Acti WIND RJDH
ELSE
DEFI WIND RJDH AT 0,0 SIZE UL1,44 SYST colo 0/7*,,7+/1,7+/1 ;
	TITL WAN_TIT FONT "宋体",12
Move WIND RJDH CENT
Acti WIND RJDH
ENDI
=zwaf("喂!")
@0.6,6 SAY wan_cha;
	SIZE 7,35;
	FONT"宋体",12;
	COLOR RGB(,,,255,255,255)
DO WHIL .T.
	@UL1-2,10 SAY[你按下的键是:]GET WAN_SELE;
		SIZE 1,1.2 DEFAULT"";
		FONT"宋体",12;
		Picture "@k!";
		COLO,7+/1
	READ MODA
	IF BETW(WAN_SELE,[A],[Z])
		EXIT
	ENDI
ENDD
Rele WIND RJDH
ENDC
POP KEY
Clea TYPE
=CAPS(PP_CAPS)
RETU

**********************
  func zwaf       
**********************
PARA cmo0
@0.158,1.500 TO 1.579,4.875 PATTERN 1 PEN 1,8 STYLE"99"COLOR RGB (0,0,0,128,0,0)
@0.526,2.000 SAY cmo0 FONT"宋体",11 STYLE"T"COLOR RGB (255,255,0)
RETU