112
Properties.EditProperties.SaveTime = False
Properties.EditProperties.ShowTime = False
Properties.EditProperties.UseLeftAlignmentOnEditing = False
Properties.DataBinding.FieldName = 'DateFrom'
ID = 5
ParentID = -1
Index = 0
Version = 1
end
object vgVacationDateInto: TcxDBEditorRow
Properties.EditPropertiesClassName = 'TcxDateEditProperties'
Properties.EditProperties.Alignment.Horz = taCenter
Properties.EditProperties.SaveTime = False
Properties.EditProperties.ShowTime = False
Properties.EditProperties.UseLeftAlignmentOnEditing = False
Properties.DataBinding.FieldName = 'DateInto'
ID = 6
ParentID = -1
Index = 1
Version = 1
end
end
object btnYes: TcxButton
Left = 239
Top = 53
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = #1042#1074#1077#1089#1090#1080
Default = True
LookAndFeel.Kind = lfOffice11
TabOrder = 1
113
OnClick = btnYesClick
ExplicitLeft = 223
ExplicitTop = 63
end
object btnNo: TcxButton
Left = 324
Top = 53
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Cancel = True
Caption = #1054#1090#1084#1077#1085#1080#1090#1100
LookAndFeel.Kind = lfOffice11
TabOrder = 2
OnClick = btnNoClick
ExplicitLeft = 308
ExplicitTop = 63
end
end
object frmWorker: TfrmWorker
Left = 284
Top = 124
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
ClientHeight = 167
ClientWidth = 389
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
114
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
DesignSize = (
389
167)
PixelsPerInch = 96
TextHeight = 13
object vgWorker: TcxDBVerticalGrid
Left = 0
Top = 0
Width = 389
Height = 129
Align = alTop
LookAndFeel.Kind = lfOffice11
OptionsView.ScrollBars = ssNone
OptionsView.ShowEditButtons = ecsbAlways
OptionsView.RowHeaderWidth = 130
OptionsBehavior.GoToNextCellOnTab = True
OptionsBehavior.FocusFirstCellOnNewRecord = True
Navigator.Buttons.CustomButtons = <>
TabOrder = 0
DataController.DataSource = DataInfo.dsListWorkers
Version = 1
object vgWorkerPosId: TcxDBEditorRow
Properties.EditPropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.EditProperties.KeyFieldNames = 'Id'
Properties.EditProperties.ListColumns = <
item
FieldName = 'PositionName'
end>
Properties.EditProperties.ListOptions.ShowHeader = False
115
Properties.EditProperties.ListOptions.SyncMode = True
Properties.EditProperties.ListSource = DataInfo.dsListPositions
Properties.DataBinding.FieldName = 'PosId'
ID = 0
ParentID = -1
Index = 0
Version = 1
end
object vgWorkerCategoryId: TcxDBEditorRow
Properties.EditPropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.EditProperties.KeyFieldNames = 'Id'
Properties.EditProperties.ListColumns = <
item
FieldName = 'CategoryName'
end>
Properties.EditProperties.ListOptions.ShowHeader = False
Properties.EditProperties.ListOptions.SyncMode = True
Properties.EditProperties.ListSource = DataInfo.dsListCategories
Properties.DataBinding.FieldName = 'CategoryId'
ID = 1
ParentID = -1
Index = 1
Version = 1
end
object vgWorkerTabNum: TcxDBEditorRow
Properties.DataBinding.FieldName = 'TabNum'
ID = 2
ParentID = -1
Index = 2
Version = 1
end
object vgWorkerFIO: TcxDBEditorRow
116
Properties.DataBinding.FieldName = 'FIO'
ID = 3
ParentID = -1
Index = 3
Version = 1
end
object vgWorkerBirthDate: TcxDBEditorRow
Properties.EditPropertiesClassName = 'TcxDateEditProperties'
Properties.EditProperties.Alignment.Horz = taCenter
Properties.EditProperties.Alignment.Vert = taVCenter
Properties.EditProperties.SaveTime = False
Properties.EditProperties.ShowTime = False
Properties.DataBinding.FieldName = 'BirthDate'
ID = 4
ParentID = -1
Index = 4
Version = 1
end
object vgWorkerPasport: TcxDBEditorRow
Properties.DataBinding.FieldName = 'Pasport'
ID = 5
ParentID = -1
Index = 5
Version = 1
end
object vgWorkerisMarried: TcxDBEditorRow
Properties.EditPropertiesClassName = 'TcxCheckBoxProperties'
Properties.DataBinding.FieldName = 'isMarried'
ID = 6
ParentID = -1
Index = 6
Version = 1
117
end
end
object btnYes: TcxButton
Left = 227
Top = 135
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = #1042#1074#1077#1089#1090#1080
Default = True
LookAndFeel.Kind = lfOffice11
TabOrder = 1
OnClick = btnYesClick
end
object btnNo: TcxButton
Left = 308
Top = 136
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Cancel = True
Caption = #1054#1090#1084#1077#1085#1080#1090#1100
LookAndFeel.Kind = lfOffice11
TabOrder = 2
OnClick = btnNoClick
end
end
