1. SQL / Говнокод #14629

    −168

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    97. 97
    -- Процедура формирования таблицы анализа по FIR
CREATE PROCEDURE KojevnikovFir
                   @DateFo varchar(10),
                   @DateTo varchar(10)
AS DECLARE @Polet int, @ProcPolet numeric(4,2)
-- определяю кол-во выполненных рейсов в диапазоне дат----
SET @Polet =  (SELECT DISTINCT Count(ID)  FROM PPLS WHERE                      
  ( ( FLI_ENTRY=1 or FLI_EXIT=1 )  or   (DEP=1 and DEP_AERODROME like'UK%' )  or
  (ARR=1 and DEST_AERODROME Like'UK%')  ) and (ENTRY_TIME >=@DateFo and ENTRY_TIME <=@DateTo))
----------- Начало формирования таблицы FIR-------------------
-- Создаем  SCROLL курсор 1 для чтения
DECLARE Cursor_All_Pol CURSOR SCROLL KEYSET TYPE_WARNING FOR SELECT  Marsrut,All_Polet
FROM Marsr_All_Pol FOR READ ONLY 
-- Открытие курсора 1 и наполнение его данными  
OPEN Cursor_All_Pol DECLARE @Marsrut char(11), @All_Polet int,@Count1 int,@Count1_end int
SET @Count1=1 SET @Count1_end = @@CURSOR_ROWS 
                        -- ===========обьявляю и заполняю курсор по 2 таблице==============
                        DECLARE Cursor_Air CURSOR SCROLL KEYSET TYPE_WARNING
                        FOR SELECT  Marsrut,TYPE_AIRCRAFT,kol_TypeAir FROM Marsr_kol_Air FOR READ ONLY 
                        -- Открытие курсора 2 и наполнение его данными  
                        OPEN Cursor_Air   
                        DECLARE @MarsrutAir char(11),@Type nvarchar(4), @Air_Polet int,@Count2 int,@Count2_end int
                        SET @Count2 = 0 SET @Count2_end = @@CURSOR_ROWS 
                        -- ===========обьявляю и заполняю курсор по 3 таблице==============
                        DECLARE Cursor_AK CURSOR SCROLL KEYSET TYPE_WARNING
                        FOR SELECT  Marsrut,ICAO,AK,kol_AK FROM dbo.Marsr_kol_AK FOR READ ONLY 
                        -- Открытие курсора 2 и наполнение его данными  
                        OPEN Cursor_AK   
                        DECLARE @MarsrutAK char(11),@ICAO char(3),@AK varchar(60),@kol_AK int,@Count3 int,@Count3_end int
                        SET @Count3 = 0 SET @Count3_end = @@CURSOR_ROWS 
