Создание БАЗЫ ДАННЫХ в Pascal (Часть5).

В прошлых уроках мы создали программу, которая вводит с клавиатуры данные о 20-и сотрудниках организации и сохраняет их в файл. Теперь нам необходимо создать своеобразный интерфейс, где пользователю будут предложены различные варианты для редактирования базы данных (удаление записи о сотруднике, добавление записи о новом сотруднике и т.д.). Все эти действия с базой данных будут описаны отдельными процедурами.

1. Program baza_dan2;
2. uses crt;
3. var vibor:integer;
4. begin
5.     clrscr;
6.     writeln('Выберите действие');
7.     writeln('Нажмите 1 для добавления записи в базу данных');
8.     writeln('Нажмите 2 для вывода карточки сотрудника');
9.     writeln('Нажмите 3 для вывода информации о сотруднике');
10.    writeln('Нажмите 4 для сортировки базы данных');
11.    writeln('Нажмите 5 для удаления записи о сотруднике');
12.    writeln('Нажмите 6 для статистического анализа базы данных');
13.    readln(vibor);
14. end.

Выводим на экран сообщения, в котором пользователю предлагается выбрать тот или иной вариант для работы с базой данных.

Для того чтобы при нажатии той или иной клавиши выполнялось то или иное действие необходимо использовать оператор выбора Case..of. В этом случае программа будет иметь вид:

1. Program baza_dan2;
2. uses crt;
3. var vibor:integer;
4. begin
5.      clrscr;
6.      writeln('Выберите действие');
7.      writeln('Нажмите 1 для добавления записи в базу данных');
8.      writeln('Нажмите 2 для вывода карточки сотрудника');
9.      writeln('Нажмите 3 для вывода информации о сотруднике');
10.     writeln('Нажмите 4 для сортировки базы данных');
11.     writeln('Нажмите 5 для удаления записи о сотруднике');
12.     writeln('Нажмите 6 для статистического анализа базы данных');
13.     readln(vibor);
14.   case vibor of
15.      1:add_record;
16.      2:vivod_kart_sotr;
17.      3:vivod_info_sotr;
18.      4:sortirovka;
19.      5:del_record;
20.      6:stat_analiz;
21.   end;
22. end.

Строка №14. Записываем оператор выбора Case..of.

Строка №15-№22. Записываем возможные варианты. Таким образом получается, что при нажатии на цифру 1 начнет работать процедура, имеющая имя «add_record», при нажатии на цифру 2 начнет действовать процедура «vivod_kart_sotr» и т.д. В нашем примере процедура «add_record» служит для добавления записи в базу данных. Процедура «vivod_kart_sotr» служит для вывода карточки сотрудника по введенной фамилии. Процедура «vivod_info_sotr» служит для вывода информации о сотруднике и т.д. Всего в программе присутствует 6 процедур для управления базой данных согласно тем условиям, которые мы описали в первом уроке.
Естественно, что эта программа не будет работать, так как этих процедур у нас еще нет. В следующем уроке мы напишем первую процедуру, которая добавляет в базу данных запись о новом сотруднике.

Предыдущая статья : Создание БАЗЫ ДАННЫХ в Pascal (Часть4).
Оглавление : Уроки Паскаль. Примеры.
Следующая статья : Создание БАЗЫ ДАННЫХ в Pascal (Часть5).