Размещено на http://www.allbest.ru/

Министерство образования и науки Российской Федерации

ЧИТИНСКИЙ ИНСТИТУТ (ФИЛИАЛ) ФГБОУ ВПО

«БАЙКАЛЬСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ЭКОНОМИКИ И ПРАВА»

Кафедра информатики

Курсовая работа

по дисциплине «Информатика и программирование»

на тему: Создание базы данных

Исполнитель: студент 2-го курса группы ИСТУ-14,

Павлов Евгений Игоревич

Руководитель: доцент кафедры информатики,

Соловьев Владимир Александрович

Чита, 2015



Техническое задание

Создать программу, в которой создается база данных, содержащая Ф.И.О. сотрудника предприятия, номер трудовой книжки, дату поступления на работу, поощрения, наказания, дату увольнения, причину увольнения. В конце года подводится итог.

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

В программе использовать объекты и модули.



ВВЕДЕНИЕ

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

В данной работе была создана элементарная база данных, для работы с которой используются следующие операции: создание списковой структуры, просмотр, удаление, сохранение в типизированном файле, восстановление из типизированного файла, поиск нужного элемента, создание отчета.

База данных[1]-- это один или несколько файлов данных, предназначенных для хранения, изменения и обработки больших объемов взаимосвязанной информации.

Реляционной БД[2] называется такая БД, которая основана на реляционной модели данных.

Система управления базами данных (СУБД)[3] -- это система программного обеспечения, позволяющая обрабатывать обращения к базе данных, поступающие от прикладных программ конечных пользователей.

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

Простота использования СУБД позволяет создавать новые базы данных, не прибегая к программированию, а пользуясь только встроенными функциями.

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

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

Классификация баз данных.

1. По типу хранимой информации БД делятся на

· Документальные. К ним относятся: библиографические, реферативные и полнотекстовые. В документальных БД единицей хранения является какой-либо документ (например, текст закона или статьи), и пользователю в ответ на его запрос выдается либо ссылка на документ, либо сам документ, в котором он может найти интересующую его информацию. В системах документального типа целью поиска может быть не только какая-то информация, хранящаяся в документах, но и сами документы. Так, возможны запросы типа «сколько документов было создано за определенный период времени» и т. п. Часто в критерий поиска в качестве признаков включаются «дата принятия документа», «кем принят» и другие «выходные данные» документов.

· Фактографические. БД хранится информация об интересующих пользователя объектах предметной области в виде «фактов» (например, биографические данные о сотрудниках, данные о выпуске продукции производителями и т.п.); в ответ на запрос пользователя выдается требуемая информация об интересующем его объекте (объектах) или сообщение о том, что искомая информация отсутствует в БД.

· Лексикографические. К ним относятся различные словари (классификаторы, многоязычные словари, словари основ слов и т. п.).

В последние годы активно развивается объектно- ориентированный подход к созданию информационных систем. Объектные базы данных организованы как объекты и ссылки к объектам. Объект представляет собой данные и правила, по которым осуществляются операции с этими данными. Объект включает метод, который является частью определения объекта и запоминается вместе с объектом. В объектных базах данных данные запоминаются как объекты, классифицированные по типам классов и организованные в иерархическое семейство классов. Класс - коллекция объектов с одинаковыми свойствами. Объекты принадлежат классу. Классы организованы в иерархии.

2. По характеру организации хранения данных и обращения к ним различают:

· Локальные (персональные). Персональная база данных - это база данных, предназначенная для локального использования одним пользователем. Локальные БД могут создаваться каждым пользователем самостоятельно, а могут извлекаться из общей БД.

· Общие (интегрированные, централизованные).

· Распределенные базы данных. Интегрированные и распределенные БД предполагают возможность одновременного обращения нескольких пользователей к одной и той же информации (многопользовательский, параллельный режим доступа). Это привносит специфические проблемы при их проектировании и в процессе эксплуатации БнД. Распределенные БД, кроме того, имеют характерные особенности, связанные с тем, что физически разные части БД могут быть расположены на разных ЭВМ, а логически, с точки зрения пользователя, они должны представлять собой единое целое.

3. По характеру организации данных:

Этот классификационный признак относится к информации, представленной в символьном виде.

· Неструктурированные. К ним относятся базы данных, организованные в виду семантических сетей (Семантическая сеть -информационная модель предметной области, имеющая вид ориентированного графа, вершины которого соответствуют объектам предметной области, а дуги (рёбра) задают отношения между ними.).

