📄 frmoperator.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmOperator
BorderStyle = 3 'Fixed Dialog
Caption = "本地安全策略< 银行工作员配置 >"
ClientHeight = 3600
ClientLeft = 45
ClientTop = 615
ClientWidth = 6120
Icon = "frmOperator.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
NegotiateMenus = 0 'False
ScaleHeight = 3600
ScaleWidth = 6120
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text2
Height = 300
IMEMode = 3 'DISABLE
Left = 4365
MaxLength = 20
PasswordChar = "*"
TabIndex = 1
Top = 1655
Width = 1530
End
Begin VB.ComboBox cmbAuthority
Height = 300
ItemData = "frmOperator.frx":0442
Left = 4365
List = "frmOperator.frx":0455
Style = 2 'Dropdown List
TabIndex = 3
Top = 2355
Width = 1530
End
Begin VB.Frame Frame1
Caption = "访问控制列表"
ForeColor = &H00800000&
Height = 2300
Left = 120
TabIndex = 11
Top = 1100
Width = 3495
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 1900
Left = 120
TabIndex = 15
ToolTipText = "双击显示菜单!"
Top = 255
Width = 3235
_ExtentX = 5715
_ExtentY = 3360
_Version = 393216
Cols = 3
FixedCols = 0
ForeColor = 0
ForeColorFixed = 64
BackColorSel = 14737632
ForeColorSel = 255
BackColorBkg = 12632256
GridColorFixed = 8421504
AllowBigSelection= 0 'False
FocusRect = 0
FillStyle = 1
ScrollBars = 2
SelectionMode = 1
AllowUserResizing= 3
BorderStyle = 0
Appearance = 0
End
Begin VB.Line Line8
BorderColor = &H00FFFFFF&
X1 = 105
X2 = 3360
Y1 = 2160
Y2 = 2160
End
Begin VB.Line Line7
BorderColor = &H00FFFFFF&
X1 = 3360
X2 = 3360
Y1 = 240
Y2 = 2160
End
Begin VB.Line Line6
BorderColor = &H00808080&
X1 = 105
X2 = 3360
Y1 = 240
Y2 = 240
End
Begin VB.Line Line5
BorderColor = &H00808080&
X1 = 105
X2 = 105
Y1 = 240
Y2 = 2160
End
End
Begin VB.TextBox Text1
Height = 300
Left = 4365
MaxLength = 5
TabIndex = 0
Top = 1305
Width = 1530
End
Begin VB.TextBox Text3
Height = 300
IMEMode = 3 'DISABLE
Left = 4365
MaxLength = 20
TabIndex = 2
Top = 2005
Width = 1530
End
Begin VB.CommandButton Command1
Caption = "保存(S)"
Enabled = 0 'False
Height = 375
Left = 3660
TabIndex = 4
Top = 2970
Width = 1110
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "关闭(&C)"
Height = 375
Left = 4830
TabIndex = 5
Top = 2970
Width = 1110
End
Begin VB.PictureBox Picture1
BackColor = &H0000C000&
Height = 750
Left = 105
ScaleHeight = 690
ScaleWidth = 5835
TabIndex = 6
ToolTipText = "操作提示"
Top = 180
Width = 5900
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "添加新的帐号"
ForeColor = &H00FFFFFF&
Height = 180
Left = 2610
TabIndex = 10
Top = 150
Width = 1080
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "=> 输入各项之后,按保存"
ForeColor = &H00000000&
Height = 180
Left = 2835
TabIndex = 9
Top = 405
Width = 1980
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "删除存在的帐号："
ForeColor = &H00FFFFFF&
Height = 180
Left = 150
TabIndex = 8
Top = 150
Width = 1440
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "=> 双击选定的帐号"
Height = 180
Left = 540
TabIndex = 7
Top = 405
Width = 1530
End
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "口令："
Height = 180
Left = 3765
TabIndex = 16
Top = 1700
Width = 615
End
Begin VB.Line Line1
Index = 1
X1 = 105
X2 = 6000
Y1 = 990
Y2 = 990
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "权限："
ForeColor = &H000000C0&
Height = 180
Index = 1
Left = 3765
TabIndex = 14
Top = 2415
Width = 540
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 2
X1 = 6090
X2 = 6090
Y1 = 15
Y2 = 3570
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 2
X1 = 6075
X2 = 6075
Y1 = 15
Y2 = 3540
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 0
X1 = 30
X2 = 30
Y1 = 15
Y2 = 3540
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 0
X1 = 15
X2 = 15
Y1 = 0
Y2 = 3540
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 4
X1 = 30
X2 = 6090
Y1 = 3540
Y2 = 3540
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 3
X1 = 15
X2 = 6090
Y1 = 3555
Y2 = 3555
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 2
X1 = 45
X2 = 6090
Y1 = 15
Y2 = 15
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 15
X2 = 6090
Y1 = 0
Y2 = 0
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "姓名："
Height = 180
Left = 3765
TabIndex = 13
Top = 1350
Width = 615
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "工号："
Height = 180
Index = 0
Left = 3765
TabIndex = 12
Top = 2055
Width = 540
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
Index = 1
X1 = 105
X2 = 6000
Y1 = 1000
Y2 = 1000
End
Begin VB.Line Line3
BorderColor = &H00FFFFFF&
Index = 1
X1 = 3600
X2 = 5940
Y1 = 2850
Y2 = 2850
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -