СУБД автостоянка на Паскале

СУБД автостоянка на Паскале

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РФ

Кабардино-Балкарский Государственный Университет

им. Бербекова Х.М.

Выполнил: студент

1 курса ФИиУ

НАльчик 2003г.

Содержание.

1. Введение.

2 База данных и способы ее представление.

3. Свойства полей базы данных.

4. Цели и задачи.

5. Разработка системного меню.

6. Описание программы.

6.1 Инструкция по использованию программы.

6.2 Описание процедур.

7. Результаты.

8. Вывод.

9. Листинг программы.

1.Введение.

На сегодняшний день в мире работают сотни миллионов персональных

компьютеров. Ученые, экономисты, политики считают, что к началу треть-

го тысячелетия:

- количество компьютеров в мире сровняется с числом жителей развитых

стран.

- большинство этих компьютеров будет включено в мировые информацион-

ные сети.

- вся накопленная человечеством к началу третьего тысячелетия информация

будет переведена в компьютерную (двоичную) форму, а вся информация будет

готовиться при помощи (или при участии) компьютеров; вся информация будет

бессрочно храниться в компьютерных сетях;

- полноценный член общества третьего тысячелетия должен будет каждоднев

но взаимодействовать с локальными, региональными или мировыми сетями с

помощью компьютеров.

При такой компьютеризации практически всех отраслей

жизнедеятельно

сти человека возникает вопрос о создании программ позволяющих создавать

подобные базы данных. Поэтому и была разработана данная программа ,кото

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

успеваемости школьников..

2.База данных и способы ее представления.

База Данных (БД) - это информация, представленная в виде двумерных

таблиц. БД содержит множество строк, каждая из которых соответствует

объекту. Для каждого объекта используются определенные независимые позиции,

которые называются полями. Представим себе такую БД, содержащую строки и

столбцы (простейший случай). Каждая строка, называемая так же записью,

соответствует определенному объекту. Каждый столбец содержит значения

соответствующих данных об объекте.

БД может состоять не из одной таблицы, а из двух, трех и более.

Дополнительную информацию об объекте можно хранить в дополнительных

таблицах.

Одно из мощных средств БД состоит в том, что информацию можно

упорядочивать по тому критерию, который задает пользователь. В Pascal БД

предоставляется в виде списка термов вида: имя_предиката_базы

(поля_записи). Имена БД описываются в разделе . Доступ к записям БД

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

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

База данных – это организованная структура, предназначенная для хранения

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

информация.

Это утверждение легко пояснить, если, например, рассмотреть базу данных

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

адресах, кредитной истории, состояние расчетных счетов, финансовых

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

количества сотрудников банка, но среди них вряд ли найдется такое лицо,

которое имеет доступ ко всей базе полностью и при этом способно единолично

вносить в нее произвольные изменения. Кроме данных, база содержит методы и

средства, позволяющие каждому из сотрудников оперировать только с теми

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

данных, содержащихся в базе, с методами, доступными конкретным сотрудникам,

образуется информация, которую они потребляют и на основании которой в

пределах собственной компетенции производят ввод и редактирование данных.

С понятием базы данных тесно связано понятие системы управления базой

данных. Это комплекс программных средств, предназначенных для создания

структуры новой базы, наполнение ее содержимым, редактирование содержимого

и визуализации информации. Под визуализацией информации базы понимается

отбор отображаемых данных в соответствии с заданным критерием, их

упорядочение, оформление и последующая выдача на устройства вывода или

передачи по каналам связи. В мире существует множество систем управления

базами данных. Несмотря на то что они могут по-разному работать с разными

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

большинство СУБД опираются на единый устоявшийся комплекс основных понятий.

Это дает нам возможность рассмотреть одну систему и обобщить ее понятия,

приемы и методы на весь класс СУБД. В качестве такого учебного объекта мы

выберем СУБД Pascal 7.0, входящую в пакет Pascal 7.0.

