Курсовая работа: База данных Расписание поездов
true
![]() |
![]() |
false
![]() |
![]() | |
![]() |
Рис. 2.2. Алгоритм загрузки БД
4. Интерфейс
Взаимодействие с пользователем осуществляется при помощи меню и диалогов.
(Рис. 3.1 – Рис. 3.3)
Рис. 3.1. Главное меню
Рис. 3.2. Диалоги ввода информации
Рис. 3.3. Выполнение запроса
5. Процедуры и функции
Таблица 1. Процедуры и функции.
Процедура (функция) | Описание | Разработчик |
FunctionMenu | Меню базы данных | Керсанова Л.В. |
ProcedureLoadDB | Загрузка БД из файла | Керсанова Л.В |
ProcedureShowDB | Просмотр информации | Керсанова Л.В |
ProcedureSearchDB | Поиск в БД | Селиванова С.В |
ProcedureAddDB | Добавление данных в БД | Керосанова Л.В |
ProcedureSave | Сохранение БД |
СелтвановаС.В |
Оформительская работа | Оформление отчета | Селиванова С.В |
6. Листинги
В листингах приведены процедуры загрузки БД из файла, просмотра информации, поиска в БД и добавления информации в БД.
Листинг 6.1. Процедура загрузки БД из файла
procedure LoadDB;{Процедура загрузки данных из файла}
var
f:text;
begin
assign(f,'c:\tp7\School.txt');{Указание пути к файлу}
reset(f); {открыть файл для чтения}
nRec:=0; {количество записей}
while not EOF(f) do{пока не будет достигнут конец файла выполняется цикл}
begin
nRec:= nRec+1;
readln(f,name[nRec]);