Шаг 23 - Birthday (Добавляем TextBox и Label)

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

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

23_1.gif (4745 b)

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

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

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

oMainForm.TodayText.Value = dToday

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

23_2.gif (4055 b)

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

23_3.gif (3098 b)

Отмечу, что для того, чтобы выравнивать текст в 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

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

23_4.gif (4700 b)

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


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