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

  TO PRINTER PROMPT

  ENDIF

Рис 8. Форма «Печать по фамилии»

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

IF thisform.Check2.Value=1 then

IF thisform.Check1.Value=1 then

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

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

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

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

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

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

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

 FROM ;

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

REPORT FORM  по каф  PREVIEW

ENDIF

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

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

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

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

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

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

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

 FROM ;

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

REPORT FORM  по каф 

 TO PRINTER PROMPT

  ELSE

 IF thisform.Check1.Value=1 then

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

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

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

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

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

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

 FROM ;

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

REPORT FORM  по каф  PREVIEW

 ENDIF

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

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

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

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

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

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

 FROM ;

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

REPORT FORM  по каф 

TO PRINTER PROMPT

  ENDIF

Рис 9. Форма «Печать по кафедрам»