📄 frmmacmain.frm
字号:
Height = 5685
Index = 12
Left = 1170
ScaleHeight = 5625
ScaleWidth = 8055
TabIndex = 358
Top = 360
Width = 8115
Begin VB.Frame Frame14
Caption = "卡密码管理"
ForeColor = &H00FF0000&
Height = 2955
Left = 135
TabIndex = 378
Top = 2295
Visible = 0 'False
Width = 2850
Begin VB.CommandButton cmdChangePwd
Caption = "修改密码"
Height = 330
Left = 1530
TabIndex = 382
Top = 2520
Width = 1140
End
Begin VB.TextBox txtReNewPwd
Height = 375
IMEMode = 3 'DISABLE
Left = 90
MaxLength = 12
PasswordChar = "*"
TabIndex = 381
Top = 1980
Width = 2670
End
Begin VB.TextBox txtNewPwd
Height = 375
IMEMode = 3 'DISABLE
Left = 90
MaxLength = 12
PasswordChar = "*"
TabIndex = 380
Top = 1260
Width = 2670
End
Begin VB.TextBox txtOldPwd
Height = 375
IMEMode = 3 'DISABLE
Left = 90
MaxLength = 12
PasswordChar = "*"
TabIndex = 379
Top = 495
Width = 2670
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "请再次输入新密码："
Height = 180
Left = 135
TabIndex = 385
Top = 1710
Width = 1620
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "请输入新密码："
Height = 180
Left = 135
TabIndex = 384
Top = 990
Width = 1260
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "请输入旧密码："
Height = 180
Left = 135
TabIndex = 383
Top = 225
Width = 1260
End
End
Begin VB.Frame Frame19
Caption = "块号设置"
ForeColor = &H00FF0000&
Height = 2085
Left = 135
TabIndex = 374
Top = 195
Width = 2850
Begin VB.ComboBox cobBlock
Height = 300
Left = 45
Style = 2 'Dropdown List
TabIndex = 376
Top = 855
Width = 2715
End
Begin VB.CommandButton cmdBlockSet
Caption = "块号设置"
Height = 330
Left = 1755
TabIndex = 375
Top = 1530
Width = 960
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "请选择块号："
Height = 180
Left = 90
TabIndex = 377
Top = 405
Width = 1080
End
End
Begin VB.Frame FramICEmployee
Caption = "发卡管理"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 5070
Left = 3060
TabIndex = 359
Top = 165
Width = 4995
Begin VB.CommandButton btnEmICAdd
Caption = "发卡(&I)"
Height = 330
Left = 3645
TabIndex = 386
Top = 4440
Width = 915
End
Begin VB.Frame Frame12
Caption = "查询"
Height = 645
Left = 135
TabIndex = 363
Top = 3555
Width = 4740
Begin VB.CommandButton btmICEmQuery
Caption = "查询(&Q)"
Height = 330
Left = 3510
TabIndex = 367
Top = 225
Width = 915
End
Begin VB.TextBox TxtEmICInfQryTxt
Height = 300
Left = 2205
TabIndex = 366
Top = 225
Width = 1050
End
Begin VB.ComboBox CboEmICInfQrySym
Height = 300
ItemData = "frmMacMain.frx":3CE5B
Left = 1440
List = "frmMacMain.frx":3CE77
Style = 2 'Dropdown List
TabIndex = 365
ToolTipText = "选择Like为模糊查询,用_代表单字符,用%代表所有字符"
Top = 225
Width = 735
End
Begin VB.ComboBox CboEmICInfQryCol
Height = 300
ItemData = "frmMacMain.frx":3CE98
Left = 135
List = "frmMacMain.frx":3CEA8
Style = 2 'Dropdown List
TabIndex = 364
Top = 225
Width = 1275
End
End
Begin VB.Frame Frame6
Caption = "添加卡号"
Height = 645
Left = 135
TabIndex = 360
Top = 4275
Visible = 0 'False
Width = 4740
Begin VB.TextBox TxtICCardNo
Height = 300
Left = 630
MaxLength = 10
TabIndex = 361
Top = 225
Width = 2595
End
Begin VB.Label Label1
Caption = "卡号"
Height = 285
Index = 104
Left = 90
TabIndex = 362
Top = 255
Width = 555
End
End
Begin MSDataGridLib.DataGrid grdICDataGrid
Height = 3195
Left = 120
TabIndex = 368
Top = 315
Width = 4710
_ExtentX = 8308
_ExtentY = 5636
_Version = 393216
AllowUpdate = -1 'True
HeadLines = 1
RowHeight = 15
AllowDelete = -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 = 3
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
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
BeginProperty Column02
EndProperty
EndProperty
End
Begin VB.TextBox txtBlock
Height = 465
Left = 3780
TabIndex = 373
Text = "Text1"
Top = 315
Visible = 0 'False
Width = 1140
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新"
Height = 285
Left = 3780
TabIndex = 371
Top = 270
Visible = 0 'False
Width = 960
End
Begin VB.ComboBox cobCompany
Height = 300
Left = 945
TabIndex = 369
Top = 270
Visible = 0 'False
Width = 2760
End
Begin VB.Label labReg
Height = 285
Left = 4005
TabIndex = 387
Top = 0
Visible = 0 'False
Width = 960
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "公司名称:"
Height = 180
Left = 90
TabIndex = 370
Top = 315
Visible = 0 'False
Width = 810
End
End
End
Begin VB.PictureBox PicTab
Height = 5550
Index = 5
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -