Создание электронной базы данных

    write('Месяц -  ');    Textcolor(Blue);   {установить  цвет для текста}    readln(R_m);

    if (R_m<=0) or (R_m>12)

      then begin

             writeln('Вы ввели неверное значение!  Enter-продолжить, ESC-выход');

             repeat Key:=readkey; until (Key=#27) or (Key=#13);

             if Key=#27 then begin Textcolor(Black); exit; end;

           end;

    gotoxy(1,5);    write('                                                          ');

    Textcolor(Yellow);   {установить  цвет для текста}    gotoxy(20,4);  write(M2[R_m]);

  until (R_m>0) and (R_m<13);

  {вычислим кол-во дней в месяце текущего 2006 года}

  if (R_m=1)or(R_m=3)or(R_m=5)or(R_m=7)or(R_m=8)or(R_m=10)or(R_m=12)    then pr:=31;

  if (R_m=4)or(R_m=6)or(R_m=9)or(R_m=11)    then pr:=30;

  if R_m=2    then pr:=29;

    repeat{ввод дня}

    gotoxy(5,8);    write('         '); gotoxy(5,8);    Textcolor(Red);   {установить красный цвет для текста}

    write('День -  ');    Textcolor(Blue);   {установить  цвет для текста}    readln(R_d);

    if (R_d<=0) or (R_d>pr)

      then begin

             writeln('Вы ввели неверное значение!  Enter-продолжить, ESC-выход');

             repeat Key:=readkey; until (Key=#27) or (Key=#13);

             if Key=#27 then begin Textcolor(Black); exit; end;

           end;

    gotoxy(1,9);    write('                                                            ');

  until (R_d>0) and (R_d<=pr);

  Textcolor(Black);   {установить черный цвет для текста}

  str(R_d,s1);  str(R_m,s2);

N:= ss+'\'+s1+'_'+s2+'_'+'06.bd'; assign(F, N);{установить зависимость}

mm:= FSearch(N,ss);{поиск файла}

  if z=1 {поиск рейса}

    then begin

           if mm=''

             then begin   writeln; writeln('Рейс на данную дату не найден!');         readln;  exit;       end

           else begin   InfoFile(RD);{получить информацию из файла}               PodMenu;          end;

         end

    else begin {создание  нового рейса}

           if mm=''

             then begin{если его нет, то создать его}

                    Rs.K:=0; {кол-во пассажиров в самолете}

                    for j:=1 to Max do

                      begin     Rs.Sv[j]:=j;{свободные номера}  Rs.Ps[j].F:='';  Rs.Ps[j].M:=0;  Rs.Ps[j].P:='';           end;

                    InfoFile(WR);{---сохранить информацию в файл}               PodMenu;        end

           else begin

                  writeln; writeln('Извините, но такой рейс существует.');

                  writeln('Введите другую дату нового рейса.');

                  writeln('Или выберите пункт меню "Найти рейс!".');                readln;

                end;         end;end;

{---- Процедура вывода меню  на экран}

Procedure MainMenu;

var i:integer;      {переменные целого типа}

    Key:char;                  {переменная символьного типа}

begin

  ClrScr;             {очистить экран}  Textcolor(green);    {установить зеленый цвет рисования}

  gotoxy(10,6);  write('Г Л А В Н О Е   М Е Н Ю   П Р О Г Р А М М Ы !');{вывод на экран}

  Textcolor(LightBlue);{установить цвет рисования}

  for i:=1 to 3 do    begin gotoxy(20, 12+i); write(Pp[i]); end;

  Key:= readkey;      {Чтение кода нажатой клавиши}  ClrScr;             {очистить экран}

  Textcolor(Black);   {установить черный цвет для текста}

  case Key of         {оператор выбора}

    '1': Reisy(0);  {создать новый рейс}

    '2': Reisy(1);  {поиск созданного рейса}

    '3': Key:=#27;  {выход из программы}

  end;

  if Key=#27 then halt(0) {если нажата ESC-выход из программы}

end;

begin{-----начало основной программы}

  Rs.K:=0;  {очистить переменную - кол-во пассажиров в самолете}

  TextBackGround(White); {установить белый цвет текстового фона}

  Textcolor(Black);   {установить черный цвет для текста}

  GetDir(0, ss); {получить текущий каталог} clrscr;  {очистить экран}

  while true do MainMenu;{--- Цикл, в котором выполнятся работа с меню}

end.

 

 

Приложение 2. Результат работы.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1. Дериев И.И., Токарь С.В. Справочник по процедурам и функциям Borland Pascal  with Objects 7.0.    Киев 1993г.