167
Expanded = False
FieldName = #1053#1072#1079#1074#1072#1085#1080#1077
Title.Alignment = taCenter
Width = 492 Visible = True end> end end
object TabSheet23: TTabSheet
Caption = #1060#1086#1088#1084#1072'
'#1072#1090#1090#1077#1089#1090#1072#1094#1080#1080
ImageIndex = 23 object ToolBar23: TToolBar
Left = 0
Top = 0
Width = 919
Height = 29
Caption = 'ToolBar1'
TabOrder = 0
object DBNavigator24: TDBNavigator
Left = 0
Top = 0
Width = 240
Height = 22
DataSource = dmServerEditData.dsFormForAttestation TabOrder = 0
end end
object DBGrid23: TDBGrid
Left = 0
Top = 29
Width = 919
Height = 441
Align = alClient
DataSource = dmServerEditData.dsFormForAttestation
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
168
TitleFont.Name = 'Tahoma'
TitleFont.Style = [] Columns = < item
Expanded = False
FieldName = #1050#1086#1076
Title.Alignment = taCenter
Width = 100 Visible = True end item
Expanded = False
FieldName = #1053#1072#1079#1074#1072#1085#1080#1077
Title.Alignment = taCenter
Width = 492 Visible = True end> end end
object TabSheet25: TTabSheet
Caption = #1055#1088#1072#1074#1072'
'#1076#1086#1089#1090#1091#1087#1072 ImageIndex = 24 object
Splitter2: TSplitter
Left = 0
Top = 171
Width = 919
Height = 3
Cursor = crVSplit
Align = alTop
ExplicitTop = 206 ExplicitWidth = 264 end
object ToolBar24: TToolBar
Left = 0
Top = 0
Width = 919
Height = 29
Caption = 'ToolBar1' TabOrder = 0
object DBNavigator25: TDBNavigator
Left = 0
Top = 0
Width = 240
Height = 22
169
DataSource = dmServerEditData.dsRole TabOrder = 0 end end
object DBGrid24: TDBGrid
Left = 0
Top = 29
Width = 919
Height = 142
Align = alTop
DataSource = dmServerEditData.dsRole
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = [] Columns = < item
Expanded = False
FieldName = #1050#1086#1076
Title.Alignment = taCenter Visible = False end item
Expanded = False
FieldName = #1053#1072#1079#1074#1072#1085#1080#1077
Title.Alignment = taCenter
Width = 460
Visible = True
end> end
object DBGrid25: TDBGrid
Left = 0
Top = 174
Width = 919
Height = 255
Align = alClient
DataSource = dmServerEditData.dsRights
170
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines,
dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit,
dgTitleClick, dgTitleHotTrack]
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = [] Columns = < item
Expanded = False
FieldName = 'LU'#1058#1072#1073#1083#1080#1094#1072
Title.Alignment = taCenter
Width = 388 Visible = True end item
Alignment = taCenter
Expanded = False
FieldName = #1044#1086#1089#1090#1091#1087
PopupMenu = pmA
Title.Alignment = taCenter
Title.Caption =
#1056#1072#1079#1088#1077#1096#1080#1090#1100'
'#1076#1086#1089#1090#1091#1087
Width = 145 Visible = True end item
Alignment = taCenter
Expanded = False
FieldName = #1048#1079#1084#1077#1085#1077#1085#1080#1077
PopupMenu = pmE
Title.Alignment = taCenter
Title.Caption =
#1056#1072#1079#1088#1077#1096#1080#1090#1100'
'#1080#1079#1084#1077#1085#1077#1085#1080#1077
Width = 146 Visible = True end> end
object Panel1: TPanel
171
Left = 0
Top = 429
Width = 919
Height = 41
Align = alBottom TabOrder = 3 object Label13: TLabel
Left = 18
Top = 14
Width = 55
Height = 13
Caption = #1056#1072#1079#1088#1077#1096#1080#1090#1100 end
object DBCheckBox1: TDBCheckBox
Left = 97
Top = 13
Width = 64
Height = 17
Caption = #1044#1086#1089#1090#1091#1087
DataField = #1044#1086#1089#1090#1091#1087
DataSource = dmServerEditData.dsRights
TabOrder = 0
ValueChecked = 'True' ValueUnchecked = 'False' end
object DBCheckBox2: TDBCheckBox
Left = 164
Top = 13
Width = 76
Height = 17
Caption = #1048#1079#1084#1077#1085#1077#1085#1080#1077
DataField = #1048#1079#1084#1077#1085#1077#1085#1080#1077
DataSource = dmServerEditData.dsRights
TabOrder = 1
ValueChecked = 'True' ValueUnchecked = 'False' end
object Button1: TButton
Left = 250
172
Top = 9
Width = 75
Height = 25
Action = DataSetPost1 TabOrder = 2 end
object bSetTablesForRole: TButton
Left = 760
Top = 9
Width = 153
Height = 25
Caption = #1054#1073#1085#1086#1074#1080#1090#1100'
'#1089#1087#1080#1089#1086#1082' '#1090#1072#1073#1083#1080#1094
TabOrder = 3
OnClick = bSetTablesForRoleClick end
object cbAccess: TCheckBox
Left = 430
Top = 13
Width = 122
Height = 17
Caption = #1044#1086#1089#1090#1091#1087' ('#1074#1089#1077')'
Checked = True
State = cbChecked
TabOrder = 4
OnClick = cbAccessClick end
object cbEdit: TCheckBox
Left = 584
Top = 13
Width = 97
Height = 17
Caption = #1048#1079#1084#1077#1085#1077#1080#1077'
('#1074#1089#1077')'
Checked = True
State = cbChecked
173
TabOrder = 5
OnClick = cbEditClick end end
end
object TabSheet26: TTabSheet
Caption = #1058#1072#1073#1083#1080#1094#1099'
'#1089#1080#1089#1090#1077#1084#1099 ImageIndex = 25 object
ToolBar25: TToolBar
Left = 0
Top = 0
Width = 919
Height = 29
ButtonHeight = 23
Caption = 'ToolBar1' TabOrder = 0
object bSetTables: TButton
Left = 0
Top = 0
Width = 75
Height = 23
Caption = #1054#1073#1085#1086#1074#1080#1090#1100
TabOrder = 0
OnClick = bSetTablesClick end end
object DBGrid26: TDBGrid
Left = 0
Top = 29
Width = 919
Height = 441
Align = alClient
DataSource = dmServerEditData.dsTables
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines,
dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit,
dgTitleClick, dgTitleHotTrack]
TabOrder = 1
174
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = [] Columns = < item
Alignment = taCenter
Expanded = False
FieldName = #1050#1086#1076
Title.Alignment = taCenter
Width = 113 Visible = True end item
Expanded = False
FieldName = #1053#1072#1079#1074#1072#1085#1080#1077
Title.Alignment = taCenter
Width = 548 Visible = True end> end end
object TabSheet27: TTabSheet
Caption =
#1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1080'
'#1089#1080#1089#1090#1077#1084#1099 ImageIndex = 26 object
ToolBar26: TToolBar
Left = 0
Top = 0
Width = 919
Height = 29
Caption = 'ToolBar1' TabOrder = 0 object Button2: TButton
Left = 0
Top = 0
Width = 75
Height = 22
Action = aUsersAdd TabOrder = 0 end object Button3:
TButton
Left = 75
Top = 0
175
Width = 102
Height = 22
Action = aUsersEdit TabOrder = 1 end object Button4:
TButton
Left = 177
Top = 0
Width = 75
Height = 22
Action = aUsersDelete TabOrder = 2 end end
object DBGrid27: TDBGrid Left = 0
Top = 29
Width = 919
Height = 441
Align = alClient
DataSource = dmServerEditData.dsUsers
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines,
dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit,
dgTitleClick, dgTitleHotTrack]
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = [] Columns = < item
Alignment = taCenter
Expanded = False
FieldName = #1050#1086#1076
Title.Alignment = taCenter
Width = 66 Visible = True end item
Expanded = False
FieldName = #1051#1086#1075#1080#1085
Title.Alignment = taCenter
176
Width = 325 Visible = True end item
Expanded = False
FieldName = 'LU'#1056#1086#1083#1100
Title.Alignment = taCenter
Width = 232 Visible = True end> end end end
object StatusBar1: TStatusBar
Left = 0
Top = 552
Width = 927
Height = 19 Panels = <> end
object tiMain: TTrayIcon
PopupMenu = pmMain
Visible = True
OnDblClick = tiMainDblClick
Left = 816 Top = 240 end
object pmMain: TPopupMenu
Left = 864 Top = 240 object N1: TMenuItem
Caption = #1047#1072#1082#1088#1099#1090#1100 OnClick = N1Click
end end object amMain: TActionManager
Left = 816
Top = 296
StyleName = 'Platform Default' object DataSetPost1: TDataSetPost
Category = 'Dataset'
Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
Hint = 'Post'
ImageIndex = 7 end
object aUsersAdd: TAction
Caption = #1044#1086#1073#1072#1074#1080#1090#1100 OnExecute =
aUsersAddExecute end
object aUsersEdit: TAction
Caption =