CLEAR

INPUT "请输入订单号："TO mddh

LOCATE FOR 订单号=mddh

IF EOF()

?"无此订单号!"

ELSE

【20】"职员："+职员-〉姓名+"客户;"+客户-〉客户名+"金额："-STR(金额，6，2)

ENDIF

WAIT "继续查询吗(Y/N)?" TO yn

ENDDO

CLOSE DATABASE

SET SAFETY ON

RETURN