Створення бази даних магазину

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

Оглавление

• Вступ
• 1. Опис предметного середовища
• 2. Концептуальна модель Бази даних
• 3. Датологічна модель Бази даних
• 4. Фізична модель бази даних
• 5. Опис структури програми
• 6. Опис реалізації проекту бази даних
• 7. Розробка програми


Вступ

база товар інформаційний програма

Ця курсова робота призначена для клієнтів,які можуть переглянути своє замовлення в певному магазині.

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

Відомості про рахунок повинні собі містити код, номер рахунку.

Відомості про товар містять в собі код, назву товару,номер товару та вартість.

Відомості про магазин включає в себе код. Назву, адресу ,номер філії.

Один і той же товар може придбати декілька клієнтів,також той самий товар може знаходитися в різних магазинах.

Клієнт може мати декілька рахунків.



1. Опис предметного середовища

Ш Декілька магазинів

Ш Які мають однакові товари та розділяються на філії

Ш Клієнт має декілька рахунків

Ш Клієнт має знижку

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

Розглянемо роботу магазина. На рисунку зображено учасників процесу роботи магазина.



2. Концептуальна модель Бази даних

Виходячи з поставленої задачі виділимо основні сутності. Для кожної сутності визначимо атрибути, що необхідно включити до складу інформаційної моделі (табл. 1).

Таблица 1 Атрибути інформаційної моделі.

Сутність	Атрибути	Ідентифікатори
Клієнт	- Код; - ПІБ; - Адреса; - Знижка;	CodC; PIB; Adress; Sale;
Рахунок	- Код; - номер;	CodP; PNumber;
Товар	- Код; -Назва; -Номер; -Вартість;	CodT; Tnazva; Tnumber; TVart;
Магазин	- Код; - Філія; -Назва; -Адреса;	CodM; FilNumber; Mnazva; Madress;

Визначимо зв'язки між сутностями, що включені в модель (табл. 2).



Таблиця 2. Взаємозв'язки між сутностями. 1

Сутності	Типи зв'язку	Зміст зв'язку
Товар Магазин	М:М	В одному магазині може продаватися декілька товарів
Кліент Рахунок	1:М	Один клієнт може мати багато рахунків
Рахунок Товар	М:М	В один рахунок може входити багато товарів

3. Датологічна модель Бази даних

Наведемо структуру таблиць та їх взаємозв'язків у вигляді діаграм.

4. Фізична модель бази даних

Визначимо властивості атрибутів кожної з таблиць БД.



5. Опис структури програми

Програмне забезпечення розроблено у середовищі Delphi 7. Файл проекту Project.dpr містить 6 повнофункціональних програмних модулів:

Unit1.pas - головний модуль програми;

Unit2.pas - модуль компоненту типу DataModule2;

Unit3.pas - модуль форми перегляду таблиць

Unit4.pas - модуль редагування таблиці Товари

Unit5.pas - модуль формування звіту таблиці Товари

Uni6.pas - модуль пошуку по таблиці Товар



6. Опис реалізації проекту бази даних

1.1 Заповнення таблиць БД початковими даними.

Запускаємо Database Desktop. У меню "File" обираємо команду

"Open Table" і відкриваємо таблицю Tovar.db. Переходимо у режим редагування і заносимо дані до таблиці.

Занесення даних до таблиці Tovar.db

Всі інші таблички створені нами заповняємо таким же самим чином.



Приклад заповнення таблиць

1,2Визначення цілісності посилань між таблицями БД.

Щоб визначити цілісність посилання нашої бази даних відкриваємо таблицю Rahynok і заходимо в режим реструктуризації (Table/Restructure). У списку Table Properties обираємо елемент Referential Integrity та натискаємо кнопку Define.

У вікні, що з'явилось, в списку Fields показані поля підпорядкованої таблиці, а в списку Tables - таблиці робочої бази даних.

Зі списку Fields обираємо поле, що є зовнішнім ключем і ставимо йому у відповідність поле - первинний ключ - з таблиці, що є головною.



7. Розробка програми

Головна програма

На головній формі розташоване випадаюче меню, за допомогою якого можна переглянути основні таблиці бази даних, а саме: Товар,Магазин,Клієнт, Звіт,Пошук.

Форма головного меню

Обробники подій для кнопок:

procedure TForm1.Button1Click(Sender: TObject);

begin

Form3.Show;

Form3.DBGrid1.DataSource:=DataModule2.DataSource5;

DataModule2.Table5.Active:=True;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Show;

Form3.DBGrid1.DataSource:=DataModule2.DataSource1;

DataModule2.Table1.Active:=True;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form3.Show;

Form3.DBGrid1.DataSource:=DataModule2.DataSource4;

DataModule2.Table4.Active:=True;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form3.Show;

Form3.DBGrid1.DataSource:=DataModule2.DataSource2;

DataModule2.Table2.Active:=True;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

DataModule2.Table5.CancelRange;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Form3.Show;

Form3.DBGrid1.DataSource:=DataModule2.DataSource5;

DataModule2.Table5.Active:=True;

DataModule2.Table5.Filtered:=True;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

ShowMessage('Ви намагаєесь закрити базу даних :)');

close;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form3.Show;

Form3.Panel1.Align:=alclient;

Form3.Panel1.Visible:=True;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form3.Show;

Form3.Panel2.Align:=alclient;

Form3.Panel2.Visible:=True;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form3.Show;

Form3.Panel3.Align:=alclient;

Form3.Panel3.Visible:=True;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form5.Quickrep1.Preview;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

close;

end;

Форма для перегляду

таблиць має зручний інтерфейс, дивлячись яку таблицю ми обираємо ,нам буде висвічуватисьсаме її зміст , а всі інші будуть зховуватись.

Текс прорами:

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Panel1.Visible:=false;

Panel2.Visible:=false;

Panel3.Visible:=false;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

Panel1.Visible:=false;

Panel2.Visible:=false;

Panel3.Visible:=false;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

Form4.Show;

DataModule2.Table5.Insert;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Form4.Show;

DataModule2.Table5.Edit;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

DataModule2.Table5.Delete;

end;

Форма редагування

При перегляді таблиці Товари , зявиться кнопка редагування цієї таблиці,де ми можемо додати , змінити або видалити дані.

1 Таблиця Товар



procedure TForm4.Button1Click(Sender: TObject);

begin

DataModule2.Table5.Post;

close;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

DataModule2.Table5.Cancel;

close;

end;

Форма пошуку

Викликається при натисканні клавіші «Пошук» в випадаючому меню.

Містить параметри пошуку.

procedure TForm6.Button1Click(Sender: TObject);

begin

DataModule2.Table5.Filtered:=True;

Form3.Panel1.Visible:=True;

Form3.Show;

end;

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);

begin

DataModule2.Table5.Filtered:=False;

DataModule2.Table5.Refresh;

end;

Форма DataModule2.

Дана форма містить усі невізуальні компоненти програми, а саме: набори DataSource і Table.

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

Форма «Звіт»



Список літератури

1. Архангельский А. Я. Программирование в Delphi для Windows. -М.: ООО «Бином-Пресс», 2003. -- 1152 с.

2. Дарахвелидзе П. Г., Марков Е. П. Программирование в Delphi . 7- СПб.: БХВ-Петербург, 2003. -- 784 с.

3. Дейт К. Дж. Введение в системы баз данных, 7-е издание. - М.: Издательский дом «Вильямс», 2001. -1072 с.

4. Гайна Г.А. Основи проектування баз даних: Навчальний посібник. - К.: Кондор, 2008. - 200 с.

5. Гарсиа-Молина Г., Ульман Дж., Уидом Дж. Системы баз данных. Полный курс -- М.: «Вильямс», 2003. -- 1088 с.

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