数组，for循环。

先定义一个结构mydata： 湿度 ，温度 ，压力

db7（mydb7）中定义数组变量：mydatas array[0..1000] of mydata

db8(mydb8)中定义数组： mywet array[0..1000] of real

db12(mydb12)中定义数组： mytemp array[0..1000] of real

db13(mydb13)中定义数组： mypress array[0..1000] of real

db7,db8,db12,db13都是优化访问的

for i:=0 to 1000 do

"mydb8".mywet[i]:="mydb7".mydatast[i].湿度

"mydb12".mytempt[i]:="mydb7".mydatast[i].温度

"mydb13".mypresst[i]:="mydb7".mydatast[i].压力

end for