Другие предметы \ Базы данных

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

FROM ;

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

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

Рис 6. Форма «Просмотреть»

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

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

thisform.Release

Рис 7. Форма «Редактирования»

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

thisform.Release

Рис 7. Форма «Печать справок»

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

IF thisform.Check2.Value=1 then

IF thisform.Check1.Value=1 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_уебного_отдела;

REPORT FORM  по фамилиям  PREVIEW

 ENDIF

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

REPORT FORM  по фамилиям  

  TO PRINTER PROMPT

  ELSE

  IF thisform.Check1.Value=1 then

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

REPORT FORM  по фамилиям  PREVIEW

 ENDIF

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

REPORT FORM  по фамилиям  

Скачать файл