Автоматизация рабочего места маркетолога

Оглавление
Введение 4
1. АНАЛИТИЧЕСКИЙ РАЗДЕЛ 6
1.1.Описание ООО «СПК СибЭнергоСтрой» 6
1.2. Организационная структура ООО «СПК СибЭнергоСтрой» 7
1.3. Общее управление ООО «СПК СибЭнергоСтрой» 8
1.4. Функции рабочих мест ООО «СПК СибЭнергоСтрой» 8
1.5. Анализ существующей системы бизнес-процессов предприятия 11
1.6. Анализ средств реализации автоматизированного рабочего места маркетолога 19
2. КОНСТРУКТОРСКИЙ РАЗДЕЛ 21
2.1 Техническое задание на проектирование ИС 21
2.2 Проектирование архитектуры ИС 21
2.3 Проектирование обеспечивающих подсистем 29
2.4 Проектирование функциональных подсистем 29
2.5 Выходная информация 30
2.6.Входная информация 30
3. ТЕХНОЛОГИЧЕСКИЙ РАЗДЕЛ 32
3.1. Информационное обеспечение автоматизированной системы 32
3.2. Описание структуры данных 35
3.3. Постановка задачи автоматизации 39
4.ПРОГРАМНЫЙ РАЗДЕЛ 44
Заключение 52
ПРИЛОЖЕНИЯ 58

