Проектирование базы данных "Справочник покупателя" в среде Turbo Pascal
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
s);
write(forma sobstven: );
readln(z[i].f);
write(vpemya rapoti: );
readln(z[i].v);
По завершению ввода каждой записи, информация заносится в типизированный файл в переменную типа массив:
Write(g,z[i]);
Процедура Windo вырисовывает рамку для главного и подменю.
В начале выполнения процедуры, фон и цвет надписей задается двумя командами.
TextBackground(Blue);
TextColor(Yellow);
После этого при помощи циклов и ASCII кодов вырисовывается сама рамка, в которой будет находиться список пунктов меню:
Window(14,5,66,20);
ClrScr;
Write(#218);
for k:= 14+1 to 66-1 do Write(#196);
Write(#191);
for k:= 5+1 to 20-1 do
begin
GotoXY(1,k-5+1);
Write(#179);
GotoXY(66-14+1,WhereY);
Write(#179);
end;
Write(#192);
Window(14,5,66,20+1);
GotoXY(2,20-5+1);
for k:= 14+1 to 66-1 do Write(#196);
Write(#217);
Window(14+1,5+1,66-1,20-1);
Процедура ZAPOLNENIE производит заполнение введенной информации в типизированный файл на диске
Rewrite(g);
clrscr;
BBOD;
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 производит поиск информации о торговых точках по времени работы.
В начале выполнения процедуры происходит процесс ввода информации, которую будем искать в базе данных:
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 выводит на экран меню поиска, оформленное в отдельном окне.
В начале выполнения процедуры в цикле с постусловием выполняются две процедуры, описанные ниже: процедура рисования окна и рамки.
Repeat ClrScr;
windo;
window(18,7,50,15);
После того, как рамка нарисована пользователю представлен список действий, при выборе которых можно будет организовать тот или иной поиск информации о торговых точках при помощи цифр от 1 до 4 и подтвердить свой выбор клавишей Enter.
Writeln(Vyberite zapros: );
Writeln(1- Poisk to4ek po specializacii i pervim chifram telefona);
Writeln(2- po vremeni raboty);
Writeln(3- po vorme sobst);
Writeln(4- vyhod v glavnoe menu);
Readln(menu);
Case menu of
1:poisk1;
2:poisk2;
3:poisk3;
4:exit;
end;
Writeln;
Until x=4;
end;
2.9 Интерфейс программы
Программа предназначена не только для опытных пользователей, но и для тех людей, которые недавно начали работать на персональных компьютерах.
В данной программе выбор нужной действия в меню происходит с помощью нажатия клавиш с цифрами от 1 до 5.
Меню программы выводится в оконном режиме, что не может не порадовать пользователей привыкших к оконному интерфейсу, тем самым облегчается выбор нужной строчки.
Просмотр информации осуществляется в виде таблицы, что делает выводимую информацию наиболее читабельной и понятной для простого пользователя.
3. Руководство пользователю
3.1 Назначение программы
Программа предназначена для хранения, добавления, изменения информации о торговых точках, быстрого поиска необходимой информации по заданным параметрам. Программа обеспечивает более удобную работу со справочником, уменьшает времени, которое затрачивается на поиск сведений, то есть повышает оперативность и эффективность работы с информацией, содержащейся в справочнике.
3.2 Установка программы
Программа не требует отдельной сложной ус