· Частично структурированные - базы данных в виде обычного текста или гипертекстовые системы.

· Структурированные. Структурированные БД требуют предварительного проектирования и описания структуры БД. Только после этого базы данных такого типа могут быть заполнены данными.



ГЛАВА 1 Типы данных, используемые в данной работе

база данные ввод отчет

1. Запись, содержащая Ф.И.О. сотрудника предприятия, номер трудовой книжки, дату поступления на работу, поощрения, наказания, дату и причину увольнения.

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

zp=record //запись

fam,name,otch:string[20]; //фамилия, имя, отчество

nomer:integer; //номер трудовой книжки

data1,data2:string[20]; //дата поступления на работу, дата увольнения

poosh,nakaz,reason:string[40]; //поощрения, наказания, причина увольнения

end;

2. Описание типа указатель

puzel = ^tuzel;

3. Тип узла двусвязного списка

tuzel = record

x:zp; // поле, хранящее данные узла

next:puzel; // указатель на следующий узел списка

pred:puzel; // указатель на предыдущий узел списка

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

fzap1 = file of zp;

Операции над списковой структурой, используемой в данной работе (описание процедур).

1. Вставка узла в голову списка

procedure AddFirst(var f:puzel; a:puzel);

2. Вставка a в список после элемента, на который ссылается указатель old

procedure AddAfter(var old:puzel; a:puzel);

3. Создание нового узла с нуля

procedure BuildSpisok(var f:puzel);

4. Удаляет первый элемент списка, возвращает ссылку на удаленный элемент

procedure DelFirstElement(var f,a:puzel);

5. Удаление элемента из списка после элемента, на который ссылается указатель old

procedure DelElement(var old, a:puzel);

6. Удаление всего списка

procedure DelSpisok(var f:puzel);



7. Сохранение списка в типизированном файле

procedure SaveToTipFile(var f:puzel);

8. Восстановление списка из типизированного файла

procedure SpisocFromFile(var f:puzel);

Реализация некоторых процедур.

1. Вставка a в список после элемента, на который ссылается указатель old.

procedure AddAfter(var old:puzel; a:puzel);

begin

a^.next:=old^.next; //связываем новый узел с элементом следующим за old

old^.next:=a; //связываем элемент old с элементом а

if a^.next <> nil then a^.next^.pred:=a; //связывается элемент следующий за old с элементом а(вставляем. эл.)

a^.pred:=old; //связывается с old

end;

2. Сохранение списка в типизированный файл

procedure SaveToTipFile(var f:PUzel);

//файл должен быть открыт и связан с файловой переменной

var fz: Fzap1; //файловая переменная

fp:puzel; //текущий указатель, используется для прохождения списка

FileName:string[40];

begin

FileName:=InputBox('Введите имя файла(*.dat)',' ',' ');

assignfile(fz,filename);

rewrite(fz); //открываем файл

fp:=f; //указатель на голову списка

//цикл, запоминающий содержимое каждого узла в типизированном файле

while fp<>nil do

begin

write(fz,fp^.x); //ссылка на типизированный файл

//разименовываем p и вводим x

fp:=fp^.next; //переводим p на следующий элемент списка

end;

closefile(fz); //закрываем файл

end;

3. Удаляет первый элемент списка, возвращает ссылку на удаленный элемент

procedure DelFirstElement(var f,a:puzel);

begin

a:=f; //узел а ссылается на f

f:=f^.next; //f ссылается на следующий элемент

if f <> nil then f^.pred:=nil;

end;

ГЛАВА 2. Интерфейсная часть проекта

В данной курсовой работе используется следующий интерфейс:



В данной работе применяется компонент MainMenu без использования иконок для операций. Для вывода данных используется Memo поле.

1. Компонент MainMenu[4]

Компонент Delphi MainMenu предназначен для добавления к программе главного меню, элемента, без которого не обходится ни одно из приложений для Windows.

Чтобы добавить к программе Delphi главное меню, нужно расместить на Форме в произвольном месте компонент MainMenu.

Компонент MainMenu невизуальный, то есть, хотя и отображается на прототипе Формы как небольшой квадрат, в работающей программе не будет виден. Опции главного меню создаются с помощью специального редактора. Редактор меню вызывается с помощью двойного щелчка по компоненту MainMenu. Первоначально меню пустое, но имеет один выделенный элемент:



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

