conn.bas

上传数据,希望对初学者有用!!!!!上传数据,希望对初学者有用

Form1.Text6(34).Text = Abs(tempArr(1))
Form1.Text6(35).Text = tempArr(2)

sid = "0702" '东石楼 7.2
tempArr = Split(findData(sid), "|")
Form1.Text6(36).Text = tempArr(0)
Form1.Text6(37).Text = Abs(tempArr(1))
Form1.Text6(38).Text = tempArr(2)

sid = "0106" '石西 1.6
tempArr = Split(findData(sid), "|")
Form1.Text6(39).Text = tempArr(0)
Form1.Text6(40).Text = Abs(tempArr(1))
Form1.Text6(41).Text = tempArr(2)

sid = "0104" '后王 1.4
tempArr = Split(findData(sid), "|")
Form1.Text6(42).Text = tempArr(0)
Form1.Text6(43).Text = Abs(tempArr(1))
Form1.Text6(44).Text = tempArr(2)

sid = "0f05" '王府庄 15.5
tempArr = Split(findData(sid), "|")
Form1.Text6(45).Text = tempArr(0)
Form1.Text6(46).Text = Abs(tempArr(1))
Form1.Text6(47).Text = tempArr(2)

sid = "0401" '北王 4.1
tempArr = Split(findData(sid), "|")
Form1.Text6(48).Text = tempArr(0)
Form1.Text6(49).Text = Abs(tempArr(1))
Form1.Text6(50).Text = tempArr(2)

sid = "0303" '路楼 3.3
tempArr = Split(findData(sid), "|")
Form1.Text6(51).Text = tempArr(0)
Form1.Text6(52).Text = Abs(tempArr(1))
Form1.Text6(53).Text = tempArr(2)

sid = "0705" '刘楼 7.5
tempArr = Split(findData(sid), "|")
Form1.Text6(54).Text = tempArr(0)
Form1.Text6(55).Text = Abs(tempArr(1))
Form1.Text6(56).Text = tempArr(2)

sid = "1606" '拴东 22.6
tempArr = Split(findData(sid), "|")
Form1.Text6(57).Text = tempArr(0)
Form1.Text6(58).Text = Abs(tempArr(1))
Form1.Text6(59).Text = tempArr(2)

sid = "0b05" '胡庄 11.5
tempArr = Split(findData(sid), "|")
Form1.Text6(60).Text = tempArr(0)
Form1.Text6(61).Text = Abs(tempArr(1))
Form1.Text6(62).Text = tempArr(2)

sid = "1709" '胡楼 23.9 注:属于南方区域
tempArr = Split(findData(sid), "|")
Form1.Text6(63).Text = tempArr(0)
Form1.Text6(64).Text = Abs(tempArr(1))
Form1.Text6(65).Text = tempArr(2)

sid = "0309" '吕庄 3.9 注:属于南方区域
tempArr = Split(findData(sid), "|")
Form1.Text6(66).Text = tempArr(0)
Form1.Text6(67).Text = Abs(tempArr(1))
Form1.Text6(68).Text = tempArr(2)

'郭仓===
sid = "0403" '干河头 2.2
tempArr = Split(findData(sid), "|")
Form1.Text13(0).Text = tempArr(0)
Form1.Text13(1).Text = Abs(tempArr(1))
Form1.Text13(2).Text = tempArr(2)

sid = "0508" '王楼 5.8
tempArr = Split(findData(sid), "|")
Form1.Text13(3).Text = tempArr(0)
Form1.Text13(4).Text = Abs(tempArr(1))
Form1.Text13(5).Text = tempArr(2)

sid = "0808" ' 八里桥 8.8
tempArr = Split(findData(sid), "|")
Form1.Text13(6).Text = tempArr(0)
Form1.Text13(7).Text = Abs(tempArr(1))
Form1.Text13(8).Text = tempArr(2)

'以下流量站(南方区域)============================================

'汶上镇===
sid = "0609" '前周 6.9
tempArr = Split(findData(sid), "|")
Form1.Text7(0).Text = tempArr(0)
Form1.Text7(1).Text = Abs(tempArr(1))
Form1.Text7(2).Text = tempArr(2)

sid = "060b" '陈闸 6.11
tempArr = Split(findData(sid), "|")
Form1.Text7(3).Text = tempArr(0)
Form1.Text7(4).Text = Abs(tempArr(1))
Form1.Text7(5).Text = tempArr(2)

