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

Кафедра Информационных технологий

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

по дисциплине: Базы данных

на тему «АРМ продавца-консультанта магазина “Оптика”»

Содержание

Введение

1. Постановка задачи

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

3. Технология ADO

4. Технология SQL

5. Проектирование БД “Магазин Оптика”

6. Разработка БД в Borland Delphi 7

7. ER-диаграмма

Заключение

Список используемой литературы

Приложение

Введение

База данных - это организованная структура, предназначенная для хранения информации. С понятием базы данных тесно связано понятие системы управления базой данных. Это комплекс программных средств, предназначенных для создания структуры новой базы, наполнение её содержимым, редактирования содержимого и визуализации информации.

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

В курсовом проекте рассматривается автоматизация баз данных для магазина «ОПТИКА». До автоматизации работникам компании приходилось тратить немало времени на фиксировании товара, клиентов, заказов на бумаге. С автоматизацией этот процесс упрощается, появляется больше функций и возможностей, работа становится более эффективной, прибыльной и экономичной. Объектом курсового проекта является учет данных о клиенте, о материалах, учет заказов и затрат, перечень услуг в магазине «ОПТИКА». Предметом курсового проекта является автоматизация учета товара и заказов в магазине «ОПТИКА».

1. Постановка задачи

программа магазин оптика delphi

Цель курсового проекта - разработка базы данных для магазина «ОПТИКА».

Для достижения поставленной цели необходимо решить следующие задачи:

· Изучить структуру магазина, собрать необходимую информацию о ней. Создание таблиц и запросов на основе данных магазина.

· Составить нормализацию отношений.

· Автоматизировать базу данных учета товара.

· Исследовать основные понятия.

· Разработать пользовательский интерфейс в Delphi 7.

· Вывести запросы из таблиц на формы в Delphi 7.

Актуальность темы курсового проекта заключается в том, что в связи с большим потоком данных вручную становится невозможно вести учет товаров и обрабатывать заказы, работать с клиентами. Этот процесс занимает много людских, временных и финансовых затрат. Большие объемы информации легче и проще обрабатывать с помощью программы, имеющей таблицы, запросы и т.д.

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

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

1. По модели данных:

· Иерархическая - представление базы данных в виде древовидной структуры, состоящей из объектов различных уровней.

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

· Реляционная - Логическая модель данных, прикладная теория построения баз данных, которая является приложением к задачам обработки данных таких разделов математики как теории множеств и логика первого порядка.

· Объектная - эта модель работы с объектными данными.

· Объектно-ориентированная - база данных, в которой данные моделируются в виде объектов, их атрибутов, методов и классов.

2. По среде постоянного хранения:

· Во вторичной памяти, или традиционная (conventional database)

· В оперативной памяти (in-memory database)

· В третичной памяти (tertiary database)

3. По содержимому:

· Географическая

· Историческая

· Научная

· Мультимедийная

4. По степени распределенности:

· Централизованная, или сосредоточенная (centralized database)

· Распределенная (distributed database)

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

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

3. Технология ADO

Технология ADO основана на возможностях СОМ, а именно интерфейсов OLE DB. Базовый набор интерфейсов OLE DB предустановлен во всех версиях Microsoft Windows, поэтому при переносе приложения на другой компьютер для его работоспособности достаточно лишь правильно настроить провайдер OLE DB. Провайдер OLE DB представляет собой СОМ-сервер, предоставляющий набор интерфейсов для доступа к данным, и «скрывающий» особенности конкретных источников данных. Провайдеры OLE DB разработаны для большинства СУБД (MS Access, Oracle, Interbase и др.) и многих других источников данных. Часть провайдеров (например, OLE DB Provider for SQL Server) уже установлена в системе, другие доступны для скачивания в Internet. Технология ADO - надстройка над интерфейсом OLE DB, облегчающая его использование прикладными программистами. Технология ADO и интерфейсы OLE DB предоставляют приложениям единый способ доступа к источникам данных различных типов. Приложение, использующее ADO, может однотипно работать с данными, хранящимися на сервере SQL, с электронным таблицами и локальными СУБД(MySQL). Согласно терминологии ADO, любой источник данных (база данных, электронная таблица, файл) называется хранилищем данных, с которым при помощи провайдера взаимодействует приложение.

В результате приложение обращается не напрямую к источнику данных, а к объекту OLE DB, который представляет данные в виде таблицы БД или результата выполнения запроса SQL. Такая архитектура позволяет сделать набор объектов и интерфейсов открытым и расширяемым. Набор объектов и соответствующий провайдер могут быть созданы для любого хранилища данных без изменения исходной структуры ADO. При этом существенно расширяется само понятие данных. Можно разработать набор объектов и интерфейсов и для не табличных данных, например, графических данных, древовидных структур, данных CASE-инструментов и др. В Delphi на странице ADO палитры компонентов расположены компоненты доступа к данным, инкапсулирующие технологию ADO. Общая методика их использования построена по тем же принципам, что и у остальных компонентов доступа к данным (BDE, IBExpress, DBExpress и др.), однако внутренняя организация совсем другая. Это удобно, так как программист может с успехом использовать ранее имевшиеся навыки и опыт работы с другими СУБД. Например, компоненты ADO поддерживают навигацию, работу с наборами данных, кэшируемые изменения (здесь они называются пакетными обновлениями), управление транзакциями. Наиболее серьезное препятствие здесь - научиться мыслить категориями архитектуры клиент-сервер, и не пытаться переносить методы и приемы создания персональных баз данных в многопользовательскую клиент-серверную среду.

4. Технология SQL

Язык SQL является основой многих СУБД, т.к. отвечает за физическое структурирование и запись данных на диск, а также за чтение данных с диска, позволяет принимать SQL-запросы от других компонентов СУБД и пользовательских приложений. Таким образом, SQL - мощный инструмент, который обеспечивает пользователям, программам и вычислительным системам доступ к информации, содержащейся в реляционных базах данных.

Типы команд SQL

· DDL - Язык определения данных (Data Definition Language, DDL) позволяет создавать и изменять структуру объектов базы данных, например, создавать и удалять таблицы. Основными командами языка DDL являются следующие:CREATE TABLE,ALTER TABLE,DROP TABLE,CREATE INDEX,ALTER INDEX,DROP INDEX.

· DML - Язык манипулирования данными (Data Manipulation Language, DML) используется для манипулирования информацией внутри объектов реляционной базы данных посредством трех основных команд: INSERT, UPDATE, DELETE.

· DQL - Язык запросов DQL наиболее известен пользователям реляционной базы данных, несмотря на то, что он включает одну команду SELECT. Эта команда вместе со своими многочисленными опциями и предложениями используется для формирования запросов к реляционной базе данных.

· DCL -Команды управления данными (Data Control Language) позволяют управлять доступом к информации, находящейся внутри базы данных. Как правило, они используются для создания объектов, связанных с доступом к данным, а также служат для контроля над распределением привилегий между пользователями. Команды управления данными следующие: GRANT, REVOKE.

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

· Команды управления транзакциями - Существуют следующие команды, позволяющие управлять транзакциями базы данных: COMMIT, ROLLBACK, SAVEPOINT, SET TRANSACTION.

5. Проектирование БД “Магазин Оптика”

1. Структура таблицы “Клиенты”

Рисунок 1

2. Структура таблицы “Аксессуары ”

Рисунок 2

3. Структура таблицы “Услуги”

Рисунок 3

4. Структура таблицы “Заказы”

Рисунок 4

5. Структура таблицы “Сотрудники”

Рисунок 5

6. Структура таблицы “Прайс-лист”

Рисунок 6

6. Разработка БД в Borland Delphi 7

Таблицы в Borland Delphi 7. Запустив базу данных, оказываемся на первой форме, где размещены таблицы “Клиенты”, “Аксессуары”, “Услуги”, “Заказы”, “Сотрудники”, “Прайс-лист”.



Рисунок 7

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

Рисунок 8

