Шаг 18 - Birthday (добавляем список на форму)

Главным элементом нашей формы (собственно для чего все и затевалось) будет список с именами людей, которые будут соответствовать условию выборки. Давайте его добавим его на форму и назовем PeopleList:

18_1.gif (19012 b)

На инициализацию формы (Init Event) пишем:

public dToday
dToday = date()

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

RowSourceType = 3 означает, что источником данных для нашего списка будет выражение SQL, RowSource свойству мы и присвоим это выражение.

Отметим, что в SQL запросе необходимо указать назначение выборки (я это сделал с помощью курсора) ... into cursor tmpcur, иначе сначала появится окно с результатами выборки:

18_2.gif (10329 b)

А так в окне Project Manager жмем Run и сразу получаем результат:

18_3.gif (12420 b)

Со списком все. Дальше функционал будем развивать в следующих шагах.


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