PageRenderTime 32ms CodeModel.GetById 29ms app.highlight 2ms RepoModel.GetById 0ms app.codeStats 0ms

/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
  1inherited WORKCALENDAR: TWORKCALENDAR
  2  Caption = #1050#1072#1083#1077#1085#1076#1072#1088#1100
  3  ClientHeight = 558
  4  ClientWidth = 660
  5  ExplicitWidth = 666
  6  ExplicitHeight = 582
  7  PixelsPerInch = 96
  8  TextHeight = 13
  9  inherited Panel1: TPanel
 10    Left = 569
 11    Height = 558
 12  end
 13  inherited PageControl1: TPageControl
 14    Width = 563
 15    Height = 552
 16    ExplicitWidth = 563
 17    ExplicitHeight = 552
 18    inherited TabSheet1: TTabSheet
 19      Caption = #1050#1072#1083#1077#1085#1076#1072#1088#1100
 20      ExplicitLeft = 4
 21      ExplicitTop = 24
 22      ExplicitWidth = 356
 23      ExplicitHeight = 385
 24      object Panel2: TPanel
 25        Left = 0
 26        Top = 76
 27        Width = 555
 28        Height = 41
 29        Align = alTop
 30        TabOrder = 0
 31        ExplicitWidth = 544
 32        object Label2: TLabel
 33          Left = 28
 34          Top = 8
 35          Width = 30
 36          Height = 24
 37          Caption = #1055#1053
 38          Font.Charset = DEFAULT_CHARSET
 39          Font.Color = clWindowText
 40          Font.Height = -20
 41          Font.Name = 'Tahoma'
 42          Font.Style = [fsBold]
 43          ParentFont = False
 44        end
 45        object Label3: TLabel
 46          Left = 108
 47          Top = 8
 48          Width = 26
 49          Height = 24
 50          Caption = #1042#1058
 51          Font.Charset = DEFAULT_CHARSET
 52          Font.Color = clWindowText
 53          Font.Height = -20
 54          Font.Name = 'Tahoma'
 55          Font.Style = [fsBold]
 56          ParentFont = False
 57        end
 58        object Label4: TLabel
 59          Left = 178
 60          Top = 8
 61          Width = 26
 62          Height = 24
 63          Caption = #1057#1056
 64          Font.Charset = DEFAULT_CHARSET
 65          Font.Color = clWindowText
 66          Font.Height = -20
 67          Font.Name = 'Tahoma'
 68          Font.Style = [fsBold]
 69          ParentFont = False
 70        end
 71        object Label5: TLabel
 72          Left = 258
 73          Top = 8
 74          Width = 26
 75          Height = 24
 76          Caption = #1063#1058
 77          Font.Charset = DEFAULT_CHARSET
 78          Font.Color = clWindowText
 79          Font.Height = -20
 80          Font.Name = 'Tahoma'
 81          Font.Style = [fsBold]
 82          ParentFont = False
 83        end
 84        object Label6: TLabel
 85          Left = 338
 86          Top = 8
 87          Width = 27
 88          Height = 24
 89          Caption = #1055#1058
 90          Font.Charset = DEFAULT_CHARSET
 91          Font.Color = clWindowText
 92          Font.Height = -20
 93          Font.Name = 'Tahoma'
 94          Font.Style = [fsBold]
 95          ParentFont = False
 96        end
 97        object Label7: TLabel
 98          Left = 410
 99          Top = 8
