1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
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

procedure TfmAllParams.NInsertParamSelebrationClick(Sender: TObject);
var
  str: string;
begin
  str := //Новый год
    ' if not exists (select id from sta_param_selebration ' +
    '            where date_selebration=' + #39 + '01.01.' + IntToStr(YearOf(GetServerDate)) + #39 + ')' +
    ' insert into sta_param_selebration (selebration_day, selebration_month ,selebration_state,text_selebration,selebration_year)' +
    ' values(1,1,null,null,null) ' +
        //День св. Валентина
  ' if not exists (select id from sta_param_selebration ' +
    '            where date_selebration=' + #39 + '14.02.' + IntToStr(YearOf(GetServerDate)) + #39 + ')' +
    ' insert into sta_param_selebration (selebration_day, selebration_month ,selebration_state,text_selebration,selebration_year)' +
    ' values(14,2,null,null,null) ' +
        //8 марта
  ' if not exists (select id from sta_param_selebration ' +
    '            where date_selebration=' + #39 + '08.03.' + IntToStr(YearOf(GetServerDate)) + #39 + ')' +
    ' insert into sta_param_selebration (selebration_day, selebration_month ,selebration_state,text_selebration,selebration_year)' +
    ' values(8,3,' + #39 + 'жін.' + #39 + ',null,null) ' +
        //1 мая
  ' if not exists (select id from sta_param_selebration ' +
    '            where date_selebration=' + #39 + '01.05.' + IntToStr(YearOf(GetServerDate)) + #39 + ')' +
    ' insert into sta_param_selebration (selebration_day, selebration_month ,selebration_state,text_selebration,selebration_year)' +
    ' values(1,5,null,null,null) ' +
        //Пасха
  ' if not exists (select id from sta_param_selebration ' +
    '            where date_selebration=' + #39 + '04.04.2010' + #39 + ' and text_selebration=' + #39 + 'Pasha' + #39 + ')' +
    ' insert into sta_param_selebration (selebration_day, selebration_month ,text_selebration,selebration_year)' +
    ' values(4,4,' + #39 + 'Pasha' + #39 + ',2010) ' +

  ' if not exists (select id from sta_param_selebration ' +
    '            where date_selebration=' + #39 + '24.04.2011' + #39 + ' and text_selebration=' + #39 + 'Pasha' + #39 + ')' +
    ' insert into sta_param_selebration (selebration_day, selebration_month ,text_selebration,selebration_year)' +
    ' values(24,4,' + #39 + 'Pasha' + #39 + ',2011) ' +

   // И 10 таких же запросов на каждый год!

  ' if not exists (select id from sta_param_selebration ' +
    '            where date_selebration=' + #39 + '24.04.2022' + #39 + ' and text_selebration=' + #39 + 'Pasha' + #39 + ')' +
    ' insert into sta_param_selebration (selebration_day, selebration_month ,text_selebration,selebration_year)' +
    ' values(24,4,' + #39 + 'Pasha' + #39 + ',2022) ' +