行业应用

开发平台：

VFP

READERR.PRG：源码内容

							*********************************************************
*
* Name: ReadErr
*       此程序演示MisTool工具中的readerror处理
*
**********************************************************
set talk off
set esca off
set path to ..
do LoadSDK                    && 装入SDK
on read do _ReadHandle in MisTool
priv Color
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W'
=defiwind("Input",4,20,12,60,"colo (Color) titl '输入错误处理'")
=actiwind("Input")
=DnRect(C2X(1)-2,R2Y(1)-2,C2X(38)+2,R2Y(7)+2)
priv P_Var
P_Var="Hope Soft"
set curs on
=Get(2,10,"P_Var","size 2,10 vali .f.")
read
on read
=relewind("InPut")
retu

						