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

Содержание
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.