Створення інформаційної системи 'Мебельний магазин'

Створення інформаційної системи 'Мебельний магазин'

Зміст

Вступ

Розділ 1. Інформаційні системи

1.1    Загальні відомості про інформаційні системи

.2  Класифікація інформаційних систем

1.3    Області застосування і реалізації інформаційних систем

.4      Вимоги, що пред'являються до інформаційних систем

1.5    Поняття проекту

1.6    Основні фази проектування інформаційних систем

Розділ 2. Бази даних

2.1    Поняття бази даних

.2      Призначення та класифікація систем управління базами даних (СУБД

Розділ 3. Мебельний магазин «Город мебели»

3.1    Створена база даних

3.2 Лістинг програми

Висновок

Використана література

база магазин інформаційна система

Вступ

Програмне забезпечення за півстоліття свого існування зазнало величезних змін, пройшовши шлях від програм, здатних виконувати тільки найпростіші логічні і арифметичні операції, до складних систем управління підприємствами. Хоча спочатку комп'ютери призначалися головним чином для виконання складних математичних розрахунків, в даний час домінуючим є накопичення та обробка інформації. Сьогодні управління підприємством без комп'ютера просто неможливе. Комп'ютери давно і міцно увійшли в такі області, як бухгалтерський облік, управління асортиментом і закупівлями.

Проте сучасний бізнес вимагає більш широкого застосування інформаційних технологій в управлінні. Життєздатність та розвиток інформаційних технологій пояснюється тим, що сучасний бізнес вкрай чутливий до помилок в управлінні. Інтуїції, особистого досвіду керівника та розмірів капіталу вже мало для того, щоб бути першим. Для прийняття будь-якого грамотного управлінського рішення в умовах невизначеності і ризику необхідно постійно тримати під контролем різні аспекти фінансово-господарської діяльності, будь то торгівля, виробництво або надання послуг. Тому сучасний підхід до управління передбачає вкладення коштів в інформаційні технології. І чим більше підприємство, тим серйозніше повинні бути такі вкладення. Вони є життєвою необхідністю в жорсткій конкурентній боротьбі. Здобути перемогу зможе лише той, хто краще оснащений і найбільш ефективно організований.

Курсовий проект (надалі КП) має на меті оцінити рівень підготовки студентів, отримані ними теоретичні знання, набуті навички самостійної роботи, вміння синтезувати отримані знання і застосовувати їх для вирішення практичних завдань.

Виконання КП є одним із завершальних і найбільш значущих етапів навчання студентів з дисципліни «Проектування автоматизованих інформаційних систем». Його кінцевим результатом є представлення та захист оформленої відповідним чином роботи, в якій відбивається зміст дисципліни, що вивчається і якість підготовки фахівців цього напрямку.

Основним завданнями виконання КП є виявлення таких речей як:

·        розуміння студентом основних проблем і перспектив розвитку технології проектування автоматизованих інформаційних систем;

·        розуміння студентом значущості своєї майбутньої професійної діяльності, вміння здобувати нові знання, особливо в галузі сучасних інформаційних технологій;

·        вміння працювати з технічною та нормативною документацією, а також чітко викладати свої думки;

·        навичок вирішувати поставлені практичні завдання з використанням теоретичних знань.

Метою даного курсового проекту створення інформаційної системи «Мебельний магазин».

Для реалізації цього проекту використовувалось наступне програмне та інформаційне забезпечення:

v  для створення бази даних (БД)

Ø  MS Access 2007

Ø  Сайт Магазину мебелі http:/berezka-mebel.com.ua/ <#"786323.files/image001.gif">

Рисунок 2.1 - Архітектура СУБД

Для виконання операцій з базою даних в прикладних програмах використовується мова маніпулювання даними (ММД). Фактична структура фізичного зберігання даних відома тільки СУБД.

З метою забезпечення зв'язків між програмами користувачів і СУБД (що особливо важливо при мультипрограмному режимі роботи операційної системи) в СУБД виділяють особливу складову - резидентний модуль системи керування базами даних. Цей модуль значно менший від всієї СУБД , тому на час функціонування автоматизованого банку інформації він може постійно знаходитись в основній пам'яті ЕОМ та забезпечувати взаємодію всіх складових СУБД і програм, які до неї звертаються.

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

До недавнього часу при організації обробки інформації на ЕОМ застосовувався підхід, при якому на основі інформації одного і того ж об'єкту управління (наприклад, матеріальних ресурсів) в залежності від її вигляду (нормативна. розцінкова тощо) і ступеню постійності формувались масиви лінійної структури двох типів: умовно-постійні (з інформацією, яка використовувалась багато разів протягом довгого часу) і умовно-перемінні (з фактичною або поточною інформацією). Створення і багаторазове використання масивів з умовно-постійною інформацією має ті переваги, які дозволяють значно спростити первинну документацію шляхом виведення з її складу ряд постійних реквізитів. знизити трудомісткість робіт на стадії заповнення первинних документів, підготовки і вроду фактичної або поточної інформації до ЕОМ. Недоліком таких масивів, які мають лінійну структуру, є то що інформація одного і того я об'єкту управління розосереджується поміж багатьох різних масивів (нормативних, планових та ін.), що неминуче веде до дублювання деяких реквізитів, ускладненню при спільній їх обробці тощо, а головне - не дає змоги реалізувати принцип незалежності від прикладних програм користувача. Лінійні масиви, сформовані традиційним способом, ефективні, як правило, а позиції одного застосування.

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

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

В ієрархічній моделі зв'язок даних "один до одного" (1:1) означає, що кожному значенню (екземпляру) елемента даних А відповідає одне і тільки одне значення, пов'язаного з ним елемента В. Наприклад, поміж такими елементами пар даних, як код готової продукції і її найменуванням є вищезазначений зв'язок, так як тільки кожному коду продукції відповідає одне її найменування.

Зазначимо, що ієрархічна модель даних будується на основі принципу підпорядкованості поміж елементами даних і представляє собою деревоподібну структуру, яка складається із вузлів (сегментів) і дуг (гілок). Дерево у ієрархічній структурі упорядковане за існуючими правилами розташування його сегментів і гілок: на верхньому рівні знаходиться один, кореневий (вихідний) сегмент, сегмент другого рівня, породжений, залежить від першого, вихідного; доступ до кожного породженого (крім кореневого) здійснюється через його вихідний сегмент; кожний сегмент може мати по декілька екземплярів конкретних значень елементів даних, а кожний елемент породженого сегменту пов’язаний з екземпляром вихідного і створює один логічний запис; екземпляр породженого сегменту не може існувати самостійно, тобто без кореневого сегменту; при вилученні екземпляру кореневого сегмента також вилучаються усі підпорядковані і взаємопов'язані з ним екземпляри породжених сегментів.

В мережевій моделі зв'язок "один до багатьох" (1:В) означає, що значенню елемента А відповідають багато (більше одного) значень, пов'язанню з ним елементів В. Наприклад, поміж елементами даних "код виробу" (елемент А) і "кодом матеріалів" (елементи В) існує такий взаємозв'язок бо на виготовлення одного виробу використовується багато різних матеріалів.

Мережева модель даних представляє собою орієнтований граф з пойменованими вершинами і дугами. Вершини графа - записи, які представляють собою по іменовану сукупність логічних взаємозв'язаних елементів даних або агрегатів даних. Під агрегатом даних розуміють пошановану сукупність елементів даних, які є усередині запису. Для кожного типу записів може бути кілька екземплярів конкретних значень його інформаційних елементів Два записи, взаємозв'язані дугою, створюють набір даних. Запис, з якого виходить дуга, називається власником набору, а запис, до якого вона направлена, - членом набору.

В реляційній моделі зв'язок "багатьох до багатьох" (В:В) указує на те, що декільком значенням елементів даних А відповідає декілька значені елементів даних В. Наприклад, поміж елементами даних "код операції технологічного процесу" і "табельний номер працівника" існує зазначені взаємозв'язок, так як багато операцій технологічного процесу можуть виконувати різні працівники (табельні номери) і навпаки.

Реляційна модель даних являє собою набір двомірних плоских таблиць, що складаються з рядків і стовпців. Первинний документ або лінійний масив являє собою плоску двомірну таблицю. Така таблиця називається відношенням, кожний стовбець-атрибутом, сукупність значень одного типу (стовпця) - доменом, а рядка - кортежем. Таким чином, стовпці таблиці являються традиційними елементами даних, а рядки - записами. Таблиці (відношення) мають імена. Імена також присвоюються і стовпцям таблиці. Кожний кортеж (запис ) відношення має ключ. Ключі є прості і складні. Простий ключ-це ключ, який складається з одного атомарного атрибуту, значення якого унікальне (яке не повторюються). Складний ключ складається з двох і більше атрибутів. Для зв’язків відношень друг з другом в базі даних є зовнішні ключі. Атрибут або комбінація атрибута відношення є зовнішнім ключем, якщо він не є основним (первинним) ключем цього відношення, але являється первинним ключем для другого відношення.

Різновидністю баз даних, з точки зору їх зберігання і використання, є розподіленні бази даних. Ці бази даних широко використовуються при організації комплексів взаємопов’язаних АРМ фахівців, на яких застосовуються ПЕОМ .

Розподілена база даних - це сукупність логічно зв’язаних баз даних або частин однієї бази, які розпаралелені поміж декількома територіально - розподіленими ПЕОМ і забезпечені відповідними можливостями для управління цими базами або їх частинами. Тобто, розподілена база даних реалізується на різних просторово розосереджених обчислювальних засобах, разом з організаційними, технічними і програмними засобами її створення і ведення.

Розділ 3. Мебельний магазин «Город мебели»

3.1    Створена база даних

База даних складається з 2 таблиць: «Категория» та «Товары» які з’єднані зв’язком один-до-багатьох (мал.3.1).

Мал..3.1

Таблиця «Категория» має наступну структуру :

Таблиця «Товары» має наступну структуру

.2      Лістинг програми

Програма складається з 3 форм:

·        Korzina

·        Poisk

·        Magazin

Форма Magazin має наступний вигляд :

Ця форма виступає основною в даному проекті. На ній відображаються всі товари, що містяться у базі даних з детальним описом та фотографією. Зліва використовується список категорій товарів наявних у магазині, а праворуч - перелік товарів даної категорії

Програмний код :

var

pos1,pos2:boolean;

 symma_zakaza:real;

procedure TSDIAppForm.FormCreate(Sender: TObject);

begin.Brush.Bitmap := TBitMap.Create;.Brush.Bitmap.LoadFromFile('res\fon.bmp');.Picture.LoadFromFile('res\temp.png');.Picture.LoadFromFile('res\emblema.png');.Picture.LoadFromFile('res\find.png');:=true;:=true;_zakaza:=0;;

procedure TSDIAppForm.FormDestroy(Sender: TObject);

begin.Brush.Bitmap.Destroy;;

procedure TSDIAppForm.FormResize(Sender: TObject);

var dl:integer;.Left:=Round(SDIAppForm.ClientWidth*0.015);.Width:=Round(SDIAppForm.ClientWidth*0.97);.Top:=Round(SDIAppForm.ClientHeight*0.015);.Height:=Round(SDIAppForm.ClientHeight*0.97);.Top:=Round(SDIAppForm.ClientHeight*0.08)-22;.Left:=Round(SDIAppForm.ClientWidth*0.97-141);.Top:=Round(SDIAppForm.ClientHeight*0.08)-20;.Left:=Round(SDIAppForm.ClientWidth*0.97-18);.Top:=Round(SDIAppForm.ClientHeight*0.08)+7;.Left:=Round(SDIAppForm.ClientWidth*0.97-141);.Left:=Round(SDIAppForm.ClientWidth*0.015);.Top:=Round(SDIAppForm.ClientHeight*0.015);.Height:=Round(SDIAppForm.ClientHeight*0.13);.Top:=Round(SDIAppForm.ClientHeight*0.15);.Left:=Round(SDIAppForm.ClientWidth*0.03);.Top:=Round(SDIAppForm.ClientHeight*0.15);.Left:=Round(SDIAppForm.ClientWidth*0.97-90);.Top:=Round(SDIAppForm.ClientHeight*0.15+35);.Left:=Round(SDIAppForm.ClientWidth*0.03);.Width:=Round(SDIAppForm.ClientWidth*0.18);.Height:=Round(SDIAppForm.ClientHeight*0.8-30);.Width:=Round(SDIAppForm.ClientWidth*0.18);.Height:=Round(SDIAppForm.ClientHeight*0.8-30);.Top:=Round(SDIAppForm.ClientHeight*0.15+35);.Left:=Round(SDIAppForm.ClientWidth*0.97- DBLookUpListBox2.Width);.Top:=Round(SDIAppForm.ClientHeight*0.15+40);.Left:=DBLookUpListBox1.Left+DBLookUpListBox2.Width+10;.Width:=Round(SDIAppForm.ClientWidth*0.56);:=0;SDIAppForm.ClientWidth>800 then dl:=dl+20;SDIAppForm.ClientWidth>1000 then dl:=dl+30;SDIAppForm.ClientWidth>1200 then dl:=dl+30;.Top:=Round(SDIAppForm.ClientHeight*0.15+80);.Left:=DBLookUpListBox1.Left+DBLookUpListBox2.Width+Round(SDIAppForm.ClientWidth*0.015)+dl;.Width:=Round(SDIAppForm.ClientWidth*0.35);.Height:=Round(SDIAppForm.ClientHeight*0.5-80);.Left:=DBLookUpListBox1.Left+DBLookUpListBox2.Width+25;.Top:=Round(SDIAppForm.ClientHeight*0.65+15);.WordWrap:=false;.Left:=DBLookUpListBox1.Left+DBLookUpListBox2.Width+10;.Top:=Round(SDIAppForm.ClientHeight*0.65+45);.Width:=Round(SDIAppForm.ClientWidth*0.56);.Height:=Round(SDIAppForm.ClientHeight*0.27-30);.WordWrap:=true;.Top:=Round(SDIAppForm.ClientHeight*0.15+80);.Left:=Image4.Left+Image4.Width+Round(SDIAppForm.ClientWidth*0.02);.Top:=Round(SDIAppForm.ClientHeight*0.15+110);.Left:=Image4.Left+Image4.Width+Round(SDIAppForm.ClientWidth*0.02);.Top:=Round(SDIAppForm.ClientHeight*0.15+Image4.Height+15);.Left:=Image4.Left+Image4.Width+Round(SDIAppForm.ClientWidth*0.02);.Top:=Round(SDIAppForm.ClientHeight*0.15+Image4.Height+50);.Left:=Image4.Left+Image4.Width+Round(SDIAppForm.ClientWidth*0.02);.Top:=Round(SDIAppForm.ClientHeight*0.15);.Left:=Round(SDIAppForm.ClientWidth*0.03)+DBLookUpListBox1.Width+2;.Height:=Round(SDIAppForm.ClientHeight*0.8);pos2=true then Panel1.Width:=Round(SDIAppForm.ClientWidth*0.57+2);pos1=true then Panel1.Width:=Round(SDIAppForm.ClientWidth*0.76);;

procedure TSDIAppForm.Button1Click(Sender: TObject);

var: TListItem;:= Korzina.Form1.ListView1.Items.Add;.Caption := ADOQuery1.FieldByName('Категория').AsString;.SubItems.Add(ADOQuery1.FieldByName('Наименование').AsString);.SubItems.Add( ADOQuery1.FieldByName('ID').AsString);.SubItems.Add(ADOQuery1.FieldByName('Цена').AsString);_zakaza:=symma_zakaza+ADOQuery1.FieldByName('Цена').AsFloat;.Caption:='Корзина: '+ FloatTostr(symma_zakaza) +' грн.';.Form1.Label1.Caption:='Товаров в корзине: '+IntToStr(Korzina.Form1.ListView1.Items.Count);.Form1.Label2.Caption:='Сумма заказа: ' + FloatToStr(Magazin.symma_zakaza) + ' грн.' ;;

procedure TSDIAppForm.DBLookupListBox1Click(Sender: TObject);

begin:=false;.Caption:=' Выберите модель ---> ';.Width:=Round(SDIAppForm.ClientWidth*0.57+2);.Text:='Поиск...';.SQL.Clear;.SQL.Add('SELECT *');.SQL.Add('FROM Товары');.SQL.Add('WHERE Товары.Категория=''' + DBLookupListBox1.SelectedItem +''';');.Active := True;;

procedure TSDIAppForm.DBLookupListBox2Click(Sender: TObject);

begin.Hide;.Caption:=ADOQuery1.FieldByName('Категория').AsString+' серии " '+ ADOQuery1.FieldByName('Наименование').AsString +' "';.Caption:='Код товара: ' + ADOQuery1.FieldByName('ID').AsString;( ADOQuery1.FieldByName('Наличие').AsString='True' ) then.Font.Color:=clLime;.Font.Color:=clLime;.Enabled:=true;

Label6.Caption:='Есть в наличии';

end.Font.Color:=clRed;.Font.Color:=clRed;.Enabled:=false;

Label6.Caption:='Нет в наличии';

end;.Caption:='Цена: ' + ADOQuery1.FieldByName('Цена').AsString + ' грн.';.Text:=ADOQuery1.FieldByName('Описание').AsString;.Picture.LoadFromFile('res\db\'+ADOQuery1.FieldByName('ID').AsString+'.jpg');Image4.Picture.LoadFromFile('res\db\'+ADOQuery1.FieldByName('ID').AsString+'.png');Image4.Picture.LoadFromFile('res\db\'+ADOQuery1.FieldByName('ID').AsString+'.bmp');('not load any picture');;;;;;.Text:='Поиск...';;

procedure TSDIAppForm.Edit1Change(Sender: TObject);

begin((Edit1.Text<>'') and (Edit1.Text<>'Поиск...')) thenpos1 then:=false;.Caption:=' Выберите модель ---> ';.Width:=Round(SDIAppForm.ClientWidth*0.57+2);;

.SQL.Clear;.SQL.Add('SELECT *');.SQL.Add('FROM Товары');.SQL.Add('WHERE Товары.Наименование Like (''%' + Edit1.Text +'%'') or');.SQL.Add(' Товары.ID Like ('''+Edit1.Text +'%'');');.Active := True;;;

procedure TSDIAppForm.Edit1Enter(Sender: TObject);

beginEdit1.Text='Поиск...' then Edit1.Text:='';;

procedure TSDIAppForm.FileExit1Execute(Sender: TObject);

begin;;

procedure TSDIAppForm.HelpAbout1Execute(Sender: TObject);

begin.ShowModal;;

procedure TSDIAppForm.Image3Click(Sender: TObject);

begin.Form2.Show;;

procedure TSDIAppForm.Image3MouseEnter(Sender: TObject);

begin.Picture.LoadFromFile('res\find_.png');;

procedure TSDIAppForm.Image3MouseLeave(Sender: TObject);

begin.Picture.LoadFromFile('res\find.png');;

procedure TSDIAppForm.Label1Click(Sender: TObject);

begin.Form1.Show;;

procedure TSDIAppForm.Label1MouseEnter(Sender: TObject);

begin.Font.Style:=Label1.Font.Style+[fsUnderline];;

procedure TSDIAppForm.Label1MouseLeave(Sender: TObject);

begin.Font.Style:=Label1.Font.Style-[fsUnderline];

end;

Форма Korzina має наступний вигляд:

Дана форма використовується для відображення товарів, що знаходяться у корзині. Є можливість видалення «зайвого» товару.

Програмний код:

procedure TForm1.Button1Click(Sender: TObject);

begin 

Form1.Close;

end;

begin 

if ListView1.Items.Count>0 then

begin.symma_zakaza:=Magazin.symma_zakaza-StrToFloat(ListView1.ItemFocused.SubItems.Strings[2]);.Items.Delete(ListView1.ItemFocused.Index);.Caption:='Товаров в корзине: '+IntToStr(ListView1.Items.Count);.Caption:='Сумма заказа: ' + FloatToStr(Magazin.symma_zakaza) + ' грн.' ;Magazin.symma_zakaza=0 then Magazin.SDIAppForm.Label1.Caption:='Корзина пуста'Magazin.SDIAppForm.Label1.Caption:='Корзина: '+ FloatTostr(symma_zakaza) +' грн.';.Enabled:=false;;;

procedure TForm1.FormActivate(Sender: TObject);

begin.Caption:='Товаров в корзине: '+IntToStr(ListView1.Items.Count);.Caption:='Сумма заказа: ' + FloatToStr(Magazin.symma_zakaza) + ' грн.' ;;

procedure TForm1.ListView1Click(Sender: TObject);

beginListView1.ItemFocused.Index>=0 then Button2.Enabled:=true;

except;;

Форма Poisk має наступний вигляд:

Форма «Poisk» використовується для пошуку товару із використанням певних параметрів, що значно заощаджує час.

Програмний код:

procedure TForm2.Button1Click(Sender: TObject);

begin.SDIAppForm.ADOQuery1.SQL.Clear;.SDIAppForm.ADOQuery1.SQL.Add('SELECT *');.SDIAppForm.ADOQuery1.SQL.Add('FROM Товары');.SDIAppForm.ADOQuery1.SQL.Add('WHERE Товары.Категория Like (''%' + DBLookUpComboBox2.Text +'%'') and');.SDIAppForm.ADOQuery1.SQL.Add(' Товары.Наименование Like (''%' + Edit1.Text +'%'') and');CheckBox1.Checked then.SDIAppForm.ADOQuery1.SQL.Add(' Товары.Наличие=true and');Edit3.Text<>'' then Magazin.SDIAppForm.ADOQuery1.SQL.Add(' Товары.Цена BETWEEN CCur(''' + Edit3.Text +''')')Magazin.SDIAppForm.ADOQuery1.SQL.Add(' Товары.Цена BETWEEN CCur(0)');Edit4.Text<>'' then Magazin.SDIAppForm.ADOQuery1.SQL.Add(' AND CCur(''' + Edit4.Text + ''') and')Magazin.SDIAppForm.ADOQuery1.SQL.Add(' AND CCur(999999999) and');.SDIAppForm.ADOQuery1.SQL.Add(' Товары.ID Like (''%' + Edit2.Text +'%'') ;');.SDIAppForm.ADOQuery1.Active := True;;

procedure TForm2.FormActivate(Sender: TObject);

begin.ListSource:=Magazin.SDIAppForm.DataSource1;.ListField:='Имя';.KeyField:='Имя';;

Висновок

Даний курсовий проект був виконаний з використанням мови програмування Delphi у середовищі Embarcadero RAD Studio Delphi 2010. В якості бази даних була обрана база формату *.mdb (База даних Microsoft Access Office 2002-2003 ) через зручність у використані та обробки інформації. Для зв’язку між програмою та базою використовувалася технологія ADO ( компоненти ADOConnection, ADOTable, ADOQuery), окрім високої швидкодії ця технологія дає змогу переносити цю інформаційну систему між різними персональними комп’ютерами за допомогою простого копіювання. Тобто, не потрібно виконувати ніякі налаштування , що значно полегшує використання.

Використана література

1.      Ізбачков Ю., Петров В. Інформаційні системи. - СПб.: Питер, 2005.

.        Колесник А.П. Комп'ютерні системи в управлінні фінансами. - М.: Фінанси і статистика, 1994

.        Антифеев Дм.Д. Современные средства построения корпоративных систем поддержки принятия управленческих решений "Терн", М., 2001

.        Рогач І. Ф., Сендзюк М. А., Антонюк В. А. Інформаційні системи у фінансово-кредитних установах: Нанч. посібник. - 2-ге вид.,

.        Савчук Т.О. Організація баз даних і знань. Вінниця: ВДТУ, 2000 р.