Проектирование базы данных "Справочник покупателя" в среде Turbo Pascal
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
): uses Graph;
2) Установить графический режим:
- описать переменные, которые определяют графический драйвер и монитор: var gd, gm: integer;
- задать команду ПК для самовыбора значений переменных: gd := Detect (detect - драйвер сам определяет лучший режим);
- инициализировать графический режим InitGraph(gd, gm, указывается путь к драйверу). С этого момента все графические средства доступны пользователю.
3) Завершить работу в графической системе CloseGraph.
2.5 Записи. Объявление записи
Запись это структура данных, состоящая из фиксированного числа компонентов, называемых полями записи. В отличие от массива, компоненты (поля) записи могут быть различного типа. Чтобы можно было ссылаться на тот или иной компонент записи, поля именуются.
Структура объявления типа записи такова:
type Sprav = record
n,a,s,v,f,t:string;
end;
Где:
Sprav- имя записи;
Record - тип запись, служит для построения базы данных. После этой команды идет описание компонентов (полей) записи.
Таблица 3 - Поля записи Sprav
Имя поляТип поляКомментарийnStringНазвание торговой точкиaStringАдрес торговой точкиsStringСпециализацияvStringВремя работыfStringФорма собственностиtStringТелефон торговой точки
2.6 Массивы
Массивом называется однородная фиксированная по размеру совокупность однотипных элементов любой структуры, упорядоченных по номерам и имеющих единое имя. При описании массива следует записать его имя, диапазон, и его тип (пример: z:array [1..100] of Sprav). Чтобы обратиться к любому элементу массива, нужно указать имя массива (идентификатор) и порядковый номер необходимого элемента.
Массив может участвовать только в операциях отношения равно, не равно и в операторе присваивания. Массивы, участвующие в этих действиях, должны быть идентичны по структуре, т. е. иметь одинаковые типы индексов и одинаковые типы компонентов.
Двумерным называется массив, элемент которого зависит от его местоположения в строке и в столбце. В общем виде элемент матрицы обозначается как Z (I, J), где Z - имя массива, I - индекс (номер) строки, J - индекс (номер) столбца.
2.7 Разработка процедур
Процедурой в Турбо Паскале называется особым образом оформленный фрагмент программы, имеющий собственное имя. Упоминание этого имени в тексте программы приводит к активизации процедуры и называется ее вызовом. Сразу после активизации процедуры начинают выполняться входящие в нее операторы, после выполнения последнего из них управление возвращается обратно в основную программу и выполняются операторы, стоящие непосредственно за оператором вызова процедуры. Тело процедуры, так же как и программы в свою очередь может содержать описания процедур и функций, таким образом, процедуры и функции могут быть вложены друг в друга. Довольно часто уже на этапе разработки алгоритма программы можно обнаружить, что некоторые одинаковые или очень похожие действия в программе должны, выполнятся несколько раз. Избежать дублирования инструкции можно, если повторяющиеся инструкции оформить как процедуры, а в программу поместить инструкцию вызова процедуры.
Правила языка Паскаль предусматривают единую для всех программ форму основной структуры:
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].