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

Write('Vremya raboti: ');

readln(vremya);

Writeln;

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

For i:=1 to Filesize(g) do

begin

Read(g,z[i]);

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

If vremya = z[i].v then

VIVOD_TELO;

end;

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

Процедура POISK3 производит поиск информации о точках по заданной форме собственности с последующей сортировкой по алфавиту их названий.

В начале выполнения процедуры происходит процесс ввода информации, которую будем искать в базе данных:

Writeln('Poisk to4ek');

Writeln;

Write('Froma sobstvennosti: ');

readln(formsob);

Writeln;

Следующим этапом выполнения процедуры служат два вложенных цикла: внешний цикл определяет первую букву названия торговой точки , внутренний цикл производит чтение записи из типизированного файла и проверяет два условия:

for q:='A' to 'z' do begin

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

Read(g,z[i]);

If (formsob = z[i].f) and (z[i].n[1]=q) then begin

VIVOD_TELO;

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

Процедура POISKвыводит на экран меню поиска, оформленное в отдельном окне.

В начале выполнения процедуры в цикле с постусловием выполняются две процедуры, описанные ниже: процедура рисования окна и рамки.

RepeatClrScr;