frmallset.frm
来自「OA编程 源代码」· FRM 代码 · 共 1,598 行 · 第 1/4 页
FRM
1,598 行
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 90
TabIndex = 27
Top = 90
Width = 720
End
End
Begin MSComctlLib.TabStrip TabStrip1
Height = 2265
Left = -70860
TabIndex = 25
Top = 4770
Width = 5475
_ExtentX = 9657
_ExtentY = 3995
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 1
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "当前用户权限"
ImageVarType = 2
EndProperty
EndProperty
Enabled = 0 'False
End
Begin VB.Frame Frame1
Caption = "栏目信息"
Height = 3195
Left = 60
TabIndex = 20
Top = 540
Width = 6315
Begin VB.CommandButton CmdAddOrRemove
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 525
Index = 0
Left = 2640
Picture = "frmAllSet.frx":037A
Style = 1 'Graphical
TabIndex = 24
Top = 900
Width = 1125
End
Begin VB.ListBox LstTar
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 2730
Left = 3960
MultiSelect = 2 'Extended
TabIndex = 23
Top = 300
Width = 2300
End
Begin VB.CommandButton CmdAddOrRemove
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 525
Index = 1
Left = 2640
Picture = "frmAllSet.frx":0684
Style = 1 'Graphical
TabIndex = 22
Top = 2100
Width = 1125
End
Begin VB.ListBox LstSour
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 2730
Left = 120
MultiSelect = 2 'Extended
TabIndex = 21
Top = 300
Width = 2300
End
End
Begin VB.Frame Frame2
Caption = "用户信息"
Height = 3285
Left = 60
TabIndex = 15
Top = 3780
Width = 6315
Begin VB.CommandButton CmdAddOrRemove
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 525
Index = 2
Left = 2640
Picture = "frmAllSet.frx":098E
Style = 1 'Graphical
TabIndex = 18
Top = 780
Width = 1125
End
Begin VB.CommandButton CmdAddOrRemove
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 525
Index = 3
Left = 2640
Picture = "frmAllSet.frx":0C98
Style = 1 'Graphical
TabIndex = 17
Top = 2070
Width = 1125
End
Begin VB.Timer Timer1
Left = 4950
Top = 1800
End
Begin MSComctlLib.ListView LstViewTar
Height = 3000
Left = 3960
TabIndex = 16
Top = 210
Width = 2295
_ExtentX = 4048
_ExtentY = 5292
Sorted = -1 'True
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
HotTracking = -1 'True
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ColHdrIcons = "ImageList1"
ForeColor = 0
BackColor = 16777215
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin MSComctlLib.ImageList ImageList1
Left = 2970
Top = -180
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 17
ImageHeight = 17
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAllSet.frx":0FA2
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAllSet.frx":1056
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAllSet.frx":1130
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ListView LstViewSour
Height = 2955
Left = 90
TabIndex = 19
Top = 240
Width = 2295
_ExtentX = 4048
_ExtentY = 5212
Sorted = -1 'True
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
HotTracking = -1 'True
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ColHdrIcons = "ImageList1"
ForeColor = 0
BackColor = 16777215
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
End
Begin VB.Frame Frame3
Caption = "权限列表"
Height = 3285
Left = 6450
TabIndex = 6
Top = 3780
Width = 3225
Begin VB.CommandButton CmdExit
BeginProperty Font
Name = "楷体_GB2312"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 1770
Picture = "frmAllSet.frx":144A
Style = 1 'Graphical
TabIndex = 13
ToolTipText = "退出"
Top = 2370
Width = 1275
End
Begin VB.CommandButton CmdSave
BeginProperty Font
Name = "楷体_GB2312"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 180
Picture = "frmAllSet.frx":1754
Style = 1 'Graphical
TabIndex = 12
ToolTipText = "保存"
Top = 2370
Width = 1275
End
Begin VB.CheckBox CkDispLab
Caption = "显示标题"
Height = 210
Left = 240
TabIndex = 11
Top = 390
Width = 1095
End
Begin VB.CheckBox CkInfoRead
Caption = "信息读取"
Height = 210
Left = 1680
TabIndex = 10
Top = 360
Width = 1275
End
Begin VB.CheckBox CkInfoWrite
Caption = "信息写入"
Height = 345
Left = 240
TabIndex = 9
Top = 930
Width = 1275
End
Begin VB.CheckBox CkInfoDel
Caption = "信息删除"
Height = 405
Left = 1680
TabIndex = 8
Top = 900
Width = 1215
End
Begin VB.CheckBox CkInfoBkup
Caption = "归档信息"
Height = 210
Left = 240
TabIndex = 7
Top = 1590
Width = 1185
End
Begin VB.Line Line1
Index = 0
X1 = 150
X2 = 3090
Y1 = 2100
Y2 = 2100
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
Index = 1
X1 = 150
X2 = 3090
Y1 = 2130
Y2 = 2130
End
Begin VB.Image Image3
Height = 480
Left = 1650
Picture = "frmAllSet.frx":2376
Top = 1230
Visible = 0 'False
Width = 480
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "成功设置"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 195
Left = 1710
TabIndex = 14
Top = 1650
Visible = 0 'False
Width = 840
End
End
Begin VB.Frame Frame4
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Caption = "功能说明"
ForeColor = &H80000008&
Height = 3105
Left = 6450
TabIndex = 1
Top = 630
Width = 3225
Begin VB.Image Image4
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?