Иллюстрированный самоучитель по Visual FoxPro 8

Использование в форме календаря

10. В окне процедур свойства click (Нажатие) введите команды, которые программно формируют и задают свойства ActiveX-компонента календарь (рис. 16.26):

    #DEFINE С CALCAFTIOK_LOC "Календарь"
    oCalForm = Create('form1)
    oCalForm.NewObject("oleCalendar","_olecalendar","_datetime")
    WITH oCalForm.oleCalendar
    .date_column = "manager.ddatebirch"
    .RefreshDisplay()
    .BackColor = THISFORM.BackColor
    .Visible =. T. ENDWITH WITH oCalForm
    .BorderStyle – '.:
    .MaxButton =.F.
    .MinButton =.F.
    .Height = oCalForm.oleCalendar.Height
    .Width = oCalForm.oleCalendar.Width
    .Caption = C__CALCAPTION_LOC ENDWITH
    oCalForm.Show(1) THISFORM.Refresh
    

11. Закройте окно процедур.

Создание формы завершено. Запустите ее на выполнение. Для ввода информации в поле дата рождения нажмите кнопку Календарь. На экране откроется календарь. Выберите необходимое число, месяц и год и закройте календарь. Указанная вами дата будет перенесена в поле дата рождения (рис. 16.27).

Рис. 16.27. Использование ActiveX-компонента для ввода информации в таблицу