/HRManager/__history/WORKCALENDARUnit.dfm.~4~
https://github.com/oista/NPO · Unknown · 304 lines · 303 code · 1 blank · 0 comment · 0 complexity · 698cb0a40ccbf3f50a427fc380b43a32 MD5 · raw file
- inherited WORKCALENDAR: TWORKCALENDAR
- Caption = #1050#1072#1083#1077#1085#1076#1072#1088#1100
- ClientHeight = 558
- ClientWidth = 660
- ExplicitWidth = 666
- ExplicitHeight = 582
- PixelsPerInch = 96
- TextHeight = 13
- inherited Panel1: TPanel
- Left = 569
- Height = 558
- end
- inherited PageControl1: TPageControl
- Width = 563
- Height = 552
- ExplicitWidth = 563
- ExplicitHeight = 552
- inherited TabSheet1: TTabSheet
- Caption = #1050#1072#1083#1077#1085#1076#1072#1088#1100
- ExplicitLeft = 4
- ExplicitTop = 24
- ExplicitWidth = 356
- ExplicitHeight = 385
- object Panel2: TPanel
- Left = 0
- Top = 76
- Width = 555
- Height = 41
- Align = alTop
- TabOrder = 0
- ExplicitWidth = 544
- object Label2: TLabel
- Left = 28
- Top = 8
- Width = 30
- Height = 24
- Caption = #1055#1053
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -20
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 108
- Top = 8
- Width = 26
- Height = 24
- Caption = #1042#1058
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -20
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label4: TLabel
- Left = 178
- Top = 8
- Width = 26
- Height = 24
- Caption = #1057#1056
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -20
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label5: TLabel
- Left = 258
- Top = 8
- Width = 26
- Height = 24
- Caption = #1063#1058
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -20
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label6: TLabel
- Left = 338
- Top = 8
- Width = 27
- Height = 24
- Caption = #1055#1058
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -20
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label7: TLabel
- Left = 410
- Top = 8
- Width = 27
- Height = 24
- Caption = #1057#1041
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -20
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label8: TLabel
- Left = 490
- Top = 8
- Width = 27
- Height = 24
- Caption = #1042#1057
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -20
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 555
- Height = 76
- Align = alTop
- TabOrder = 1
- ExplicitWidth = 544
- object Label1: TLabel
- Left = 8
- Top = 52
- Width = 35
- Height = 13
- Caption = #1052#1077#1089#1103#1094':'
- end
- object Label9: TLabel
- Left = 20
- Top = 25
- Width = 23
- Height = 13
- Caption = #1043#1086#1076':'
- end
- object Edit1: TEdit
- Left = 49
- Top = 22
- Width = 46
- Height = 21
- TabOrder = 0
- end
- object ComboBox1: TComboBox
- Left = 49
- Top = 49
- Width = 96
- Height = 21
- ItemHeight = 13
- TabOrder = 1
- Items.Strings = (
- #1103#1085#1074#1072#1088#1100
- #1092#1077#1074#1088#1072#1083#1100
- #1084#1072#1088#1090
- #1072#1087#1088#1077#1083#1100
- #1084#1072#1081
- #1080#1102#1085#1100
- #1080#1102#1083#1100
- #1072#1074#1075#1091#1089#1090
- #1089#1077#1085#1090#1103#1073#1088#1100
- #1086#1082#1090#1103#1073#1088#1100
- #1085#1086#1103#1073#1088#1100
- #1076#1077#1082#1072#1073#1088#1100)
- end
- object Button3: TButton
- Left = 459
- Top = 13
- Width = 87
- Height = 57
- Hint = #1057#1086#1079#1076#1072#1090#1100' '#1075#1088#1072#1092#1080#1082' '#1088#1072#1073#1086#1090#1099' '#1085#1072' '#1089#1083#1077#1076#1091#1102#1097#1080#1081' '#1082#1072#1083#1077#1085#1076#1072#1088#1085#1099#1081' '#1075#1086#1076'.'
- Caption = #1047#1072#1076#1072#1090#1100' '#1088#1077#1078#1080#1084' '#1086#1075#1088#1072#1085#1080#1095#1077#1085#1085#1086#1081' '#1088#1072#1073#1086#1090#1099
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- Visible = False
- WordWrap = True
- end
- end
- object Panel4: TPanel
- Left = 0
- Top = 117
- Width = 555
- Height = 366
- Align = alClient
- Color = clActiveBorder
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentBackground = False
- ParentFont = False
- TabOrder = 2
- ExplicitWidth = 581
- end
- object Panel5: TPanel
- Left = 0
- Top = 483
- Width = 555
- Height = 41
- Align = alBottom
- TabOrder = 3
- ExplicitTop = 545
- ExplicitWidth = 544
- object Button4: TButton
- Left = 215
- Top = 3
- Width = 101
- Height = 35
- Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1103'.'
- Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- end
- end
- end
- inherited PKDBTable1: TPKDBTable
- Left = 608
- Top = 112
- end
- object ADQuery2: TADQuery
- Connection = DataModule1.ADConnection1
- SQL.Strings = (
- 'select CALENDAR_YEAR from OTIZ$TWORKINGCALENDAR where'
- 'CALENDAR_YEAR=:year'
- 'group by CALENDAR_YEAR')
- Left = 576
- Top = 80
- ParamData = <
- item
- Name = 'YEAR'
- DataType = ftInteger
- ParamType = ptInput
- end>
- object ADQuery2CALENDAR_YEAR: TFloatField
- FieldName = 'CALENDAR_YEAR'
- end
- end
- object ADQuery1: TADQuery
- Connection = DataModule1.ADConnection1
- SQL.Strings = (
- 'select * from'
- 'HR_V_WORKCALENDAR ww'
- 'where to_char(ww.daydate,'#39'mm.yyyy'#39') = :monyear'
- ''
- ''
- ''
- '--select substr(DAY_DATE,1,2) dayno,'
-
- '--RN,ISHOLIDAY,DAY_LENGTH_H,DAY_LENGTH_SHORT_H,DAY_LENGTH_M,DAY_' +
- 'LENGTH_SHORT_M , DAY_DATE,'
- '--trim(to_char(day_date,'#39'day'#39') ) day_name'
- '--from OTIZ$TWORKINGCALENDAR where '
- '--CALENDAR_YEAR=:year AND'
- '--trim(to_char(day_date,'#39'month'#39'))=:mon'
- '--ORDER by DAY_DATE')
- Left = 608
- Top = 80
- ParamData = <
- item
- Name = 'MONYEAR'
- DataType = ftString
- ParamType = ptInput
- Value = Null
- end>
- object ADQuery1ID: TFMTBCDField
- FieldName = 'ID'
- Required = True
- Precision = 38
- Size = 38
- end
- object ADQuery1DAYDATE: TDateTimeField
- FieldName = 'DAYDATE'
- end
- object ADQuery1DAYWORKTYPEID: TFMTBCDField
- FieldName = 'DAYWORKTYPEID'
- Precision = 38
- Size = 38
- end
- object ADQuery1DESCR: TStringField
- FieldName = 'DESCR'
- Size = 50
- end
- object ADQuery1DAYTYPE: TStringField
- FieldName = 'DAYTYPE'
- Size = 2
- end
- object ADQuery1WORKTYPE: TStringField
- FieldName = 'WORKTYPE'
- Size = 500
- end
- end
- end