Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Автоматическое напоминание... [D7, XP]


Олег Валерьевич ©   (2007-04-25 00:02:00) 

Есть таблица парадокс, в ней есть поле 'дата рождения'. Нужно сделать напоминание в виде сообщения, за 5 дней до дня рождения. Помогите мастера!!! Ах да.. это напоминание должно срабатывать при запуске программы.))


ASoft   (2007-04-25 05:30:00) [1]

Table.fieldbyname('data').asdatetime хотя бы


Олег Валерьевич   (2007-04-25 02:57:00) [2]

DecodeDate(DateTimePicker1.Date, Year, Month, Day);
 DecodeDate(Date, CurrentYear, CurrentMonth, CurrentDay);
 if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then
   Age :=0
   else
 begin
   Age := CurrentYear - Year;
   if (Month > CurrentMonth) then
     dec(Age)
   else if Month = CurrentMonth then
     if (Day > CurrentDay) then
       dec(Age);
 end;
 Button2.Caption := IntToStr(Age);
 if Age=0 then ShowMessage('ДР')
Но это всё берётся из пикера.
Как нужно обращаться к таблице?


{RASkov}   (2007-04-25 02:52:00) [3]

> [10] Олег Валерьевич   (25.04.07 02:45)
> Но вот как же сделать, что бы онобрало дату не из Пикера, а из таблицы?

А "оно" что - не хочет брать... сопротивляется?
Ну ты или код показывай - как делаешь, или вопрос задай так, чтоб понятным был не только тебе.


Олег Валерьевич   (2007-04-25 02:45:00) [4]

Вот получилась сделать по ДатаТаймПикеру(...DecodeDate(DateTimePicker2.Date, Year, Month, Day);....), т.е. выставляя на нём дату рождения оно превосходно показывает возрост.
Но вот как же сделать, что бы оно брало дату не из Пикера, а из таблицы?


Германн   (2007-04-25 01:33:00) [5]


> Олег Валерьевич   (25.04.07 00:40) [7]
>
> Если я не ошибаюсь всё это можно вместить в две строчки.
>
>

Это даже можно вместить и в одну строку! Никто ещё не запретил в Паскале такое!
Ну разве что конкретные компилляторы не смогут такую строку обработать! Но тут все претензии к разработчику компиллятора :)


{RASkov}   (2007-04-25 00:45:00) [6]

> но мой очень маленький опыт работы в делфи не позволяет
> полностью реализовать мой план.))

Рассмешил... :) чесслово.

> Если я не ошибаюсь всё это можно вместить в две строчки.

По большей части - ошибаешься.

> Я всего лишь прошу натолкнуть на мысль.

Придется при запуске просматривать все записи и поле ДР на предмет разницы текущей даты и даты в ДР, не учитывая год.


Олег Валерьевич   (2007-04-25 00:40:00) [7]

Если я не ошибаюсь всё это можно вместить в две строчки.
Я даже примерно представляю, как это можно сделать, но мой очень маленький опыт работы в делфи не позволяет полностью реализовать мой план.))
Я всего лишь прошу натолкнуть на мысль.


Johnmen   (2007-04-25 00:30:00) [8]

Хм... Это программу за тебя написать? Или вводный курс по программированию прочитать? И то и другое - реально!


Олег Валерьевич   (2007-04-25 00:28:00) [9]

А именно как сделать счётчик который за 5 дней до дня рождения выведет сообщение пользователю. Как связать ShowMessage() с полем Д.Р. Как сделать, что бы именно при запуске программы срабатывало сообщение (бес всяких нажатий на кнопки и т.п.)


Johnmen   (2007-04-25 00:17:00) [10]

Что конкретно?


Германн   (2007-04-25 00:16:00) [11]


> Олег Валерьевич   (25.04.07 00:12) [2]
>
> Проблема в том что я не знаю как это сделать..))
>

ShowMessage()


Олег Валерьевич   (2007-04-25 00:12:00) [12]

Проблема в том что я не знаю как это сделать..))


Johnmen   (2007-04-25 00:08:00) [13]

И с чем проблемы?


Наверх

Титульная страница Поиск, карта сайта Написать письмо