?? 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"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
NegotiateMenus = 0 'False
ScaleHeight = 3600
ScaleWidth = 6120
ShowInTaskbar = 0 'False
Begin VB.ComboBox cmbAuthority
Height = 300
ItemData = "frmOperator.frx":0442
Left = 4365
List = "frmOperator.frx":0452
Style = 2 'Dropdown List
TabIndex = 3
Top = 2355
Width = 1530
End
Begin VB.Frame Frame1
Caption = "操作員列表"
ForeColor = &H00800000&
Height = 2160
Left = 210
TabIndex = 12
Top = 1185
Width = 3375
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 1695
Left = 120
TabIndex = 6
ToolTipText = "雙擊顯示菜單!"
Top = 315
Width = 3135
_ExtentX = 5530
_ExtentY = 2990
_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 = 3270
Y1 = 2010
Y2 = 2010
End
Begin VB.Line Line7
BorderColor = &H00FFFFFF&
X1 = 3255
X2 = 3255
Y1 = 315
Y2 = 2025
End
Begin VB.Line Line6
BorderColor = &H00808080&
X1 = 105
X2 = 3270
Y1 = 300
Y2 = 300
End
Begin VB.Line Line5
BorderColor = &H00808080&
X1 = 105
X2 = 105
Y1 = 315
Y2 = 2010
End
End
Begin VB.TextBox Text1
Height = 300
Left = 4365
MaxLength = 5
TabIndex = 0
Top = 1305
Width = 1530
End
Begin VB.TextBox Text2
Height = 300
IMEMode = 3 'DISABLE
Left = 4365
MaxLength = 20
PasswordChar = "*"
TabIndex = 1
Top = 1650
Width = 1530
End
Begin VB.TextBox Text3
Height = 300
IMEMode = 3 'DISABLE
Left = 4365
MaxLength = 20
PasswordChar = "*"
TabIndex = 2
Top = 1995
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 = 165
ScaleHeight = 690
ScaleWidth = 5715
TabIndex = 7
ToolTipText = "操作提示"
Top = 180
Width = 5775
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "添加新的帳號"
ForeColor = &H00FFFFFF&
Height = 180
Left = 2610
TabIndex = 11
Top = 150
Width = 1080
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "=> 輸入各項之后,按保存"
ForeColor = &H00000000&
Height = 180
Left = 2835
TabIndex = 10
Top = 405
Width = 1980
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "刪除存在的帳號："
ForeColor = &H00FFFFFF&
Height = 180
Left = 150
TabIndex = 9
Top = 150
Width = 1440
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "=> 雙擊選定的帳號"
Height = 180
Left = 540
TabIndex = 8
Top = 405
Width = 1530
End
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "權限："
ForeColor = &H000000C0&
Height = 180
Index = 1
Left = 3765
TabIndex = 16
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 = 15
Top = 1350
Width = 615
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "口令："
Height = 180
Left = 3765
TabIndex = 14
Top = 1710
Width = 615
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "重復："
Height = 180
Index = 0
Left = 3765
TabIndex = 13
Top = 2055
Width = 615
End
Begin VB.Line Line1
Index = 1
X1 = 150
X2 = 5940
Y1 = 960
Y2 = 960
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
Index = 1
X1 = 150
X2 = 5925
Y1 = 975
Y2 = 975
End
Begin VB.Line Line3
BorderColor = &H00FFFFFF&
Index = 1
X1 = 3600
X2 = 5940
Y1 = 2850
Y2 = 2850
End
Begin VB.Line Line4
X1 = 3600
X2 = 5940
Y1 = 2835
Y2 = 2835
End
Begin VB.Menu MnuOperate
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -