📄 form1.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form Form1
Caption = "标准太平洋IC考勤机开发读写数据示例"
ClientHeight = 8235
ClientLeft = 795
ClientTop = 375
ClientWidth = 8865
LinkTopic = "Form1"
ScaleHeight = 8235
ScaleWidth = 8865
Begin TabDlg.SSTab SSTab
Height = 7575
Left = 105
TabIndex = 1
Top = 0
Width = 8775
_ExtentX = 15478
_ExtentY = 13361
_Version = 393216
Style = 1
Tabs = 2
TabHeight = 520
TabCaption(0) = "基本操作"
TabPicture(0) = "Form1.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "lbCardStyle(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label8"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label7"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label6"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label5(0)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label4"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label3"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label2"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label1"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Label15"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Label19"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Label20"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "cbCardStyle"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "edCardTimes"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "btnWriteCard"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "btnReadCard"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "edCardMoney"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "edCardId"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "edCardName"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "Command16"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "Command15"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "Command14"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "Command13"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "Command12"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "Command4"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "Text5"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "Command11"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).Control(27)= "Text4"
Tab(0).Control(27).Enabled= 0 'False
Tab(0).Control(28)= "Command10"
Tab(0).Control(28).Enabled= 0 'False
Tab(0).Control(29)= "Command9"
Tab(0).Control(29).Enabled= 0 'False
Tab(0).Control(30)= "Command8"
Tab(0).Control(30).Enabled= 0 'False
Tab(0).Control(31)= "bRate"
Tab(0).Control(31).Enabled= 0 'False
Tab(0).Control(32)= "Text2"
Tab(0).Control(32).Enabled= 0 'False
Tab(0).Control(33)= "Text1"
Tab(0).Control(33).Enabled= 0 'False
Tab(0).Control(34)= "Command7"
Tab(0).Control(34).Enabled= 0 'False
Tab(0).Control(35)= "List1"
Tab(0).Control(35).Enabled= 0 'False
Tab(0).Control(36)= "Command6"
Tab(0).Control(36).Enabled= 0 'False
Tab(0).Control(37)= "Command5"
Tab(0).Control(37).Enabled= 0 'False
Tab(0).Control(38)= "Command3"
Tab(0).Control(38).Enabled= 0 'False
Tab(0).Control(39)= "Command1"
Tab(0).Control(39).Enabled= 0 'False
Tab(0).Control(40)= "Check1"
Tab(0).Control(40).Enabled= 0 'False
Tab(0).Control(41)= "Command2"
Tab(0).Control(41).Enabled= 0 'False
Tab(0).Control(42)= "cmd_readshowmsg"
Tab(0).Control(42).Enabled= 0 'False
Tab(0).Control(43)= "TextBlock"
Tab(0).Control(43).Enabled= 0 'False
Tab(0).Control(44)= "cmd_writemsg"
Tab(0).Control(44).Enabled= 0 'False
Tab(0).Control(45)= "Command17"
Tab(0).Control(45).Enabled= 0 'False
Tab(0).Control(46)= "Command20"
Tab(0).Control(46).Enabled= 0 'False
Tab(0).Control(47)= "CommonDialog1"
Tab(0).Control(47).Enabled= 0 'False
Tab(0).Control(48)= "List2"
Tab(0).Control(48).Enabled= 0 'False
Tab(0).Control(49)= "Command23"
Tab(0).Control(49).Enabled= 0 'False
Tab(0).Control(50)= "Command24"
Tab(0).Control(50).Enabled= 0 'False
Tab(0).Control(51)= "Command21"
Tab(0).Control(51).Enabled= 0 'False
Tab(0).Control(52)= "Command22"
Tab(0).Control(52).Enabled= 0 'False
Tab(0).Control(53)= "Command26"
Tab(0).Control(53).Enabled= 0 'False
Tab(0).Control(54)= "ipAddr"
Tab(0).Control(54).Enabled= 0 'False
Tab(0).Control(55)= "ipPort"
Tab(0).Control(55).Enabled= 0 'False
Tab(0).Control(56)= "Command27"
Tab(0).Control(56).Enabled= 0 'False
Tab(0).Control(57)= "Command28"
Tab(0).Control(57).Enabled= 0 'False
Tab(0).ControlCount= 58
TabCaption(1) = "设备管理"
TabPicture(1) = "Form1.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame4"
Tab(1).Control(1)= "Frame2"
Tab(1).Control(2)= "Frame1"
Tab(1).Control(3)= "btnClockPW"
Tab(1).ControlCount= 4
Begin VB.CommandButton Command28
Caption = "检查白名单"
Height = 375
Left = 3960
TabIndex = 82
Top = 3600
Width = 1095
End
Begin VB.CommandButton Command27
Caption = "扩展批读数据"
Height = 375
Left = 4800
TabIndex = 81
Top = 480
Width = 1575
End
Begin VB.TextBox ipPort
Height = 285
Left = 2760
TabIndex = 80
Text = "8000"
Top = 840
Width = 615
End
Begin VB.TextBox ipAddr
Height = 285
Left = 720
TabIndex = 77
Text = "192.168.23.199"
Top = 840
Width = 1335
End
Begin VB.CommandButton Command26
Caption = "TCP/IP测试读时间"
Height = 375
Left = 4920
TabIndex = 76
Top = 4560
Width = 2535
End
Begin VB.CommandButton Command22
Caption = "扩展写卡"
Height = 375
Left = 4800
TabIndex = 75
Top = 6960
Width = 1095
End
Begin VB.CommandButton Command21
Caption = "扩展读卡"
Height = 375
Left = 4800
TabIndex = 74
Top = 6480
Width = 1095
End
Begin VB.Frame Frame4
Caption = "发送通知"
Height = 2295
Left = -74640
TabIndex = 67
Top = 4080
Width = 4575
Begin VB.TextBox Text7
Height = 375
Left = 960
TabIndex = 73
Top = 360
Width = 3495
End
Begin VB.TextBox Text6
Height = 375
Left = 960
TabIndex = 70
Text = "1"
Top = 960
Width = 975
End
Begin VB.CommandButton Command25
Caption = "发送"
Height = 375
Left = 600
TabIndex = 68
Top = 1680
Width = 930
End
Begin VB.Label Label18
Caption = "发送内容"
Height = 495
Left = 120
TabIndex = 72
Top = 480
Width = 735
End
Begin VB.Label Label17
Caption = "天"
Height = 255
Left = 2160
TabIndex = 71
Top = 1080
Width = 495
End
Begin VB.Label Label16
Caption = "保 留"
Height = 255
Left = 240
TabIndex = 69
Top = 1080
Width = 615
End
End
Begin VB.CommandButton Command24
Caption = "停止"
Height = 375
Left = 3720
TabIndex = 66
Top = 4560
Width = 1095
End
Begin VB.CommandButton Command23
Caption = "实时采集"
Height = 375
Left = 2520
TabIndex = 65
Top = 4560
Width = 1095
End
Begin VB.ListBox List2
Height = 1320
Left = 7440
TabIndex = 64
Top = 1320
Width = 1215
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4080
Top = 5760
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command20
Caption = "载入文件"
Height = 375
Left = 3240
TabIndex = 62
Top = 3120
Width = 975
End
Begin VB.CommandButton Command17
Caption = "实时读卡"
Height = 375
Left = 7440
TabIndex = 61
Top = 840
Width = 1215
End
Begin VB.CommandButton cmd_writemsg
Caption = "写块内容"
Height = 375
Left = 6240
TabIndex = 60
Top = 3960
Width = 1095
End
Begin VB.TextBox TextBlock
Height = 285
Left = 7320
TabIndex = 59
Text = "0"
Top = 3480
Width = 375
End
Begin VB.CommandButton cmd_readshowmsg
Caption = "读取块内容"
Height = 375
Left = 6240
TabIndex = 58
Top = 3480
Width = 1095
End
Begin VB.Frame Frame2
Caption = "下传补贴"
Height = 975
Left = -74640
TabIndex = 45
Top = 1560
Width = 6255
Begin VB.ComboBox AcbCardStyle
Height = 315
ItemData = "Form1.frx":0038
Left = 120
List = "Form1.frx":0045
TabIndex = 52
Top = 600
Width = 1215
End
Begin VB.TextBox txValue
Height = 285
Left = 2760
TabIndex = 50
Text = "0.0"
Top = 600
Width = 1335
End
Begin VB.TextBox txCard
Height = 285
Left = 1320
TabIndex = 47
Top = 600
Width = 1335
End
Begin VB.CommandButton Command19
Caption = "下传补贴"
Height = 375
Left = 5040
TabIndex = 46
Top = 360
Width = 1095
End
Begin VB.Label Label13
Caption = "单位为元"
Height = 255
Left = 4200
TabIndex = 53
Top = 600
Width = 855
End
Begin VB.Label Label12
Caption = "卡号格式"
Height = 255
Left = 120
TabIndex = 51
Top = 240
Width = 1095
End
Begin VB.Label Label11
Caption = "金额"
Height = 255
Left = 3120
TabIndex = 49
Top = 240
Width = 735
End
Begin VB.Label Label10
Caption = "卡号"
Height = 255
Left = 1800
TabIndex = 48
Top = 240
Width = 855
End
End
Begin VB.Frame Frame1
Caption = "修改IC卡密码"
Height = 1215
Left = -74640
TabIndex = 41
Top = 2760
Width = 6255
Begin VB.ComboBox AcbCardSector
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
ItemData = "Form1.frx":0074
Left = 4320
List = "Form1.frx":00A8
TabIndex = 56
Top = 360
Width = 1215
End
Begin VB.TextBox edOldCardPW
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -