Курсовая работа: Проектирование базы данных "Справочник покупателя" в среде Turbo Pascal

Close(g);

Процедура DOPOLNENIE позволяет дополнить информацию в справочник

Reset(g);

Seek(g,FileSize(g));

clrscr;

BBOD;

Close(g);

Процедура VIVOD_SHAPKA выводитнаэкранверхнюючасть таблицы (заголовки столбцов).

Процедура VIVOD_TELO выводит на экран каждую запись построчно:

writeln(z[i].n:18, z[i].s:12, z[i].t:12, z[i].v:6, z[i].f:11, z[i].a:11);

Процедура VIVOD выводит на экран всю таблицу целиком. В неё включены процедуры VIVOD_TELOи VIVOD_SHAPKA. Чтение производится из типизированного файла с помощью цикла:

For i:=1 to Filesize(g) do Begin

Read(g,z[i]);

Процедура POISK1 производит поиск информации о торговых точках по специализации, телефон которых начинается с двух заданных цифр.

В начале выполнении процедуры курсор в типизированном файле помещается в начало при помощи функций Seek(g,0).

Далее происходит ввод параметров, по которым будет происходить поиск в базе данных:

write('Specializacia: ');

readln(sp);

write('Nomer: ');

readln(no);

После этого в цикле производится чтение записи из типизированного файла:

For i:=1 to Filesize(g) do Begin

Read(g,z[i]);

По завершению выполнения процедуры, введенные данные сравниваются с данными в считанной записи и, при выполнении условия, запись выводится на экран:

if (sp = z[i].s) and ( pos(no,z[i].t) = 1) then

VIVOD_TELO;

end;

Результаты поиска по данному запросу оформляются в табличном виде.

Процедура POISK2 производит поиск информации о торговых точках по времени работы.