проектирование базы данных магазина
Заказать уникальную курсовую работу- 26 26 страниц
- 0 + 0 источников
- Добавлена 16.10.2013
- Содержание
- Часть работы
- Список литературы
- Вопросы/Ответы
1 ОПИСАНИЕ ПРЕДМЕТНОЙ ОБЛАСТИ 3
2 АНАЛИЗ СУЩЕСТВУЮЩЕЙ ИНФОРМАЦИОННОЙ СИСТЕМЫ МАГАЗИНА («КАК ЕСТЬ») 6
3. РЕИНЖЕНИРИНГ ПРОЦЕССОВ 8
4. ПРОЕКТИРОВАНИЕ БАЗЫ ДАННЫХ 12
5. ПРОРЕКТИРОВАНИЕ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ 18
6.ОПРЕДЕЛЕНИЕ СТОИМОСТИ СОЗДАНИЯ СИСТЕМЫ 21
ЛИТЕРАТУРА 25
ПРИЛОЖЕНИЕ 26
ЛИСТИНГ РАЗРАБОТАННОЙ ПРОГРАММЫ 26
dfm}procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure TaddForm.Button1Click(Sender: TObject); var bank,revizit:string;begin Familiya:=edit18.Text; imya:=edit21.Text; otchestvo:=edit26.Text; adres:=edit30.Text; dom_tel:=edit28.Text; MainClientsForm.ADOTable8.Active:=true; MainClientsForm.ADOTable8.Insert; MainClientsForm.ADOTable8.FieldByName('familya').AsString:=Familiya; MainClientsForm.ADOTable8.FieldByName('imya').AsString:=imya; MainClientsForm.ADOTable8.FieldByName('otchestvo').AsString:=otchestvo; MainClientsForm.ADOTable8.FieldByName('adres').AsString:=adres; MainClientsForm.ADOTable8.FieldByName('telefon').AsString:=dom_tel; MainClientsForm.ADOTable8.Post; id_client:=MainClientsForm.ADOTable8.FieldByName('id_client').AsInteger;end;procedure TaddForm.Button2Click(Sender: TObject); var description, srok, skidka:string; firm,country,factory:string; massa,razgon,maxskorost:integer;begindescription:= edit23.text;srok:=edit25.text;skidka:=edit29.text; MainClientsForm.ADOTable6.Active:=true; MainClientsForm.ADOTable6.Insert; MainClientsForm.ADOTable6.FieldByName('desription').AsString:= description; MainClientsForm.ADOTable6.FieldByName('srok').AsString:= srok; MainClientsForm.ADOTable6.FieldByName('skidka').AsString:= skidka; MainClientsForm.ADOTable6.Post; id_akcia:=MainClientsForm.ADOTable6.FieldByName('id_akcia').AsInteger; firm:=edit48.Text; country:=edit55.Text; factory:=edit45.Text; MainClientsForm.ADOTable4.Active:=true; MainClientsForm.ADOTable4.Insert; MainClientsForm.ADOTable4.FieldByName('firm').AsString:= firm; MainClientsForm.ADOTable4.FieldByName('country').AsString:= country; MainClientsForm.ADOTable4.FieldByName('factory').AsString:=factory; MainClientsForm.ADOTable4.Post; id_proizv:= MainClientsForm.ADOTable4.FieldByName('id_proizv').AsInteger; massa:= strtoint(edit3.Text); razgon:=strtoint(edit20.Text); maxskorost:=strtoint(edit12.Text); korobka:=edit13.Text; rashod:=strtofloat(edit22.Text); MainClientsForm.ADOTable5.Active:=true; MainClientsForm.ADOTable5.Insert; MainClientsForm.ADOTable5.FieldByName('massa').AsInteger:= massa; MainClientsForm.ADOTable5.FieldByName('razgon').AsInteger:= razgon; MainClientsForm.ADOTable5.FieldByName('maxskorost').AsInteger:= maxskorost; MainClientsForm.ADOTable5.FieldByName('korobka').AsString:= korobka; MainClientsForm.ADOTable5.FieldByName('rashod').AsFloat:=rashod; MainClientsForm.ADOTable5.Post;id_harakter:=MainClientsForm.ADOTable5.FieldByName('id_harakter').AsInteger;dvigat:=edit31.Text;moshnost:=edit35.Text;diski:=edit37.Text;shinu:=edit39.Text;steklo:=edit44.Text;radiola:=edit4.Text;svet:=edit46.Text;kuzov:=edit17.Text;zashita:=edit49.Text;podveska:=edit41.Text;cvet:=edit47.Text; MainClientsForm.ADOTable3.Active:=true; MainClientsForm.ADOTable3.Insert; MainClientsForm.ADOTable3.FieldByName('dvigat').AsString:= dvigat; MainClientsForm.ADOTable3.FieldByName('moshnost').AsString:= moshnost; MainClientsForm.ADOTable3.FieldByName('diski').AsString:= diski; MainClientsForm.ADOTable3.FieldByName('shinu').AsString:= shinu; MainClientsForm.ADOTable3.FieldByName('steklo').AsString:= steklo; MainClientsForm.ADOTable3.FieldByName('radiola').AsString:= radiola; MainClientsForm.ADOTable3.FieldByName('svet').AsString:= svet; MainClientsForm.ADOTable3.FieldByName('kuzov').AsString:= kuzov; MainClientsForm.ADOTable3.FieldByName('zashita').AsString:= zashita; MainClientsForm.ADOTable3.FieldByName('podveska').AsString:= podveska; MainClientsForm.ADOTable3.FieldByName('cvet').AsString:= cvet; MainClientsForm.ADOTable3.Post; id_complect:=MainClientsForm.ADOTable3.FieldByName('id_complect').AsInteger; model:=edit5.Text; god:=strtoint(edit54.Text); kolvo:=strtoint(edit53.Text); cena:=strtoint(edit7.Text); MainClientsForm.ADOTable2.Active:=true; MainClientsForm.ADOTable2.Insert; MainClientsForm.ADOTable2.FieldByName('model').AsString:= model; MainClientsForm.ADOTable2.FieldByName('god').AsInteger:= god; MainClientsForm.ADOTable2.FieldByName('kolvo').AsInteger:= kolvo; MainClientsForm.ADOTable2.FieldByName('cena').AsInteger:= cena; MainClientsForm.ADOTable2.FieldByName('id_akcia').AsInteger:= id_akcia; MainClientsForm.ADOTable2.FieldByName('id_proizv').AsInteger:= id_proizv; MainClientsForm.ADOTable2.FieldByName('id_harak').AsInteger:= id_harakter; MainClientsForm.ADOTable2.FieldByName('id_complect').AsInteger:= id_complect; MainClientsForm.ADOTable2.Post;end;procedure TaddForm.Button3Click(Sender: TObject);var tovar, srtkl,name_poisk,sqlwhere,stroka_SQL :string;p1:tparameter;firm1:string; kontakt,nomer_dog:string; id_firm:integer; datad,datak:tdatetime; id_avto,id_client,id_sotrudnik:integer; summa:real;begin id_avto:=strtoint(edit1.Text); id_client:=strtoint(edit11.Text); id_sotrudnik:=strtoint(edit24.Text); datad:=strtodate(edit14.Text); summa:=strtofloat(edit2.Text); MainClientsForm.ADOTable1.Active:=true; MainClientsForm.ADOTable1.Insert; MainClientsForm.ADOTable1.FieldByName('id_avto').AsInteger:= id_avto; MainClientsForm.ADOTable1.FieldByName('id_client').AsInteger:= id_client; MainClientsForm.ADOTable1.FieldByName('id_sotrudnik').AsInteger:= id_sotrudnik; MainClientsForm.ADOTable1.FieldByName('date').AsDateTime:= datad; MainClientsForm.ADOTable1.FieldByName('summa').AsFloat:= summa; MainClientsForm.ADOTable1.Post;end;procedure TaddForm.Button4Click(Sender: TObject);var data_sd:tdatetime;id_object:integer;stoimz:real;tarif:real;dog1,dog2:integer;id_operac:integer;data_prim:tdatetime; naimen,edinica,proizvod,notes,rabot:string; fam,nam,otchestvo,dolg:string; stag:integer;begin fam:=(edit6.text); nam:=(edit8.text); otchestvo:=(edit10.text); dolg:=(edit16.text); stag:=strtoint(edit15.text); MainClientsForm.ADOTable7.Active:=true; MainClientsForm.ADOTable7.Insert; MainClientsForm.ADOTable7.FieldByName('familiya').AsString:= fam; MainClientsForm.ADOTable7.FieldByName('imya').AsString:= nam; MainClientsForm.ADOTable7.FieldByName('otchestvo').AsString:= otchestvo; MainClientsForm.ADOTable7.FieldByName('dolgnost').AsString:= dolg; MainClientsForm.ADOTable7.FieldByName('stag').AsInteger:=stag; MainClientsForm.ADOTable7.Post;end;procedure TaddForm.Button5Click(Sender: TObject);var XlApplication: OleVariant; XLWorkSheet: OleVariant; stoim:real;beginend;procedure TaddForm.FormCreate(Sender: TObject);beginend;end.unit ChildTemplate;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, Grids, DBGrids, ExtCtrls, Menus, StdCtrls;type TChildTemplateForm = class(TForm) DBGrid1: TDBGrid; Label1: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure RzToolbarButton2Click(Sender: TObject); procedure RzToolbarButton1Click(Sender: TObject); private { Private declarations } public { Public declarations }end;implementation{$R *.dfm}uses mainclients;procedure TChildTemplateForm.FormClose(Sender: TObject; var Action: TCloseAction);beginAction:=caFree;end;procedure TChildTemplateForm.RzToolbarButton1Click(Sender: TObject);begindbgrid1.DataSource.DataSet.Insert;end;procedure TChildTemplateForm.RzToolbarButton2Click(Sender: TObject);begindbgrid1.DataSource.DataSet.Edit;end;end.unit parampoisk;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,addsorce, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls ;type Tparampoik = class(TForm) Button1: TButton; GroupBox1: TGroupBox; Label1: TLabel; Edit1: TEdit; Label7: TLabel; Edit2: TEdit; UpDown1: TUpDown; Edit3: TEdit; Edit4: TEdit; UpDown2: TUpDown; Edit5: TEdit; UpDown3: TUpDown; Edit6: TEdit; UpDown4: TUpDown; Edit7: TEdit; Label2: TLabel; Label3: TLabel; procedure RzBitBtn4Click(Sender: TObject); procedure RzBitBtn3Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var parampoik: Tparampoik; ChildTemplateForm1: TChildTemplateForm; ff:string; flagpoisk:boolean; p1,p2:tparameter;all:boolean;ahour, aminute, asecond, amillisecond :word;priznak:string;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string;idnakl,idzapas,i,sravn,kolnakl,kolzapas, rezerv_kol:integer;implementationuses mainclients;{$R *.dfm}procedure Tparampoik.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure Tparampoik.RzBitBtn3Click(Sender: TObject);var ChildTemplateForm:TChildTemplateform;all:boolean;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string; fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;beginMainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1; mainclientsform.ADOQuery1.Active:=false; mainclientsform.ADOQuery1.SQL.Clear; P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;end;procedure Tparampoik.RzBitBtn4Click(Sender: TObject);begin flagpoisk:=false; MainClientsForm.IsMDIChildOpen(MainClientsForm,'parampoik');end;procedure Tparampoik.Button1Click(Sender: TObject);var ChildTemplateForm:TChildTemplateform; timenach,timekon:tdatetime;beginMainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2; mainclientsform.ADOQuery2.Active:=false; mainclientsform.ADOQuery2.SQL.Clear;if nomer_poisk=1 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; if edit1.Text<>'' then begin srtkl := edit1.Text; end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; ChildTemplateForm.Label1.Caption:='Информацияобавтомобиле : '+edit1.Text;sqlwhere:= ' where (complect.id_complect = ( select avto.id_complect from avto where avto.model like :P1))'; stroka_SQL:='select * from complect'+sqlwhere ; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=2 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; if edit1.Text<>'' then begin srtkl := edit1.Text; end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; ChildTemplateForm.Label1.Caption:='Информацияоклиенте: '+edit1.Text;sqlwhere:= ' where client.familya like :P1'; stroka_SQL:='select * from client'+sqlwhere ; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; mainclientsform.ADOTable3.Next; end; end; end; end else showmessage('проводканакладнойнетребуется')end; end;end; end;end.unit DBDirectoryTemplate;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids;type TDBDirectoryTemplateForm = class(TForm) TableDBGrid: TDBGrid; procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end;var DBDirectoryTemplateForm: TDBDirectoryTemplateForm;implementation{$R *.dfm}procedure TDBDirectoryTemplateForm.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;end.
1. Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.
2. Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.
3. Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
4. Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COM
5. Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.
Проектирование базы данных интернет-магазина в СУБД MS ACCESS
Государственный университет Экономики, Статистики и Информатики (МЭСИ)
Технологический институт
Кафедра Прикладной информатики в экономике
Курсы проекта
по курсу "Базы данных (2)"
на тему: "Проектирование базы данных интернет-магазина в СУБД MS ACCESS"
Выполнили
студенты группы ДКИ-301:
Руководитель:
Москва, 2010
Содержание
1. Описание области. Постановка задачи
2. Выбор средств/методологии проектирования и субд.
3. Построение инфологической (концептуальной) модели предметной области
4. Проектирование логической структуры базы данных
5. Выявление полного перечня ограничений целостности, присущего данной области
6. Проектирование физической структуры базы данных
7. Организация ввода данных в базу данных
8. Проведение корректировки базы данных
9. Описание информационных потребностей пользователей и выбор способов их реализации
10. Развитие интерфейса
11. Реализация проекта в среде конкретной СУБД
12. Список использованной литературы и Интернет-ресурсов
1. Описание области. Постановка задачи
Задача: спроектировать базу данных интернет-магазина. Для этого, в первую очередь, необходимо описать дисциплины:
Магазин продает широкий выбор категорий продуктов. Без ограничения покупателей по возрасту. Оплату можно производить с помощью кредитной карты, интернет-кошельков, наличными при доставке или при получении товара в одном из пунктов выдачи, расположенных в Москве. Доставка товара осуществляется тремя способами (в зависимости от стоимости и размера заказа) в пределах и за пределами МКАД. Доставка производится в любой день недели, как правило, на следующий день после размещения заказа.
доставка
· осуществляется только в пределах МКАД;
· наличными за заказ не более 30 000р;
· на общем весе заказа менее 2,5 кг;
· в общем объеме заказа не превышающем 0,04 куб. м, например: карта памяти, фотоаппарат, процессор или материнская плата;
· доставка осуществляется в будние дни и в субботу с 10 до 19 часов
· стоимость услуги составляет 250р. при доставке только в пределах МКАД