100          Width = 27
101          Height = 24
102          Caption = #1057#1041
103          Font.Charset = DEFAULT_CHARSET
104          Font.Color = clRed
105          Font.Height = -20
106          Font.Name = 'Tahoma'
107          Font.Style = [fsBold]
108          ParentFont = False
109        end
110        object Label8: TLabel
111          Left = 490
112          Top = 8
113          Width = 27
114          Height = 24
115          Caption = #1042#1057
116          Font.Charset = DEFAULT_CHARSET
117          Font.Color = clRed
118          Font.Height = -20
119          Font.Name = 'Tahoma'
120          Font.Style = [fsBold]
121          ParentFont = False
122        end
123      end
124      object Panel3: TPanel
125        Left = 0
126        Top = 0
127        Width = 555
128        Height = 76
129        Align = alTop
130        TabOrder = 1
131        ExplicitWidth = 544
132        object Label1: TLabel
133          Left = 8
134          Top = 52
135          Width = 35
136          Height = 13
137          Caption = #1052#1077#1089#1103#1094':'
138        end
139        object Label9: TLabel
140          Left = 20
141          Top = 25
142          Width = 23
143          Height = 13
144          Caption = #1043#1086#1076':'
145        end
146        object Edit1: TEdit
147          Left = 49
148          Top = 22
149          Width = 46
150          Height = 21
151          TabOrder = 0
152        end
153        object ComboBox1: TComboBox
154          Left = 49
155          Top = 49
156          Width = 96
157          Height = 21
158          ItemHeight = 13
159          TabOrder = 1
160          Items.Strings = (
161            #1103#1085#1074#1072#1088#1100
162            #1092#1077#1074#1088#1072#1083#1100
163            #1084#1072#1088#1090
164            #1072#1087#1088#1077#1083#1100
165            #1084#1072#1081
166            #1080#1102#1085#1100
167            #1080#1102#1083#1100
168            #1072#1074#1075#1091#1089#1090
169            #1089#1077#1085#1090#1103#1073#1088#1100
170            #1086#1082#1090#1103#1073#1088#1100
171            #1085#1086#1103#1073#1088#1100
172            #1076#1077#1082#1072#1073#1088#1100)
173        end
174        object Button3: TButton
175          Left = 459
176          Top = 13
177          Width = 87
178          Height = 57
179          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'.'
180          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
181          ParentShowHint = False
182          ShowHint = True
183          TabOrder = 2
184          Visible = False
185          WordWrap = True
186        end
187      end
188      object Panel4: TPanel
189        Left = 0
190        Top = 117
191        Width = 555
192        Height = 366
193        Align = alClient
194        Color = clActiveBorder
195        Font.Charset = DEFAULT_CHARSET
196        Font.Color = clWindowText
197        Font.Height = -11
198        Font.Name = 'Tahoma'
199        Font.Style = []
200        ParentBackground = False
201        ParentFont = False
202        TabOrder = 2
203        ExplicitWidth = 581
204      end
205      object Panel5: TPanel
206        Left = 0
207        Top = 483
208        Width = 555
209        Height = 41
210        Align = alBottom
211        TabOrder = 3
212        ExplicitTop = 545
213        ExplicitWidth = 544
214        object Button4: TButton
215          Left = 215
216          Top = 3
217          Width = 101
218          Height = 35
219          Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1103'.'
220          Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
221          ParentShowHint = False
222          ShowHint = True
223          TabOrder = 0
224        end
225      end
226    end
227  end
228  inherited PKDBTable1: TPKDBTable
229    Left = 608
230    Top = 112
231  end
232  object ADQuery2: TADQuery
233    Connection = DataModule1.ADConnection1
234    SQL.Strings = (
235      'select CALENDAR_YEAR from OTIZ$TWORKINGCALENDAR  where'
236      'CALENDAR_YEAR=:year'
237      'group by CALENDAR_YEAR')
238    Left = 576
239    Top = 80
240    ParamData = <
241      item
242        Name = 'YEAR'
243        DataType = ftInteger
244        ParamType = ptInput
245      end>
246    object ADQuery2CALENDAR_YEAR: TFloatField
247      FieldName = 'CALENDAR_YEAR'
248    end
249  end
250  object ADQuery1: TADQuery
251    Connection = DataModule1.ADConnection1
252    SQL.Strings = (
253      'select * from'
254      'HR_V_WORKCALENDAR ww'
255      'where to_char(ww.daydate,'#39'mm.yyyy'#39') = :monyear'
256      ''
257      ''
258      ''
259      '--select substr(DAY_DATE,1,2) dayno,'
260      
261        '--RN,ISHOLIDAY,DAY_LENGTH_H,DAY_LENGTH_SHORT_H,DAY_LENGTH_M,DAY_' +
262        'LENGTH_SHORT_M , DAY_DATE,'
263      '--trim(to_char(day_date,'#39'day'#39') ) day_name'
264      '--from OTIZ$TWORKINGCALENDAR where '
265      '--CALENDAR_YEAR=:year AND'
266      '--trim(to_char(day_date,'#39'month'#39'))=:mon'
267      '--ORDER by DAY_DATE')
268    Left = 608
269    Top = 80
270    ParamData = <
271      item
272        Name = 'MONYEAR'
273        DataType = ftString
274        ParamType = ptInput
275        Value = Null
276      end>
277    object ADQuery1ID: TFMTBCDField
278      FieldName = 'ID'
279      Required = True
280      Precision = 38
281      Size = 38
282    end
283    object ADQuery1DAYDATE: TDateTimeField
284      FieldName = 'DAYDATE'
285    end
286    object ADQuery1DAYWORKTYPEID: TFMTBCDField
287      FieldName = 'DAYWORKTYPEID'
288      Precision = 38
289      Size = 38
290    end
291    object ADQuery1DESCR: TStringField
292      FieldName = 'DESCR'
293      Size = 50
294    end
295    object ADQuery1DAYTYPE: TStringField
296      FieldName = 'DAYTYPE'
297      Size = 2
298    end
299    object ADQuery1WORKTYPE: TStringField
300      FieldName = 'WORKTYPE'
301      Size = 500
302    end
303  end
304end