Вход

проектирование базы данных магазина

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 69994
Дата создания 2013
Страниц 26
Покупка готовых работ временно недоступна.
1 810руб.

Содержание

Содержание
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с.
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
© Рефератбанк, 2002 - 2022