МИНИСТЕРСТВО ОБРАЗОВАНИЯ РФ
Кабардино-Балкарский Государственный Университет им. Бербекова Х.М.
Выполнил: студент
Факультета Информатики и Управления
Проверил:
Нальчик 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» . После
этого появиться следующая строка: «ЗАДАЙТЕ ИМЯ ФАЙЛА В КОТОРЫЙ БУДЕТ
ДОБОВЛЯТЬСЯ ЗАПИСЬ»
Выыход.
Возврощает в главную програму.
2. Описание процедур.
Creatfile-создание файла;
Addrecord-добавление запеси;
Inputfile-ввод данных;
Redzap-корректировка;
Openfile-просмотр;
Clearfile-удаление.
Вывод.
Проделанная работа позволяет любому пользователю с легкостью создавать большие объемы информации, обрабатывать их, сортировать, делать выборки по определенным критериям.
Использование такой программы в современном мире значительно облегчает деятельность человека.
Program kursovay; 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 rez0 do begin writeln('Задайте имя файла,в который будет добавляться запись'); readln(filename); assign(f,filename); reset(f); rez:=IOResult; if rez0 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 rez0 do begin writeln('Задайте имя файла'); readln(filename); assign(f,filename); reset(f); rez:=IOResult; if rez0 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_Hozainastudtoout 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.