Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
328 lines (327 sloc) 7.08 KB
object fmPermissionManage: TfmPermissionManage
Left = 474
Height = 361
Top = 204
Width = 523
Caption = 'Permission Management'
ClientHeight = 361
ClientWidth = 523
OnClose = FormClose
Position = poScreenCenter
LCLVersion = '0.9.31'
object PageControl1: TPageControl
Left = 0
Height = 361
Top = 0
Width = 501
ActivePage = tsTables
Anchors = [akTop, akLeft, akRight, akBottom]
TabIndex = 0
TabOrder = 0
object tsTables: TTabSheet
Caption = 'Tables'
ClientHeight = 330
ClientWidth = 497
object Label1: TLabel
Left = 12
Height = 18
Top = 10
Width = 67
Caption = 'User/Role'
ParentColor = False
end
object Label2: TLabel
Left = 14
Height = 18
Top = 95
Width = 37
Caption = 'Table'
ParentColor = False
end
object cbTables: TComboBox
Left = 18
Height = 31
Top = 124
Width = 156
ItemHeight = 0
OnChange = cbTablesChange
Style = csDropDownList
TabOrder = 0
end
object Label3: TLabel
Left = 308
Height = 18
Top = 10
Width = 83
Caption = 'Permissions'
ParentColor = False
end
object cxSelect: TCheckBox
Left = 317
Height = 22
Top = 86
Width = 65
Caption = 'Select'
TabOrder = 1
end
object cxInsert: TCheckBox
Left = 318
Height = 22
Top = 138
Width = 63
Caption = 'Insert'
TabOrder = 2
end
object cxUpdate: TCheckBox
Left = 317
Height = 22
Top = 183
Width = 74
Caption = 'Update'
TabOrder = 3
end
object cxDelete: TCheckBox
Left = 317
Height = 22
Top = 236
Width = 68
Caption = 'Delete'
TabOrder = 4
end
object cxReferences: TCheckBox
Left = 318
Height = 22
Top = 287
Width = 99
Caption = 'References'
TabOrder = 5
end
object bbApplyTable: TBitBtn
Left = 6
Height = 30
Top = 287
Width = 75
Caption = 'Apply'
Kind = bkOK
OnClick = bbApplyTableClick
TabOrder = 6
end
object cbUsers: TComboBox
Left = 18
Height = 29
Top = 34
Width = 156
ItemHeight = 0
OnChange = cbTablesChange
TabOrder = 7
end
object cxSelectGrant: TCheckBox
Left = 345
Height = 22
Top = 102
Width = 97
Caption = 'With Grant'
TabOrder = 8
end
object cxInsertGrant: TCheckBox
Left = 345
Height = 22
Top = 154
Width = 97
Caption = 'With Grant'
TabOrder = 9
end
object cxUpdateGrant: TCheckBox
Left = 345
Height = 22
Top = 202
Width = 97
Caption = 'With Grant'
TabOrder = 10
end
object cxDeleteGrant: TCheckBox
Left = 342
Height = 22
Top = 253
Width = 97
Caption = 'With Grant'
TabOrder = 11
end
object cxReferencesGrant: TCheckBox
Left = 345
Height = 22
Top = 305
Width = 97
Caption = 'With Grant'
TabOrder = 12
end
object cxAll: TCheckBox
Left = 318
Height = 22
Top = 34
Width = 45
Caption = 'All'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
end
object cxAllGrant: TCheckBox
Left = 345
Height = 22
Top = 49
Width = 102
Caption = 'With Grant'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
end
end
object tsProcedures: TTabSheet
Caption = 'Procedures'
ClientHeight = 330
ClientWidth = 497
object Label4: TLabel
Left = 12
Height = 18
Top = 10
Width = 67
Caption = 'User/Role'
ParentColor = False
end
object cbProcUsers: TComboBox
Left = 18
Height = 29
Top = 34
Width = 156
ItemHeight = 0
OnChange = cbProcUsersChange
TabOrder = 0
end
object Label5: TLabel
Left = 230
Height = 18
Top = 11
Width = 83
Caption = 'Permissions'
ParentColor = False
end
object clbProcedures: TCheckListBox
Left = 246
Height = 232
Top = 39
Width = 211
Anchors = [akTop, akLeft, akBottom]
ItemHeight = 0
OnClick = clbProceduresClick
OnKeyUp = clbProceduresKeyUp
TabOrder = 1
TopIndex = -1
end
object bbApplyProc: TBitBtn
Left = 13
Height = 30
Top = 275
Width = 75
Caption = 'Apply'
Kind = bkOK
OnClick = bbApplyProcClick
TabOrder = 2
end
object cxProcGrant: TCheckBox
Left = 246
Height = 22
Top = 283
Width = 97
Anchors = [akLeft, akBottom]
Caption = 'With Grant'
OnChange = cxProcGrantChange
TabOrder = 3
end
end
object tsRoles: TTabSheet
Caption = 'Roles'
ClientHeight = 330
ClientWidth = 497
object Label6: TLabel
Left = 12
Height = 18
Top = 10
Width = 32
Caption = 'User'
ParentColor = False
end
object cbRolesUser: TComboBox
Left = 18
Height = 29
Top = 34
Width = 156
ItemHeight = 0
OnChange = cbRolesUserChange
TabOrder = 0
end
object Label7: TLabel
Left = 230
Height = 18
Top = 11
Width = 83
Caption = 'Permissions'
ParentColor = False
end
object bbApplyRoles: TBitBtn
Left = 12
Height = 30
Top = 283
Width = 75
Caption = 'Apply'
Default = True
Kind = bkOK
OnClick = bbApplyRolesClick
TabOrder = 1
end
object clbRoles: TCheckListBox
Left = 246
Height = 237
Top = 39
Width = 211
Anchors = [akTop, akLeft, akBottom]
ItemHeight = 0
OnClick = clbRolesClick
OnKeyUp = clbRolesKeyUp
TabOrder = 2
TopIndex = -1
end
object BitBtn1: TBitBtn
Left = 99
Height = 30
Top = 283
Width = 75
Caption = 'Refresh'
OnClick = BitBtn1Click
TabOrder = 3
end
object cxRoleGrant: TCheckBox
Left = 246
Height = 22
Top = 291
Width = 103
Anchors = [akLeft, akBottom]
Caption = 'With Admin'
OnChange = cxRoleGrantChange
TabOrder = 4
end
end
end
object bbClose: TBitBtn
Left = 496
Height = 24
Top = 0
Width = 27
Anchors = [akTop, akRight]
Caption = ' X '
Color = 16249563
Font.Style = [fsBold]
OnClick = bbCloseClick
ParentFont = False
TabOrder = 1
end
end
Something went wrong with that request. Please try again.