/HRManager/__history/WORKCALENDARUnit.dfm.~4~
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