sid = "070a" '鹿庄 7.10
tempArr = Split(findData(sid), "|")
Form1.Text7(6).Text = tempArr(0)
Form1.Text7(7).Text = Abs(tempArr(1))
Form1.Text7(8).Text = tempArr(2)

sid = "040a" '骆庄 4.10
tempArr = Split(findData(sid), "|")
Form1.Text7(9).Text = tempArr(0)
Form1.Text7(10).Text = Abs(tempArr(1))
Form1.Text7(11).Text = tempArr(2)

sid = "0706" '桥口 7.6
tempArr = Split(findData(sid), "|")
Form1.Text7(12).Text = tempArr(0)
Form1.Text7(13).Text = Abs(tempArr(1))
Form1.Text7(14).Text = tempArr(2)

'南站镇====
sid = "020a" '石村 2.10
tempArr = Split(findData(sid), "|")
Form1.Text8(0).Text = tempArr(0)
Form1.Text8(1).Text = Abs(tempArr(1))
Form1.Text8(2).Text = tempArr(2)

sid = "0408" '王庄 4.8
tempArr = Split(findData(sid), "|")
Form1.Text8(3).Text = tempArr(0)
Form1.Text8(4).Text = Abs(tempArr(1))
Form1.Text8(5).Text = tempArr(2)

sid = "0a0a" '宋铺 10.10
tempArr = Split(findData(sid), "|")
Form1.Text8(6).Text = tempArr(0)
Form1.Text8(7).Text = Abs(tempArr(1))
Form1.Text8(8).Text = tempArr(2)

sid = "0409" '野庄 4.9
tempArr = Split(findData(sid), "|")
Form1.Text8(9).Text = tempArr(0)
Form1.Text8(10).Text = Abs(tempArr(1))
Form1.Text8(11).Text = tempArr(2)

sid = "050a" '李街 5.10
tempArr = Split(findData(sid), "|")
Form1.Text8(12).Text = tempArr(0)
Form1.Text8(13).Text = Abs(tempArr(1))
Form1.Text8(14).Text = tempArr(2)

sid = "010c" '龙集 1.12
tempArr = Split(findData(sid), "|")
Form1.Text8(15).Text = tempArr(0)
Form1.Text8(16).Text = Abs(tempArr(1))
Form1.Text8(17).Text = tempArr(2)

sid = "040c" '戴庄 4.12
tempArr = Split(findData(sid), "|")
Form1.Text8(18).Text = tempArr(0)
Form1.Text8(19).Text = Abs(tempArr(1))
Form1.Text8(20).Text = tempArr(2)

sid = "0308" '董王庄 3.8
tempArr = Split(findData(sid), "|")
Form1.Text8(21).Text = tempArr(0)
Form1.Text8(22).Text = Abs(tempArr(1))
Form1.Text8(23).Text = tempArr(2)

sid = "0108" '后李尹 1.8
tempArr = Split(findData(sid), "|")
Form1.Text8(24).Text = tempArr(0)
Form1.Text8(25).Text = Abs(tempArr(1))
Form1.Text8(26).Text = tempArr(2)

sid = "0507" '黄南 5.7
tempArr = Split(findData(sid), "|")
Form1.Text8(27).Text = tempArr(0)
Form1.Text8(28).Text = Abs(tempArr(1))
Form1.Text8(29).Text = tempArr(2)

'康驿镇===
sid = "0b01" '寨子村 11.1
tempArr = Split(findData(sid), "|")
Form1.Text9(0).Text = tempArr(0)
Form1.Text9(1).Text = Abs(tempArr(1))
Form1.Text9(2).Text = tempArr(2)

sid = "0305" '周庄村 3.5
tempArr = Split(findData(sid), "|")
Form1.Text9(3).Text = tempArr(0)
Form1.Text9(4).Text = Abs(tempArr(1))
Form1.Text9(5).Text = tempArr(2)

sid = "0c01" '黄庄村 12.1
tempArr = Split(findData(sid), "|")
Form1.Text9(6).Text = tempArr(0)
Form1.Text9(7).Text = Abs(tempArr(1))
Form1.Text9(8).Text = tempArr(2)

sid = "0505" '东唐村 5.5
tempArr = Split(findData(sid), "|")
Form1.Text9(9).Text = tempArr(0)
Form1.Text9(10).Text = Abs(tempArr(1))
Form1.Text9(11).Text = tempArr(2)