3.Свойства полей базы данных.

Поля базы данных не просто определяют структуру базы – они еще определяют

групповые свойства данных, записываемых в ячейки, принадлежащие каждому из

полей. Ниже перечислены основные свойства полей таблиц баз данных на

примере СУБД Pascal 7.0 ..

o Имя поля – определяет, как следует обращаться к данным этого поля при

автоматических операциях с базой (по умолчанию имена полей используются в

качестве заголовков столбцов таблиц).

o Тип поля – определяет тип данных, которые могут содержаться в данном

поле.

o Размер поля – определяет предельную длину (в символах) данных, которые

могут размещаться в данном поле.

o Формат поля – определяет способ форматирования данных в ячейках,

принадлежащих полю.

o Маска ввода – определяет форму, в которой вводятся данные а поле

(средство автоматизации ввода данных).

o Подпись – определяет заголовок столбца таблицы для данного поля (если

подпись не указана, то в качестве заголовка столбца используется свойство

Имя поля).

o Значение по умолчанию – то значение, которое вводится в ячейки поля

автоматически (средство автоматизации ввода данных).

o Условие на значение – ограничение, используемое для проверки правильности

ввода данных (средство автоматизации ввода, которое используется, как

правило, для данных, имеющих числовой тип, денежный тип или тип даты).

o Сообщение об ошибке – текстовое сообщение, которое выдается автоматически

при попытке ввода в поле ошибочных данных.

o Обязательное поле – свойство, определяющее обязательность заполнения

данного поля при наполнении базы.

o Пустые строки – свойство, разрешающее ввод пустых строковых данных (от

свойства Обязательное поле отличается тем, что относится не ко всем типам

данных, а лишь к некоторым, например к текстовым).

o Индексированное поле – если поле обладает этим свойством, все операции,

связанные с поиском или сортировкой записей по значению, хранящемуся в

данном поле, существенно ускоряются. Кроме того, для индексированных

полей можно сделать так, что значение в записях будут проверяться по

этому полю на наличие повторов, что позволяет автоматически исключить

дублирование данных.

Поскольку в разных полях могут содержаться данные разного типа, то и

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

например, список вышеуказанных свойств полей относится в основном к полям

текстового типа.

Поля других типов могут иметь или не иметь эти свойства, но могут добавлять

к ним и свои. Например, для данных, представляющих действительные числа,

важным свойством является количество знаков после десятичной запятой. С

другой стороны, для полей, используемых для хранения рисунков,

звукозаписей, видео клипов и других объектов OLE, большинство вышеуказанных

свойств не имеют смысла.

4.Цели и задачи.

При создании этой программы стояли следующие цели:

. Написать программу, которая позволила бы обрабатывать, сортировать и

изменять информацию о автостоянки.

Так же при создании этой программы стояли следующие задачи:

. Данная программа должна иметь простой и удобный пользовательский

интерфейс.

. Данная программа должна иметь малую ресурсоёмкость.

5.Разработка системного меню.

Системное меню или основное меню должно обеспечивать удобное

взаимодействие пользователя с программой. В меню должны войти пункты

сохранения, просмотра, ввода новых данных и.т.д. Пользователю нужно всего

лишь нажать кнопку ‘enter’. В меню данной программы присутствует шесть

пунктов:

1 -Создание файла

2 -Добавления запеси

3 -Корректировка запеси

4 -Просмотр запеси из файла

5 -Удаление запеси

6 -Выход

1 - Создание нового файла – Создается новый файл с именем задаваемым

пoльзователем программы

2 - Просмотр содержимого файла – на экран поочередно выдаются раннее

созданные записи в виде:

Фамилия хозяина:

Имя хозяина:

марка машины:

модель маштны:

тип кузова:

номер машины:

регион:

год выпуска:

цвет:

3 – Добавление записи – Создание новой записи и файле добавляя его в конец

записи.

