Шаг 20 - Birthday (Добавляем кнопки)

Итак, нарастим функционал. Просматривать сегодняшних именинников одно, но хотелось бы менять дату. Для этого добавим на форму три кнопки:

20_1.gif (5413 b)

Поместим на наши кнопки картинки в виде стрелок (вперед/назад), и еще одну в виде блокнота. Для этого стираем текст в свойстве кнопки Caption и нажимаем Enter, теперь свойству присвоилось значение (None). Дальше, для того, чтобы поместить на кнопку картинку, изменим свойство Picture:

20_2.gif (3553 b)

Стандартные значки можно найти по пути: Microsoft Visual Studio\Common\Graphics. После этого получаем примерно следующее:

20_3.gif (1381 b)

Теперь пишем код. Сначала изменим процедуру на инициализацию формы (Init Event):

public oMainForm, dToday
oMainForm = thisform
dToday = date()
oMainForm.PeopleList.RowSourceType = 3
GetPeople()

Таким образом, мы получили доступ к форме извне через переменную oMainForm. Добавим процедуру для заполнения списка. Создаем новую программу в проекте под названием GetPeople, в ней пишем:

cSQL = 'select name_ from birthday into cursor tmpcur where ' +;
	'month(date_) = month(dToday) and day(date_) = day(dToday)'
oMainForm.PeopleList.RowSource = cSQL

Осталось события на нажатие кнопок добавить (Click Event):

dToday = dToday - 1
GetPeople()
и соответственно:
dToday = dToday + 1
GetPeople()

Вот и все можно запускать. Нажимаем "вперед", попадаем в завтра, "назад" - во вчера и т.д.


Загрузить проект | Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Клементьев В.А.