📄 frm_ztsz.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid2
Height = 3015
Left = 120
TabIndex = 20
Top = 240
Width = 6975
_ExtentX = 12303
_ExtentY = 5318
_Version = 393216
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 5
BeginProperty Column00
DataField = "时间"
Caption = " 修改时间"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "剩余钱数"
Caption = " 剩余钱数"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "剩余水量"
Caption = " 剩余水量"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "强制阀门"
Caption = " 强制阀门"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "水量清零"
Caption = " 水量清零"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 1349.858
EndProperty
BeginProperty Column01
ColumnWidth = 1365.165
EndProperty
BeginProperty Column02
ColumnWidth = 1260.284
EndProperty
BeginProperty Column03
ColumnWidth = 1319.811
EndProperty
BeginProperty Column04
ColumnWidth = 1349.858
EndProperty
EndProperty
End
End
Begin VB.Frame Frame5
Caption = "第三点位最近的状态修改记录"
ForeColor = &H00000040&
Height = 3375
Left = -74880
TabIndex = 1
Top = 2280
Width = 7215
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 10000
Left = 4800
Top = 2520
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
Height = 390
Left = 5280
TabIndex = 9
Text = "Text6"
Top = 2520
Visible = 0 'False
Width = 975
End
Begin VB.TextBox Text21
Height = 270
Left = 3720
TabIndex = 8
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text22
Height = 270
Left = 3360
TabIndex = 7
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text23
Height = 270
Left = 3000
TabIndex = 6
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text24
Height = 270
Left = 2640
TabIndex = 5
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text25
Height = 270
Left = 2280
TabIndex = 4
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text26
Height = 270
Left = 1920
TabIndex = 3
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text27
Height = 270
Left = 1560
TabIndex = 2
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin MSWinsockLib.Winsock Winsock3
Left = 6360
Top = 2520
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc3
Height = 330
Left = 240
Top = 2640
Visible = 0 'False
Width = 1215
_ExtentX = 2143
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid3
Height = 3015
Left = 120
TabIndex = 10
Top = 240
Width = 6975
_ExtentX = 12303
_ExtentY = 5318
_Version = 393216
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 5
BeginProperty Column00
DataField = "时间"
Caption = " 修改时间"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "剩余钱数"
Caption = " 剩余钱数"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "剩余水量"
Caption = " 剩余水量"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "强制阀门"
Caption = " 强制阀门"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "水量清零"
Caption = " 水量清零"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 1319.811
EndProperty
BeginProperty Column01
ColumnWidth = 1335.118
EndProperty
BeginProperty Column02
ColumnWidth = 1349.858
EndProperty
BeginProperty Column03
ColumnWidth = 1349.858
EndProperty
BeginProperty Column04
ColumnWidth = 1289.764
EndProperty
EndProperty
End
End
End
End
Attribute VB_Name = "frm_ztsz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rq As String
Dim Strdata As String
Dim Strdata2 As String
Dim Strdata3 As String
Dim Panduan As Integer
Dim shijian As Integer
Dim shijian2 As Integer
Dim Panduan2 As Integer
Private Sub Command1_Click()
If shijian = 0 Then
If MsgBox("是否确定执行该操作", vbYesNo, "确定") = vbYes Then
If Option1.Value = True Then
Winsock1.SendData "#01WE00" & vbCr
shijian = 1
Panduan = 1
Timer1.Enabled = True
Else
If Option2.Value = True Then
Winsock1.SendData "#01WENM" & vbCr
shijian = 1
Panduan = 1
Timer1.Enabled = True
End If
End If
End If
Else
MsgBox "已有数据传输中.请等待"
End If
End Sub
Private Sub Command2_Click()
If shijian = 0 Then
If MsgBox("是否确定执行该操作", vbYesNo, "确定") = vbYes Then
If Option6.Value = True Then
Winsock2.SendData "#01WE00" & vbCr
shijian2 = 1
Panduan2 = 1
Timer2.Enabled = True
Else
If Option5.Value = True Then
Winsock2.SendData "#01WENM" & vbCr
shijian2 = 1
Panduan2 = 1
Timer2.Enabled = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -