Проектирование базы данных и создание его в СУБД MySQL складского учета.

проектирование базы данных и создание его в СУБД MySQL.
Оригинальность более 60%
Приложения есть ...

Введение3
1.Постановка задачи6
2.Средства реализации8
3.Требования к аппаратному и программному обеспечению10
4.Реализация базы данных складского учета12
4.1. Концептуальная модель данных15
4.2. Физическая модель данных16
4.3. Описание таблиц баз данных17
5. Интерфейс пользователя21
6.Структура программного продукта31
Заключение32
Список источников и литературы33
Приложение37

PowerDesigner является универсальным средством разработчика баз данных, он позволяют формировать описание баз данных для различных СУБД.
Целью данной работы является проектирование базы данных и создание его в СУБД MySQL.
На сегодняшний день СУБД MySQL является одной из самых известных, надежных и быстрых из всего семейства существующих СУБД.
Принцип работы СУБД MySQL аналогичен принципу работы любой СУБД, использующей SQL (Structured Query Language, язык структурированных запросов) в качестве командного языка для создания/удаления баз данных, таблиц, для пополнения таблиц данными, для осуществления выборки данных.
Каждое предложение SQL – это запрос или обращение к базе данных, которое приводит к изменению в базе данных. В соответствии с тем, какие изменения происходят в базе данных, ра зличают следующие типы запросов:
- запросы на создание или изменение в базе данных новых или существующих объектов (при этом в запросе описывается тип и структура создаваемого или изменяемого объекта);
- запросы на получение данных;
- запросы на добавление новых данных (записей)
- запросы на удаление данных;
- обращения к СУБД.
Основным объектом хранения реляционной базы данных является таблица, поэтому все SQL-запросы – это операции над таблицами.

м.',690);insert into Shipment values(10,5, 'Плиткаизракушняка',1100, 'кв.м.',1300);Заполнениетаблицы Documentsinsert into Documents values(1,5,4,6, '2015.01.10',350);insert into Documents values(2,6,6,5, '2015.01.12',3);insert into Documents values(3,4,7,8, '2015.01.17',35);insert into Documents values(4,1,1,9, '2015.01.23',550);insert into Documents values(5,1,1,3, '2015.02.01',450);insert into Documents values(6,3,7,4, '2015.02.07',12);insert into Documents values(7,6,9,4, '2015.02.15',40);insert into Documents values(8,5,4,6, '2015.02.18',120);insert into Documents values(9,3,9,1, '2015.02.26',90);insert into Documents values(10,8,4,2, '2015.03.01',10);Фрагменты программного кодаunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, StdCtrls;type TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; ADOQuery1: TADOQuery; ADOConnection1: TADOConnection; ADOQuery1code: TIntegerField; ADOQuery1nam: TWideStringField; ADOQuery1edizm: TWideStringField; ADOQuery1stm: TBCDField; N3: TMenuItem; ADOQuery2: TADOQuery; Label1: TLabel; ADOQuery3: TADOQuery; ADOQuery3nam: TWideStringField; ADOQuery3dir: TWideStringField; ADOQuery3adr: TWideStringField; ADOQuery3inn: TWideStringField; ADOQuery3tel: TWideStringField; ADOQuery3oper: TWideStringField; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; ADOQuery4: TADOQuery; ADOQuery4mesto: TIntegerField; ADOQuery4plos: TBCDField; ADOQuery4nam: TWideStringField; ADOQuery5: TADOQuery; N8: TMenuItem; ADOQuery6: TADOQuery; ADOQuery6code: TIntegerField; ADOQuery6nam: TWideStringField; ADOQuery6adr: TWideStringField; ADOQuery6inn: TWideStringField; ADOQuery6tel: TWideStringField; ADOQuery6oper: TWideStringField; ADOQuery7: TADOQuery; N9: TMenuItem; ADOQuery8: TADOQuery; ADOQuery8code: TIntegerField; ADOQuery8contrag: TIntegerField; ADOQuery8day: TDateTimeField; ADOQuery8typ: TWideStringField; ADOQuery9: TADOQuery; ADOQuery9code_oper: TIntegerField; ADOQuery9code_prod: TIntegerField; ADOQuery9kol: TIntegerField; ADOQuery9prih: TIntegerField; ADOQuery9rash: TIntegerField; ADOQuery10: TADOQuery; ADOQuery11: TADOQuery; ADOQuery9code_str: TIntegerField; ADOQuery12: TADOQuery; ADOQuery13: TADOQuery; ADOQuery13mesto: TIntegerField; ADOQuery13cd_prod: TIntegerField; ADOQuery13kol: TIntegerField; ADOQuery10nam: TWideStringField; ADOQuery10prih: TIntegerField; ADOQuery10kol: TIntegerField; ADOQuery10code_str: TIntegerField; N10: TMenuItem; ADOQuery14: TADOQuery; ADOQuery14nam: TWideStringField; ADOQuery14rash: TIntegerField; ADOQuery14kol: TIntegerField; ADOQuery14code_str: TIntegerField; N11: TMenuItem; ADOQuery15: TADOQuery; ADOQuery15nam: TWideStringField; ADOQuery15typ: TWideStringField; ADOQuery15day: TDateTimeField; ADOQuery15code: TIntegerField; N181: TMenuItem; ADOQuery16: TADOQuery; ADOQuery16nam: TWideStringField; ADOQuery16prih: TIntegerField; ADOQuery16rash: TIntegerField; ADOQuery16code: TIntegerField; ADOQuery16edizm: TWideStringField; N12: TMenuItem; ADOQuery17: TADOQuery; N13: TMenuItem; N14: TMenuItem; ADOQuery17COLUMN1: TIntegerField; ADOQuery17COLUMN2: TIntegerField; ADOQuery12COLUMN1: TIntegerField; ADOQuery11COLUMN1: TIntegerField; ADOQuery5COLUMN1: TIntegerField; ADOQuery7COLUMN1: TIntegerField; ADOQuery2COLUMN1: TIntegerField; N15: TMenuItem; procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N181Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure N13Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N15Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementationuses Unit2, Unit5, Unit6, Unit8, Unit11, Unit13, Unit15, Unit16, UOOcalc, Unit18;{$R *.dfm}procedure TForm1.N2Click(Sender: TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from nomen'); active:=true; end; form2.DBGrid1.Columns[0].Title.caption:='Код'; form2.DBGrid1.Columns[1].Title.caption:='Наименование'; form2.DBGrid1.Columns[2].Title.caption:='Единицаизмерения'; form2.DBGrid1.Columns[3].Title.caption:='Стоимость'; form2.Show;end;procedure TForm1.N3Click(Sender: TObject);begin adoquery3.Open; if form1.ADOQuery3.RecordCount>0 then begin form5.edit1.Text:=form1.ADOQuery3nam.AsString; form5.edit2.Text:=form1.ADOQuery3dir.AsString; form5.edit3.Text:=form1.ADOQuery3adr.AsString; form5.edit4.Text:=form1.ADOQuery3inn.AsString; form5.edit5.Text:=form1.ADOQuery3tel.AsString; form5.edit6.Text:=form1.ADOQuery3oper.AsString; end; form5.Show;end;procedure TForm1.N7Click(Sender: TObject);begin form1.close;end;procedure TForm1.N4Click(Sender: TObject);begin with form1.ADOQuery4 do begin close; sql.Clear; sql.Add('select * from sklad'); active:=true; end; form6.DBGrid1.Columns[0].Title.caption:='Код'; form6.DBGrid1.Columns[1].Title.caption:='Площадь'; form6.DBGrid1.Columns[2].Title.caption:='Наименование'; form6.show;end;procedure TForm1.N8Click(Sender: TObject);begin with form1.adoquery6 do begin close; sql.Clear; sql.Add('select * from contrag'); active:=true; end; form8.DBGrid1.Columns[0].Title.caption:='Код'; form8.DBGrid1.Columns[1].Title.caption:='Наименование'; form8.DBGrid1.Columns[2].Title.caption:='Адрес'; form8.DBGrid1.Columns[3].Title.caption:='ИНН'; form8.DBGrid1.Columns[4].Title.caption:='Телефон'; form8.DBGrid1.Columns[5].Title.caption:='Контактноелицо'; form8.show;end;procedure TForm1.N9Click(Sender: TObject);var i:integer;begin form11.DBGrid1.Columns[0].Title.caption:='Наименование'; form11.DBGrid1.Columns[1].Title.caption:='Принято'; form11.DBGrid1.Columns[2].Title.caption:='Кол-во'; form11.DBGrid1.Columns[3].Title.caption:='Номерстроки'; with form1.ADOQuery11 do begin close; sql.Clear; sql.add('select max(code) from oper'); open; end; if form1.ADOQuery11.RecordCount=0 then form11.edit1.Text:='1' else form11.Edit1.Text:=inttostr(1+form1.ADOQuery11Column1.AsInteger); form11.DateTimePicker1.Date:=now; form11.ComboBox1.clear; with form1.ADOQuery6 do begin close; sql.Clear; sql.Add('select * from contrag'); open; end; for i:=1 to form1.ADOQuery6.RecordCount do begin form11.ComboBox1.Items.Add(trim(form1.ADOQuery6nam.AsString)); form1.adoquery6.Next; end; with form1.ADOQuery10 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.prih, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form11.Edit1.Text); active:=true; end; form11.Show;end;procedure TForm1.N10Click(Sender: TObject);var i:integer;begin form13.DBGrid1.Columns[0].Title.caption:='Наименование'; form13.DBGrid1.Columns[1].Title.caption:='Отгружено'; form13.DBGrid1.Columns[2].Title.caption:='Кол-во'; form13.DBGrid1.Columns[3].Title.caption:='Номерстроки'; with form1.ADOQuery11 do begin close; sql.Clear; sql.add('select max(code) from oper'); open; end; if form1.ADOQuery11.RecordCount=0 then form13.edit1.Text:='1' else form13.Edit1.Text:=inttostr(1+form1.ADOQuery11Column1.AsInteger); form13.DateTimePicker1.Date:=now; form13.ComboBox1.clear; with form1.ADOQuery6 do begin close; sql.Clear; sql.Add('select * from contrag'); open; end; for i:=1 to form1.ADOQuery6.RecordCount do begin form13.ComboBox1.Items.Add(trim(form1.ADOQuery6nam.AsString)); form1.adoquery6.Next; end; with form1.ADOQuery10 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.prih, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form13.Edit1.Text); active:=true; end; form13.Show;end;procedure TForm1.N11Click(Sender: TObject);begin with form1.ADOQuery15 do begin close; sql.Clear; sql.add('SELECT contrag.nam, oper.typ, oper.day, oper.code FROM contrag INNER JOIN oper ON contrag.code = oper.contrag'); active:=true; end; form15.DBGrid1.Columns[0].Title.caption:='Код'; form15.DBGrid1.Columns[1].Title.caption:='Тип'; form15.DBGrid1.Columns[2].Title.caption:='Дата'; form15.DBGrid1.Columns[3].Title.caption:='Номер'; form15.Show;end;procedure TForm1.N181Click(Sender: TObject);var i:integer;begin with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen'); open; end; form16.ComboBox1.clear; for i:=1to form1.ADOQuery1.RecordCount do begin form16.ComboBox1.Items.Add(trim(form1.ADOQuery1nam.AsString)); form1.adoquery1.Next; end; form16.Show;end;procedure TForm1.N12Click(Sender: TObject);var calc:toocalc; i:integer;begincalc:=toocalc.Create('c:\skl\xlt\ost.xlt'); with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from nomen'); open; end; for i:=1 to adoquery1.RecordCount do begin with form1.ADOQuery17 do begin close; sql.Clear; sql.add('select sum(prih), sum(rash) from pos_nakl where code_prod='+form1.ADOQuery1code.AsString); open; end; calc.Cell[5,1]:=form1.ADOQuery1nam.AsString; if form1.ADOQuery17Column1.AsInteger-form1.ADOQuery17Column2.AsInteger>0 then calc.Cell[5,2]:=form1.ADOQuery17Column1.AsInteger-form1.ADOQuery17Column2.AsInteger else calc.Cell[5,2]:='0'; calc.Cell[5,3]:=form1.ADOQuery1edizm.AsString; if i<form1.ADOQuery1.RecordCount then calc.InsertRow(5,true); form1.ADOQuery1.Next; end; calc.Cell[2,2]:=datetostr(now);calc.Visible:=true;end;procedure TForm1.N13Click(Sender: TObject);var calc:toocalc; i,j:integer;begin calc:=toocalc.Create('c:\skl\xlt\isp_pl.xlt'); with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from sklad'); open; end; for i:=1 to form1.ADOQuery4.RecordCount do begin with form1.ADOQuery13 do begin close; sql.Clear; sql.add('select * from gur_hran where mesto='+form1.ADOQuery4mesto.AsString); open; end; if form1.ADOQuery13.RecordCount>0 then begin for j:=1 to form1.ADOQuery13.RecordCount do begin with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen where code='+form1.ADOQuery13cd_prod.AsString); open; end; if form1.ADOQuery13kol.AsInteger>0 then begin calc.Cell[4,3]:=form1.ADOQuery1nam.AsString; calc.Cell[4,4]:=form1.ADOQuery13kol.AsString; calc.Cell[4,5]:=form1.ADOQuery1edizm.AsString; calc.InsertRow(4,true); end; if j=form1.ADOQuery13.RecordCount then calc.Cell[4,1]:=form1.ADOQuery4nam.AsString; if j=form1.ADOQuery13.RecordCount then calc.Cell[4,2]:=form1.ADOQuery4plos.AsString; form1.ADOQuery13.Next; end; end; form1.ADOQuery4.Next; end; calc.Visible:=true;end;procedure TForm1.N14Click(Sender: TObject);var calc:toocalc;i,j,pl1,pl2,fl:integer;begin calc:=toocalc.Create('c:\skl\xlt\stat_plos.xlt'); with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from sklad'); open; end; pl1:=0; pl2:=0; for i:=1 to form1.ADOQuery4.RecordCount do begin fl:=0; with form1.ADOQuery13 do begin close; sql.Clear; sql.add('select * from gur_hran where mesto='+form1.ADOQuery4mesto.AsString); open; end; if form1.ADOQuery13.RecordCount>0 then begin for j:=1 to form1.ADOQuery13.RecordCount do begin if form1.ADOQuery13kol.AsInteger>0 then fl:=1; form1.ADOQuery13.Next; end; end; if (form1.ADOQuery13.RecordCount=0) or (fl=0) then pl1:=pl1+form1.ADOQuery4plos.AsInteger else pl2:=pl2+form1.ADOQuery4plos.AsInteger; if fl=0 then begin calc.cell[10,1]:=form1.ADOQuery4nam.AsString; calc.Cell[10,2]:=form1.ADOQuery4plos.AsString; calc.InsertRow(10,true); end; form1.ADOQuery4.Next; end; calc.Cell[3,2]:=pl2; calc.Cell[4,2]:=pl1; calc.Cell[5,3]:=int(100*pl1/(pl2+pl1)); calc.Visible:=true;end;procedure TForm1.N15Click(Sender: TObject);var f:textfile; q1,q2:string;begin assignfile(f,'c:\skl\connect.txt'); reset(f); readln(f,q1); readln(f,q2); closefile(f); form18.Edit1.Text:=q1; form18.Edit2.Text:=q2; form18.Show;end;procedure TForm1.FormCreate(Sender: TObject);var f:textfile; q1,q2:string;begin assignfile(f,'c:\skl\connect.txt'); reset(f); readln(f,q1); readln(f,q2); closefile(f); adoconnection1.Close; adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+trim(q2)+';Data Source='+trim(q1)+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096';end;end.unit Unit10;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm10 = class(TForm) Label6: TLabel; Label5: TLabel; Label4: TLabel; Label3: TLabel; Label2: TLabel; Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form10: TForm10;implementationuses Unit1;{$R *.dfm}procedure TForm10.RzBitBtn2Click(Sender: TObject);begin form10.Close;end;procedure TForm10.RzBitBtn1Click(Sender: TObject);begin with form1.ADOQuery6 do begin close; sql.Clear; sql.add('update contrag set nam='+form1.Label1.Caption+trim(edit5.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.add('update contrag set adr='+form1.Label1.Caption+trim(edit2.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.add('update contrag set inn='+form1.Label1.Caption+trim(edit3.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.add('update contrag set tel='+form1.Label1.Caption+trim(edit4.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.add('update contrag set oper='+form1.Label1.Caption+trim(edit6.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('select * from contrag'); active:=true; end; form1.ADOQuery6.Locate('code',edit1.Text,[]); showmessage('Записано');end;end.unit Unit11;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, RzButton, Grids, DBGrids, ExtCtrls, DBCtrls, DB;type TForm11 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; DateTimePicker1: TDateTimePicker; Label3: TLabel; ComboBox1: TComboBox; DBGrid1: TDBGrid; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; RzBitBtn4: TRzBitBtn; DBNavigator1: TDBNavigator; DataSource1: TDataSource; RzBitBtn5: TRzBitBtn; procedure RzBitBtn4Click(Sender: TObject); procedure RzBitBtn5Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form11: TForm11;implementationuses Unit1, Unit12, UOOcalc;{$R *.dfm}procedure TForm11.RzBitBtn4Click(Sender: TObject);begin with form1.ADOQuery9 do begin close; sql.Clear; sql.Add('delete from pos_nakl where code_oper='+edit1.Text); execsql; end; form11.close;end;procedure TForm11.RzBitBtn5Click(Sender: TObject);var i:integer; ms:integer;begin with form1.adoquery4 do begin close; sql.Clear; sql.add('select * from sklad'); open; end; ms:=0; for i:=1 to form1.ADOQuery4.RecordCount do begin with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(form1.ADOQuery10nam.AsString)+form1.Label1.Caption); open; end; with form1.ADOQuery13 do begin close; sql.Clear; sql.add('select * from gur_hran where (mesto='+form1.adoquery4mesto.AsString+') and (cd_prod='+form1.ADOQuery1code.AsString+')'); open; end; if (form1.ADOQuery13kol.AsInteger>=form1.ADOQuery10kol.AsInteger) then ms:=form1.ADOQuery4mesto.AsInteger; end; with form1.ADOQuery13 do begin close; sql.Clear; sql.Add('update gur_hran set kol=kol-'+form1.ADOQuery10kol.AsString+' where mesto='+inttostr(ms)); execsql; end; with form1.ADOQuery9 do begin close; sql.Clear; sql.Add('delete from pos_nakl where code_str='+form1.ADOQuery10code_str.AsString); execsql; end; with form1.ADOQuery10 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.prih, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form11.Edit1.Text); open; end; showmessage('Удалено');end;procedure TForm11.RzBitBtn1Click(Sender: TObject);var i:integer;begin form12.ComboBox1.clear; with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from nomen'); open; end; for i:=1 to form1.ADOQuery1.RecordCount do begin form12.ComboBox1.Items.Add(trim(form1.ADOQuery1nam.AsString)); form1.ADOQuery1.Next; end; form12.ComboBox2.Clear; with form1.ADOQuery4 do begin close; sql.Clear; sql.