4 – Поиск по номеру палаты – Позволяет находить данные о отдыхающем по

номеру палаты , в котором зарегистрирован отдыхающий.

5 - Выход из программы - выход из программы

6.Описание программы.

6.1Инструкция по использованию программы.

Для запуска этой программы необходимо перейти на диск 3.5“A”

прилагаемый к данной работе и войти в директорию «KYRSOVAI».

Создания базы данных.

Для того чтобы создать базу данных пользователю необходимо нажать

пункт «СОЗДАНИЕ ФАЙЛА» в главном меню с помощью «ENTER».После этого

появится следующая строка: «ЗАДАЙТЕ ИМЯ ФАЙЛА КОТОРЫЙ БУДЕТ СОЗДОВАТЬСЯ».

Далее через «ENTER» вводятся данные.

Дополнение данных.

Для дополнения данных необходимо нажать кнопку «ENTER» . После

этого появиться следующая строка: «ЗАДАЙТЕ ИМЯ ФАЙЛА В КОТОРЫЙ БУДЕТ

ДОБОВЛЯТЬСЯ ЗАПИСЬ»

Выыход.

Возврощает в главную програму.

6.2 Описание процедур.

Creatfile-создание файла;

Addrecord-добавление запеси;

Inputfile-ввод данных;

Redzap-корректировка;

Openfile-просмотр;

Clearfile-удаление.

Вывод.

Проделанная работа позволяет любому пользователю с

легкостью создавать большие объемы информации, обрабатывать их,

сортировать, делать выборки по определенным критериям.

Использование такой программы в современном мире

значительно облегчает деятельность человека.

Program Tamazov;

uses Crt,Dos;

type prokat=record

Sname_Hozaina,Name_Hozaina:string[15];

markauto:string[20];

model_auto:string[20];

tip_kyzova:string[20];

nomer_auto:string[20];

region:integer;

god_vipyska:integer;

color:string[20];

end;

var f:file of prokat;

zn,filename:string;

k:integer;

label 11;

{-----------------------------------------------------------}

procedure Creatfile;

begin

writeln('Задайте имя файла,который будет создаваться');

readln(filename);

assign(f,filename);

rewrite(f);

end;

{-----------------------------------------------------------}

procedure Addrecord;

var rez:integer; ch:char;

begin

while rez<>1 do

begin

writeln('Задайте имя файла,в который будет добавляться запись');

readln(filename);

assign(f,filename);

reset(f);

rez:=IOResult;

if rez<>0 then

begin

writeln('Проверьте правильность имени файла!');

writeln('Будет ли повторное задание имени файла?(Y/N)');

readln(ch);

if (ch='n') or (ch='N') then halt (0);

end;

end;

seek(f,filesize(f));

end;

{==========================================================}

procedure Inputfile;

var st:prokat;

k:char;

begin

repeat

writeln('Введите данные о новом клиенте : ');

write('Фамилия Хозяина : ');

readln(st.Sname_Hozaina);

write('Имя Хозяина:' );

readln(st.Name_Hozaina);

write('марка машины:'); readln(st.markauto);

write('модель машины:'); readln(st.model_auto);

write('тип кузова:');

readln(st.tip_kyzova);

write('номер машины: '); readln(st.Nomer_auto);

write('регион:'); readln(st.region);

write('год выпуска: '); readln(st.God_vipyska);

write('цвет: '); readln(st.color);

write(f,st);

