Разработки форм с использованием конструктора форм для учебной БД

Цель работы: Приобретение навыков разработки форм с использованием конструктора форм для учебной БД.

Задание к лабораторной работе, вариант 6:

     Разработать форму с помощью мастера автоформы и конструктора форм согласно варианту лабораторной работы №1.

     При создании формы в окне конструктора форм осуществить настройку параметров формы, разместить в форме: текст, поля различных типов, рисунки, кнопки управления, выполнить настройку свойств размещенных в форме объектов. Уметь задавать текст заголовка формы, стиль обрамления, текстовую информацию, поля ввода и редактирования. Создать раскрывающийся список, счетчик, переключатель, флажки, одиночную кнопку и набор кнопок управления, разместить изображение в форме, использовать линии, прямоугольники и другие фигуры для улучшения внешнего вида формы.

Текст программы:

//Command1

ThisForm.Pageframe1.Page1.Text1.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text2.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text3.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text4.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text5.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text6.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text7.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text8.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text9.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text10.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text11.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text12.ReadOnly=.T.

IF NOT BOF()

     SKIP -1

ENDIF

ThisForm.Refresh()

RETURN

//Command2

ThisForm.Pageframe1.Page1.Text1.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text2.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text3.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text4.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text5.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text6.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text7.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text8.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text9.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text10.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text11.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text12.ReadOnly=.T.

IF NOT EOF()

     SKIP

ENDIF

IF EOF()

     SKIP -1

ENDIF

ThisForm.Refresh()

RETURN

//Command3

ThisForm.Pageframe1.Page1.Text1.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text2.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text3.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text4.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text5.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text6.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text7.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text8.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text9.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text10.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text11.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text12.ReadOnly=.T.

GO BOTTOM

ThisForm.Refresh()

RETURN

//Command4

ThisForm.Pageframe1.Page1.Text1.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text2.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text3.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text4.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text5.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text6.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text7.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text8.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text9.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text10.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text11.ReadOnly=.T.

ThisForm.Pageframe1.Page1.Text12.ReadOnly=.T.

GO TOP

ThisForm.Refresh()

RETURN

//Command5

ThisForm.Pageframe1.Page1.Text1.ReadOnly=.F.

ThisForm.Pageframe1.Page1.Text2.ReadOnly=.F.

ThisForm.Pageframe1.Page1.Text3.ReadOnly=.F.

ThisForm.Pageframe1.Page1.Text4.ReadOnly=.F.

ThisForm.Pageframe1.Page1.Text5.ReadOnly=.F.

ThisForm.Pageframe1.Page1.Text6.ReadOnly=.F.

ThisForm.Pageframe1.Page1.Text7.ReadOnly=.F.

ThisForm.Pageframe1.Page1.Text8.ReadOnly=.F.

ThisForm.Pageframe1.Page1.Text9.ReadOnly=.F.

ThisForm.Pageframe1.Page1.Text10.ReadOnly=.F.

ThisForm.Pageframe1.Page1.Text11.ReadOnly=.F.

ThisForm.Pageframe1.Page1.Text12.ReadOnly=.F.

ThisForm.Refresh()

RETURN

//Optiongroup1

i=ThisForm.Pageframe1.Page2.Optiongroup1.Value

if i=1

ThisForm.Pageframe1.Page2.Image1.Picture="Волны.bmp"

endif

if i=2

ThisForm.Pageframe1.Page2.Image1.Picture="Заклепки.bmp"

endif

if i=3

ThisForm.Pageframe1.Page2.Image1.Picture="Клыки.bmp"

Endif

//Combo1

ThisForm.Pageframe1.Page3.Combo1.AddItem("Первая")

ThisForm.Pageframe1.Page3.Combo1.AddItem("Вторая")

ThisForm.Pageframe1.Page3.Combo1.AddItem("Третья")

//Check1

if ThisForm.Pageframe1.Page3.Check1.Value=1

ThisForm.Pageframe1.Page3.Image1.Visible=.F.

else

  ThisForm.Pageframe1.Page3.Image1.Visible=.T.

endif

//Check2

if ThisForm.Pageframe1.Page3.Check2.Value=1

ThisForm.Pageframe1.Page3.Combo1.Enabled=.F.

else

  ThisForm.Pageframe1.Page3.Combo1.Enabled=.T.

endif

Результат работы программы: