Критика приветствуется.
------------ Дoбавленo в 10.56:
Заменив в GroupBox-ах компоненты DSC_Query, формирующие GroupBox.Caption, вместо
Сегодня. ХХ августа праздников - 2
получимСегодня. ХХ августа 2 праздника.
Добавил склонение слова "праздник". Более по русски. ("Мне так кажется."(с) )
Add(DSC_Query,12416440,427,322)
{
@Hint=#12:Для "Завтра"|
SQL="SELECT "Завтра. "||D||\r\n(SELECT name FROM months Where nom=M)||\r\nCASE \r\n WHEN n=0 THEN "праздников нет."\r\n WHEN n=1 THEN n||" праздник."\r\n WHEN n between 2 AND 4 THEN n||" праздника."\r\n WHEN n between 5 AND 20 THEN n||" праздников."\r\n END \r\nFROM \r\n(SELECT count() AS n FROM telspr WHERE month=strftime('%m','now','+1 day','localtime') and Day=strftime('%d','now','+1 day','localtime') ),\r\n(SELECT strftime('%d','now','+1 day','localtime') AS D),\r\n(SELECT strftime('%m','now','+1 day','localtime') AS M); "
DSManager="parent.parent.rab"
AddHint(-7,-31,85,13,@Hint)
}
Add(DSC_Query,3310340,301,322)
{
@Hint=#13:Для "Сегодня"|
SQL="SELECT "Сегодня. "||D||\r\n(SELECT name FROM months Where nom=M)||\r\nCASE \r\n WHEN n=0 THEN "праздников нет."\r\n WHEN n=1 THEN n||" праздник."\r\n WHEN n between 2 AND 4 THEN n||" праздника."\r\n WHEN n between 5 AND 20 THEN n||" праздников."\r\n END \r\nFROM \r\n(SELECT count() AS n FROM telspr WHERE month=strftime('%m','now','localtime') and Day=strftime('%d','now','localtime') ),\r\n(SELECT strftime('%d','now','localtime') AS D),\r\n(SELECT strftime('%m','now','localtime') AS M); "
DSManager="parent.parent.rab"
AddHint(-19,-33,91,13,@Hint)
}