Clear; sql.Add('select * from prod'); active:=true; end; form6.stringgrid1.Cells[0,0]:='Цена'; form6.stringgrid1.Cells[2,0]:='Объемпродаж'; form6.stringgrid1.Cells[1,0]:='Код'; form6.stringgrid1.ColWidths[0]:=50; form6.stringgrid1.ColWidths[1]:=50; form6.stringgrid1.ColWidths[2]:=100; form6.Show;end;procedure TForm1.RzBitBtn3Click(Sender: TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from prod'); active:=true; end; form7.show;end;procedure TForm1.RzBitBtn4Click(Sender: TObject);begin form8.DateTimePicker1.Date:=now; form8.DateTimePicker2.Date:=now; form8.Show;end;procedure TForm1.RzBitBtn5Click(Sender: TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from prod'); active:=true; end; form9.DateTimePicker1.Date:=now; form9.DateTimePicker2.Date:=now; form9.Show;end;procedure TForm1.RzBitBtn6Click(Sender: TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from prod'); active:=true; end; form10.DateTimePicker1.Date:=now; form10.DateTimePicker2.Date:=now; form10.Show;end;procedure TForm1.RzBitBtn7Click(Sender: TObject);begin with form1.ADOQuery9 do begin close; sql.Clear; sql.Add('select * from zp1'); active:=true; end; form11.DBGrid1.Columns[0].Title.caption:='Дата'; form11.DBGrid1.Columns[1].Title.caption:='Продукция'; form11.DBGrid1.Columns[2].Title.caption:='Цена'; form11.DBGrid1.Columns[3].Title.caption:='Количество'; form11.Show;end;procedure TForm1.RzBitBtn8Click(Sender: TObject);begin form1.close;end;end.unit Unit10;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, DB, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DBCtrls, ComCtrls, StdCtrls;type TForm10 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; DBLookupComboBox1: TDBLookupComboBox; Chart1: TChart; Series1: TLineSeries; DataSource1: TDataSource; 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);var i:integer; year1,mon1,dt1:word ; m1,d1:string[2]; day1,day2:string[20];begin form1.ADOQuery5.Open; series1.Clear; decodedate(datetimepicker1.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day1:=inttostr(year1)+'/'+m1+'/'+d1; decodedate(datetimepicker2.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day2:=inttostr(year1)+'/'+m1+'/'+d1; with form1.ADOQuery7 do begin close; sql.Clear; sql.Add('SELECT prod.nam, zena.stm, Sum(gur_prod.kol) AS Skol FROM (prod INNER JOIN zena ON prod.code=zena.code_prod) INNER JOIN gur_prod ON zena.code=gur_prod.code_zn where (gur_prod.day>=#'+day1+'#) and (gur_prod.day<=#'+day2+'#) and (prod.code='+form1.ADOQuery1code.AsString+') GROUP BY prod.nam, zena.stm '); open; end; with form1.ADOQuery8 do begin close; sql.Clear; sql.add('delete from tmp_prod'); execsql; close; sql.Clear; sql.Add('select * from tmp_prod'); open; end; for i:=1 to form1.ADOQuery7.RecordCount do begin form1.ADOQuery8.AppendRecord([form1.ADOQuery7stm.AsCurrency,form1.ADOQuery7Skol.AsInteger,(form1.ADOQuery7stm.AsCurrency-form1.ADOQuery1stm.AsCurrency)*form1.ADOQuery7Skol.AsInteger]); form1.ADOQuery7.Next; end; form1.ADOQuery8.First; for i:=1 to form1.ADOQuery8.RecordCount do begin series1.AddXY(form1.ADOQuery8zena.AsCurrency,form1.ADOQuery8prib.AsInteger,form1.ADOQuery8zena.AsString,clred); form1.adoquery8.Next; end;end;end.unit Unit11;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ExtCtrls, DBCtrls, Grids, DBGrids;type TForm11 = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; private { Private declarations } public { Public declarations } end;var Form11: TForm11;implementationuses Unit1;{$R *.dfm}end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, RzButton, DBCtrls, StdCtrls, ExtCtrls;type TForm2 = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Label1: TLabel; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; Label3: TLabel; DBText3: TDBText; Label4: TLabel; DBText4: TDBText; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; RzBitBtn4: TRzBitBtn; procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn4Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form2: TForm2;implementationuses Unit1, Unit3, Unit4, Unit5;{$R *.dfm}procedure TForm2.RzBitBtn3Click(Sender: TObject);begin form2.close;end;procedure TForm2.RzBitBtn1Click(Sender: TObject);begin with form1.ADOQuery2 do begin close; sql.Clear; sql.Add('select max(code) from prod'); open; end; if form1.ADOQuery2.RecordCount=0 then form3.Edit1.Text:='1' else form3.Edit1.Text:=inttostr(1+form1.ADOQuery2Expr1000.AsInteger); form3.Edit2.clear; form3.Edit3.Clear; form3.Edit4.clear; form3.Show;end;procedure TForm2.RzBitBtn2Click(Sender: TObject);begin form4.edit1.Text:=form1.ADOQuery1code.AsString; form4.edit2.Text:=form1.ADOQuery1nam.AsString; form4.edit3.Text:=form1.ADOQuery1edizm.AsString; form4.edit4.Text:=form1.ADOQuery1stm.AsString; form4.Show;end;procedure TForm2.RzBitBtn4Click(Sender: TObject);begin with form1.ADOQuery3 do begin close; sql.Clear; sql.add('select * from zena where code_prod='+form1.ADOQuery1code.AsString); active:=true; end; form5.DBGrid1.Columns[0].title.caption:='Стоимость'; form5.Edit1.clear; form5.Show;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm3 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form3: TForm3;implementationuses Unit1;{$R *.dfm}procedure TForm3.RzBitBtn2Click(Sender: TObject);begin form3.close;end;procedure TForm3.RzBitBtn1Click(Sender: TObject);begin form1.ADOQuery1.AppendRecord([edit1.Text,edit2.Text,edit3.Text,edit4.Text]); edit1.Text:=inttostr(1+strtoint(edit1.Text)); edit2.Clear; edit3.clear; edit4.clear; showmessage('Готово');end;end.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm4 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form4: TForm4;implementationuses Unit1;{$R *.dfm}procedure TForm4.RzBitBtn1Click(Sender: TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('update prod set nam='+form1.Label1.Caption+trim(edit2.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('update prod set edizm='+form1.Label1.Caption+trim(edit3.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('update prod set stm='+trim(edit4.Text)+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('select * from prod'); active:=true; end; form1.ADOQuery1.Locate('code',edit1.Text,[]); showmessage('Записано');end;procedure TForm4.RzBitBtn2Click(Sender: TObject);begin form4.close;end;end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, Buttons, RzSpnEdt, ExtCtrls, DBCtrls, StdCtrls;type TForm5 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; Label1: TLabel; Edit1: TEdit; DBNavigator1: TDBNavigator; RzRapidFireButton1: TRzRapidFireButton; procedure RzRapidFireButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form5: TForm5;implementationuses Unit1;{$R *.dfm}procedure TForm5.RzRapidFireButton1Click(Sender: TObject);var code:integer;begin if trim(edit1.Text)='' then showmessage('Невведенацена') else begin with form1.ADOQuery3 do begin close; sql.Clear; sql.Add('select * from zena where (code_prod='+form1.ADOQuery1code.AsString+') and (stm='+edit1.Text+')'); open; end; if form1.ADOQuery3.RecordCount>0 then showmessage('Даннаяценаэтоготовараужевведенавбазу') else begin with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select max(code) from zena'); open; end; if form1.ADOQuery4.RecordCount=0 then code:=1 else code:=1+form1.ADOQuery4Expr1000.AsInteger; form1.adoquery3.AppendRecord([form1.ADOQuery1code.AsInteger,edit1.Text,code]); edit1.Clear; showmessage('Добавлено'); end; with form1.ADOQuery3 do begin close; sql.Clear; sql.add('select * from zena where code_prod='+form1.ADOQuery1code.AsString); active:=true; end; end;end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, RzButton, DBCtrls, StdCtrls, ComCtrls;type TForm6 = class(TForm) DataSource1: TDataSource; Label1: TLabel; DBLookupComboBox1: TDBLookupComboBox; RzBitBtn1: TRzBitBtn; StringGrid1: TStringGrid; Label2: TLabel; DateTimePicker1: TDateTimePicker; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form6: TForm6;implementationuses Unit1;{$R *.dfm}procedure TForm6.RzBitBtn1Click(Sender: TObject);var i:integer;begin with form1.ADOQuery3 do begin close; sql.Clear; sql.Add('select * from zena where code_prod='+form1.ADOQuery1code.AsString); open; end; stringgrid1.RowCount:=form1.ADOQuery3.RecordCount+1; for i:=1 to form1.ADOQuery3.RecordCount do begin stringgrid1.Cells[0,i]:=form1.ADOQuery3stm.AsString; stringgrid1.Cells[1,i]:=form1.ADOQuery3code.AsString; form1.ADOQuery3.Next; end;end;procedure TForm6.RzBitBtn3Click(Sender: TObject);begin form6.close;end;procedure TForm6.RzBitBtn2Click(Sender: TObject);var code,i:integer;begin form1.ADOQuery5.Open; for i:=1 to stringgrid1.RowCount+1 do begin if not(trim(stringgrid1.Cells[2,i])='') then begin with form1.ADOQuery6 do begin close; sql.Clear; sql.Add('select max(code) from gur_prod'); open; end; if form1.ADOQuery6.RecordCount=0 then code:=1 else code:=1+form1.ADOQuery6expr1000.AsInteger; form1.ADOQuery5.AppendRecord([code,datetimepicker1.date,stringgrid1.Cells[1,i],stringgrid1.cells[2,i]]); end; end; showmessage('Записано');end;end.unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, ComCtrls, StdCtrls, DB, DBCtrls;type TForm7 = class(TForm) Label1: TLabel; DateTimePicker1: TDateTimePicker; Label2: TLabel; DateTimePicker2: TDateTimePicker; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; Label3: TLabel; DBLookupComboBox1: TDBLookupComboBox; DataSource1: TDataSource; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form7: TForm7;implementationuses Unit1, ComObj;{$R *.dfm}procedure TForm7.RzBitBtn2Click(Sender: TObject);begin form7.close;end;procedure TForm7.RzBitBtn1Click(Sender: TObject);var excelApp:Variant; i:integer; year1,mon1,dt1:word ; m1,d1:string[2]; day1,day2:string[20]; mx,mx1:currency;begin form1.ADOQuery5.Open; ExcelApp:= CreateOleObject('Excel.Application'); ExcelApp.workbooks.open('C:\zen_pol\xlt\zen_pol.xlt'); ExcelApp.WorkSheets[1].Activate; ExcelApp.Visible := False; decodedate(datetimepicker1.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day1:=inttostr(year1)+'/'+m1+'/'+d1; decodedate(datetimepicker2.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day2:=inttostr(year1)+'/'+m1+'/'+d1; mx:=0; mx1:=0; with form1.ADOQuery7 do begin close; sql.Clear; sql.Add('SELECT prod.nam, zena.stm, Sum(gur_prod.kol) AS Skol FROM (prod INNER JOIN zena ON prod.code=zena.code_prod) INNER JOIN gur_prod ON zena.code=gur_prod.code_zn where (gur_prod.day>=#'+day1+'#) and (gur_prod.day<=#'+day2+'#) and (prod.code='+form1.ADOQuery1code.AsString+') GROUP BY prod.nam, zena.stm '); open; end; excelapp.cells[7,2]:='Объёмреализации, '+trim(form1.ADOQuery1edizm.AsString); for i:=1 to form1.ADOQuery7.RecordCount do begin excelapp.cells[7+i,1]:=form1.ADOQuery7stm.AsCurrency; excelapp.cells[7+i,1].Borders.LineStyle:=1; excelapp.cells[7+i,2]:=form1.ADOQuery7skol.Asinteger; excelapp.cells[7+i,2].Borders.LineStyle:=1; excelapp.cells[7+i,3]:=(form1.ADOQuery7stm.AsCurrency- form1.ADOQuery1stm.AsCurrency)*form1.ADOQuery7Skol.Asinteger; if (form1.ADOQuery7stm.AsCurrency- form1.ADOQuery1stm.AsCurrency)*form1.ADOQuery7Skol.Asinteger>mx then begin mx:=(form1.ADOQuery7stm.AsCurrency- form1.ADOQuery1stm.AsCurrency)*form1.ADOQuery7Skol.Asinteger; mx1:=form1.ADOQuery7stm.AsCurrency; end; excelapp.cells[7+i,3].Borders.LineStyle:=1; form1.ADOQuery7.Next; end; excelapp.cells[3,2]:=datetostr(datetimepicker1.date)+'-'+datetostr(datetimepicker2.date); excelapp.cells[4,2]:=dblookupcombobox1.Text; excelapp.cells[5,2]:= form1.ADOQuery1stm.AsCurrency; excelapp.cells[8+form1.ADOQuery7.RecordCount,1]:='Оптимальнаяцена, руб:'; excelapp.cells[8+form1.ADOQuery7.RecordCount,2]:=mx1; excelapp.visible:=true; excelapp:=unassigned;end;end.unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, ComCtrls, StdCtrls;type TForm8 = class(TForm) Label1: TLabel; Label2: TLabel; DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form8: TForm8;implementationuses Unit1, ComObj;{$R *.dfm}procedure TForm8.RzBitBtn2Click(Sender: TObject);begin form8.Close;end;procedure TForm8.RzBitBtn1Click(Sender: TObject);var excelApp:Variant; i,j,k:integer; year1,mon1,dt1:word ; m1,d1:string[2]; day1,day2:string[20]; mx,mx1:currency;begin form1.ADOQuery5.Open; ExcelApp:= CreateOleObject('Excel.Application'); ExcelApp.workbooks.open('C:\zen_pol\xlt\svod.xlt'); ExcelApp.WorkSheets[1].Activate; ExcelApp.Visible := False; decodedate(datetimepicker1.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day1:=inttostr(year1)+'/'+m1+'/'+d1; decodedate(datetimepicker2.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day2:=inttostr(year1)+'/'+m1+'/'+d1; with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from prod'); open; end; k:=1; form1.ADOQuery1.First; for j:=1 to form1.ADOQuery1.RecordCount do begin mx:=0; mx1:=0; with form1.ADOQuery7 do begin close; sql.Clear; sql.Add('SELECT prod.nam, zena.stm, Sum(gur_prod.kol) AS Skol FROM (prod INNER JOIN zena ON prod.code=zena.code_prod) INNER JOIN gur_prod ON zena.code=gur_prod.code_zn where (gur_prod.day>=#'+day1+'#) and (gur_prod.day<=#'+day2+'#) and (prod.code='+form1.ADOQuery1code.AsString+') GROUP BY prod.nam, zena.stm '); open; end; for i:=1 to form1.ADOQuery7.RecordCount do begin if (form1.ADOQuery7stm.AsCurrency- form1.ADOQuery1stm.AsCurrency)*form1.ADOQuery7Skol.Asinteger>mx then begin mx:=(form1.ADOQuery7stm.AsCurrency- form1.ADOQuery1stm.AsCurrency)*form1.ADOQuery7Skol.Asinteger; mx1:=form1.ADOQuery7stm.AsCurrency; end; form1.ADOQuery7.Next; end; if mx1>0 then begin excelapp.cells[5+k,1]:=k; excelapp.cells[5+k,1].Borders.LineStyle:=1; excelapp.cells[5+k,2]:=form1.ADOQuery1nam.AsString; excelapp.cells[5+k,2].Borders.LineStyle:=1; excelapp.cells[5+k,3]:=mx1; excelapp.cells[5+k,3].Borders.LineStyle:=1; k:=k+1; end; form1.ADOQuery1.Next; end; excelapp.cells[3,2]:=datetostr(datetimepicker1.date)+'-'+datetostr(datetimepicker2.date); excelapp.visible:=true; excelapp:=unassigned;end;end.unit Unit9;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBCtrls, ComCtrls, StdCtrls, RzButton, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart;type TForm9 = class(TForm) Label1: TLabel; Label2: TLabel; DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; Label3: TLabel; DBLookupComboBox1: TDBLookupComboBox; DataSource1: TDataSource; RzBitBtn1: TRzBitBtn; Chart1: TChart; RzBitBtn2: TRzBitBtn; Series1: TLineSeries; procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form9: TForm9;implementationuses Unit1;{$R *.dfm}procedure TForm9.RzBitBtn1Click(Sender: TObject);var i:integer; year1,mon1,dt1:word ; m1,d1:string[2]; day1,day2:string[20];begin form1.ADOQuery5.Open; series1.Clear; decodedate(datetimepicker1.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day1:=inttostr(year1)+'/'+m1+'/'+d1; decodedate(datetimepicker2.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day2:=inttostr(year1)+'/'+m1+'/'+d1; with form1.ADOQuery7 do begin close; sql.Clear; sql.Add('SELECT prod.nam, zena.stm, Sum(gur_prod.kol) AS Skol FROM (prod INNER JOIN zena ON prod.code=zena.code_prod) INNER JOIN gur_prod ON zena.code=gur_prod.code_zn where (gur_prod.day>=#'+day1+'#) and (gur_prod.day<=#'+day2+'#) and (prod.code='+form1.ADOQuery1code.AsString+') GROUP BY prod.nam, zena.stm '); open; end; with form1.ADOQuery8 do begin close; sql.Clear; sql.add('delete from tmp_prod'); execsql; close; sql.Clear; sql.Add('select * from tmp_prod'); open; end; for i:=1 to form1.ADOQuery7.RecordCount do begin form1.ADOQuery8.AppendRecord([form1.ADOQuery7stm.AsCurrency,form1.ADOQuery7Skol.AsInteger,0]); form1.ADOQuery7.Next; end; form1.ADOQuery8.First; for i:=1 to form1.ADOQuery8.RecordCount do begin series1.AddXY(form1.ADOQuery8zena.AsCurrency,form1.ADOQuery8kol.AsInteger,form1.ADOQuery8zena.AsString,clred); form1.adoquery8.Next; end;end;procedure TForm9.RzBitBtn2Click(Sender: TObject);begin form9.close;end;end.