Delphi автоматически создает следующий пустой пункт меню верхнего уровня. А щёлкнув в редакторе меню по синему прямоугольнику Файл, мы сразу получим пустой пункт меню второго уровня. Они не выделены и отображаются белыми прямоугольниками. Щелкнув по одному из них, мы получим возможность редактировать его совершенно аналогично. Пока их свойства не заданы, в работающей программе на форме они не появятся, и удалять в редакторе их не нужно.

Для того чтобы меню выполняло свои функции нужно описать обработчик события OnClick каждого пункта меню. Делается это совершенно стандартным способом. Опишем пункт меню, который будет закрывать программу.

Выделим нижний элемент меню, в Инспекторе объектов изменим свойство Caption на Выход. Затем перейдём на вкладку Инспектора объектов Events и щелкнем дважды мышкой по обработчику OnClick. В созданной процедуре напишем просто - Close.

В работающей программе наше меню функционирует - при нажатии мышкой Выход программа закрывается.

2. Компонент Memo[5]

Компонент Memo находиться на вкладке "Standard" палитры компонентов



Его основное предназначение - работа с большим количеством строк (ввод, отображение и редактирование текстового материала). Эти строки содержатся в свойстве Lines компoнента Memo.

Как и во многих других текстовых редакторах у компонента Memo есть возможность использовать общепринятые горячие клавиши, такие как: Ctrl-X выделенный текст вырезается и помещается в буфер обмена, Ctrl-C -- копируем выделенный текст в буфер обмена, Ctrl-V -- вставляем текстовое содержимое из буфера обмена в место нахождения курсора, для отмены последней команды используем Ctrl-Z.

Для сохранения содержимого текстового поля Memo в файл используется функция SaveToFile ('text.txt'), а для извлечения - LoadFromFile ('text.txt'), где text.txt - текстовый файл расположенный в каталоге программы. Данные функции используются в соответствующих процедурах программы: сохранение в текстовый файл и восстановление из текстового файла.

3. Функция InputBox[6]

Функция InputBox отображает простое диалоговое окно с заданным Заголовком (Caption) и Подсказкой (Prompt). Оно просит, чтобы пользователь ввел данные в текстовое поле на диалоговом окне. Значение по умолчанию отображено в текстовом поле.

Если пользователь нажал ОК, значение по умолчанию или данные введенные пользователем, сохраняются в возвращаемой строке, иначе возвращается пустая строка.

Если пользователь отменяет диалог, то возвращаемым значением будет пустая строка.

Пример кода:

procedure TForm1.mniLoadFromTxt1Click(Sender: TObject);

var OtchetName:string[40];

begin

OtchetName:=InputBox('Введите имя отчета(*.txt)',' ',' ');

Memo1.Lines.LoadFromFile(OtchetName);

end;

4. Процедура ShowMessage[7]

Процедура ShowMessage выводит простое диалоговое окно на экране с кнопкой ОК, содержащее строку Text.

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

Пример кода:

procedure TForm1.mniLoadFromTxt1Click(Sender: TObject);

var OtchetName:string[40];

begin

OtchetName:=InputBox('Введите имя отчета(*.txt)',' ',' ');

if (not FileExists(OtchetName)) then

ShowMessage('`Файла с таким именем нет')

else

Memo1.Lines.LoadFromFile(OtchetName);

end;

5. Функция StrToInt[8]

