Проектирование базы данных "Справочник покупателя" в среде Turbo Pascal (стр. 3 из 4)
Правила языка Паскаль предусматривают единую для всех программ форму основной структуры:
Program <Имя программы>;
<Раздел описаний>
Begin
<Тело программы>
End.
Здесь слова Program, Begin и End являются служебными. Правильное и уместное употребление этих слов является обязательным.
Раздел описаний может иметь такие же подразделы, как и раздел описаний основной программы. Однако все описанные здесь объекты "видимы" лишь в этой процедуре. Они здесь локальны также, как и имена формальных параметров. Объекты, описанные ранее в разделе описаний основной программы и не переопределенные в процедуре, называются глобальными для этой подпрограммы и доступны для использования.
2.8 Процедуры, использованные в программе
1) Процедура заставки (выводит титульный лист программы в графическом режиме). Процедура состоит из графических процедур и функций.
gd:=detect;
initgraph (gd,gm,'c:\tp7\BIN');
где процедура detect автоматически определяет тип драйвера;
процедура initgraph переводит монитор с текстового режима в графический.
Если необходимо вывести цветной текст, то следует использовать процедуру setcolor(с), где с выбранный вами цвет от 0 до 15. При помощи процедуры settextstyle(a,b,c),(где а – шрифт, b – стиль, с – размер текста), можно задать шрифт, размер и стиль текста, и с использованием процедуры outtextxy(х,у,' '), (где х,у – координаты расположения курсора для вывода текста, а в кавычках записывается сам текст), вывести его в любом месте экрана. Процедура closegraph завершает работу в графическом режиме.
setcolor(15);
settextstyle(8,0,1);
outtextxy(160,70,'ПАВЛОДАРСКИЙ КОЛЛЕДЖ УПРАВЛЕНИЯ');
outtextxy(170,165,'КУРСОВОЙ ПРОЕКТ ПО ДИСЦИПЛИНЕ: ');
outtextxy(110,180,'"ОСНОВЫ АЛГОРИТМИЗАЦИИ И ПРОГРАММИРОВАНИЯ"');
outtextxy(150,225,'TEMA: Проектирование баз данных «Справочник покупателя»');
outtextxy(465,345,'Разработал');
outtextxy(465,365,'Запорожец А.С.');
outtextxy(465,385,'Группа П-33);
outtextxy(270,410,'2010 год’);
Процедура ВВОDорганизует окно, в котором будут заноситься данные в базу данных.
В начале выполнения процедуры запрашиваются количество записей:
write('skolko to4ek v spravochnike');
readln(x);
Далее в цикле происходит заполнение полей записи после вывода на экран соответствующих сообщений:
write('nazvanie to4ku: ');
readln(z[i].n);
write('telefon: ');
readln(z[i].t);
write('agpec: ');
readln(z[i].a);
write('specializacia: ');
readln(z[i].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выводит на экран меню поиска, оформленное в отдельном окне.
В начале выполнения процедуры в цикле с постусловием выполняются две процедуры, описанные ниже: процедура рисования окна и рамки.
RepeatClrScr;
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;
Untilx=4;
end;
2.9 Интерфейс программы
Программа предназначена не только для опытных пользователей, но и для тех людей, которые недавно начали работать на персональных компьютерах.
В данной программе выбор нужной действия в меню происходит с помощью нажатия клавиш с цифрами от 1 до 5.
Меню программы выводится в оконном режиме, что не может не порадовать пользователей привыкших к оконному интерфейсу, тем самым облегчается выбор нужной строчки.
Просмотр информации осуществляется в виде таблицы, что делает выводимую информацию наиболее читабельной и понятной для простого пользователя.
3. Руководство пользователю
3.1 Назначение программы
Программа предназначена для хранения, добавления, изменения информации о торговых точках, быстрого поиска необходимой информации по заданным параметрам. Программа обеспечивает более удобную работу со справочником, уменьшает времени, которое затрачивается на поиск сведений, то есть повышает оперативность и эффективность работы с информацией, содержащейся в справочнике.
3.2 Установка программы
Программа не требует отдельной сложной установки, достаточно просто скопировать файлы Jeffries.exe и Jeffries.txt на жесткий диск ПК в один каталог. Разработанное программное средство устанавливается только на одно рабочее место, так как MS-DOS, под управлением которой работает данная программа, практически не поддерживает работу в сети.
Системные требования, предъявляемые программой к конфигурации рабочего места, очень невелики, что позволяет работать с ней практически на любом компьютере.
3.3 Запуск программы
Чтобы запустить программу, необходимо просто открыть файл Jeffries.exe двойным щелчком левой кнопки мыши. После запуска программы появляется заставка программы, содержащая название программы, имя разработчика и дату разработки. Чтобы перейти в главное меню программы необходимо нажать любую клавишу. После этого в центре экрана появится главное меню, состоящее из 5 пунктов. Выбор действия осуществляется с помощью клавиш с цифрами от 1 до 5. Пользователю необходимо подтвердить выбор нажатием клавиши Enter. После чего выполнится переход к тому или иному действию.
Рисунок 1 – Главное меню программы
3.4 Создание нового файла
Для создания нового файла требуется выбрать строку «Создание базы данных» в главном меню, нажав клавишу с цифрой «1». После нажатия клавиши Enter появится окно для заполнения полей каждой записи, с предварительным запросом общего количества записей. После заполнения полей последней записи произойдёт автоматический выход в главное меню.
Рисунок 2 – Заполнение полей записи
3.5 Просмотр справочника
Для просмотра справочника необходимо выбрать в главном меню цифру «2», которая соответствует строке «Просмотр базы данных» и нажать клавишу Enter. Далее появится окно с информацией о торговых точках, хранящейся в справочнике, которая представлена в табличном виде. Для выхода в главное меню требуется нажать клавишу Enter.