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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
142
Visible = True
end
item
Expanded = False
FieldName = #1053#1072#1079#1074#1072#1085#1080#1077
Title.Alignment = taCenter
Width = 253
Visible = True
end
item
Expanded = False
FieldName = #1050#1086#1076#1054#1050#1055#1044#1058#1056
Title.Alignment = taCenter
Width = 187
Visible = True
end>
end
end
object TabSheet15: TTabSheet
Caption =
#1057#1087#1077#1094#1080#1072#1083#1100#1085#1086#1089#1090#1100
ImageIndex = 14
object ToolBar15: TToolBar
Left = 0
Top = 0
Width = 919
Height = 29
Caption = 'ToolBar1'
TabOrder = 0
object DBNavigator15: TDBNavigator
Left = 0
143
Top = 0
Width = 240
Height = 22
DataSource = dmServerEditData.dsSpecialty
TabOrder = 0
end
end
object DBGrid15: TDBGrid
Left = 0
Top = 29
Width = 919
Height = 441
Align = alClient
DataSource = dmServerEditData.dsSpecialty
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
Width = 114
Visible = True
end
item
Expanded = False
FieldName = #1053#1072#1079#1074#1072#1085#1080#1077
144
Title.Alignment = taCenter
Width = 476
Visible = True
end>
end
end
object TabSheet16: TTabSheet
Caption = #1057#1090#1088#1091#1082#1090#1091#1088#1085#1086#1077'
'#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077
ImageIndex = 15
object Splitter1: TSplitter
Left = 0
Top = 372
Width = 919
Height = 3
Cursor = crVSplit
Align = alBottom
ExplicitTop = 269
ExplicitWidth = 924
end
object ToolBar16: TToolBar
Left = 0
Top = 0
Width = 919
Height = 29
Caption = 'ToolBar1'
TabOrder = 0
object DBNavigator16: TDBNavigator
Left = 0
Top = 0
Width = 240
145
Height = 22
DataSource = dmServerEditData.dsStructuralSubdivision
TabOrder = 0
end
end
object DBGrid16: TDBGrid
Left = 0
Top = 29
Width = 919
Height = 343
Align = alClient
DataSource = dmServerEditData.dsStructuralSubdivision
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 = 147
Visible = True
end
item
Expanded = False
FieldName = #1053#1072#1079#1074#1072#1085#1080#1077
Title.Alignment = taCenter
146
Width = 368
Visible = True
end
item
Expanded = False
FieldName =
#1056#1091#1082#1086#1074#1086#1076#1080#1090#1077#1083#1100
Title.Alignment = taCenter
Visible = False
end>
end
object DBLookupListBox1: TDBLookupListBox
Left = 0
Top = 375
Width = 919
Height = 95
Hint = #1042#1099#1073#1086#1088'
'#1088#1091#1082#1086#1074#1086#1076#1080#1090#1077#1083#1103'
'#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1103
Align = alBottom
DataField =
#1056#1091#1082#1086#1074#1086#1076#1080#1090#1077#1083#1100
DataSource = dmServerEditData.dsStructuralSubdivision
KeyField = #1050#1086#1076
ListField = 'Comp'
ListSource = dmServerEditData.dsPersonalCard
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
end
Источник: https://baza.diplomsite.ru/previewfile/2251