📄 frmedit.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmEdit
BorderStyle = 1 'Fixed Single
Caption = "资料管理"
ClientHeight = 6510
ClientLeft = 45
ClientTop = 435
ClientWidth = 8400
ClipControls = 0 'False
DrawMode = 1 'Blackness
FillStyle = 0 'Solid
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontTransparent = 0 'False
HasDC = 0 'False
Icon = "frmEdit.frx":0000
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
NegotiateMenus = 0 'False
ScaleHeight = 434
ScaleMode = 3 'Pixel
ScaleWidth = 560
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdModify
Caption = "修改(&M)"
CausesValidation= 0 'False
Enabled = 0 'False
Height = 375
Left = 2040
TabIndex = 127
Top = 6000
Width = 975
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&E)"
CausesValidation= 0 'False
Enabled = 0 'False
Height = 375
Left = 1080
TabIndex = 126
Top = 6000
Width = 975
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
CausesValidation= 0 'False
Enabled = 0 'False
Height = 375
Left = 120
TabIndex = 125
Top = 6000
Width = 975
End
Begin MSComctlLib.ProgressBar pbStatus
Height = 375
Left = 3120
TabIndex = 128
Top = 6000
Width = 4095
_ExtentX = 7223
_ExtentY = 661
_Version = 393216
Appearance = 1
End
Begin VB.CommandButton cmdClose
Cancel = -1 'True
Caption = "关闭(&X)"
CausesValidation= 0 'False
Height = 375
Left = 7320
TabIndex = 129
Top = 6000
Width = 975
End
Begin TabDlg.SSTab stbEdit
CausesValidation= 0 'False
Height = 5775
Left = 120
TabIndex = 0
Top = 120
Width = 8175
_ExtentX = 14420
_ExtentY = 10186
_Version = 393216
Style = 1
Tabs = 6
TabsPerRow = 6
TabHeight = 529
WordWrap = 0 'False
TabCaption(0) = "添加管理员"
TabPicture(0) = "frmEdit.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "fra(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "fra(1)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "fra(10)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).ControlCount= 3
TabCaption(1) = "删除管理员"
TabPicture(1) = "frmEdit.frx":0028
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "lvDelete(0)"
Tab(1).Control(1)= "tvDelete(0)"
Tab(1).ControlCount= 2
TabCaption(2) = "修改管理员"
TabPicture(2) = "frmEdit.frx":0044
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "fraModify(0)"
Tab(2).Control(1)= "tvModify(0)"
Tab(2).ControlCount= 2
TabCaption(3) = "添加用户"
TabPicture(3) = "frmEdit.frx":0060
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "fra(11)"
Tab(3).Control(1)= "fra(5)"
Tab(3).Control(2)= "fra(6)"
Tab(3).ControlCount= 3
TabCaption(4) = "删除用户"
TabPicture(4) = "frmEdit.frx":007C
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "lvDelete(1)"
Tab(4).Control(1)= "tvDelete(1)"
Tab(4).ControlCount= 2
TabCaption(5) = "修改用户"
TabPicture(5) = "frmEdit.frx":0098
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "fraModify(1)"
Tab(5).Control(1)= "tvModify(1)"
Tab(5).ControlCount= 2
Begin VB.Frame fra
Caption = "密码保护设置"
Height = 2175
Index = 11
Left = -71880
TabIndex = 83
Top = 480
Width = 4935
Begin VB.TextBox txtResult
CausesValidation= 0 'False
Height = 270
Index = 0
Left = 1680
MaxLength = 16
TabIndex = 87
Top = 720
Width = 3015
End
Begin VB.TextBox txtQuestion
CausesValidation= 0 'False
Height = 270
Index = 0
Left = 1680
MaxLength = 16
TabIndex = 85
Top = 360
Width = 3015
End
Begin VB.Label lblPasswordInfo
AutoSize = -1 'True
Height = 180
Left = 240
TabIndex = 88
Top = 1200
Width = 90
End
Begin VB.Label lbl
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "提示问题答案(&R)"
ForeColor = &H80000008&
Height = 180
Index = 40
Left = 240
TabIndex = 86
Top = 765
Width = 1350
End
Begin VB.Label lbl
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "密码提示问题(&Q)"
ForeColor = &H80000008&
Height = 180
Index = 39
Left = 240
TabIndex = 84
Top = 405
Width = 1350
End
End
Begin VB.Frame fra
Caption = "权限设置"
Height = 2175
Index = 10
Left = 3120
TabIndex = 24
Top = 480
Width = 4935
Begin VB.ComboBox cboPower
CausesValidation= 0 'False
Height = 300
Index = 0
ItemData = "frmEdit.frx":00B4
Left = 1680
List = "frmEdit.frx":00BE
Style = 2 'Dropdown List
TabIndex = 26
Top = 480
Width = 1575
End
Begin VB.Image img
Appearance = 0 'Flat
Height = 1020
Left = 3480
Picture = "frmEdit.frx":00DE
Top = 600
Width = 1185
End
Begin VB.Label lblPower
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 180
Left = 360
TabIndex = 27
Top = 960
Width = 90
End
Begin VB.Label lbl
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "管理员权限(&P)"
ForeColor = &H80000008&
Height = 180
Index = 37
Left = 360
TabIndex = 25
Top = 525
Width = 1170
End
End
Begin VB.Frame fraModify
Caption = "用户资料"
Enabled = 0 'False
Height = 5175
Index = 1
Left = -72360
TabIndex = 94
Top = 480
Width = 5415
Begin VB.TextBox txtQuestion
CausesValidation= 0 'False
Height = 270
Index = 1
Left = 3600
MaxLength = 16
TabIndex = 120
Top = 2520
Width = 1575
End
Begin VB.TextBox txtResult
CausesValidation= 0 'False
Height = 270
Index = 1
Left = 3600
MaxLength = 16
TabIndex = 122
Top = 2880
Width = 1575
End
Begin VB.TextBox txtOldPassword
Height = 270
IMEMode = 3 'DISABLE
Left = 1200
Locked = -1 'True
MaxLength = 16
PasswordChar = "*"
TabIndex = 98
Top = 720
Width = 1455
End
Begin VB.TextBox txtModifyRealName
Height = 270
Index = 1
Left = 3600
MaxLength = 10
TabIndex = 108
Top = 360
Width = 1575
End
Begin VB.TextBox txtModifyEmail
Height = 270
Index = 1
Left = 3600
MaxLength = 60
TabIndex = 118
Top = 2160
Width = 1575
End
Begin VB.TextBox txtModifyPhone
CausesValidation= 0 'False
Height = 270
IMEMode = 3 'DISABLE
Index = 1
Left = 3600
MaxLength = 16
TabIndex = 116
Top = 1800
Width = 1575
End
Begin VB.TextBox txtModifyCity
Height = 270
Index = 1
Left = 3600
MaxLength = 16
TabIndex = 114
Top = 1440
Width = 1575
End
Begin VB.TextBox txtModifyProvince
Height = 270
Index = 1
Left = 3600
MaxLength = 16
TabIndex = 112
Top = 1080
Width = 1575
End
Begin VB.TextBox txtModifyAge
CausesValidation= 0 'False
Height = 270
IMEMode = 3 'DISABLE
Index = 1
Left = 3600
MaxLength = 3
TabIndex = 110
Top = 720
Width = 1575
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -