103
Properties.Items.Strings = (
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'10'
'11'
'12')
TabOrder = 2
Text = '01'
Width = 139
end
object cxLabel1: TcxLabel
Left = 8
Top = 12
Caption = #1042#1099#1073#1077#1088#1080#1090#1077'
'#1086#1090#1095#1077#1090#1085#1099#1081' '#1084#1077#1089#1103#1094
end
end
object frmVacation: TfrmVacation
Left = 284
Top = 124
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
ClientHeight = 84
ClientWidth = 405
Color = clBtnFace
104
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
DesignSize = (
405
84)
PixelsPerInch = 96
TextHeight = 13
object vgVacation: TcxDBVerticalGrid
Left = 0
Top = 0
Width = 405
Height = 41
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.dsListVacations
Version = 1
object vgVacationDateFrom: TcxDBEditorRow
Properties.EditPropertiesClassName = 'TcxDateEditProperties'
Properties.EditProperties.Alignment.Horz = taCenter
105
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
106
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 = []
107
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
108
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
109
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
110
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