XSBHZDY.PRG
资源名称:jq_report.ARJ [点击查看]
上传用户:xue7720
上传日期:2013-01-31
资源大小:1240k
文件大小:0k
源码类别:
行业应用
开发平台:
VFP
- if .not. file('xsmxbhz.dbf')
- ?? chr(7)
- set colo to
- @ 5,8 clea to 10,35
- set colo to w+/1
- @ 4,5 clea to 9,33
- x1=4
- x2=9
- y1=5
- y2=31
- do box_1
- @ 6,9 say '销售利润明细表不存在!'
- @ 7,9 say '按任意键继续 ......'
- i=inkey(0)
- set colo to w+/n
- @3,3,10,35 box'鞍鞍鞍鞍鞍鞍'
- else
- use xsmxbhz
- do xsmxbdy
- use
- endif
- retu