📄 frmdata.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form frmData
Caption = "数据采集"
ClientHeight = 6660
ClientLeft = 36
ClientTop = 456
ClientWidth = 11196
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6660
ScaleWidth = 11196
WindowState = 2 'Maximized
Begin VB.ListBox List1
BeginProperty Font
Name = "宋体"
Size = 6.6
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 576
Left = 7560
TabIndex = 10
Top = 6600
Visible = 0 'False
Width = 1452
End
Begin VB.Frame Frame2
Caption = "记录文件"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2772
Left = 240
TabIndex = 6
Top = 3360
Width = 8172
Begin VB.CommandButton Command3
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 370
Left = 6240
TabIndex = 9
Top = 960
Width = 1570
End
Begin VB.CommandButton Command2
Caption = "数据解包"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 370
Left = 6240
TabIndex = 8
Top = 480
Width = 1570
End
Begin VB.FileListBox File1
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2016
Left = 360
Pattern = "*.txt"
TabIndex = 7
Top = 480
Width = 5412
End
Begin VB.Label Lab1
BeginProperty Font
Name = "黑体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 370
Left = 6240
TabIndex = 12
Top = 2160
Width = 1570
End
End
Begin VB.Frame Frame1
Caption = "采集器功能选项"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2892
Left = 240
TabIndex = 0
Top = 240
Width = 8172
Begin VB.Frame Frame3
Height = 612
Left = 1800
TabIndex = 17
Top = 1320
Width = 3972
Begin VB.OptionButton Option4
Caption = "黑名单"
Height = 252
Left = 1920
TabIndex = 19
Top = 240
Width = 1212
End
Begin VB.OptionButton Option3
Caption = "白名单"
Height = 252
Left = 360
TabIndex = 18
Top = 240
Value = -1 'True
Width = 1092
End
End
Begin VB.CommandButton Command5
Caption = "下载名单"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 6240
TabIndex = 16
Top = 840
Width = 1572
End
Begin VB.OptionButton Option2
Caption = "门禁考勤机"
Height = 252
Left = 2520
TabIndex = 15
Top = 480
Value = -1 'True
Width = 1452
End
Begin VB.OptionButton Option1
Caption = "POS机"
Enabled = 0 'False
Height = 252
Left = 360
TabIndex = 14
Top = 480
Width = 1692
End
Begin VB.CommandButton Command4
BackColor = &H00000000&
Caption = "删除POS机记录"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 370
Left = 6240
TabIndex = 11
Top = 840
Width = 1580
End
Begin VB.CheckBox Check4
Caption = "删除采集器中的记录"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 250
Left = 360
TabIndex = 5
Top = 2400
Visible = 0 'False
Width = 2770
End
Begin VB.CommandButton Command1
Caption = "采集数据"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 370
Left = 6240
TabIndex = 4
Top = 360
Width = 1572
End
Begin VB.CheckBox Check3
Caption = "下载记录到PC机"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 250
Left = 360
TabIndex = 3
Top = 2040
Value = 1 'Checked
Width = 4090
End
Begin VB.CheckBox Check2
Caption = "下载名单"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 250
Left = 360
TabIndex = 2
Top = 1440
Value = 1 'Checked
Width = 1332
End
Begin VB.CheckBox Check1
Caption = "校对日期时间"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 370
Left = 360
TabIndex = 1
Top = 960
Value = 1 'Checked
Width = 2050
End
Begin MSCommLib.MSComm MSComm1
Left = 5040
Top = 240
_ExtentX = 995
_ExtentY = 995
_Version = 393216
DTREnable = -1 'True
OutBufferSize = 1024
BaudRate = 115200
InputMode = 1
End
Begin VB.Label Lab2
BeginProperty Font
Name = "黑体"
Size = 10.8
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 490
Left = 6240
TabIndex = 13
Top = 1560
Width = 1570
End
End
End
Attribute VB_Name = "frmData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private ReadStr As String
Dim stList As String
'Dim rsLen As Integer
'Dim rsSend As Integer
Dim DataHex() As Byte
Dim rs As New ADODB.Recordset
Dim pscard As New ADODB.Recordset
Dim n As Integer
Dim sttxt As String
Dim sttxt1 As String
Dim psTempPathFile1 As String
Dim psRecordID As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -