Курсовая "Базы данных" на pascal

      else if tek=5 then vfile:=false;

      tek:=2;

    end;

    6:begin

      nast:=menu3;  menus(nast,nast.m);  tek:=2;

    end;

    8:begin

      nast:=menu4;  menus(nast,nast.m);  tek:=2;

    end;

    9: begin

      exist:=true;

    end;

    end;

  end 

  else if nast.st[1]=menu3.st[1] then begin  {Если текущее меню-menu3}

    case tek of

    2,3,4:begin

      izm:=tek-1;

      nast:=menu2;  menus(nast,nast.m); tek:=2;

    end;

    5:begin

      nast:=menu1;

      menus(nast,nast.m); tek:=2;

    end;

    end;

  end 

  else if nast.st[1]=menu4.st[1] then begin  {Если текущее меню-menu4}

   case tek of

   2,3,4,5,6:zapros(tek);

   7:begin

      nast:=menu1;

      menus(nast,nast.m);  tek:=2;

   end;

   end;

  end 

    else if nast.st[1]=menu2.st[1] then begin {Если текущее меню-menu2}

      if izm>0 then begin

        case tek of

          2:obrabotka(izm, tek-1,tt1);

          3:obrabotka(izm, tek-1,tt2);

          4:obrabotka(izm, tek-1,tt3);

          5:obrabotka(izm, tek-1,tt4);

        6:begin

        nast:=menu1;  menus(nast,nast.m); izm:=0; tek:=2;

        end;

        end;

      end

      else if issor=true then begin

        issor:=false;

        case tek of

        2:sort(izm, tek-1,tt1);

        3:sort(izm, tek-1,tt2);

        4:sort(izm, tek-1,tt3);

        5:sort(izm, tek-1,tt4);

        6:begin

        nast:=menu1;  menus(nast,nast.m);  izm:=0;  tek:=2;

        end;

        end;

      end 

      else begin

        case tek of

        2:if vfile then tabl11(tek,tt1)

          else tabl1(tek,tt1,false);

       3:if vfile then tabl11(tek,tt2)

          else tabl1(tek,tt2,false);

        4:if vfile then tabl11(tek,tt3)

          else tabl1(tek,tt3,false);

        5:if vfile then tabl11(tek,tt4)

          else tabl1(tek,tt4,false);

        6:begin

        nast:=menu1;  menus(nast,nast.m);  izm:=0;  tek:=2;

        end;

        end;

      end;

  end;

end; 

begin

clrscr;

textBackground(black);

tek:=2;       kr:='-';

   exist:=false;

nast:=menu1;  menus(nast,nast.m);

  while 1>0 do begin

    if keypressed then key:=readkey;

    case key of

     #80:ramka('+');

     #72:ramka('-');

     #27:exist:=true;

     #13:main;

    end;

  if exist then exit;

  krutis;

  end;

end.

 

Текст модуля Tips.pas

Unit tips;

interface

type

  pered=record

    st:array[1..12] of string;

    m:byte;

  end; 

  tabl2=record

    t1,t2,t3,t4,t5:string[12];

    end;

  cc=^tab;

  tab=record

    tabl:tabl2;

    sled:cc;

  end; 

var

menu1,menu2,menu3,menu4:pered;

mm:array[1..5,1..5] of string[50];

implementation

begin

with menu1 do begin

  st[1]:='БАЗА ДАННЫХ';

  st[2]:='Загрузка';

  st[3]:='Сохр. в  тип. файл';

  st[4]:='Сохр. в  текст. файл';

  st[5]:='Просмотр';

  st[6]:='Корректировка';

  st[7]:='Сортировка';

  st[8]:='Запросы';

  st[9]:='Выход';

  m:=9;

end;

  mm[1,1]:='Номер  книги';

  mm[1,2]:='Автор';

  mm[1,3]:='Наименование';

  mm[1,4]:='Год  издания';

  mm[1,5]:='Код  издател.';

  mm[2,1]:='№ читат.билета';

  mm[2,2]:='Фамилия';

  mm[2,3]:='Адрес';

  mm[2,4]:='Дата рождения';

  mm[2,5]:='Телефон';

  mm[3,1]:='Код издател.';

  mm[3,2]:='Наименование';

  mm[3,3]:='Адрес';

  mm[3,4]:='e-mail';

  mm[3,5]:='Телефон';

  mm[4,1]:='№ читат.билета';

  mm[4,2]:='Дата выдачи';

  mm[4,3]:='Дата возврата';

  mm[4,4]:='Дата факт.возврата';

  mm[4,5]:='Номер книги'; 

with menu2 do begin

  st[1]:='ПРОСМОТР';

  st[2]:='Книги';

  st[3]:='Читатели ';

  st[4]:=' Издательства';

  st[5]:='Выдача и возврат книг';

  st[6]:='Выход';

  m:=6;

end;

with menu3 do begin

  st[1]:='КОРРЕКТИРОВКА';

  st[2]:='Добавление';

  st[3]:='Удаление';

  st[4]:='Изменение';

  st[5]:='Выход';

  m:=5;

end;

with menu4 do begin

  st[1]:='ЗАПРОСЫ';

  st[2]:='Выдача и возврат книг';

  st[3]:='Книга, какого издательства у читателя на руках';

  st[4]:='Издательство, в котором издана книга';

  st[5]:='Данные о книге';

  st[6]:='Дата сдачи книги';

  st[7]:='Выход';

  m:=7;

end;

end.