📄 frmmain.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form frmMain
BorderStyle = 3 'Fixed Dialog
ClientHeight = 8190
ClientLeft = 150
ClientTop = 435
ClientWidth = 11880
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmMain.frx":0000
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 8190
ScaleWidth = 11880
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin MSMask.MaskEdBox medTime
Height = 345
Left = 3795
TabIndex = 70
Top = 5145
Visible = 0 'False
Width = 765
_ExtentX = 1349
_ExtentY = 609
_Version = 393216
BackColor = -2147483624
MaxLength = 5
Mask = "##:##"
PromptChar = "_"
End
Begin MSMask.MaskEdBox medDate
Height = 360
Left = 3555
TabIndex = 69
Top = 4605
Visible = 0 'False
Width = 1215
_ExtentX = 2143
_ExtentY = 635
_Version = 393216
BackColor = -2147483624
MaxLength = 10
Mask = "####-##-##"
PromptChar = "_"
End
Begin VB.TextBox txtEdit
BackColor = &H80000018&
Height = 360
Left = 3375
MaxLength = 4
TabIndex = 1
Top = 4050
Visible = 0 'False
Width = 1275
End
Begin MSFlexGridLib.MSFlexGrid msfGrid
Height = 4680
Left = 180
TabIndex = 0
Top = 3195
Width = 11535
_ExtentX = 20346
_ExtentY = 8255
_Version = 393216
Rows = 20
FixedCols = 0
BackColor = -2147483624
BackColorFixed = 12632256
ForeColorFixed = 12582912
BackColorBkg = -2147483624
FormatString = "<sdfsdddsdsdsdsd"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Frame fraList
Height = 2235
Left = 210
TabIndex = 43
Top = 795
Visible = 0 'False
Width = 11520
Begin VB.ListBox lstInValidCard
Height = 1530
Left = 5925
TabIndex = 45
Top = 495
Width = 5310
End
Begin VB.ListBox lstNotRegister
Height = 1530
Left = 255
TabIndex = 44
Top = 495
Width = 5310
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "记录总数:"
Height = 210
Index = 1
Left = 9120
TabIndex = 51
Top = 225
Width = 945
End
Begin VB.Label lblInvalidCard
AutoSize = -1 'True
Caption = "0"
Height = 210
Left = 10260
TabIndex = 50
Top = 240
Width = 105
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "记录总数:"
Height = 210
Index = 0
Left = 3255
TabIndex = 49
Top = 225
Width = 945
End
Begin VB.Label lblNotRegister
AutoSize = -1 'True
Caption = "0"
Height = 210
Left = 4395
TabIndex = 48
Top = 225
Width = 105
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "采集到无效流通卡记录列表"
Height = 210
Index = 1
Left = 5925
TabIndex = 47
Top = 225
Width = 2520
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "采集到卡未登记记录列表"
Height = 210
Index = 0
Left = 240
TabIndex = 46
Top = 225
Width = 2310
End
End
Begin VB.Frame fraEdit
Height = 2235
Left = 210
TabIndex = 2
Top = 795
Visible = 0 'False
Width = 11520
Begin VB.TextBox txtKQ
Height = 330
Index = 13
Left = 9375
MaxLength = 12
TabIndex = 30
Top = 1235
Width = 1830
End
Begin VB.PictureBox picHour
BackColor = &H00FFFFFF&
Height = 345
Index = 1
Left = 9360
ScaleHeight = 285
ScaleWidth = 555
TabIndex = 41
Top = 255
Width = 615
Begin VB.TextBox txtKQ
Alignment = 2 'Center
BorderStyle = 0 'None
Height = 315
Index = 7
Left = 30
TabIndex = 20
Text = "1"
Top = 45
Width = 240
End
Begin ComCtl2.UpDown VScrollHour
Height = 315
Index = 0
Left = 285
TabIndex = 21
TabStop = 0 'False
Top = -15
Width = 270
_ExtentX = 476
_ExtentY = 556
_Version = 327681
BuddyControl = "txtKQ(7)"
BuddyDispid = 196622
BuddyIndex = 7
OrigLeft = 300
OrigTop = -15
OrigRight = 570
OrigBottom = 300
Max = 23
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
End
Begin VB.PictureBox picHour
BackColor = &H00FFFFFF&
Height = 345
Index = 0
Left = 9360
ScaleHeight = 285
ScaleWidth = 555
TabIndex = 40
Top = 738
Width = 615
Begin ComCtl2.UpDown VScrollMinite
Height = 315
Index = 0
Left = 285
TabIndex = 26
TabStop = 0 'False
Top = -15
Width = 270
_ExtentX = 476
_ExtentY = 556
_Version = 327681
BuddyControl = "txtKQ(10)"
BuddyDispid = 196622
BuddyIndex = 10
OrigLeft = 285
OrigTop = -15
OrigRight = 555
OrigBottom = 300
Max = 23
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox txtKQ
Alignment = 2 'Center
BorderStyle = 0 'None
Height = 315
Index = 10
Left = 15
TabIndex = 25
Text = "1"
Top = 30
Width = 255
End
End
Begin VB.PictureBox picMinite
BackColor = &H00FFFFFF&
Height = 345
Index = 1
Left = 10380
ScaleHeight = 285
ScaleWidth = 555
TabIndex = 37
Top = 248
Width = 615
Begin ComCtl2.UpDown VScrollHour
Height = 300
Index = 1
Left = 285
TabIndex = 23
TabStop = 0 'False
Top = 0
Width = 270
_ExtentX = 476
_ExtentY = 529
_Version = 327681
BuddyControl = "txtKQ(8)"
BuddyDispid = 196622
BuddyIndex = 8
OrigLeft = 285
OrigRight = 555
OrigBottom = 300
Max = 59
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox txtKQ
Alignment = 2 'Center
BorderStyle = 0 'None
Height = 315
Index = 8
Left = 30
TabIndex = 22
Text = "1"
Top = 45
Width = 255
End
End
Begin VB.PictureBox picMinite
BackColor = &H00FFFFFF&
DrawStyle = 2 'Dot
DrawWidth = 17015
Height = 345
Index = 0
Left = 10380
ScaleHeight = 285
ScaleWidth = 555
TabIndex = 34
Top = 738
Width = 615
Begin ComCtl2.UpDown VScrollMinite
Height = 315
Index = 1
Left = 285
TabIndex = 28
TabStop = 0 'False
Top = -15
Width = 270
_ExtentX = 476
_ExtentY = 556
_Version = 327681
BuddyControl = "txtKQ(11)"
BuddyDispid = 196622
BuddyIndex = 11
OrigLeft = 285
OrigTop = -15
OrigRight = 555
OrigBottom = 300
Max = 59
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox txtKQ
Alignment = 2 'Center
BorderStyle = 0 'None
Height = 315
Index = 11
Left = 45
TabIndex = 27
Text = "1"
Top = 45
Width = 225
End
End
Begin VB.TextBox txtKQ
Height = 330
Index = 9
Left = 6585
Locked = -1 'True
TabIndex = 24
Top = 745
Width = 1410
End
Begin VB.ComboBox cboKQ
Enabled = 0 'False
Height = 330
Left = 6585
Style = 2 'Dropdown List
TabIndex = 29
Top = 1235
Width = 1425
End
Begin VB.TextBox txtKQ
Height = 330
Index = 12
Left = 1230
MaxLength = 50
TabIndex = 31
Top = 1725
Width = 9990
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -