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

-
...

Содержание

1 ОПИСАНИЕ ПРЕДМЕТНОЙ ОБЛАСТИ 3
2 АНАЛИЗ СУЩЕСТВУЮЩЕЙ ИНФОРМАЦИОННОЙ СИСТЕМЫ МАГАЗИНА («КАК ЕСТЬ») 6
3. РЕИНЖЕНИРИНГ ПРОЦЕССОВ 8
4. ПРОЕКТИРОВАНИЕ БАЗЫ ДАННЫХ 12
5. ПРОРЕКТИРОВАНИЕ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ 18
6.ОПРЕДЕЛЕНИЕ СТОИМОСТИ СОЗДАНИЯ СИСТЕМЫ 21
ЛИТЕРАТУРА 25
ПРИЛОЖЕНИЕ 26
ЛИСТИНГ РАЗРАБОТАННОЙ ПРОГРАММЫ 26

-

dfm}function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; var i: Integer; begin Result := False; for i := Pred(AFormName.MDIChildCount) DownTo 0 do if (AFormName.MDIChildren[i].Name = AMDIChildName) then begin Result := True; AFormName.MDIChildren[i].Free; end; end; function TMainClientsForm.IsFormOpen(const FormName : string): Boolean; var i: Integer; begin Result := False; for i := Screen.FormCount - 1 DownTo 0 do if (Screen.Forms[i].Name = FormName) then begin Result := True; Break; end; end; procedure TMainClientsForm.BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); begin //создаем форму DirectoryForm:=TDBDirectoryTemplateForm.Create(Owner); DirectoryForm.TableDBGrid.DataSource:=ds; DirectoryForm.Top:=0; DirectoryForm.Left:=0; DirectoryForm.Caption:=sCaption; end; procedure TMainClientsForm.N12Click(Sender: TObject);beginend;procedure TMainClientsForm.N6Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1; mainclientsform.ADOTable1.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Сделки', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='номер';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='ИД авто'; DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ИД клиент';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Дата';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='Сумма';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Ид сотрудник';end;procedure TMainClientsForm.N7Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;mainclientsform.ADOTable2.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Автомобили', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='Ид. автомоб.';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Модель';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' Год';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Количество';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='фото';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Ид характеристика';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='Ид комлектация';DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='Ид производитель';DirectoryForm.TableDBGrid.Fields[8].DisplayLabel:='Ид акция';DirectoryForm.TableDBGrid.Fields[9].DisplayLabel:='Цена'; end; procedure TMainClientsForm.N8Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;mainclientsform.ADOTable3.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Комплектация', mainclientsform.DataSource1);directoryForm.TableDBGrid.Fields[0].DisplayLabel:=' ИД. ';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' Двигатель ';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' Мощность';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Диски';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='Шины';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Стекла';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='Стеклоподъемн.';DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='Радиола';DirectoryForm.TableDBGrid.Fields[8].DisplayLabel:='Свет';DirectoryForm.TableDBGrid.Fields[9].DisplayLabel:='Кузов';DirectoryForm.TableDBGrid.Fields[10].DisplayLabel:='Защита';DirectoryForm.TableDBGrid.Fields[11].DisplayLabel:='Подвеска';DirectoryForm.TableDBGrid.Fields[12].DisplayLabel:='Цвет';end;procedure TMainClientsForm.N9Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;mainclientsform.ADOTable4.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Производители', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='Ид. ';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Фирма';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='страна';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Завод';end;procedure TMainClientsForm.RzRapidFireButton1Click(Sender: TObject);begin MainClientsForm.N3Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton2Click(Sender: TObject);begin MainClientsForm.N4Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton3Click(Sender: TObject);beginMainClientsForm.N15Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton4Click(Sender: TObject);begin MainClientsForm.N14Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton5Click(Sender: TObject);begin MainClientsForm.Close;end;procedure TMainClientsForm.N10Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;mainclientsform.ADOTable5.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Характеристики модели', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Масса';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Разгон';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Макс. скорость';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='Коробка';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='расход на 100 км';end;procedure TMainClientsForm.N20Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;mainclientsform.ADOTable6.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Акции', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Описание ';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Срок';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Скидка';end;procedure TMainClientsForm.N21Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;mainclientsform.ADOTable7.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Сотрудники', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:=' ИД ';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' Фамилия ';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' Имя ';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:=' Отчество ';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:=' Должность ';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:=' Стаж ';end;procedure TMainClientsForm.N22Click(Sender: TObject); begin IsMDIChildOpen(MainClientsForm,'addForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; MainClientsForm.N7Click(sender); prosmForm:=Taddform.Create(Owner); prosmForm.Top:=230; prosmForm.Left:=0; prosmForm.Width:=500; prosmForm.Height:=200; prosmForm.Caption:='просмотр записей'; prosmForm.DBNavigator2.Visible:=true; mainflag:=true; prosmForm.Show; prosmForm.Button1.Visible:=false; prosmForm.GroupBox3.Visible:=true; prosmForm.GroupBox1.Visible:=false; prosmForm.GroupBox2.Visible:=false; prosmForm.GroupBox4.Visible:=false; MainClientsForm.DataSource1.DataSet.last;end;procedure TMainClientsForm.FormCreate(Sender: TObject); var NewConnection: Widestring;beginNewConnection := PromptDataSource(Handle, MainClientsForm.ADOConnection1.Connectionstring);MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;MainClientsForm.ADOConnection1.Connected:=true;MainClientsForm.ADOTable1.Active:=true;MainClientsForm.ADOTable2.Active:=true;MainClientsForm.ADOTable3.Active:=true;MainClientsForm.ADOTable4.Active:=true;MainClientsForm.ADOTable5.Active:=true;MainClientsForm.ADOTable6.Active:=true;MainClientsForm.ADOTable7.Active:=true;MainClientsForm.ADOTable8.Active:=true;end;procedure TMainClientsForm.N3Click(Sender: TObject);var dobForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'addForm'); dobForm:=Taddform.Create(Owner); dobForm.Top:=240; dobForm.Left:=3; dobForm.Caption:='добавление клиента'; dobForm.Show; dobForm.Button1.Visible:=true; dobForm.GroupBox1.Visible:=false; dobForm.GroupBox3.Visible:=false; dobForm.GroupBox4.Visible:=false;end;procedure TMainClientsForm.DataSource1DataChange(Sender: TObject; Field: TField);beginif mainflag thenbegin prosmForm.edit5.text:=''; prosmForm.edit54.text:=''; prosmForm.edit53.text:=''; prosmForm.edit51.text:=''; prosmForm.edit7.text:=''; prosmForm.edit3.text:=''; prosmForm.edit12.text:=''; prosmForm.edit13.text:=''; prosmForm.edit22.text:=''; prosmForm.edit31.text:=''; prosmForm.edit35.text:=''; prosmForm.edit37.text:=''; prosmForm.edit39.text:=''; prosmForm.edit44.text:=''; prosmForm.edit4.text:=''; prosmForm.edit46.text:=''; prosmForm.edit17.text:=''; prosmForm.edit49.text:=''; prosmForm.edit41.text:=''; prosmForm.edit47.text:=''; prosmForm.edit48.text:=''; prosmForm.edit55.text:=''; prosmForm.edit45.text:=''; prosmForm.edit23.text:=''; prosmForm.edit25.text:=''; prosmForm.edit29.text:=''; id_akcia:=MainClientsForm.ADOTable2.FieldByName('id_akcia').AsInteger; id_proizv:=MainClientsForm.ADOTable2.FieldByName('id_proizv').AsInteger; id_harakter:=MainClientsForm.ADOTable2.FieldByName('id_harak').AsInteger; id_complect:=MainClientsForm.ADOTable2.FieldByName('id_complect').AsInteger; model:=MainClientsForm.ADOTable2.FieldByName('model').AsString; god:=MainClientsForm.ADOTable2.FieldByName('god').AsInteger; kolvo:=MainClientsForm.ADOTable2.FieldByName('kolvo').AsInteger; cena:=MainClientsForm.ADOTable2.FieldByName('cena').AsInteger; prosmForm.edit54.text:=inttostr(god); prosmForm.edit53.text:=inttostr(kolvo); prosmForm.edit7.text:=inttostr(cena); prosmForm.edit5.text:=model; sql_str:='SELECT * from harak where id_harakter= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_harakter; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; massa:=MainClientsForm.ADOQuery1.FieldByName('massa').asinteger; prosmForm.Edit3.Text:=inttostr(massa); razgon:=MainClientsForm.ADOQuery1.FieldByName('razgon').asinteger; prosmForm.Edit20.Text:=inttostr(razgon); korobka:=MainClientsForm.ADOQuery1.FieldByName('korobka').asstring; prosmForm.Edit13.Text:=korobka; rashod:=MainClientsForm.ADOQuery1.FieldByName('rashod').AsFloat; prosmForm.Edit22.Text:=floattostr(rashod); sql_str:='SELECT * from complect where id_complect= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_complect; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; dvigat:=MainClientsForm.ADOQuery1.FieldByName('dvigat').asstring; prosmForm.Edit31.Text:=dvigat; moshnost:=MainClientsForm.ADOQuery1.FieldByName('moshnost').asstring; prosmForm.Edit35.Text:=moshnost; diski:=MainClientsForm.ADOQuery1.FieldByName('diski').asstring; prosmForm.Edit37.Text:=diski; shinu:=MainClientsForm.ADOQuery1.FieldByName('shinu').asstring; prosmForm.Edit39.Text:=shinu; steklo:=MainClientsForm.ADOQuery1.FieldByName('steklo').asstring; prosmForm.Edit44.Text:=steklo; radiola:=MainClientsForm.ADOQuery1.FieldByName('radiola').asstring; prosmForm.Edit4.Text:=radiola; svet:=MainClientsForm.ADOQuery1.FieldByName('svet').asstring; prosmForm.Edit46.Text:=svet; kuzov:=MainClientsForm.ADOQuery1.FieldByName('kuzov').asstring; prosmForm.Edit17.Text:=kuzov; zashita:=MainClientsForm.ADOQuery1.FieldByName('zashita').asstring; prosmForm.Edit49.Text:=zashita; podveska:=MainClientsForm.ADOQuery1.FieldByName('podveska').asstring; prosmForm.Edit41.Text:=podveska; cvet:=MainClientsForm.ADOQuery1.FieldByName('cvet').asstring; prosmForm.Edit47.Text:=cvet; sql_str:='SELECT * from proizv where id_proizv= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_proizv; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; firm:=MainClientsForm.ADOQuery1.FieldByName('firm').asstring; prosmForm.Edit48.Text:=firm; country:=MainClientsForm.ADOQuery1.FieldByName('country').asstring; prosmForm.Edit55.Text:=country; country:=MainClientsForm.ADOQuery1.FieldByName('factory').asstring; prosmForm.Edit45.Text:=factory; sql_str:='SELECT * from akcia where id_akcia= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_akcia; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; desription:=MainClientsForm.ADOQuery1.FieldByName('desription').asstring; prosmForm.Edit23.Text:=desription; srok:=MainClientsForm.ADOQuery1.FieldByName('srok').asstring; prosmForm.Edit25.Text:=srok; skidka:=MainClientsForm.ADOQuery1.FieldByName('skidka').asstring; prosmForm.Edit29.Text:=skidka;end;end;procedure TMainClientsForm.N4Click(Sender: TObject);var zakForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'zakForm'); IsMDIChildOpen(MainClientsForm,'addForm'); zakForm:=Taddform.Create(Owner); zakForm.Top:=240; zakForm.Left:=3; zakForm.Caption:='новый автомобиль'; zakForm.Show; zakForm.Button1.Visible:=true; zakForm.GroupBox1.Visible:=false; zakForm.GroupBox2.Visible:=false; zakForm.GroupBox4.Visible:=false; zakForm.GroupBox3.Visible:=true; zakForm.GroupBox3.Left:=2; zakForm.GroupBox3.Top:=2;end;procedure TMainClientsForm.