📄 form1.frm
字号:
MaxLength = 12
TabIndex = 54
Top = 360
Width = 2175
End
Begin VB.CommandButton Command18
Caption = "修改"
Height = 375
Left = 4320
TabIndex = 44
Top = 720
Width = 1215
End
Begin VB.TextBox edNewCardPW
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
IMEMode = 3 'DISABLE
Left = 840
MaxLength = 12
TabIndex = 42
Top = 720
Width = 2175
End
Begin VB.Label Label14
Caption = "指定扇区"
Height = 255
Left = 3360
TabIndex = 57
Top = 360
Width = 855
End
Begin VB.Label Label9
Caption = "原密码"
Height = 255
Index = 1
Left = 120
TabIndex = 55
Top = 360
Width = 615
End
Begin VB.Label Label9
Caption = "新密码"
Height = 255
Index = 0
Left = 120
TabIndex = 43
Top = 720
Width = 615
End
End
Begin VB.CommandButton btnClockPW
Caption = "设备密码"
Height = 375
Left = -74640
TabIndex = 40
Top = 840
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "数据文本文件"
Height = 375
Left = 360
TabIndex = 30
Top = 3120
Width = 1335
End
Begin VB.CheckBox Check1
Caption = "读完后清空设备上数据"
Enabled = 0 'False
Height = 375
Left = 360
TabIndex = 29
Top = 4560
Width = 2175
End
Begin VB.CommandButton Command1
Caption = "批量读数据"
Height = 375
Left = 360
TabIndex = 28
Top = 2160
Width = 1335
End
Begin VB.CommandButton Command3
Caption = "清空数据列表"
Height = 375
Left = 360
TabIndex = 27
Top = 2640
Width = 1335
End
Begin VB.CommandButton Command5
Caption = "退出"
Height = 375
Left = 1800
TabIndex = 26
Top = 3120
Width = 1335
End
Begin VB.CommandButton Command6
Caption = "打开数据文件"
Height = 375
Left = 1800
TabIndex = 25
Top = 2640
Width = 1335
End
Begin VB.ListBox List1
Height = 1680
Left = 3240
TabIndex = 24
Top = 1200
Width = 4095
End
Begin VB.CommandButton Command7
Caption = "读卡序列号"
Height = 375
Left = 1800
TabIndex = 23
Top = 1680
Width = 1335
End
Begin VB.TextBox Text1
Height = 285
Left = 720
TabIndex = 22
Text = "01"
Top = 480
Width = 375
End
Begin VB.TextBox Text2
Height = 285
Left = 1680
TabIndex = 21
Text = "1"
Top = 480
Width = 375
End
Begin VB.TextBox bRate
Height = 285
Left = 2760
TabIndex = 20
Text = "9600"
Top = 480
Width = 615
End
Begin VB.CommandButton Command8
Caption = "读时间"
Height = 375
Left = 360
TabIndex = 19
Top = 1200
Width = 1335
End
Begin VB.CommandButton Command9
Caption = "设置时间"
Height = 375
Left = 1800
TabIndex = 18
Top = 1200
Width = 1335
End
Begin VB.CommandButton Command10
Caption = "修改机号"
Height = 375
Left = 360
TabIndex = 17
Top = 1680
Width = 1335
End
Begin VB.TextBox Text4
Height = 285
Left = 4080
TabIndex = 16
Text = "01"
Top = 480
Width = 615
End
Begin VB.CommandButton Command11
Caption = "清除数据"
Height = 375
Left = 1800
TabIndex = 15
Top = 2160
Width = 1335
End
Begin VB.TextBox Text5
Height = 375
Left = 360
TabIndex = 14
Top = 5280
Width = 6975
End
Begin VB.CommandButton Command4
Caption = "下载白名单"
Height = 375
Left = 360
TabIndex = 13
Top = 3600
Width = 1095
End
Begin VB.CommandButton Command12
Caption = "下载黑名单"
Height = 375
Left = 360
TabIndex = 12
Top = 4080
Width = 1095
End
Begin VB.CommandButton Command13
Caption = "删除白名单"
Height = 375
Left = 1560
TabIndex = 11
Top = 3600
Width = 1095
End
Begin VB.CommandButton Command14
Caption = "删除黑名单"
Height = 375
Left = 1560
TabIndex = 10
Top = 4080
Width = 1095
End
Begin VB.CommandButton Command15
Caption = "清空白名单"
Height = 375
Left = 2760
TabIndex = 9
Top = 3600
Width = 1095
End
Begin VB.CommandButton Command16
Caption = "清空黑名单"
Height = 375
Left = 2760
TabIndex = 8
Top = 4080
Width = 1095
End
Begin VB.TextBox edCardName
Height = 285
Left = 1440
TabIndex = 7
Top = 6480
Width = 1695
End
Begin VB.TextBox edCardId
Height = 285
Left = 1440
TabIndex = 6
Top = 6120
Width = 1695
End
Begin VB.TextBox edCardMoney
Height = 285
Left = 1440
TabIndex = 5
Top = 6840
Width = 1695
End
Begin VB.CommandButton btnReadCard
Caption = "读卡"
Height = 375
Left = 3480
TabIndex = 4
Top = 6480
Width = 1215
End
Begin VB.CommandButton btnWriteCard
Caption = "写卡"
Height = 375
Left = 3480
TabIndex = 3
Top = 6960
Width = 1215
End
Begin VB.TextBox edCardTimes
Height = 285
Left = 1440
TabIndex = 2
Top = 7200
Width = 1695
End
Begin VB.ComboBox cbCardStyle
Height = 315
ItemData = "Form1.frx":0122
Left = 1440
List = "Form1.frx":012F
Style = 2 'Dropdown List
TabIndex = 0
Top = 5760
Width = 2295
End
Begin VB.Label Label20
Caption = "端口"
Height = 255
Left = 2280
TabIndex = 79
Top = 840
Width = 375
End
Begin VB.Label Label19
Caption = "IP地址"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 78
Top = 840
Width = 615
End
Begin VB.Label Label15
Caption = "Label15"
Height = 255
Left = 360
TabIndex = 63
Top = 4920
Width = 4815
End
Begin VB.Label Label1
Caption = "机号"
Height = 255
Left = 360
TabIndex = 39
Top = 480
Width = 375
End
Begin VB.Label Label2
Caption = "端口"
Height = 255
Left = 1200
TabIndex = 38
Top = 480
Width = 375
End
Begin VB.Label Label3
Caption = "波特率"
Height = 255
Left = 2160
TabIndex = 37
Top = 480
Width = 615
End
Begin VB.Label Label4
Caption = "新机号"
Height = 255
Left = 3480
TabIndex = 36
Top = 480
Width = 615
End
Begin VB.Label Label5
Caption = "卡号"
Height = 255
Index = 0
Left = 480
TabIndex = 35
Top = 6120
Width = 855
End
Begin VB.Label Label6
Caption = "姓名"
Height = 255
Left = 480
TabIndex = 34
Top = 6480
Width = 855
End
Begin VB.Label Label7
Caption = "金额"
Height = 255
Left = 480
TabIndex = 33
Top = 6840
Width = 855
End
Begin VB.Label Label8
Caption = "充值次数"
Height = 255
Left = 480
TabIndex = 32
Top = 7200
Width = 855
End
Begin VB.Label lbCardStyle
Caption = "卡号格式"
Height = 255
Index = 0
Left = 360
TabIndex = 31
Top = 5760
Width = 975
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/03/08
'描 述：标准太平洋IC考勤机开发读写数据示例
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit
Public IFlag As Boolean
Public RCount As Integer
Public FileName As String
Private Type TLine
card As String
EmpId As String
TimeStr As String
Mark As Byte
flag As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -