cx1.prg

一个适用于水文系统水情信息在局域网是的传输软件

close all
set talk off
*set safety off
*copy file f:\cx\b1.dbf to f:\cx\b2.dbf
sele 1
use f:\cx\2
go 3
a_1=j6
go 4
a_2=j6
go 5
b_7=k9
a_3=j6
a_13=k6
go 6
a_4=j6
go 7
a_5=j6
go 8
a_18=j6
go 9
a_14=k6
a_19=j6
b_8=k9
go 10
a_20=j6
go 11
a_21=j6
b_12=j9
go 12
a_15=k6
a_22=j6
b_9=k9
b_13=j9
go 13
a_23=j6
go 14
a_6=j6
b_1=j9
go 15
a_7=j6
b_2=j9
a_17=k6
b_11=k9
go 16
b_3=j9
a_8=j6
a_16=k6
b_10=k9
go 17
b_4=j9
a_9=j6
go 18
a_10=j6
go 22
a_11=j6
b_5=j9
go 23
b_6=j9
a_12=j6

*******************************************************

sele 2
use f:\cx\b1
go 1
repl 今日水位 with a_1
go 2
repl 今日水位 with a_2
go 3
repl 今日水位 with a_3
go 5
repl 今日水位 with a_4
go 6
repl 今日水位 with a_5
go 7
repl 今日水位 with a_6
repl 今日流量 with b_1
go 8
repl 今日水位 with a_7
repl 今日流量 with b_2
go 9
repl 今日水位 with a_8
repl 今日流量 with b_3
go 10
repl 今日水位 with a_9
repl 今日流量 with b_4
go 11
repl 今日水位 with a_10
go 12
repl 今日水位 with a_11
repl 今日流量 with b_5
go 13
repl 今日水位 with a_12
repl 今日流量 with b_6
go 15
repl 今日水位 with a_13
repl 今日流量 with b_7
go 16
repl 今日水位 with a_14
repl 今日流量 with b_8
go 17
repl 今日水位 with a_15
repl 今日流量 with b_9
go 18
repl 今日水位 with a_16
repl 今日流量 with b_10
go 19
repl 今日水位 with a_17
repl 今日流量 with b_11
go 20
repl 今日水位 with a_18
go 21
repl 今日水位 with a_19
go 22
repl 今日水位 with a_20
go 23
repl 今日水位 with a_21
repl 今日流量 with b_12
go 24
repl 今日水位 with a_22
repl 今日流量 with b_13
go 25
repl 今日水位 with a_23
***************************************************

sele 3
use f:\cx\b2
go 1
c_1=今日水位 
go 2
c_2=今日水位 
go 3
c_3=今日水位 
go 5
c_4=今日水位 
go 6
c_5=今日水位 
go 7
c_6=今日水位 
d_1=今日流量
go 8
c_7=今日水位 
d_2=今日流量
go 9
c_8=今日水位 
d_3=今日流量
go 10
c_9=今日水位 
d_4=今日流量
go 11
c_10=今日水位 
go 12
c_11=今日水位 
d_5=今日流量
go 13
c_12=今日水位 
d_6=今日流量
go 15
c_13=今日水位 
d_7=今日流量
go 16
c_14=今日水位
d_8=今日流量
go 17
c_15=今日水位 
d_9=今日流量
go 18
c_16=今日水位 
d_10=今日流量
go 19
c_17=今日水位 
d_11=今日流量
go 20
c_18=今日水位 
go 21
c_19=今日水位 
go 22
c_20=今日水位 
go 23
c_21=今日水位
d_12=今日流量
go 24
c_22=今日水位 
d_13=今日流量
go 25
c_23=今日水位
***********************************
sele 2
go 1
*if val(a_1)<>0
repl 与昨日差 with str(val(a_1)-val(c_1),10,2)
*else
 *  与昨日差=""
*endif