public dqk,ljk
store space(40) to dqk
store space(40) to ljk
@10,6 say "请输入准备汇的总数据库名称:" get dqk
@12,6 say "请输入需要生成的数据库名称:" get ljk
read
USE &dqk
copy to ls fiel 图号,备注,bbh,名称,材料,单位,定额,bb,g1,gb,jhdj for bb<>' '
USE ls
repl all for bb='09' bb with '10'
DELE FOR BB='99'
dele for gb='j '
dele for gb='J '
dele for gb='k '
dele for gb='K '
dele for bbh='*'
PACK
use bzk1
dele all
pack
appe from ls
repl all cjh with bb,wzmc with 名称 ,ggxh with 材料,de with 定额,bz with 备注
repl all dw with 单位
repl all pzsl with 53 for gb='w'.or.gb='W'
repl all pzsl with 62 for gb='P'.or.gb='p'
repl all pzsl with 54 for gb='s'.or.gb='S'
repl bbh1 with bb+名称+材料+subs(备注,1,1) for gb<>' '.and.bbh=' '
repl bbh1 with bb+bbh for gb<>' '.and.bbh<>' '
repl bbh1 with bb+bbh for gb=' '.AND.bbh<>' '
repl bbh1 with bb+名称+材料+subs(备注,1,1) for gb=' '.AND.BBH=' '
repl ggxh with subs(图号,1,17)+subs(材料,1,17) all
inde on bbh1 to ls1
total on bbh1 to cj all;
fiel cjh,bbh,wzmc,ggxh,jhdj,bz,dw,de,pzsl
use cj
repl all jhdj with jhdj/de for de<>0
copy to &ljk fiel cjh,bbh,wzmc,ggxh,jhdj,bz,dw,de,pzsl
use
erase ls.idx
mc1=' '
bbh1=' '
ggxh1=' '
jhdj1=0
dw1=' '
sele 1
use &ljk
go top
do while .not.eof()
bbh1=subs(bbh,1,10)
if bbh1<>' '
sele 2
use y:\kczz\decx\hzyk1
locat for bbh=bbh1
if foun()
mc1=wzmc
jhdj1=jhdj
dw1=dw
ggxh1=ggxh
sele 1
if pzsl>0
repl jhdj with jhdj1
repl dw with dw1
repl ggxh with ggxh1
else
REPL wzmc with mc1
repl jhdj with jhdj1
repl dw with dw1
repl ggxh with ggxh1
endif
endi
endi
sele 1
skip
* endif
enddo
repl all dw with ' ' for dw='?
repl all dw with ' ' for dw=' ?'
clos data
erase ls*.idx
erase zjk.dbf
erase cj.dbf
这位老师,这个程序运行是可以运行的,但就是连编时出错,我把这些代码放在表单的
load过程中也可以运行,但是也连编不了,另外,
[color=#993300]@10,6 say "请输入准备汇的总数据库名称:" get dqk
@12,6 say "请输入需要生成的数据库名称:" get ljk以上两行是原来想定位输出数据 ,但现在想做成表单上的两个标签,两个文本框
通过按钮来运行,但是不知道在文本框什么过程里写什么代码, get dqk 中的get
我也不明白什么意思啊,这个程序是原来程序员编的,我啥也不懂,非常惭愧