Материал: Автоматизация управления персоналом в "Jusu vesimas"

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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
Источник: https://baza.diplomsite.ru/previewfile/2251