-- цикл по первому курсору
WHILE @Count1 < @Count1_end BEGIN 
-- на 1 запись курсора 1
FETCH NEXT FROM Cursor_All_Pol INTO @Marsrut, @All_Polet
-- вставляю строку маршрута и кол-ва полетов в таблицу
SET @ProcPolet = ((@All_Polet * 100)/@Polet)
INSERT KojevnikovAnalizFIR (Marsrut,All_Polet,PrcAll,TYPE_AIRCRAFT,kol_TypeAir,ICAO,AK,kol_AK)
VALUES (@Marsrut,@All_Polet,@ProcPolet,null,null,null,null,null)  
SET @Count1 = @Count1 + 1 
                        -- цикл по второму курсору
                        FETCH FIRST FROM Cursor_Air INTO @MarsrutAir,@Type,@Air_Polet
                        SET @Count2 = 1
                        -- Формирую 1 строку маршрут + ВС
                        IF @Marsrut = @MarsrutAir BEGIN
                              INSERT KojevnikovAnalizFIR (Marsrut,All_Polet,PrcAll,TYPE_AIRCRAFT,kol_TypeAir,ICAO,AK,kol_AK)
                               VALUES (null,null,null,@Type,@Air_Polet,null,null,null)
                           END --IF  
                        WHILE @Count2 < @Count2_end BEGIN 
                        -- увеличиваю счетчик  курсора 2
                        FETCH NEXT FROM Cursor_Air INTO @MarsrutAir,@Type,@Air_Polet
                        -- Формирую строку маршрут + ВС
                        IF @Marsrut = @MarsrutAir BEGIN
                       INSERT KojevnikovAnalizFIR (Marsrut,All_Polet,PrcAll,TYPE_AIRCRAFT,kol_TypeAir,ICAO,AK,kol_AK)
                       VALUES (null,null,null,@Type,@Air_Polet,null,null,null)
                           END --IF       
                         -- закрываю цикл WHILE 2 (второй курсор)
                       SET @Count2 = @Count2 + 1
                        END   
                        -- цикл по третьему курсору
                        FETCH FIRST FROM Cursor_AK INTO @MarsrutAK,@ICAO,@AK,@kol_AK
                        SET @Count3 = 1
                        -- Формирую 1 строку маршрут + АК
                        IF @Marsrut = @MarsrutAK BEGIN
                       INSERT KojevnikovAnalizFIR (Marsrut,All_Polet,PrcAll,TYPE_AIRCRAFT,kol_TypeAir,ICAO,AK,kol_AK)
                       VALUES (null,null,null,null,null,@ICAO,@AK,@kol_AK)
                       END --IF  
                        WHILE @Count3 < @Count3_end BEGIN 
                        -- увеличиваю счетчик  курсора 3
                        FETCH NEXT FROM Cursor_AK INTO @MarsrutAK,@ICAO,@AK,@kol_AK
                        -- Формирую строку маршрут + ВС
                        IF @Marsrut = @MarsrutAK BEGIN
                       INSERT KojevnikovAnalizFIR (Marsrut,All_Polet,PrcAll,TYPE_AIRCRAFT,kol_TypeAir,ICAO,AK,kol_AK)
                       VALUES (null,null,null,null,null,@ICAO,@AK,@kol_AK)
                       END --IF       
                         -- закрываю цикл WHILE 2 (второй курсор)
                       SET @Count3 = @Count3 + 1
                        END   
-- закрываю цикл WHILE 1 (первый курсор)
END
                        -- Закрываю курсор 2
                        CLOSE Cursor_Air 
                        -- Удаляю курсор 1 как обьект
                        DEALLOCATE Cursor_Air
                        -- Закрываю курсор 3
                        CLOSE Cursor_AK 
                        -- Удаляю курсор 1 как обьект
                        DEALLOCATE Cursor_AK
-- Закрываю курсор
CLOSE Cursor_All_Pol 
-- Удаляю курсор 1 как обьект
DEALLOCATE Cursor_All_Pol
------------Конец--------------------
GO
select * from KojevnikovAnalizFIR 
truncate table dbo.KojevnikovAnalizFIR
DELETE from KojevnikovAnalizFIR
exec dbo.KojevnikovFir '2004-01-01','2004-01-05'

    курсор головного мозга 2.1

    Запостил: bahamot, 18 Февраля 2014

    Комментарии (2) RSS

    • ava Konardo 18.02.2014 13:36 # −15

      показать все, что скрытоТоропись в укрытие - не далее, как две минуты назад над моим районом наблюдалась целая армада несущихся к тебе раскалённых сомалийских и камерунских пенисов, винтом рассёкших атмосферу и оставивших после себя полосу дыма да выбитые звуковой волной оконные стёкла.
      Ответить

    • ava Konardo 18.02.2014 15:51 # −17

      показать все, что скрытоЗначит, так, блядинище ты этакое, запомни: вся та поебень, которую ты написал, мне и в хуй не упёрлась. Оно и понятно - такое тупое говнобольнораспрохуеперепизженное чмо, как ты, ничего умнее этой невероятнейшей хуйни написать и не может. Чего ты, обхуйнок ты говнорожий, пытаешься добиться этой писаниной? Хорошо же, сидя дома, нести всякую херню - всё равно никто хайло не набьёт; но я советую тебе, бляди блядущей да хуй очком сосущей, вести себя как можно тише и не писать всякую хуёвину - зачем выдавать тупость своих родителей, которые, поди, ничем, кроме ебли с обезьянами, и не занимались. Хватит писать хуйню - съебись достойно, чмо. Уповаю на то, что ты поразмыслишь над этим посланием и извлечёшь из него что-нибудь для себя. Прощай, выговнок хуеблядский.
      Ответить

    Добавить комментарий