sid = "0901" '西唐村 9.1
tempArr = Split(findData(sid), "|")
Form1.Text9(12).Text = tempArr(0)
Form1.Text9(13).Text = Abs(tempArr(1))
Form1.Text9(14).Text = tempArr(2)

sid = "0201" '辛庄村 2.1
tempArr = Split(findData(sid), "|")
Form1.Text9(15).Text = tempArr(0)
Form1.Text9(16).Text = Abs(tempArr(1))
Form1.Text9(17).Text = tempArr(2)

sid = "0602" '李集村 6.2
tempArr = Split(findData(sid), "|")
Form1.Text9(18).Text = tempArr(0)
Form1.Text9(19).Text = Abs(tempArr(1))
Form1.Text9(20).Text = tempArr(2)

sid = "0502" '康庄村 5.2
tempArr = Split(findData(sid), "|")
Form1.Text9(21).Text = tempArr(0)
Form1.Text9(22).Text = Abs(tempArr(1))
Form1.Text9(23).Text = tempArr(2)

sid = "0206" '薛庙村 2.6
tempArr = Split(findData(sid), "|")
Form1.Text9(24).Text = tempArr(0)
Form1.Text9(25).Text = Abs(tempArr(1))
Form1.Text9(26).Text = tempArr(2)

sid = "0605" '前王村 6.5
tempArr = Split(findData(sid), "|")
Form1.Text9(27).Text = tempArr(0)
Form1.Text9(28).Text = Abs(tempArr(1))
Form1.Text9(29).Text = tempArr(2)

sid = "0e06" '麻窝村 14.6
tempArr = Split(findData(sid), "|")
Form1.Text9(30).Text = tempArr(0)
Form1.Text9(31).Text = Abs(tempArr(1))
Form1.Text9(32).Text = tempArr(2)

sid = "0d02" '前赵村 13.2
tempArr = Split(findData(sid), "|")
Form1.Text9(33).Text = tempArr(0)
Form1.Text9(34).Text = Abs(tempArr(1))
Form1.Text9(35).Text = tempArr(2)

sid = "0701" '刘王村 7.1
tempArr = Split(findData(sid), "|")
Form1.Text9(36).Text = tempArr(0)
Form1.Text9(37).Text = Abs(tempArr(1))
Form1.Text9(38).Text = tempArr(2)

sid = "0806" '前石村 8.6
tempArr = Split(findData(sid), "|")
Form1.Text9(39).Text = tempArr(0)
Form1.Text9(40).Text = Abs(tempArr(1))
Form1.Text9(41).Text = tempArr(2)

sid = "0105" '前徐村 1.5
tempArr = Split(findData(sid), "|")
Form1.Text9(42).Text = tempArr(0)
Form1.Text9(43).Text = Abs(tempArr(1))
Form1.Text9(44).Text = tempArr(2)

sid = "0c06" '董庄村 12.6
tempArr = Split(findData(sid), "|")
Form1.Text9(45).Text = tempArr(0)
Form1.Text9(46).Text = Abs(tempArr(1))
Form1.Text9(47).Text = tempArr(2)

sid = "0203" '后石村 2.3
tempArr = Split(findData(sid), "|")
Form1.Text9(48).Text = tempArr(0)
Form1.Text9(49).Text = Abs(tempArr(1))
Form1.Text9(50).Text = tempArr(2)

sid = "0e05" '袁庄村 14.5
tempArr = Split(findData(sid), "|")
Form1.Text9(51).Text = tempArr(0)
Form1.Text9(52).Text = Abs(tempArr(1))
Form1.Text9(53).Text = tempArr(2)

sid = "0601" '付沟村 6.1
tempArr = Split(findData(sid), "|")
Form1.Text9(54).Text = tempArr(0)
Form1.Text9(55).Text = Abs(tempArr(1))
Form1.Text9(56).Text = tempArr(2)

sid = "0402" '英张村 4.2
tempArr = Split(findData(sid), "|")
Form1.Text9(57).Text = tempArr(0)
Form1.Text9(58).Text = Abs(tempArr(1))
Form1.Text9(59).Text = tempArr(2)

sid = "0805" '胡庄村 8.5
tempArr = Split(findData(sid), "|")
Form1.Text9(60).Text = tempArr(0)
Form1.Text9(61).Text = Abs(tempArr(1))
Form1.Text9(62).Text = tempArr(2)

