select

Private Sub Combo1_Click()
On Error GoTo cw
Command1.Enabled = False
Adodc2.RecordSource = "select dizhi ,ybxinghao,ybbianhao,liangceng ,cuankou,bzbmc,bzbzqd from bzbiao where dizhi=" & "'" & Trim(Combo1.Text) & "'"
Adodc2.Refresh
bxinghao = Adodc2.Recordset.Fields("ybxinghao").Value
bbianhao = Adodc2.Recordset.Fields("ybbianhao").Value
bliangceng = Adodc2.Recordset.Fields("liangceng").Value
bcuankou = Val(Adodc2.Recordset.Fields("cuankou").Value)
bmc = Adodc2.Recordset.Fields("bzbmc").Value
bzqd = Adodc2.Recordset.Fields("bzbzqd").Value

 bdizhi = Trim(Combo1.Text)

 If MSComm1.PortOpen = True Then
        MSComm1.PortOpen = False
 End If
 yanshi
 yanshi
 MSComm1.CommPort = bcuankou
 
 If MSComm1.PortOpen = False Then
     MSComm1.PortOpen = True
 End If
qucanshu
cw:
End Sub

Private Sub Command1_Click()
'mybzbmc, mybzbxh, mybzbzqd, mybzbbh

If MSComm1.PortOpen = True Then
  MSComm1.PortOpen = False
End If
Unload Form10
Form5.Show
End Sub



Private Sub Command2_Click()

End Sub

Private Sub Form_Activate()
'Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cansu.mdb;Persist Security Info=False"
'Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cansu.mdb;Persist Security Info=False"
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=" + datapass + ";Persist Security Info=True;User ID=" + datauser + ";Initial Catalog=" + dataname + ";Data Source=" + dataip
Adodc2.ConnectionString = "Provider=SQLOLEDB.1;Password=" + datapass + ";Persist Security Info=True;User ID=" + datauser + ";Initial Catalog=" + dataname + ";Data Source=" + dataip

Adodc1.RecordSource = "select dizhi as 标准表表址,ybxinghao as 标准表型号,ybbianhao as 标准表编号,liangceng as 标准表量程,cuankou as 通讯串口,bzbmc as 标准表名称,bzbzqd as 标准表准确度 from bzbiao order by dizhi"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
    Combo1.AddItem Adodc1.Recordset.Fields("标准表表址").Value
    Adodc1.Recordset.MoveNext
Loop
Command1.Enabled = False
End Sub

Private Sub qucanshu()
'取编号
If bxinghao = "CST2003" Or bxinghao = "cst2003" Then
   MSComm1.Output = Trim(bdizhi) & ":R:OCODE:" & Chr(0)
   yanshi
   Text1.Text = Mid$(MSComm1.Input, 13, 12)
ElseIf bxinghao = "CST2008" Or bxinghao = "cst2008" Then
   MSComm1.Output = Trim(bdizhi) & ":R:ONUM:" & Chr(0)
   yanshi
   Text1.Text = Mid$(MSComm1.Input, 12, 12)
End If


'取型号

MSComm1.Output = Trim(bdizhi) & ":R:OTYPE:" & Chr(0)
yanshi
Text2.Text = Trim(Mid$(MSComm1.Input, 13, 7))
yanshi

'取量程

MSComm1.Output = Trim(bdizhi) & ":R:ORAN:" & Chr(0)
yanshi
If bxinghao = "CST2003" Or bxinghao = "cst2003" Then
   Text3.Text = Trim(Mid$(MSComm1.Input, 25, 12))
ElseIf bxinghao = "CST2008" Or bxinghao = "cst2008" Then
   lccs$ = MSComm1.Input
   Text3.Text = Trim(Mid$(lccs$, 14, 8)) + Mid$(lccs$, 36, 3)
End If
yanshi

'取压力数据

MSComm1.Output = Trim(bdizhi) & ":R:MRMD:" & Chr(0)
yanshi
dd$ = MSComm1.Input
If bxinghao = "CST2003" Or bxinghao = "cst2003" Then

'Text5.Text = Len(dd$)
'Text6.Text = InStr(dd$, "PA")
   Text4.Text = Trim(Mid$(dd$, 12, 12))
ElseIf bxinghao = "CST2008" Or bxinghao = "cst2008" Then
'Text5.Text = Len(dd$)
'Text6.Text = InStr(dd$, "PA")
   Text4.Text = Trim(Mid$(dd$, 16, 11))
End If

'判断编号是否正确
If Trim(Text1.Text) = Trim(bbianhao) Then
   Command1.Enabled = True
Else
   Command1.Enabled = False
End If

End Sub

Private Sub yanshi()
Dim www As Double
Dim i As Double
www = 0
For i = 1 To 9000000
www = www + 1
Next
www = 0
For i = 1 To 9000000
www = www + 1
Next

End Sub