📄 syspms.dfm
字号:
object FMPMS: TFMPMS
Left = 123
Top = 107
AutoScroll = False
Caption = '权限设置'
ClientHeight = 423
ClientWidth = 642
Color = 13232634
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = True
Position = poScreenCenter
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 16
object Page: TPageControl
Left = 0
Top = 0
Width = 640
Height = 421
ActivePage = PAGE_A
Style = tsFlatButtons
TabOrder = 0
TabWidth = 305
OnChange = PageChange
object PAGE_A: TTabSheet
Caption = '权限总设置'
object Label4: TLabel
Left = 21
Top = 374
Width = 158
Height = 15
Caption = '按两下可以给予权限 →'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = '新宋体'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 5
Top = 287
Width = 30
Height = 15
Caption = '进度'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = '新宋体'
Font.Style = []
ParentFont = False
end
object Gauge: TGauge
Left = 40
Top = 287
Width = 176
Height = 15
ForeColor = clRed
Progress = 0
end
object DBGRID_BMAN: TDBGrid
Left = 1
Top = 5
Width = 220
Height = 276
DataSource = DSBMAN
ImeName = '中文 (简体) - 智能 ABC'
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGRID_BMANCellClick
Columns = <
item
Expanded = False
FieldName = 'BNENO'
Title.Alignment = taCenter
Title.Caption = '员工编号'
Title.Color = clInfoBk
Width = 89
Visible = True
end
item
Expanded = False
FieldName = 'BNNAM'
Title.Alignment = taCenter
Title.Caption = '中文姓名'
Title.Color = clInfoBk
Width = 104
Visible = True
end>
end
object DBGrid2: TDBGrid
Left = 225
Top = 205
Width = 400
Height = 182
DataSource = DSSYSPMS
ImeName = '中文 (简体) - 智能 ABC'
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = DBGrid1DrawColumnCell
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = 'PMSFUN'
Title.Alignment = taCenter
Title.Caption = '功能代码'
Title.Color = 13295298
Width = 111
Visible = True
end
item
Expanded = False
FieldName = '_PMSFUN'
Title.Alignment = taCenter
Title.Caption = '功能名称'
Title.Color = 13295298
Width = 223
Visible = True
end
item
Expanded = False
FieldName = 'PMSPMS'
Title.Alignment = taCenter
Title.Caption = '权限'
Title.Color = 13295298
Visible = True
end>
end
object GRID_SYSLST: TDBGrid
Left = 225
Top = 5
Width = 400
Height = 196
DataSource = DSSYSPMSLST
ImeName = '中文 (简体) - 智能 ABC'
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGRID_BMANCellClick
Columns = <
item
Expanded = False
FieldName = 'LSTID2'
Title.Alignment = taCenter
Title.Caption = '功能代码'
Title.Color = 16766943
Width = 93
Visible = True
end
item
Expanded = False
FieldName = 'LSTNAM'
Title.Alignment = taCenter
Title.Caption = '功能名称'
Title.Color = 16766943
Width = 276
Visible = True
end>
end
object BTNPMS: TBitBtn
Left = 5
Top = 305
Width = 105
Height = 30
Caption = '产生权限功能'
TabOrder = 3
OnClick = BTNPMSClick
end
object BTNPMSA: TBitBtn
Left = 5
Top = 340
Width = 105
Height = 30
Caption = '授予全部权限'
TabOrder = 4
OnClick = BTNPMSAClick
end
object BTNPMSD: TBitBtn
Left = 110
Top = 340
Width = 105
Height = 30
Caption = '取消全部权限'
TabOrder = 5
OnClick = BTNPMSDClick
end
object BTNPMSC: TBitBtn
Left = 110
Top = 305
Width = 105
Height = 30
Caption = '删除权限功能'
TabOrder = 6
OnClick = BTNPMSCClick
end
end
object PAGE_B: TTabSheet
Caption = '权限单一设置'
ImageIndex = 1
object Label1: TLabel
Left = 10
Top = 49
Width = 48
Height = 16
Caption = '员工编号'
end
object Label3: TLabel
Left = 10
Top = 74
Width = 48
Height = 16
Caption = '使用功能'
end
object Label2: TLabel
Left = 456
Top = 84
Width = 108
Height = 16
Caption = '按两下可以给予权限'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 0
Top = 100
Width = 631
Height = 290
DataSource = DSSYSPMS
ImeName = '中文 (简体) - 智能 ABC'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = DBGrid1DrawColumnCell
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = 'BNENO'
Title.Alignment = taCenter
Title.Caption = '员工编号'
Title.Color = clInfoBk
Width = 80
Visible = True
end
item
Expanded = False
FieldName = '_BNNAM'
Title.Alignment = taCenter
Title.Caption = '员工姓名'
Title.Color = clInfoBk
Width = 82
Visible = True
end
item
Expanded = False
FieldName = 'PMSFUN'
Title.Alignment = taCenter
Title.Caption = '功能代码'
Title.Color = clInfoBk
Width = 86
Visible = True
end
item
Expanded = False
FieldName = '_PMSFUN'
Title.Alignment = taCenter
Title.Caption = '功能名称'
Title.Color = clInfoBk
Width = 250
Visible = True
end
item
Expanded = False
FieldName = 'PMSPMS'
Title.Alignment = taCenter
Title.Caption = '权限'
Title.Color = clInfoBk
Visible = True
end>
end
object ToolBar: TToolBar
Left = 0
Top = 0
Width = 632
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -