📄 frmuser.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmUser
BorderStyle = 3 'Fixed Dialog
Caption = "用户管理"
ClientHeight = 4875
ClientLeft = 45
ClientTop = 330
ClientWidth = 7260
Icon = "frmUser.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4875
ScaleWidth = 7260
ShowInTaskbar = 0 'False
Begin MSComctlLib.ImageList ImageList1
Left = 1725
Top = 2835
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 15
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":000C
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":006A
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":00C8
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":0126
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":0184
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":01E2
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":0240
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":029E
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":02FC
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":035A
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":03B8
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":0416
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":0474
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":04D2
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUser.frx":0530
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ListView Lvwyh
Height = 3075
Left = 60
TabIndex = 16
Top = 1740
Width = 5730
_ExtentX = 10107
_ExtentY = 5424
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FlatScrollBar = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
Icons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483624
BorderStyle = 1
Appearance = 0
NumItems = 0
End
Begin VB.Frame Frame2
Height = 4755
Left = 5820
TabIndex = 15
Top = 75
Width = 1395
Begin VB.CommandButton cmdQXGL
Caption = "权 限(&Q)"
Height = 315
Left = 195
TabIndex = 22
Top = 1611
Width = 1020
End
Begin VB.CommandButton cmdHelp
Caption = "帮 助(&H)"
Height = 315
Left = 195
TabIndex = 17
Top = 3930
Width = 1020
End
Begin VB.CommandButton cmdExit
Caption = "关 闭(&C)"
Height = 315
Left = 195
TabIndex = 7
Top = 2040
Width = 1020
End
Begin VB.CommandButton cmdDelete
Caption = "删 除(&D)"
Height = 315
Left = 195
TabIndex = 5
Top = 1184
Width = 1020
End
Begin VB.CommandButton cmdAddNew
Caption = "新 增(&A)"
Height = 315
Left = 195
TabIndex = 4
Top = 757
Width = 1020
End
Begin VB.CommandButton cmdSave
Caption = "保 存(&S)"
Height = 315
Left = 195
TabIndex = 6
Top = 330
Width = 1020
End
End
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 2595
Left = 90
ScaleHeight = 2595
ScaleWidth = 5670
TabIndex = 14
Top = 2190
Width = 5670
End
Begin VB.Frame Frame1
Caption = "操作员信息"
Height = 1605
Left = 60
TabIndex = 8
Top = 75
Width = 5745
Begin VB.ComboBox txtUserName
BackColor = &H80000018&
Height = 300
Left = 3870
TabIndex = 23
Top = 285
Width = 1590
End
Begin VB.Frame fraCHK
Caption = "权限组"
Height = 615
Left = 210
TabIndex = 18
Top = 1605
Visible = 0 'False
Width = 5280
Begin VB.CheckBox chkSysUser
Caption = "一般操作员"
Height = 300
Index = 1
Left = 2055
TabIndex = 21
Top = 240
Width = 1215
End
Begin VB.CheckBox chkSysUser
Caption = "系统管理员"
Height = 300
Index = 0
Left = 315
TabIndex = 20
Top = 240
Width = 1215
End
Begin VB.CheckBox chkSysUser
Caption = "窗口操作员"
Height = 300
Index = 2
Left = 3690
TabIndex = 19
Top = 240
Width = 1215
End
End
Begin VB.TextBox txtMemo
BackColor = &H80000018&
ForeColor = &H00FF0000&
Height = 315
IMEMode = 3 'DISABLE
Left = 1140
TabIndex = 3
Top = 1110
Width = 4320
End
Begin VB.TextBox txtUserID
BackColor = &H80000018&
Height = 315
IMEMode = 3 'DISABLE
Left = 1140
Locked = -1 'True
MaxLength = 4
TabIndex = 0
Top = 270
Width = 1590
End
Begin VB.TextBox txtNewPass
BackColor = &H80000018&
ForeColor = &H00FF0000&
Height = 315
IMEMode = 3 'DISABLE
Left = 3870
MaxLength = 6
PasswordChar = "*"
TabIndex = 2
Top = 660
Width = 1590
End
Begin VB.TextBox txtOldPass
BackColor = &H80000018&
ForeColor = &H00FF0000&
Height = 315
IMEMode = 3 'DISABLE
Left = 1140
MaxLength = 6
PasswordChar = "*"
TabIndex = 1
Top = 675
Width = 1590
End
Begin VB.Label Label2
Caption = "备 注"
ForeColor = &H00000000&
Height = 270
Left = 240
TabIndex = 13
Top = 1155
Width = 810
End
Begin VB.Label Label1
Caption = "密 码"
Height = 270
Left = 240
TabIndex = 12
Top = 720
Width = 810
End
Begin VB.Label Label8
Caption = "姓 名"
ForeColor = &H00000000&
Height = 270
Left = 2940
TabIndex = 11
Top = 315
Width = 810
End
Begin VB.Label Label6
Caption = "确认密码"
ForeColor = &H00000000&
Height = 270
Left = 2940
TabIndex = 10
Top = 720
Width = 810
End
Begin VB.Label Label5
Caption = "用户代码"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -