📄 frm1_ljcs.frm
字号:
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 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 = 14
Text = "Text6"
Top = 2520
Visible = 0 'False
Width = 975
End
Begin VB.TextBox Text21
Height = 270
Left = 3720
TabIndex = 13
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text22
Height = 270
Left = 3360
TabIndex = 12
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text23
Height = 270
Left = 3000
TabIndex = 11
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text24
Height = 270
Left = 2640
TabIndex = 10
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text25
Height = 270
Left = 2280
TabIndex = 9
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text26
Height = 270
Left = 1920
TabIndex = 8
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text27
Height = 270
Left = 1560
TabIndex = 7
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 = 2775
Left = 120
TabIndex = 15
Top = 240
Width = 6975
_ExtentX = 12303
_ExtentY = 4895
_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 = 4
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
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 1620.284
EndProperty
BeginProperty Column01
ColumnWidth = 1635.024
EndProperty
BeginProperty Column02
ColumnWidth = 1695.118
EndProperty
BeginProperty Column03
ColumnWidth = 1695.118
EndProperty
EndProperty
End
End
Begin VB.Frame Frame6
Caption = "通信状态"
ForeColor = &H000000C0&
Height = 615
Left = -70920
TabIndex = 2
Top = 360
Width = 3255
Begin VB.CommandButton Command3
Caption = "提 交"
Enabled = 0 'False
Height = 375
Left = 1320
TabIndex = 4
Top = 160
Width = 855
End
Begin VB.CommandButton Command6
Caption = "通信连接"
Height = 375
Left = 2160
TabIndex = 3
Top = 160
Width = 975
End
Begin VB.Label Label7
Caption = "等待通信…"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 120
TabIndex = 5
Top = 270
Width = 1215
End
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 405
Left = -72600
TabIndex = 1
Top = 480
Width = 1215
End
Begin VB.Label Label1
Caption = "输入一点位冲的水量："
Height = 255
Left = 480
TabIndex = 51
Top = 600
Width = 1935
End
Begin VB.Label Label2
Caption = "吨"
Height = 255
Left = 3720
TabIndex = 50
Top = 600
Width = 255
End
Begin VB.Label Label4
Caption = "输入二点位冲的水量："
Height = 255
Left = -74520
TabIndex = 49
Top = 600
Width = 1935
End
Begin VB.Label Label5
Caption = "吨"
Height = 255
Left = -71280
TabIndex = 48
Top = 600
Width = 255
End
Begin VB.Label Label8
Caption = "吨"
Height = 255
Left = -71280
TabIndex = 47
Top = 600
Width = 255
End
Begin VB.Label Label9
Caption = "输入三点位冲的水量："
Height = 255
Left = -74520
TabIndex = 46
Top = 600
Width = 1935
End
End
End
Attribute VB_Name = "frm1_ljcs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim shijian As Integer
Dim shijian2 As Integer
Dim shijian3 As Integer
Dim Strdata As String
Dim rq As String
Dim Strdata2 As String
Dim Strdata3 As String
Dim danjia As Single
Dim danjia2 As Single
Dim danjia3 As Single
Dim datatime As Date
Dim datatime2 As Date
Dim datatime3 As Date
Private Sub Command1_Click()
Dim d1 As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -