Создание базы данных с таблицами и заполнение их информацией (контрольная работа), страница 2

Блок – схема алгоритма реализации

Распечатка текстов программ и «твердые копии» форм документа

Рис 1. Главная форма

Программный код, выполняемый при нажатии  на кнопку «Поиск и сортировка данных»:

DO FORM "d:\users\пк\documents\visual foxpro projects\ермолина\поиск и сортировка.scx"

Программный код, выполняемый при нажатии  на кнопку «Просмотр и редактирование БД»:

DO FORM "d:\users\пк\documents\visual foxpro projects\ермолина\просмотр.scx"

Программный код, выполняемый при нажатии  на кнопку «Вывод на печать»:

DO FORM "d:\users\пк\documents\visual foxpro projects\ермолина\печать.scx"

Программный код, выполняемый при нажатии  на кнопку «Выход»:

THISFORM.Release

Рис 2. Форма «Поиск и сортировка»

Программный код, выполняемый при нажатии  на кнопку «Поиск»:

SELECT Table_уебного_отдела.stroka,;  Table_уебного_отдела.family+Table_уебного_отдела.name+Table_уебного_отдела.otchest,;

Table_уебного_отдела.yearbir, Table_уебного_отдела.kafed,;

Table_уебного_отдела.dolzhnost, Table_уебного_отдела.nagruzka,;

Table_уебного_отдела.lekcii, Table_уебного_отдела.koncult,;

Table_уебного_отдела.praktika, Table_уебного_отдела.laborator,;

Table_уебного_отдела.kursov;

FROM ;

     "досье учебного отдела!table уебного отдела" Table_уебного_отдела;    

WHERE Table_уебного_отдела.family=thisform.text1.Value OR Table_уебного_отдела.name=thisform.text1.Value;

  OR Table_уебного_отдела.otchest=thisform.text1.Value OR Table_уебного_отдела.kafed=thisform.text1.Value;

  OR Table_уебного_отдела.dolzhnost=thisform.text1.Value;

ORDER BY  Table_уебного_отдела.stroka

Рис 3. Результат поиска.

Программный код, выполняемый при нажатии  на кнопку «Сортировать»:

IF Thisform.Combo1.Value='строке'then

SELECT Table_уебного_отдела.stroka, Table_уебного_отдела.family,;

  Table_уебного_отдела.name, Table_уебного_отдела.otchest,;

  Table_уебного_отдела.yearbir, Table_уебного_отдела.kafed,;

  Table_уебного_отдела.dolzhnost, Table_уебного_отдела.nagruzka,;

  Table_уебного_отдела.lekcii, Table_уебного_отдела.koncult,;

  Table_уебного_отдела.praktika, Table_уебного_отдела.laborator,;

  Table_уебного_отдела.kursov;

 FROM;

     "досье учебного отдела!table уебного отдела" Table_уебного_отдела;

ORDER BY Table_уебного_отдела.stroka

  ENDIF

  IF Thisform.Combo1.Value='Фамилия'then

SELECT Table_уебного_отдела.stroka,;

Table_уебного_отдела.family+Table_уебного_отдела.name+Table_уебного_отдела.otchest,;

  Table_уебного_отдела.yearbir, Table_уебного_отдела.kafed,;