write('Надо ли вводить данные о новом клиенте ?

(Y/N)>');readln(k);

writeln;

until(k='n') or (k='N');

close(f);

end;

{=========================================================}

procedure redzap;

var

st:prokat;

filename,str:string;

Sname_Hozaina2,Name_Hozaina2:string[15];

markauto2:string[20];

model_auto2:string[20];

tip_kyzova2:string[20];

nomer_auto2:string[20];

region2:integer;

god_vipyska2:integer;

color2:string[20];

x:integer;

begin

writeln('Задайте имя файла');

readln(filename);

assign(f,filename);

reset(f);

with st do

begin write('Введите фамилию клиента: ');readln(str);

x:=0;

while not eof(f) do

begin

read(f,st);

if st.Sname_Hozaina=str then

begin

writeln('Введите новые данные о клиенте: ');

write('Фамилия хозяина: ');

readln(st.Sname_Hozaina);

write('Имя хозяина: '); readln(st.Name_Hozaina);

write('марка машины:'); readln(st.markauto);

write('модель машины:'); readln(st.model_auto);

write('тип кузова:'); readln(st.tip_kyzova);

write('номер машины:'); readln(st.nomer_auto);

write('регион:'); readln(st.region);

write('год выпуска:'); readln(st.god_vipyska);

write('цвет: '); readln(st.color);

Sname_Hozaina2:=Sname_Hozaina; markauto2:=markauto;

Name_Hozaina2:=Name_Hozaina; color2:=color;

Nomer_auto2:=Nomer_auto; model_auto2:=model_auto;

God_vipyska2:=God_vipyska; tip_kyzova2:=tip_kyzova;

region2:=region;

seek(f,filepos(f)-1);

write(f,st); x:=1;

end; end;

close(f);

end;

if x=0 then begin writeln('Записи с такой фамилией нет!');readln end;

end;

{==============================================================}

procedure Openfile;

var rez:integer;ch:char;

begin

while rez<>0 do

begin

writeln('Задайте имя файла');

readln(filename);

assign(f,filename);

reset(f);

rez:=IOResult;

if rez<>1 then

begin

writeln('Проверьте правильность имени файла!');

writeln('Будет ли повторное задание имени файла ? (Y/N)');

readln(ch);

if (ch='n') or (ch='N') then halt (0);

end;

end;

end;

{============================================================}

procedure Outputfile;

var st:prokat;k:char;

begin

writeln('Хотите посмотреть данные о клиентах ? (Y/N)');

readln(k);

if (k='y') or (k='Y') then

while not eof(f) do

begin

read(f,st); clrscr;

writeln('Фамилия хозяина:',st.Sname_Hozaina);

writeln('Имя хозяина:',st.Name_Hozaina);

writeln('марка машины:',st.markauto);

writeln('модель машины:',st.model_auto);

writeln('тип кузова:',st.tip_kyzova);

writeln('номер машины:',st.nomer_auto);

writeln('регион;',st.region);

writeln('год выпуска:',st.god_vipyska);

writeln('цвет:',st.color);

writeln('Для продолжения нажмите (enter)');

readln;

end;

close(f);

end;

{========================================================}

procedure Clearfile;

var st:prokat;

studtoout:string[20];

fo:file of prokat;

begin

writeln('Задайте имя файла,из которого удаляются элементы');

readln(filename);

assign(f,filename);reset(f);

assign(fo,'newfile.dat');rewrite(fo);

writeln('Задайте фамилию клиента, запись о котором

удаляется');

readln(studtoout);

while not eof(f) do

begin

read(f,st);

if st.sname_Hozaina<>studtoout then write(fo,st);

end;

close(f);close(fo);

erase(f);

rename(fo,filename);

end;

{ОСНОВНАЯ ЧАСТЬ ПРОГРАММЫ}

Begin 11:clrscr;

writeln(' МЕНЮ:');

writeln('1:Создание файла');

writeln('2:Добавление записи в файл');

writeln('3:Корректировка записи');

writeln('4:Просмотр файла');

writeln('5:Удаление записи из файла');

writeln('6:Выход из программы');

readln(k);

case k of 1: begin Creatfile; Inputfile end;

2: begin Addrecord; Inputfile end;

3: redzap;

4: begin Openfile; Outputfile end;

5: Clearfile;

6: Halt;

else writeln('Ошибка.Повторите номер режима.')

end;

goto 11;

End.