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

 ENDIF

  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_уебного_отдела.pracktik;

 ENDIF

  IF Thisform.Combo1.Value='лабораторные'then

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

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

Table_уебного_отдела.family+Table_уебного_отдела.name+Table_уебного_отдела.otchest,;Table_уебного_отдела.nagruzka,; Table_уебного_отдела.lekcii,; Table_уебного_отдела.koncult, Table_уебного_отдела.praktika,;  Table_уебного_отдела.laborator, Table_уебного_отдела.kursov;

 FROM ;

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

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

 ENDIF

 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_уебного_отдела.kursof;

ENDIF

Рис 4. Результат сортировки по кафедрам.

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

thisform.Releas

Рис 5. Форма «Просмотр и редактирование БД»

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

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;