Облік замовлень

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

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

Облік замовлень



Вступ

даталогічний запит програма облік

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

Концептуальна модель (рис. 1)



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

даталогічний запит програма облік

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

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

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

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

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



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

датологічний запит програма облік

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

Датологічна модель (рис. 2)

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

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

Опис функціональних запитів



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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;

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

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

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;



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

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

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

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

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

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

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

...