sid = "0306" '三十里铺村 3.6
tempArr = Split(findData(sid), "|")
Form1.Text9(63).Text = tempArr(0)
Form1.Text9(64).Text = Abs(tempArr(1))
Form1.Text9(65).Text = tempArr(2)

sid = "0c02" '李庄村 12.2
tempArr = Split(findData(sid), "|")
Form1.Text9(66).Text = tempArr(0)
Form1.Text9(67).Text = Abs(tempArr(1))
Form1.Text9(68).Text = tempArr(2)

sid = "0802" '范街村 8.2
tempArr = Split(findData(sid), "|")
Form1.Text9(69).Text = tempArr(0)
Form1.Text9(70).Text = Abs(tempArr(1))
Form1.Text9(71).Text = tempArr(2)


'次丘镇===
sid = "1009" '高庄村 16.9
tempArr = Split(findData(sid), "|")
Form1.Text10(0).Text = tempArr(0)
Form1.Text10(1).Text = Abs(tempArr(1))
Form1.Text10(2).Text = tempArr(2)

sid = "0608" '田庄村 6.9
tempArr = Split(findData(sid), "|")
Form1.Text10(3).Text = tempArr(0)
Form1.Text10(4).Text = Abs(tempArr(1))
Form1.Text10(5).Text = tempArr(2)

sid = "1609" '伏村集 22.9
tempArr = Split(findData(sid), "|")
Form1.Text10(6).Text = tempArr(0)
Form1.Text10(7).Text = Abs(tempArr(1))
Form1.Text10(8).Text = tempArr(2)

sid = "040b" '李卫村 4.11
tempArr = Split(findData(sid), "|")
Form1.Text10(9).Text = tempArr(0)
Form1.Text10(10).Text = Abs(tempArr(1))
Form1.Text10(11).Text = tempArr(2)

sid = "1209" '李太口 18.9
tempArr = Split(findData(sid), "|")
Form1.Text10(12).Text = tempArr(0)
Form1.Text10(13).Text = Abs(tempArr(1))
Form1.Text10(14).Text = tempArr(2)

sid = "080b" '王口 8.11
tempArr = Split(findData(sid), "|")
Form1.Text10(15).Text = tempArr(0)
Form1.Text10(16).Text = Abs(tempArr(1))
Form1.Text10(17).Text = tempArr(2)

sid = "1309" '栓庄 19.9
tempArr = Split(findData(sid), "|")
Form1.Text10(18).Text = tempArr(0)
Form1.Text10(19).Text = Abs(tempArr(1))
Form1.Text10(20).Text = tempArr(2)

sid = "0709" '伊海 7.9
tempArr = Split(findData(sid), "|")
Form1.Text10(21).Text = tempArr(0)
Form1.Text10(22).Text = Abs(tempArr(1))
Form1.Text10(23).Text = tempArr(2)

sid = "0c09" '战湾 12.9
tempArr = Split(findData(sid), "|")
Form1.Text10(24).Text = tempArr(0)
Form1.Text10(25).Text = Abs(tempArr(1))
Form1.Text10(26).Text = tempArr(2)

sid = "0407" '高里 4.7
tempArr = Split(findData(sid), "|")
Form1.Text10(27).Text = tempArr(0)
Form1.Text10(28).Text = Abs(tempArr(1))
Form1.Text10(29).Text = tempArr(2)

'刘楼乡====
sid = "030a" '梁村 3.10
tempArr = Split(findData(sid), "|")
Form1.Text11(0).Text = tempArr(0)
Form1.Text11(1).Text = Abs(tempArr(1))
Form1.Text11(2).Text = tempArr(2)

sid = "1809" ' 牛村 24.9
tempArr = Split(findData(sid), "|")
Form1.Text11(3).Text = tempArr(0)
Form1.Text11(4).Text = Abs(tempArr(1))
Form1.Text11(5).Text = tempArr(2)

sid = "1109" '邵街 17.9
tempArr = Split(findData(sid), "|")
Form1.Text11(6).Text = tempArr(0)
Form1.Text11(7).Text = Abs(tempArr(1))
Form1.Text11(8).Text = tempArr(2)

