Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#1: 2014-08-27 10:56:50 ЛС | профиль | цитата
sprtel_2.rar
Критика приветствуется.
------------ Д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)
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
2
файлы: 1sprtel_2.rar [30.1KB] [410]
Голосовали:Konst, Dseren
vip
#1.1контекстная реклама от партнеров
1
Сообщение
...
Прикрепленные файлы
(файлы не залиты)