📄 frm_ljcs.frm
字号:
Width = 855
End
Begin VB.Label Label3
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 = 7
Top = 270
Width = 1215
End
End
Begin VB.TextBox Text1
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 = 2400
TabIndex = 4
Top = 480
Width = 1215
End
Begin VB.Frame Frame1
Caption = "最近冲钱的记录"
ForeColor = &H00000040&
Height = 3135
Left = 120
TabIndex = 2
Top = 960
Width = 7215
Begin VB.TextBox Text13
Height = 270
Left = 3720
TabIndex = 37
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text12
Height = 270
Left = 3360
TabIndex = 36
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text11
Height = 270
Left = 3000
TabIndex = 35
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text10
Height = 270
Left = 2640
TabIndex = 34
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text9
Height = 270
Left = 2280
TabIndex = 33
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text8
Height = 270
Left = 1920
TabIndex = 32
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.TextBox Text7
Height = 270
Left = 1560
TabIndex = 31
Text = "Text7"
Top = 2640
Visible = 0 'False
Width = 375
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 10000
Left = 5040
Top = 2520
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
Height = 390
Left = 5520
TabIndex = 28
Text = "Text4"
Top = 2520
Visible = 0 'False
Width = 975
End
Begin MSAdodcLib.Adodc Adodc1
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 DataGrid1
Height = 2775
Left = 120
TabIndex = 3
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 = 1665.071
EndProperty
BeginProperty Column01
ColumnWidth = 1665.071
EndProperty
BeginProperty Column02
ColumnWidth = 1665.071
EndProperty
BeginProperty Column03
ColumnWidth = 1649.764
EndProperty
EndProperty
End
End
Begin VB.Label Label9
Caption = "输入三点位冲的钱数："
Height = 255
Left = -74520
TabIndex = 24
Top = 600
Width = 1935
End
Begin VB.Label Label8
Caption = "元"
Height = 255
Left = -71280
TabIndex = 23
Top = 600
Width = 255
End
Begin VB.Label Label5
Caption = "元"
Height = 255
Left = -71280
TabIndex = 11
Top = 600
Width = 255
End
Begin VB.Label Label4
Caption = "输入二点位冲的钱数："
Height = 255
Left = -74520
TabIndex = 9
Top = 600
Width = 1935
End
Begin VB.Label Label2
Caption = "元"
Height = 255
Left = 3720
TabIndex = 5
Top = 600
Width = 255
End
Begin VB.Label Label1
Caption = "输入一点位冲的钱数："
Height = 255
Left = 480
TabIndex = 1
Top = 600
Width = 1935
End
End
End
Attribute VB_Name = "frm_ljcz"
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
Private Sub Command1_Click()
Dim d1 As Integer
Dim leijia1(2) As String
If shijian = 0 Then
If MsgBox("是否确定执行该操作", vbYesNo, "确定") = vbYes Then
d1 = Text1.Text
leijia1(0) = Chr(d1 \ 128)
leijia1(1) = Chr(d1 Mod 128)
Winsock1.SendData "#01WB" & leijia1(0) & leijia1(1) & vbCr
shijian = 1
Timer1.Enabled = True
End If
Else
MsgBox "已有数据传输中.请等待"
End If
End Sub
Private Sub Command2_Click()
Dim d2 As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -