frmoprsys.frm
来自「一套简易的MIS系统。带SQLServer数据库。供参考。」· FRM 代码 · 共 876 行 · 第 1/2 页
FRM
876 行
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Begin VB.Form frmOprSys
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 3 'Fixed Dialog
Caption = "操作员权限管理"
ClientHeight = 5010
ClientLeft = 45
ClientTop = 435
ClientWidth = 9855
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5010
ScaleWidth = 9855
ShowInTaskbar = 0 'False
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 7
Left = 3660
TabIndex = 35
Top = 4050
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 6
Left = 3660
TabIndex = 34
Top = 3630
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 5
Left = 3660
TabIndex = 33
Top = 3225
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 4
Left = 3660
TabIndex = 32
Top = 2820
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 3
Left = 3660
TabIndex = 31
Top = 2400
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 2
Left = 3660
TabIndex = 30
Top = 1995
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 1
Left = 3660
TabIndex = 29
Top = 1605
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 0
Left = 3660
TabIndex = 28
Top = 1200
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 23
Left = 7800
TabIndex = 26
Top = 4050
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 22
Left = 7800
TabIndex = 25
Top = 3630
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 21
Left = 7800
TabIndex = 24
Top = 3225
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 20
Left = 7800
TabIndex = 23
Top = 2820
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 19
Left = 7800
TabIndex = 22
Top = 2400
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 18
Left = 7800
TabIndex = 21
Top = 1995
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 17
Left = 7800
TabIndex = 20
Top = 1605
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 16
Left = 7800
TabIndex = 19
Top = 1200
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 15
Left = 5760
TabIndex = 18
Top = 4050
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 14
Left = 5760
TabIndex = 17
Top = 3630
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 13
Left = 5760
TabIndex = 16
Top = 3225
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 12
Left = 5760
TabIndex = 15
Top = 2820
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 11
Left = 5760
TabIndex = 14
Top = 2400
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 10
Left = 5760
TabIndex = 13
Top = 1995
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 9
Left = 5760
TabIndex = 12
Top = 1605
Width = 1995
End
Begin VB.CheckBox chkLimit
BackColor = &H00E0E0E0&
Caption = "功能1"
Height = 345
Index = 8
Left = 5760
TabIndex = 11
Top = 1200
Width = 1995
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
ForeColor = &H80000008&
Height = 1065
Left = 3660
ScaleHeight = 1035
ScaleWidth = 6135
TabIndex = 1
Top = 30
Width = 6165
Begin VB.TextBox txtOpr
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 300
Index = 0
Left = 1140
TabIndex = 3
Top = 120
Width = 1755
End
Begin VB.TextBox txtOpr
Appearance = 0 'Flat
Height = 300
Index = 1
Left = 3990
TabIndex = 2
Top = 120
Width = 1725
End
Begin CSCommand.Command cmdOK
Height = 375
Left = 3030
TabIndex = 6
Top = 570
Width = 1425
_ExtentX = 2514
_ExtentY = 661
Icon = "frmOprSys.frx":0000
Caption = "添加(&A)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin CSCommand.Command cmdClose
Height = 375
Left = 4590
TabIndex = 7
Top = 570
Width = 1425
_ExtentX = 2514
_ExtentY = 661
Icon = "frmOprSys.frx":059A
Caption = "关闭窗口(&C)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "初始操作员密码：8888"
ForeColor = &H000000FF&
Height = 180
Left = 150
TabIndex = 8
Top = 667
Width = 1800
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "操作员编码："
Height = 180
Index = 0
Left = 120
TabIndex = 5
Top = 180
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "操作员名称："
Height = 180
Index = 1
Left = 2970
TabIndex = 4
Top = 180
Width = 1080
End
End
Begin MSComctlLib.ListView lstOpr
Height = 4905
Left = 30
TabIndex = 0
Top = 30
Width = 3555
_ExtentX = 6271
_ExtentY = 8652
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = 14737632
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSComctlLib.ImageList ImageList3
Left = 3600
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOprSys.frx":0B34
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOprSys.frx":0ECE
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOprSys.frx":1268
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOprSys.frx":1602
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOprSys.frx":199C
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOprSys.frx":1D36
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOprSys.frx":20D0
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOprSys.frx":246A
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOprSys.frx":2804
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOprSys.frx":2D9E
Key = ""
EndProperty
EndProperty
End
Begin CSCommand.Command cmdFunction
Height = 375
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?