📄 frm_ydwsj.frm
字号:
End
Begin VB.OptionButton Option1
Caption = "阀 门 已 开 启"
Enabled = 0 'False
ForeColor = &H80000001&
Height = 255
Left = 480
TabIndex = 16
Top = 240
Width = 1815
End
End
Begin VB.TextBox Text7
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1320
TabIndex = 14
Top = 1320
Width = 1455
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6720
TabIndex = 12
Top = 720
Width = 1455
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3960
TabIndex = 10
Top = 720
Width = 1455
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1320
TabIndex = 8
Top = 720
Width = 1455
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6720
TabIndex = 6
Top = 240
Width = 1455
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3960
TabIndex = 4
Top = 240
Width = 1455
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00C0FFFF&
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1320
TabIndex = 2
Top = 240
Width = 1455
End
Begin VB.Label Label7
Caption = "剩余水量："
ForeColor = &H00000040&
Height = 255
Left = 360
TabIndex = 13
Top = 1440
Width = 975
End
Begin VB.Label Label6
Caption = "所余钱数："
ForeColor = &H00000040&
Height = 255
Left = 5640
TabIndex = 11
Top = 840
Width = 975
End
Begin VB.Label Label5
Caption = "单 价："
ForeColor = &H00000040&
Height = 255
Left = 3000
TabIndex = 9
Top = 840
Width = 975
End
Begin VB.Label Label4
Caption = "当前流量："
ForeColor = &H00000040&
Height = 255
Left = 360
TabIndex = 7
Top = 840
Width = 975
End
Begin VB.Label Label3
Caption = "总累计水量："
ForeColor = &H00000040&
Height = 255
Left = 5640
TabIndex = 5
Top = 360
Width = 1095
End
Begin VB.Label Label2
Caption = "当月吨数："
ForeColor = &H00000040&
Height = 255
Left = 3000
TabIndex = 3
Top = 360
Width = 975
End
Begin VB.Label Label1
Caption = "当前吨数："
ForeColor = &H00000040&
Height = 255
Left = 360
TabIndex = 1
Top = 360
Width = 975
End
End
End
Attribute VB_Name = "frm_ydwsj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim shijian As Integer
Dim Strdata As String
Dim danjia As Single
Dim rq As String
Private Sub Command5_Click()
Dim p As Integer
Dim h As Integer
If shijian = 0 Then
If MsgBox("是否确定执行该操作", vbYesNo, "确定") = vbYes Then
If tcpserver.State = sckConnected Then
tcpserver.SendData "#010000" & vbCr
shijian = 1
Timer1.Enabled = True
Else
MsgBox "通信处于异常状态.请从新运行程序"
End If
End If
For p = 0 To 20
h = h + 1
If h > 18 Then
h = 0
End If
Next p
Else
MsgBox "已有数据传输中.请等待"
End If
End Sub
Private Sub Form_Load()
tcpserver.Close
tcpserver.LocalPort = 2008
tcpserver.Listen
Adodc1.ConnectionString = PublicStr
rq = Date
Adodc1.RecordSource = "select * from sjcj where 日期 like '%" & rq & "%' and 点位编号=1"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub tcpserver_ConnectionRequest(ByVal requestID As Long)
If tcpserver.State <> sckClosed Then _
tcpserver.Close
tcpserver.Accept requestID
Text8.Text = tcpserver.RemoteHostIP
End Sub
Private Sub tcpserver_DataArrival(ByVal bytesTotal As Long)
tcpserver.GetData Strdata
Dim a(15) As Single
Dim b(15) As String
Dim X As String
If Len(Strdata) > 6 Then
X = Mid(Strdata, 2, 1)
If X = "v" Or X = "V" Then
Label8.Caption = "通信成功"
Command5.Enabled = True
Else
b(0) = Mid(Strdata, 5, 1)
b(1) = Mid(Strdata, 6, 1)
b(2) = Mid(Strdata, 7, 1)
b(3) = Mid(Strdata, 8, 1)
b(4) = Mid(Strdata, 9, 1)
b(5) = Mid(Strdata, 10, 1)
b(6) = Mid(Strdata, 11, 1)
b(7) = Mid(Strdata, 12, 1)
b(8) = Mid(Strdata, 13, 1)
b(9) = Mid(Strdata, 14, 1)
b(10) = Mid(Strdata, 15, 1)
b(11) = Mid(Strdata, 16, 1)
b(12) = Mid(Strdata, 17, 1)
b(13) = Mid(Strdata, 18, 1)
b(14) = Mid(Strdata, 19, 1)
a(0) = Asc(b(0))
a(1) = Asc(b(1))
a(2) = Asc(b(2))
a(3) = Asc(b(3))
a(4) = Asc(b(4))
a(5) = Asc(b(5))
a(6) = Asc(b(6))
a(7) = Asc(b(7))
a(8) = Asc(b(8))
a(9) = Asc(b(9))
a(10) = Asc(b(10))
a(11) = Asc(b(11))
a(12) = Asc(b(12))
a(13) = Asc(b(13))
a(14) = Asc(b(14))
Text1.Text = (a(0) * 128 + a(1)) / 10 '当前吨数
Text2.Text = a(2) * 128 + a(3) '当月吨数
Text3.Text = ((a(12) * 128 * 128) + (a(13) * 128) + a(14)) / 10 '总累计水量
Text4.Text = (a(6) * 128 + a(7)) / 10 '当前流量
danjia = (a(8) * 128 + a(9)) / 100 '单价
Text5.Text = danjia
Text6.Text = a(4) * 128 + a(5) '所余钱数
Text7.Text = (a(4) * 128 + a(5)) / ((a(8) * 128 + a(9)) / 100) '剩余水量
If a(10) = 0 Then
Option1.Value = True
Else
Option2.Value = True
End If
If a(11) = 0 Then
Option3.Value = True
Else
Option4.Value = True
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("点位编号") = Trim(1)
Adodc1.Recordset.Fields("单价") = Text5.Text
Adodc1.Recordset.Fields("当前吨数") = Text1.Text
Adodc1.Recordset.Fields("当前流量") = Text4.Text
Adodc1.Recordset.Fields("当月吨数") = Text2.Text
Adodc1.Recordset.Fields("总水量") = Text3.Text
Adodc1.Recordset.Fields("剩余水量") = Text7.Text
Adodc1.Recordset.Fields("剩余钱数") = Text6.Text
Adodc1.Recordset.Fields("时间") = Now()
Adodc1.Recordset.Fields("日期") = rq
If Option1.Value = True Then
Adodc1.Recordset.Fields("阀门状态") = "开"
Else
Adodc1.Recordset.Fields("阀门状态") = "关"
End If
If Option3.Value = True Then
Adodc1.Recordset.Fields("是否窃水") = "是"
Else
Adodc1.Recordset.Fields("是否窃水") = "否"
End If
Adodc1.Recordset.Update
End If
End If
End Sub
Private Sub Timer1_Timer()
shijian = 0
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
If tcpserver.State <> sckConnected Then
tcpserver.Close
tcpserver.LocalPort = 2008
tcpserver.Listen
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -