База данных Опции

[Arei]

Создать систему управления базой данных (СУБД) в которой предусмотреть следующие режимы: создание БД, вывод БД, добавление записей в БД, удаление записей из БД, корректировка сведений в БД, печать сведений из базы по запросу, выход из БД. Все режимы должны представлены в виде функционального меню. Режим печати по запросу должен предусматривать подменю выбора запросов. Тестирование СУБД осуществить на БД «Больница №4».
В приемном покое больницы №4 содержатся сведения о больных поступивших на лечение. Одна запись этого списка содержит: Ф.И.О. больного, номер палаты, пол, диагноз, дата поступления. СУБД должна выдавать следующие сведения:
- в какой палате лежит больной Х;
- список больных с указанным диагнозом;
- больного наиболее долго находящегося в больнице;
- сколько мужчин и сколько женщин находятся на лечении;
+ выдать все диагнозы, с которыми больные стоят на учете;
+ сортировка по отдельным полям



"Реализация концепции СУБД через массив записного типа языка Pascal"
Реализовать:
- Функциональное меню
- Ввод БД
- Выдод БД
- Не менее двух запросов




Помогите пожалуйста.Очень надо, если я это не сделаю до понедельника, то меня отчислят.Заранее спасибо.

Сообщение отредактировано: Arei - 17.09.2010 3:42

[Arei]

                  
uses crt;
type
   TRec = record
       fName:string[31];
       secName:string[31];
       thName:string[31];
      nomer:string;
       Pol:string[20];
       Diag:string[20];
       baza  :string[20];
       Sam   :string[20];
       Daim   :string[20];
       Swam   :string[20];
       Qwert  :string[20];
       fme  :string[20];
   end;

var
   i,n:integer;
   BD:array[1..100] of TRec;
   PunktOfMenu: char;
   MainMenuTitle  : char;
   caseKey: char;

Begin

   clrscr;
   write('Кол-во ,больных в больнице = '); readln(n);
   for i:=1 to 1 do
    with BD[i] do
      begin

write('Открыть меню  : '); read(Sam);
            if Sam='Да'then



begin
    writeLn;
    writeLn('Выберите нужное действие:');
    writeLn('1 - Ввод Базы данных');
    writeLn('2 - Вывод Базы данных');
    writeLn('3 - Подменю запросов к Базе данных')   ;
    writeLn('5 - Выход');
    write('Ваш выбор:');
    readLn(PunktOfMenu);
    MainMenuTitle := PunktOfMenu;
end;

begin
   repeat

     PunktOfMenu:=MainMenuTitle;
     case PunktOfMenu of
       '1':    begin
       writeln;
        writeln   ('База данных перед изменения ');
       write('Имя : '); readln(fName);
       write('Фамилия : '); readln(secName);
       write('Отчество : '); readln(thName);
       write('Номер палаты: '); readln(nomer);
       write('Пол : '); readln(Pol);
       write('Диагноз: '); readln(Diag);

         writeLn('Для прекращения ввода нажмите "0"'); readln(caseKey);
              begin
                    if caseKey='0'then


                     begin
   for i:=1 to n do
    with BD[i] do
       writeln   ('База данных после изменения ');
    writeln('Имя : ',fname);
        writeln('Фамилия : ',secName);
        writeln('Отчество : ',thName);
        writeln('Номер палаты: ',nomer);
        writeln('Пол  : ',Pol);
        writeln('Диагноз : ',Diag);
          writeln;

        end;
     end;

 end;
'2':
begin
 writeln   ('База данных после изменения ');
        writeln('Имя : ',fname);
        writeln('Фамилия : ',secName);
        writeln('Отчество : ',thName);
        writeln('Номер палаты: ',nomer);
        writeln('Пол  : ',Pol);
        writeln('Диагноз : ',Diag);

        writeln;

        end;


     end;{case}


   until PunktOfMenu='2' ;

begin

end;




end;
end;
end.

Вот что умудрился сделать за ночь.Есть море ошибок я так думаю.Помогите мне и да же советом.

Вот нашёл на форуме реализацию нужной ме функции, но не могу её удачно приспособить вот она


Заранее спасибо а помощь.

Добавлено через 2 мин.

http://forum.pascalnet.ru/index.php?showtopic=25694&hl вот ссылка на тему нужную мне