Функция StrToInt конвертирует строку с целым значением - IntegerString, такую как `123', в целое Integer.

Она поддерживает положительные и отрицательные значения, шестнадцатеричные числа с префиксов $ или 0x.

6. Компонент Image[9]

Компонент Delphi Image предназначен для отображения на форме графических изображений. После размещения на форме компонента Image, он принимает вид выделенной прямоугольной области.



Загрузить изображение можно с помощью Object Inspector. Для этого находим свойство Picture и слева от него нажимаем на три точки. Открывается окно Picture Editor и в нем выбираем загрузить(Load), в раскрывшемся окне выбираем файл изображения.

Когда вы в процессе создания проекта сделали загрузку изображения из файла в компонент Image, он не просто отобразит его, но и сохранит загруженное изображение в приложении. Преимущество состоит в том, что ваш проект в целом будет поставляться без отдельного графического файла

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

Чтобы назначить изображению действие необходимо перейти на вкладку Инспектора объектов Events и выбрать одну из процедур в меню OnClick.



7. Компонент Label[10]

Компонент Label предназначен для отображения статического текста, то есть надписей и меток на Форме, которые не меняются в течение всего времени работы программы. Конечно, текст надписи, отображаемый компонентом Label можно изменить, но не непосредственно, а только программно.

Свойством компонента Label, которое используется для задания отображаемого текста, является Caption (Заголовок англ.).

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



Обработчики событий.

Подробное описание связки обработчика событий с компонентами MainMenu.

Некоторые обработчики событий для элементов MainMenu, используемые в данной программе:

1. Удаление списка:

procedure TForm1.DelSpis1Click(Sender: TObject);

begin

DelSpisok(fz);

Memo1.Clear;

end;

2. Восстановление из типизированного файла (.dat):

procedure TForm1.SpisocFromFile1Click(Sender: TObject);

var

f: puzel;

begin

DelSpisok(fz);

SpisocFromFile(fz);

end;

3. Сохранение в текстовый файл (.txt):

procedure TForm1.SaveToTxt1Click(Sender: TObject);

var OtchetName:string[40];

begin

OtchetName:=InputBox('¬ведите им¤ отчета(*.txt)',' ',' ');

Memo1.Lines.SaveToFile(OtchetName);

end;

4. Выход из программы:

procedure TForm1.Exit1Click(Sender: TObject);

begin

Close;

end;

Руководство пользователя

Для начала работы с базой данных её необходимо создать или открыть существующую. Для создания базы данных необходимо зайти в меню Список и выбрать пункт Новый список.

В появившемся диалоговом окне введите данные.

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

Список и выбрать пункт Посмотреть список.

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

Для сохранения базы данных в типизированном файле необходимо зайти в меню Файл и выбрать пункт Сохранить в файл, а для восстановления из типизированного файла - Восстановить из файла.

В появившемся диалоговом окне введите имя файла с расширением .dat.



Для сохранения базы данных в текстовом файле необходимо зайти в меню Файл и выбрать пункт Сохранить в текстовый файл, а для восстановления из текстового файла - Восстановить из текстового файла

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

Для упрощения «диалога» с пользователем все пункты меню дублируются кнопками рядом с Memo полем.



ЗАКЛЮЧЕНИЕ

Была создана элементарная базы данных, которая позволяет выполнить следующие действия:

1. Создание списка

2. Удаление списка

3. Просмотр списка

4. Сохранение списка в типизированном файле

5. Восстановление списка из типизированного файла

6. Сохранение содержимого поля в текстовый файл

7. Восстановление из текстового файла

Программа тестировалась в течение нескольких часов. Сбоев и ошибок при работе программы обнаружено не было.

В связи с нехваткой времени не были осуществлены следующие функции:

1. Сортировка данных в списке по определенным параметрам, например, расстановка фамилий по алфавиту

2. Поиск по критериям

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



ПРИЛОЖЕНИЕ 1

Application.Initialize запускает инициализацию приложения. Убирать не рекомендуется.

Application.CreateForm (TForm1, Form1). Метод CreateForm инициализирует форму. У него два параметра -- имя объекта и имя переменной, которая впо-следствии будет указывать на созданный объект. В нашем случае это имя формы TForm1 и имя переменной Form1. Переменная Form1 автоматически описывается в модуле объекта TForm1 в разделе var:

Var Forml: TFormi;

Application.Run. После инициализации всех форм можно запускать выполнение программы с помощью метода Run объекта Application.

Здесь везде используется объект Application. Этот объект всегда существует в ваших программах в единственном экземпляре и создается с помощью строки Application.Initialize. Он происходит от класса TApplication и реализует основные функции управления приложением.



ПРИЛОЖЕНИЕ 2

unit usp;

interface

uses SysUtils,Dialogs;

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

zp=record //запись

fam,name,otch:string[20]; //фамилия, имя, отчество

nomer:integer; //номер трудовой книжки

data1,data2:string[20]; //дата поступления на работу, дата увольнения

poosh,nakaz,reason:string[40]; //поощрения, наказания, причина увольнения

end;

puzel=^tuzel; //описание типа указатель

tuzel=record //тип узла двусвязного списка

x:zp; //поле, хранящее данные узла

next:puzel; //указатель на следующий узел списка

pred:puzel; //указатель на предыдущий узел списка

end;

fzap1 = file of zp; //тип типизированного файла, в котором

//будут храниться данные списка

procedure AddFirst(var f:puzel; a:puzel);

procedure AddAfter(var old:puzel; a:puzel);

procedure BuildSpisok(var f:puzel);

procedure DelFirstElement(var f,a:puzel);

procedure DelElement(var old, a:puzel);

procedure DelSpisok(var f:puzel);

procedure SaveToTipFile(var f:puzel);

procedure SpisocFromFile(var f:puzel);

Размещено на Allbest.ur