标题INKEY()函数妙用一例

　　一、XSSJ.PRG程序清单
　　CLEAR
　　STORE" "TO Y，N，R，D，F，M
　　DATE=DTOC(DATE())
　　N=SUBSTR(DATE，7，2)
　　Y=IIF(SUBSTR(DATE，1，1)="0"，"0"+SUBSTR(DATE，2，1)，SUBSTR(DATE，1，2))
　　R=IIF(SUBSTR(DATE，4，1)="0"，"0"+SUBSTR(DATE，5，1)，SUBSTR(DATE，4，2))
　　SHIJIAN="19"+N+"年"+Y+"月"+R+"日"
　　@20，10 SAY SHIJIAN
　　SHU="日一二三四五六"
　　YE=STR(DOW(DATE()))
　　Q=VAL(YE)*2-1
　　W=SUBS(SHU，Q，2)
　　XQX="星期"+W
　　@20，36 SAY XQX
　　TIME=TIME()
　　D=IIF(SUBSTR(TIME，1，1)="0"，"0"+SUBSTR(TIME，2，1)，SUBSTR(TIME，1，2))
　　F=IIF(SUBSTR(TIME，4，1)="0"，"0"+SUBSTR(TIME，5，1)，SUBSTR(TIME，4，2))
　　M=IIF(SUBSTR(TIME，7，1)="0"，"0"+SUBSTR(TIME，8，1)，SUBSTR(TIME，7，2))
　　DFM=D+"点"+F+"分"+M+"秒"
　　@20，58 say dfm
　　RETURN
　　二、XSSJ.PRG程序的调用
　　笔者在编制固定资产管理系统时，在菜单选择时调用了这个小程序，于是在屏幕的第20行将持续显示日期、星期和时间，在静止的菜单屏幕上给人以动感。现举一例如下：
　　DO WHILE .T.
　　CLEAR
　　SET COLOR TO W/R，W/B
　　@ 3，15 SAY" "
　　@ 4，15 SAY"　合 肥 铝 厂 "
　　@ 5，15 SAY" "
　　@ 6，15 SAY"　固定资产管理系统 "
　　@ 7，15 SAY" "
　　@ 8，15 SAY" 1.数据输入　2.数据查询 "
　　@ 9，15 SAY" "
　　@10，15 SAY" 3.数据修改　4.报表打印 "
　　@11，15 SAY" "
　　@12，15 SAY"　O.退出 "
　　@13，15 SAY" "
　　@14，15 SAY" 你的工作选择：---------------- "
　　@15，15 SAY" "
　　SET COLOR TO G/，W/B
　　I=O
　　@ O，O SAY CHR(14)+"RO]"
　　DO WHILE I<48.OR.I>52
　　DO XSSJ
　　I=INKEY(1)
　　ENDDO
　　@ O，O SAY CHR(14)+"R1]"
　　I=VAL(CHR(I))
　　Y="EXIT DO GDSR DO GDCX DO GDXG DO GDDY"
　　P=SUBSTR(Y，I*8+1，8)
　　&P
　　ENDDO
　　RETURN
　　该程序安排了一个循环，它等待用户按一个键，变量I是一个计数器，它的值是数值型的，如果不按键，则将不断地将I赋值为0，同时显示时间，当用户键入选择时，它对INKEY()函数发生作用，于是I的值就不再为0了，显示程序XSSJ.PRG退出循环，然后，程序检测用户的输入，如果输入的是数字0到4，则根据不同的选择，分情况处理。否则返回DO WHILE重新执行循环，重新键入正确的选择。