TextBox и Label являются неотъемлемой частью большинства форм. Давайте посмотрим, как их можно использовать в VFP.

Поместим на наше главное окно TextBox, в котором будет отображаться текущая дата:

Изменим у него два свойства:

Name = 'TodayText'
ReadOnly = .T. &&только для чтения

Теперь в процедуре GetPeople добавим в конце строку:

oMainForm.TodayText.Value = dToday

Все можно запускать, в текстовом окне будет дата, которая меняется при нажатии на соответствующие кнопки:

Дальше изменим форму CurSelForm следующим образом:

Отмечу, что для того, чтобы выравнивать текст в TextBox и Label, нужно воспользоваться свойством Alignment.

Ну и пишем код на инициализацию CurSelForm (Init Event):

cCurSelMan = alltrim(oMainForm.PeopleList.DisplayValue)
if len(cCurSelMan) > 0 && т.е. выделена строка в списке
	select * from birthday into cursor curman;
		where alltrim(name_) = cCurSelMan
	if _tally > 0
		thisform.NameLabel.Caption = cCurSelMan
		thisform.PhoneText.Value = curman.phone
		thisform.EMailText.Value = curman.e_mail
		thisform.AdditText.Value = curman.additional
	endif
endif

Получаем результат:

Наверное, на этом я закончу проект Birthday, т.к. излишнее однообразие утомляет.