На форме “Запрос” можно получить информацию о заказе c кодом товара 2



Рисунок 9

Нажав на кнопку закрыть - завершается работа с окном запроса, и переходим на первую форму. По нажатию на кнопку выход - завершается работа с Базой данных.

7. ER-диаграмма

Рисунок 10

Заключение

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

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

Список используемой литературы

1. Климова Л.М. Delphi 7. Основы программирования. Решение типовых задач. Самоучитель. - М.: КУДИЩ - ОБРАЗ, 2006. - 450 с.

2. Тюкачев Н.А. Программирование в Delphi для начинающих. - СПб.: БХВ - Петербург, 2007. - 672 с.

3. Сорников Я.А. Учебник по АИБС “МАРК-SQL”. - М: Учебный центр АНО «ФИО», 2007. - 61 с.

4. Тюкачев Н.А. Программирование в Delphi для начинающих. - СПб.: БХВ - Петербург, 2007. - 672 с.

5. Максим Кузнецов, Игорь Симдянов MySQL 5. В подлиннике, БХВ - Петербург, 2010.

6. Нил Дж. Рубенкинг.Язык программирования Delphi для «чайников». Введение в Borland Delphi 2006 = Delphi for Dummies. -- М.:Диалектика, 2007;

7. Максим Кузнецов, Игорь Симдянов, MySQL 5, БХВ-Петербург 2010.

Приложение

Листинг программного кода

Листинг Unit 1

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, ComCtrls, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids,

DBGrids;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

ADOTable1: TADOTable;

DataSource1: TDataSource;

ADOTable2: TADOTable;

DataSource2: TDataSource;

ADOTable3: TADOTable;

DataSource3: TDataSource;

ADOTable4: TADOTable;

DataSource4: TDataSource;

ADOTable5: TADOTable;

DataSource5: TDataSource;

ADOTable6: TADOTable;

DataSource6: TDataSource;

ADOTable7: TADOTable;

DataSource7: TDataSource;

N9: TMenuItem;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Button1: TButton;

DBGrid1: TDBGrid;

DBNavigator2: TDBNavigator;

TabSheet2: TTabSheet;

Button2: TButton;

Button3: TButton;

DBGrid2: TDBGrid;

DBNavigator3: TDBNavigator;

TabSheet3: TTabSheet;

Button4: TButton;

Button5: TButton;

DBGrid3: TDBGrid;

DBNavigator1: TDBNavigator;

TabSheet4: TTabSheet;

Button6: TButton;

Button7: TButton;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

TabSheet5: TTabSheet;

Button8: TButton;

Button9: TButton;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

TabSheet6: TTabSheet;

Button10: TButton;

DBGrid6: TDBGrid;

DBNavigator6: TDBNavigator;

N10: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure DBGrid4KeyPress(Sender: TObject; var Key: Char);

procedure Button12Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

TabSheet1.Show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

TabSheet3.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

TabSheet4.Show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

TabSheet5.Show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

TabSheet6.Show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

close

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

TabSheet1.Show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

TabSheet3.Show;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

TabSheet4.Show;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

TabSheet3.Show;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

TabSheet5.Show;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

TabSheet4.Show;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

TabSheet6.Show;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

TabSheet5.Show;

end;

procedure TForm1.DBGrid4KeyPress(Sender: TObject; var Key: Char);

var s2:array[0..0] of Char;

begin

s2[0]:=Key;

if DBGrid4.Font.Charset=OEM_CHARSET then CharToOEM(s2,s2);

Key:=s2[0];

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

TabSheet5.Show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form2.Show;

Form2.TabSheet1.Show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form3.Show;

end;

end.

Листинг Unit 2

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;

type

TForm2 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DataSource2: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.sql.Clear;

ADOQuery1.SQL.Add('select * from zakazy where Kod_tovara=2');

ADOQuery1.Open;

datasource1.DataSet.Close;

datasource1.dataset:=adoquery1;

DBGrid1.DataSource:= datasource2;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

close;

end;

Листинг Unit 3

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

close;

end.

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