Мы описали свойства календаря. Теперь посмотрим, как можно использовать данный ActiveX-компонент для ввода информации в поля таблицы, содержащие даты. В качестве примера создадим форму для ввода информации о сотрудниках фирмы. Исходная таблица Manager содержит поле ddatebirth с информацией о дате рождения сотрудника. Информацию в это поле будем вводить с помощью программно формируемого ActiveX-компонента календарь.
Чтобы создать форму, выполните следующие действия:
#DEFINE C_CALCAPTION_LOC "Календарь"
oCalForm = Create('form' )
oCalForm.NewObject("oleCalendar","_olecalendar", "_datetime")
WITH oCalForm.oleCalendar
.date_cclumn = "manager.ddatebirth"
.RefreshDisplay{)
.BackColor = THISFORM.BackColor
.Visible = .T.
ENDWITH
WITH OCalForm
.BorderStyle = 2
.MaxButton = .F.
.MinButton = .F.
.Height = oCalForm.oleCalendar.Height
.Width = oCalForm. oleCalendar.Width
.Caption = C_CALCAPTION_LOC
ENDWITH
oCalForm.Show(l)
THISFORM.Refresh
Создание формы завершено. Запустите ее на выполнение. Для ввода информации в поле дата рождения нажмите кнопку Календарь. На экране откроется календарь. Выберите необходимое число, месяц и год и закройте календарь. Указанная вами дата будет перенесена в поле день рождения.