- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 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) ' +
bugmenot 03.08.2010 15:39 # 0
а пейсах этот поц вообще написать не может
Анонимус 03.08.2010 17:30 # +2
Lure Of Chaos 03.08.2010 21:16 # +6