SLXS.PRG
资源名称:jq_caiwu.ARJ [点击查看]
上传用户:hbmaozhan
上传日期:2013-01-31
资源大小:1007k
文件大小:0k
源码类别:
企业管理
开发平台:
VFP
- xx = slbz
- IF xx='2'
- SET COLOR TO BG/N
- @ 18+bs, 1 SAY gg
- a1 = ssl
- IF a1<>0
- @ 18+bs, 9 SAY ssl PICTURE '99999999.999'
- @ 18+bs, 21 SAY sdj
- ELSE
- @ 18+bs, 9 SAY fsl PICTURE '99999999.999'
- @ 18+bs, 21 SAY fdj
- ENDI
- ENDI
- RETU
- *