167
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
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
168
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
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
169
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
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
170
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'
171
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
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
172
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
Width = 325
Visible = True
end
item
Expanded = False
FieldName = 'LU'#1056#1086#1083#1100
Title.Alignment = taCenter
173
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
174
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 =
#1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100
OnExecute = aUsersEditExecute
end
object DataSetDelete1: TDataSetDelete
Category = 'Dataset'
Caption = '&Delete'
Hint = 'Delete'
ImageIndex = 5
end
object aUsersDelete: TAction
Caption = #1059#1076#1072#1083#1080#1090#1100
OnExecute = aUsersDeleteExecute
end
end
object pmA: TPopupMenu
Left = 464
Top = 304
object N2: TMenuItem
175
Caption = #1054#1090#1082#1088#1099#1090#1100' '#1074#1089#1077
OnClick = N2Click
end
object N3: TMenuItem
Caption = #1047#1072#1082#1088#1099#1090#1100' '#1074#1089#1105
OnClick = N3Click
end
end
object pmE: TPopupMenu
Left = 616
Top = 304
object N4: TMenuItem
Caption = #1054#1090#1082#1088#1099#1090#1100' '#1074#1089#1105
OnClick = N4Click
end
object N5: TMenuItem
Caption = #1047#1072#1082#1088#1099#1090#1100' '#1074#1089#1105
OnClick = N5Click
end
end
end