sid = "0109" '前岗 1.9
tempArr = Split(findData(sid), "|")
Form1.Text11(9).Text = tempArr(0)
Form1.Text11(10).Text = Abs(tempArr(1))
Form1.Text11(11).Text = tempArr(2)

sid = "090a" '鲍楼 9.10
tempArr = Split(findData(sid), "|")
Form1.Text11(12).Text = tempArr(0)
Form1.Text11(13).Text = Abs(tempArr(1))
Form1.Text11(14).Text = tempArr(2)

sid = "0509" '天庙 5.9
tempArr = Split(findData(sid), "|")
Form1.Text11(15).Text = tempArr(0)
Form1.Text11(16).Text = Abs(tempArr(1))
Form1.Text11(17).Text = tempArr(2)

sid = "0e09" '苑村 14.9
tempArr = Split(findData(sid), "|")
Form1.Text11(18).Text = tempArr(0)
Form1.Text11(19).Text = Abs(tempArr(1))
Form1.Text11(20).Text = tempArr(2)

sid = "020b" '徐老庄 2.11
tempArr = Split(findData(sid), "|")
Form1.Text11(21).Text = tempArr(0)
Form1.Text11(22).Text = Abs(tempArr(1))
Form1.Text11(23).Text = tempArr(2)

sid = "0908" '李大庄 9.8
tempArr = Split(findData(sid), "|")
Form1.Text11(24).Text = tempArr(0)
Form1.Text11(25).Text = Abs(tempArr(1))
Form1.Text11(26).Text = tempArr(2)

sid = "030c" '大坝口 3.12
tempArr = Split(findData(sid), "|")
Form1.Text11(27).Text = tempArr(0)
Form1.Text11(28).Text = Abs(tempArr(1))
Form1.Text11(29).Text = tempArr(2)

sid = "0809" '罗庄 8.9
tempArr = Split(findData(sid), "|")
Form1.Text11(30).Text = tempArr(0)
Form1.Text11(31).Text = Abs(tempArr(1))
Form1.Text11(32).Text = tempArr(2)

sid = "030c" '小坝口 3.12
tempArr = Split(findData(sid), "|")
Form1.Text11(33).Text = tempArr(0)
Form1.Text11(34).Text = Abs(tempArr(1))
Form1.Text11(35).Text = tempArr(2)

'义桥乡===
sid = "0406" '徐村 4.6
tempArr = Split(findData(sid), "|")
Form1.Text12(0).Text = tempArr(0)
Form1.Text12(1).Text = Abs(tempArr(1))
Form1.Text12(2).Text = tempArr(2)

sid = "0302" '房村 3.2
tempArr = Split(findData(sid), "|")
Form1.Text12(3).Text = tempArr(0)
Form1.Text12(4).Text = Abs(tempArr(1))
Form1.Text12(5).Text = tempArr(2)

sid = "0801" '柳村 8.1
tempArr = Split(findData(sid), "|")
Form1.Text12(6).Text = tempArr(0)
Form1.Text12(7).Text = Abs(tempArr(1))
Form1.Text12(8).Text = tempArr(2)

sid = "0103" '完庄 1.3
tempArr = Split(findData(sid), "|")
Form1.Text12(9).Text = tempArr(0)
Form1.Text12(10).Text = Abs(tempArr(1))
Form1.Text12(11).Text = tempArr(2)

sid = "0a02" '沙庄 10.2
tempArr = Split(findData(sid), "|")
Form1.Text12(12).Text = tempArr(0)
Form1.Text12(13).Text = Abs(tempArr(1))
Form1.Text12(14).Text = tempArr(2)

sid = "0204" '古路沟 2.4
tempArr = Split(findData(sid), "|")
Form1.Text12(15).Text = tempArr(0)
Form1.Text12(16).Text = Abs(tempArr(1))
Form1.Text12(17).Text = tempArr(2)

'以下供水站 ============================================
'说明：可能有些站没有数据，造成以下程序执行异常，此处对异常不做记录
'参照下面的语句完成其他站点的程序，参照“对应表”
 '康驿
sid = "2" '
tempArr = Split(findData1(sid), "|")
Form1.Text17(0).Text = tempArr(0)
Form1.Text17(1).Text = tempArr(1)
Form1.Text17(2).Text = tempArr(2)
Form1.Text17(3).Text = tempArr(3)
Form1.Text17(4).Text = tempArr(4)
Form1.Text17(5).Text = tempArr(5)