Разработка информационной системы планирования финансовых ресурсов предприятия

dfm}procedure TForm1.suiButton7Click(Sender: TObject);begintrytpokazatel.Append;tpokazatel.FieldByName('pokazatel').AsString:=suiEdit4.text;tpokazatel.FieldByName('ed_izm').AsString:=suiComboBox1.text;tpokazatel.FieldByName('opis').AsString:=suiMemo1.Text;tpokazatel.FieldByName('min').AsInteger:=strtoint(suiEdit1.text);tpokazatel.FieldByName('max').AsInteger:=strtoint(suiEdit7.text);tpokazatel.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiButton8Click(Sender: TObject);begintrytpokazatel.edit;tpokazatel.FieldByName('pokazatel').AsString:=suiEdit4.text;tpokazatel.FieldByName('ed_izm').AsString:=suiComboBox1.text;tpokazatel.FieldByName('opis').AsString:=suiMemo1.Text;tpokazatel.FieldByName('min').AsInteger:=strtoint(suiEdit1.text);tpokazatel.FieldByName('max').AsInteger:=strtoint(suiEdit7.text);tpokazatel.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiDBGrid3CellClick(Column: TColumn);beginsuiEdit4.text:=tpokazatel.FieldValues['pokazatel'];suiComboBox1.text:=tpokazatel.FieldValues['ed_izm'];suiEdit1.text:=tpokazatel.FieldValues['min'];suiEdit7.text:=tpokazatel.FieldValues['max'];suiMemo1.Text:=tpokazatel.FieldValues['opis'];end;procedure TForm1.suiButton3Click(Sender: TObject);vari,j:integer;begintstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god='''+suiedit2.Text+'''';tstat_pokazatel.Filtered:=true;iftstat_pokazatel.RecordCount<>0 thenbegintstat_pokazatel.first;for j:=0 to tstat_pokazatel.RecordCount-1 dobegintstat_pokazatel.delete;tstat_pokazatel.next;end;end;//tpokazatel.First;fori:=1 to tpokazatel.RecordCount dobegintstat_pokazatel.Append; tstat_pokazatel.FieldByName('pokazatel').AsString:=suiStringGrid3.Cells[0,i];tstat_pokazatel.FieldByName('god').AsString:=suiEdit2.Text; tstat_pokazatel.FieldByName('m1').AsString:=suiStringGrid3.Cells[1,i]; tstat_pokazatel.FieldByName('m2').AsString:=suiStringGrid3.Cells[2,i]; tstat_pokazatel.FieldByName('m3').AsString:=suiStringGrid3.Cells[3,i]; tstat_pokazatel.FieldByName('m4').AsString:=suiStringGrid3.Cells[4,i]; tstat_pokazatel.FieldByName('m5').AsString:=suiStringGrid3.Cells[5,i]; tstat_pokazatel.FieldByName('m6').AsString:=suiStringGrid3.Cells[6,i]; tstat_pokazatel.FieldByName('m7').AsString:=suiStringGrid3.Cells[7,i]; tstat_pokazatel.FieldByName('m8').AsString:=suiStringGrid3.Cells[8,i]; tstat_pokazatel.FieldByName('m9').AsString:=suiStringGrid3.Cells[9,i]; tstat_pokazatel.FieldByName('m10').AsString:=suiStringGrid3.Cells[10,i]; tstat_pokazatel.FieldByName('m11').AsString:=suiStringGrid3.Cells[11,i]; tstat_pokazatel.FieldByName('m12').AsString:=suiStringGrid3.Cells[12,i]; tstat_pokazatel.post;tpokazatel.Next;end;end;procedure TForm1.suiButton17Click(Sender: TObject);begin{suiEdit5.Text:=inttostr((strtoint(suiEdit5.Text)+1));tstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suiEdit5.Text+'''';tstat_spros.Filtered:=true; }end;procedure TForm1.suiButton9Click(Sender: TObject);begintpokazatel.Delete;end;procedure TForm1.FormCreate(Sender: TObject);vari,j,m:integer;beginsuiPageControl1.ActivePageIndex:=0;fori:=1 to 12 do suiStringGrid3.Cells[i,0]:=inttostr(i);fori:=1 to tpokazatel.RecordCount dobeginsuiStringGrid3.Cells[0,i]:=tpokazatel.FieldValues['pokazatel'];tpokazatel.Next;end;tpokazatel.First;fori:=1 to tpokazatel.RecordCount dobegintstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god=''2012'' and pokazatel='''+tpokazatel.FieldValues['pokazatel']+'''';tstat_pokazatel.Filtered:=true;iftstat_pokazatel.RecordCount<>0 thenbeginsuiStringGrid3.Cells[1,i]:=tstat_pokazatel.FieldValues['m1'];suiStringGrid3.Cells[2,i]:=tstat_pokazatel.FieldValues['m2'];suiStringGrid3.Cells[3,i]:=tstat_pokazatel.FieldValues['m3'];suiStringGrid3.Cells[4,i]:=tstat_pokazatel.FieldValues['m4'];suiStringGrid3.Cells[5,i]:=tstat_pokazatel.FieldValues['m5'];suiStringGrid3.Cells[6,i]:=tstat_pokazatel.FieldValues['m6'];suiStringGrid3.Cells[7,i]:=tstat_pokazatel.FieldValues['m7'];suiStringGrid3.Cells[8,i]:=tstat_pokazatel.FieldValues['m8'];suiStringGrid3.Cells[9,i]:=tstat_pokazatel.FieldValues['m9'];suiStringGrid3.Cells[10,i]:=tstat_pokazatel.FieldValues['m10'];suiStringGrid3.Cells[11,i]:=tstat_pokazatel.FieldValues['m11'];suiStringGrid3.Cells[12,i]:=tstat_pokazatel.FieldValues['m12'];tpokazatel.Next;endelse for m:=1 to 12 do for j:=1 to tpokazatel.RecordCount do suiStringGrid3.Cells[m,j]:='0';end;{ iftstat_pokazatel.RecordCount<>0 thenbeginsuiStringGrid1.Cells[1,i]:=tstat_spros.FieldValues['sp1'];suiStringGrid2.Cells[1,i]:=tstat_spros.FieldValues['pr1'];suiStringGrid1.Cells[2,i]:=tstat_spros.FieldValues['sp2'];suiStringGrid2.Cells[2,i]:=tstat_spros.FieldValues['pr2'];suiStringGrid1.Cells[3,i]:=tstat_spros.FieldValues['sp3'];suiStringGrid2.Cells[3,i]:=tstat_spros.FieldValues['pr3'];suiStringGrid1.Cells[4,i]:=tstat_spros.FieldValues['sp4'];suiStringGrid2.Cells[4,i]:=tstat_spros.FieldValues['pr4'];suiStringGrid1.Cells[5,i]:=tstat_spros.FieldValues['sp5'];suiStringGrid2.Cells[5,i]:=tstat_spros.FieldValues['pr5'];suiStringGrid1.Cells[6,i]:=tstat_spros.FieldValues['sp6'];suiStringGrid2.Cells[6,i]:=tstat_spros.FieldValues['pr6'];suiStringGrid1.Cells[7,i]:=tstat_spros.FieldValues['sp7'];suiStringGrid2.Cells[7,i]:=tstat_spros.FieldValues['pr7'];suiStringGrid1.Cells[8,i]:=tstat_spros.FieldValues['sp8'];suiStringGrid2.Cells[8,i]:=tstat_spros.FieldValues['pr8'];suiStringGrid1.Cells[9,i]:=tstat_spros.FieldValues['sp9'];suiStringGrid2.Cells[9,i]:=tstat_spros.FieldValues['pr9'];suiStringGrid1.Cells[10,i]:=tstat_spros.FieldValues['sp10'];suiStringGrid2.Cells[10,i]:=tstat_spros.FieldValues['pr10'];suiStringGrid1.Cells[11,i]:=tstat_spros.FieldValues['sp11'];suiStringGrid2.Cells[11,i]:=tstat_spros.FieldValues['pr11'];suiStringGrid1.Cells[12,i]:=tstat_spros.FieldValues['sp12'];suiStringGrid2.Cells[12,i]:=tstat_spros.FieldValues['pr12'];tprog.Next;endelse }// for m:=1 to 12 do for j:=1 to tpokazatel.RecordCount do// begin // suiStringGrid1.Cells[m,j]:='0'; // suiStringGrid2.Cells[m,j]:='0'; // suiStringGrid3.Cells[m,j]:='0'; // end;// tstat_pokazatel.Filtered:=false;// tstat_pokazatel.Filter:='god=''2012'' and pokazatel='''+tpokazatel.FieldValues['pokazatel']+'''';// tstat_pokazatel.Filtered:=true;tstat_pokazatel.Filtered:=false;//tstat_spros.Filtered:=false;end;procedure TForm1.suiSpinEdit2Change(Sender: TObject);vari,j,m:integer;begin{tprog.Filtered:=false;tprog.First;fori:=1 to tprog.RecordCount dobegintstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suiSpinEdit2.Text+''' and prog='''+tprog.FieldValues['prog']+'''';tstat_spros.Filtered:=true;iftstat_spros.RecordCount<>0 thenbeginsuiStringGrid1.Cells[1,i]:=tstat_spros.FieldValues['sp1'];suiStringGrid2.Cells[1,i]:=tstat_spros.FieldValues['pr1'];suiStringGrid1.Cells[2,i]:=tstat_spros.FieldValues['sp2'];suiStringGrid2.Cells[2,i]:=tstat_spros.FieldValues['pr2'];suiStringGrid1.Cells[3,i]:=tstat_spros.FieldValues['sp3'];suiStringGrid2.Cells[3,i]:=tstat_spros.FieldValues['pr3'];suiStringGrid1.Cells[4,i]:=tstat_spros.FieldValues['sp4'];suiStringGrid2.Cells[4,i]:=tstat_spros.FieldValues['pr4'];suiStringGrid1.Cells[5,i]:=tstat_spros.FieldValues['sp5'];suiStringGrid2.Cells[5,i]:=tstat_spros.FieldValues['pr5'];suiStringGrid1.Cells[6,i]:=tstat_spros.FieldValues['sp6'];suiStringGrid2.Cells[6,i]:=tstat_spros.FieldValues['pr6'];suiStringGrid1.Cells[7,i]:=tstat_spros.FieldValues['sp7'];suiStringGrid2.Cells[7,i]:=tstat_spros.FieldValues['pr7'];suiStringGrid1.Cells[8,i]:=tstat_spros.FieldValues['sp8'];suiStringGrid2.Cells[8,i]:=tstat_spros.FieldValues['pr8'];suiStringGrid1.Cells[9,i]:=tstat_spros.FieldValues['sp9'];suiStringGrid2.Cells[9,i]:=tstat_spros.FieldValues['pr9'];suiStringGrid1.Cells[10,i]:=tstat_spros.FieldValues['sp10'];suiStringGrid2.Cells[10,i]:=tstat_spros.FieldValues['pr10'];suiStringGrid1.Cells[11,i]:=tstat_spros.FieldValues['sp11'];suiStringGrid2.Cells[11,i]:=tstat_spros.FieldValues['pr11'];suiStringGrid1.Cells[12,i]:=tstat_spros.FieldValues['sp12'];suiStringGrid2.Cells[12,i]:=tstat_spros.FieldValues['pr12'];tprog.Next;endelsefor m:=1 to 12 do for j:=1 to tprog.RecordCount dobeginsuiStringGrid1.Cells[m,j]:='0';suiStringGrid2.Cells[m,j]:='0';end;end; }end;procedure TForm1.suiSpinEdit3Change(Sender: TObject);vari,j,m:integer;begin{tprog.Filtered:=false;tprog.First;fori:=1 to tprog.RecordCount dobegintstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god='''+suiSpinEdit3.Text+''' and prog='''+tprog.FieldValues['prog']+'''';tstat_pokazatel.Filtered:=true;iftstat_pokazatel.RecordCount<>0 thenbeginsuiStringGrid3.Cells[1,i]:=tstat_pokazatel.FieldValues['m1'];suiStringGrid3.Cells[2,i]:=tstat_pokazatel.FieldValues['m2'];suiStringGrid3.Cells[3,i]:=tstat_pokazatel.FieldValues['m3'];suiStringGrid3.Cells[4,i]:=tstat_pokazatel.FieldValues['m4'];suiStringGrid3.Cells[5,i]:=tstat_pokazatel.FieldValues['m5'];suiStringGrid3.Cells[6,i]:=tstat_pokazatel.FieldValues['m6'];suiStringGrid3.Cells[7,i]:=tstat_pokazatel.FieldValues['m7'];suiStringGrid3.Cells[8,i]:=tstat_pokazatel.FieldValues['m8'];suiStringGrid3.Cells[9,i]:=tstat_pokazatel.FieldValues['m9'];suiStringGrid3.Cells[10,i]:=tstat_pokazatel.FieldValues['m10'];suiStringGrid3.Cells[11,i]:=tstat_pokazatel.FieldValues['m11'];suiStringGrid3.Cells[12,i]:=tstat_pokazatel.FieldValues['m12'];tprog.Next;endelse for m:=1 to 12 do for j:=1 to tprog.RecordCount do suiStringGrid3.Cells[m,j]:='0';end; }end;procedure TForm1.suiButton1Click(Sender: TObject);vari,j,m:integer;beginsuiEdit2.Text:=inttostr((strtoint(suiEdit2.Text)+1));tpokazatel.Filtered:=false;tpokazatel.First;fori:=1 to tpokazatel.RecordCount dobegintstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god='''+suiEdit2.Text+''' and pokazatel='''+tpokazatel.FieldValues['pokazatel']+'''';tstat_pokazatel.Filtered:=true;iftstat_pokazatel.RecordCount<>0 thenbeginsuiStringGrid3.Cells[1,i]:=tstat_pokazatel.FieldValues['m1'];suiStringGrid3.Cells[2,i]:=tstat_pokazatel.FieldValues['m2'];suiStringGrid3.Cells[3,i]:=tstat_pokazatel.FieldValues['m3'];suiStringGrid3.Cells[4,i]:=tstat_pokazatel.FieldValues['m4'];suiStringGrid3.Cells[5,i]:=tstat_pokazatel.FieldValues['m5'];suiStringGrid3.Cells[6,i]:=tstat_pokazatel.FieldValues['m6'];suiStringGrid3.Cells[7,i]:=tstat_pokazatel.FieldValues['m7'];suiStringGrid3.Cells[8,i]:=tstat_pokazatel.FieldValues['m8'];suiStringGrid3.Cells[9,i]:=tstat_pokazatel.FieldValues['m9'];suiStringGrid3.Cells[10,i]:=tstat_pokazatel.FieldValues['m10'];suiStringGrid3.Cells[11,i]:=tstat_pokazatel.FieldValues['m11'];suiStringGrid3.Cells[12,i]:=tstat_pokazatel.FieldValues['m12'];tpokazatel.Next;endelse for m:=1 to 12 do for j:=1 to tpokazatel.RecordCount do suiStringGrid3.Cells[m,j]:='0';end;end;procedure TForm1.suiButton6Click(Sender: TObject);vari,j,m:integer;beginsuiEdit2.Text:=inttostr((strtoint(suiEdit2.Text)-1));tpokazatel.Filtered:=false;tpokazatel.First;fori:=1 to tpokazatel.RecordCount dobegintstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god='''+suiEdit2.Text+''' and pokazatel='''+tpokazatel.FieldValues['pokazatel']+'''';tstat_pokazatel.Filtered:=true;iftstat_pokazatel.RecordCount<>0 thenbeginsuiStringGrid3.Cells[1,i]:=tstat_pokazatel.FieldValues['m1'];suiStringGrid3.Cells[2,i]:=tstat_pokazatel.FieldValues['m2'];suiStringGrid3.Cells[3,i]:=tstat_pokazatel.FieldValues['m3'];suiStringGrid3.Cells[4,i]:=tstat_pokazatel.FieldValues['m4'];suiStringGrid3.Cells[5,i]:=tstat_pokazatel.FieldValues['m5'];suiStringGrid3.Cells[6,i]:=tstat_pokazatel.FieldValues['m6'];suiStringGrid3.Cells[7,i]:=tstat_pokazatel.FieldValues['m7'];suiStringGrid3.Cells[8,i]:=tstat_pokazatel.FieldValues['m8'];suiStringGrid3.Cells[9,i]:=tstat_pokazatel.FieldValues['m9'];suiStringGrid3.Cells[10,i]:=tstat_pokazatel.FieldValues['m10'];suiStringGrid3.Cells[11,i]:=tstat_pokazatel.FieldValues['m11'];suiStringGrid3.Cells[12,i]:=tstat_pokazatel.FieldValues['m12'];tpokazatel.Next;endelse for m:=1 to 12 do for j:=1 to tpokazatel.RecordCount do suiStringGrid3.Cells[m,j]:='0';end;tstat_pokazatel.Filtered:=false;end;procedure TForm1.suiButton12Click(Sender: TObject);beginsuiEdit3.Text:=inttostr((strtoint(suiEdit3.Text)-1));tstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god='''+suiEdit3.Text+'''';tstat_pokazatel.Filtered:=true;end;procedure TForm1.suiButton13Click(Sender: TObject);beginsuiEdit3.Text:=inttostr((strtoint(suiEdit3.Text)+1));tstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god='''+suiEdit3.Text+'''';tstat_pokazatel.Filtered:=true;end;procedure TForm1.suiButton11Click(Sender: TObject);var i:integer;s:array of TLineSeries;beginsuiListBox1.Items.Add(tstat_pokazatel.FieldValues['pokazatel']);setlength(s,suiListBox1.Count+1);s[suiListBox1.Count]:= TLineSeries.Create(nil);s[suiListBox1.Count].ParentChart:=Chart1;s[suiListBox1.Count].AddXY(1,strtoint(tstat_pokazatel.FieldValues['m1']));s[suiListBox1.Count].addxy(2,strtoint(tstat_pokazatel.FieldValues['m2']));s[suiListBox1.Count].addxy(3,strtoint(tstat_pokazatel.FieldValues['m3']));s[suiListBox1.Count].addxy(4,strtoint(tstat_pokazatel.FieldValues['m4']));s[suiListBox1.Count].addxy(5,strtoint(tstat_pokazatel.FieldValues['m5']));s[suiListBox1.Count].addxy(6,strtoint(tstat_pokazatel.FieldValues['m6']));s[suiListBox1.Count].addxy(7,strtoint(tstat_pokazatel.FieldValues['m7']));s[suiListBox1.Count].addxy(8,strtoint(tstat_pokazatel.FieldValues['m8']));s[suiListBox1.Count].addxy(9,strtoint(tstat_pokazatel.FieldValues['m9']));s[suiListBox1.Count].addxy(10,strtoint(tstat_pokazatel.FieldValues['m10']));s[suiListBox1.Count].addxy(11,strtoint(tstat_pokazatel.FieldValues['m11']));s[suiListBox1.Count].addxy(12,strtoint(tstat_pokazatel.FieldValues['m12']));end;procedure TForm1.suiButton10Click(Sender: TObject);beginChart1.Series[suiListBox1.ItemIndex].Clear;suiListBox1.DeleteSelected;end;procedure TForm1.suiButton16Click(Sender: TObject);begin{suiEdit5.Text:=inttostr((strtoint(suiEdit5.Text)-1));tstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suiEdit5.Text+'''';tstat_spros.Filtered:=true; }end;procedure TForm1.suiButton14Click(Sender: TObject);var i:integer;s:TLineSeries;begin{s:= TLineSeries.Create(nil);s.ParentChart:=Chart4;s.AddXY(1,strtoint(tstat_spros.FieldValues['sp1']));s.AddXY(1,strtoint(tstat_spros.FieldValues['pr1']));s.addxy(2,strtoint(tstat_spros.FieldValues['sp2']));s.addxy(3,strtoint(tstat_spros.FieldValues['sp3']));s.addxy(4,strtoint(tstat_spros.FieldValues['sp4']));s.addxy(5,strtoint(tstat_spros.FieldValues['sp5']));s.addxy(6,strtoint(tstat_spros.FieldValues['sp6']));s.addxy(7,strtoint(tstat_spros.FieldValues['sp7']));s.addxy(8,strtoint(tstat_spros.FieldValues['sp8']));s.addxy(9,strtoint(tstat_spros.FieldValues['sp9']));s.addxy(10,strtoint(tstat_spros.FieldValues['sp10']));s.addxy(11,strtoint(tstat_spros.FieldValues['sp11']));s.addxy(12,strtoint(tstat_spros.FieldValues['sp12']));Chart4.Series[0].clear;Chart4.Series[1].clear;Chart4.Series[0].AddXY(1,strtoint(tstat_spros.FieldValues['sp1']));Chart4.Series[1].AddXY(1,strtoint(tstat_spros.FieldValues['pr1']));Chart4.Series[0].AddXY(2,strtoint(tstat_spros.FieldValues['sp2']));Chart4.Series[1].AddXY(2,strtoint(tstat_spros.FieldValues['pr2']));Chart4.Series[0].AddXY(3,strtoint(tstat_spros.FieldValues['sp3']));Chart4.Series[1].AddXY(3,strtoint(tstat_spros.FieldValues['pr3']));Chart4.Series[0].AddXY(4,strtoint(tstat_spros.FieldValues['sp4']));Chart4.Series[1].AddXY(4,strtoint(tstat_spros.FieldValues['pr4']));Chart4.Series[0].AddXY(5,strtoint(tstat_spros.FieldValues['sp5']));Chart4.Series[1].AddXY(5,strtoint(tstat_spros.FieldValues['pr5']));Chart4.Series[0].AddXY(6,strtoint(tstat_spros.FieldValues['sp6']));Chart4.Series[1].AddXY(6,strtoint(tstat_spros.FieldValues['pr6']));Chart4.Series[0].AddXY(7,strtoint(tstat_spros.FieldValues['sp7']));Chart4.Series[1].AddXY(7,strtoint(tstat_spros.FieldValues['pr7']));Chart4.Series[0].AddXY(8,strtoint(tstat_spros.FieldValues['sp8']));Chart4.Series[1].AddXY(8,strtoint(tstat_spros.FieldValues['pr8']));Chart4.Series[0].AddXY(9,strtoint(tstat_spros.FieldValues['sp9']));Chart4.Series[1].AddXY(9,strtoint(tstat_spros.FieldValues['pr9']));Chart4.Series[0].AddXY(10,strtoint(tstat_spros.FieldValues['sp10']));Chart4.Series[1].AddXY(10,strtoint(tstat_spros.FieldValues['pr10']));Chart4.Series[0].AddXY(11,strtoint(tstat_spros.FieldValues['sp11']));Chart4.Series[1].AddXY(11,strtoint(tstat_spros.FieldValues['pr11']));Chart4.Series[0].AddXY(12,strtoint(tstat_spros.FieldValues['sp12']));Chart4.Series[1].AddXY(12,strtoint(tstat_spros.FieldValues['pr12'])); }end;procedure TForm1.suiButton19Click(Sender: TObject);begin{suiEdit5.Text:=inttostr((strtoint(suiEdit5.Text)-1));tklient.Filtered:=false;tklient.Filter:='god='''+suiEdit5.Text+'''';tklient.Filtered:=true; }end;procedure TForm1.suiPageControl1Change(Sender: TObject);vara,b,c,i:integer; sp1,sp2,sp3,sp4,sp5,sp6,sp7,sp8,sp9,sp10,sp11,sp12:integer; pr1,pr2,pr3,pr4,pr5,pr6,pr7,pr8,pr9,pr10,pr11,pr12:integer;begin{if suiPageControl1.ActivePageIndex=3 thenbegintklient.Filtered:=false;tklient.Filter:='class=''крупный''';tklient.Filtered:=true;a:=tklient.RecordCount;tklient.Filtered:=false;tklient.Filter:='class=''постоянный''';tklient.Filtered:=true;b:=tklient.RecordCount;tklient.Filtered:=false;tklient.Filter:='class=''разовый''';tklient.Filtered:=true;c:=tklient.RecordCount;Chart3.Series[0].Clear;Chart3.Series[0].Add(a,'крупный');Chart3.Series[0].Add(b,'постоянный');Chart3.Series[0].Add(c,'разовый');tklient.Filtered:=False;tstat_spros.Filtered:=false;tstat_spros.Filter:='god=''2010'' and segment=''общегоназначения''';tstat_spros.Filtered:=true;tstat_spros.First;fori:=1 to tstat_spros.RecordCount dobegin sp1:=sp1+strtoint(tstat_spros.FieldValues['sp1']); pr1:=pr1+strtoint(tstat_spros.FieldValues['pr1']); sp2:=sp2+strtoint(tstat_spros.FieldValues['sp2']); pr2:=pr2+strtoint(tstat_spros.FieldValues['pr2']); sp3:=sp3+strtoint(tstat_spros.FieldValues['sp3']); pr3:=pr3+strtoint(tstat_spros.FieldValues['pr3']); sp4:=sp4+strtoint(tstat_spros.FieldValues['sp4']); pr4:=pr4+strtoint(tstat_spros.FieldValues['pr4']); sp5:=sp5+strtoint(tstat_spros.FieldValues['sp5']); pr5:=pr5+strtoint(tstat_spros.FieldValues['pr5']); sp6:=sp6+strtoint(tstat_spros.FieldValues['sp6']); pr6:=pr6+strtoint(tstat_spros.FieldValues['pr6']); sp7:=sp7+strtoint(tstat_spros.FieldValues['sp7']); pr7:=pr7+strtoint(tstat_spros.FieldValues['pr7']); sp8:=sp8+strtoint(tstat_spros.FieldValues['sp8']); pr8:=pr8+strtoint(tstat_spros.FieldValues['pr8']); sp9:=sp9+strtoint(tstat_spros.FieldValues['sp9']); pr9:=pr9+strtoint(tstat_spros.FieldValues['pr9']); sp10:=sp10+strtoint(tstat_spros.FieldValues['sp10']); pr10:=pr10+strtoint(tstat_spros.FieldValues['pr10']); sp11:=sp11+strtoint(tstat_spros.FieldValues['sp11']); pr11:=pr11+strtoint(tstat_spros.FieldValues['pr11']); sp12:=sp12+strtoint(tstat_spros.FieldValues['sp12']); pr12:=pr12+strtoint(tstat_spros.FieldValues['pr12']);tstat_spros.Next;end;Chart2.Series[0].Clear;Chart2.Series[1].Clear;Chart2.Series[0].AddXY(1,sp1);Chart2.Series[1].AddXY(1,pr1);Chart2.Series[0].AddXY(2,sp2);Chart2.Series[1].AddXY(2,pr2);Chart2.Series[0].AddXY(3,sp3);Chart2.Series[1].AddXY(3,pr3);Chart2.Series[0].AddXY(4,sp4);Chart2.Series[1].AddXY(4,pr4);Chart2.Series[0].AddXY(5,sp5);Chart2.Series[1].AddXY(5,pr5);Chart2.Series[0].AddXY(6,sp6);Chart2.Series[1].AddXY(6,pr6);Chart2.Series[0].AddXY(7,sp7);Chart2.Series[1].AddXY(7,pr7);Chart2.Series[0].AddXY(8,sp8);Chart2.Series[1].AddXY(8,pr8);Chart2.Series[0].AddXY(9,sp9);Chart2.Series[1].AddXY(9,pr9);Chart2.Series[0].AddXY(10,sp10);Chart2.Series[1].AddXY(10,pr10);Chart2.Series[0].AddXY(11,sp11);Chart2.Series[1].AddXY(11,pr11);Chart2.Series[0].AddXY(12,sp12);Chart2.Series[1].AddXY(12,pr12);end; }end;procedure TForm1.suiButton21Click(Sender: TObject);var i,sp1,sp2,sp3,sp4,sp5,sp6,sp7,sp8,sp9,sp10,sp11,sp12:integer; pr1,pr2,pr3,pr4,pr5,pr6,pr7,pr8,pr9,pr10,pr11,pr12:integer;begin{ sp1:=0; pr1:=0; sp2:=0; pr2:=0; sp3:=0; pr3:=0; sp4:=0; pr4:=0; sp5:=0; pr5:=0; sp6:=0; pr6:=0; sp7:=0; pr7:=0; sp8:=0; pr8:=0; sp9:=0; pr9:=0; sp10:=0; pr10:=0; pr11:=0; sp12:=0; pr12:=0;suiEdit6.Text:=inttostr((strtoint(suiEdit6.Text)+1));case suiRadioGroup1.ItemIndex of 0: begintstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suiEdit6.Text+''' and segment=''общегоназначения''';tstat_spros.Filtered:=true;end; 1: begintstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suiEdit6.Text+''' and segment=''домашнегоназначения''';tstat_spros.Filtered:=true;end; 2: begintstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suiEdit6.Text+''' and segment=''деловогоназначения''';tstat_spros.Filtered:=true;end;end; tstat_spros.First;fori:=1 to tstat_spros.RecordCount dobegin sp1:=sp1+strtoint(tstat_spros.FieldValues['sp1']); pr1:=pr1+strtoint(tstat_spros.FieldValues['pr1']); sp2:=sp2+strtoint(tstat_spros.FieldValues['sp2']); pr2:=pr2+strtoint(tstat_spros.FieldValues['pr2']); sp3:=sp3+strtoint(tstat_spros.FieldValues['sp3']); pr3:=pr3+strtoint(tstat_spros.FieldValues['pr3']); sp4:=sp4+strtoint(tstat_spros.FieldValues['sp4']); pr4:=pr4+strtoint(tstat_spros.FieldValues['pr4']); sp5:=sp5+strtoint(tstat_spros.FieldValues['sp5']); pr5:=pr5+strtoint(tstat_spros.FieldValues['pr5']); sp6:=sp6+strtoint(tstat_spros.FieldValues['sp6']); pr6:=pr6+strtoint(tstat_spros.FieldValues['pr6']); sp7:=sp7+strtoint(tstat_spros.FieldValues['sp7']); pr7:=pr7+strtoint(tstat_spros.FieldValues['pr7']); sp8:=sp8+strtoint(tstat_spros.FieldValues['sp8']); pr8:=pr8+strtoint(tstat_spros.FieldValues['pr8']); sp9:=sp9+strtoint(tstat_spros.FieldValues['sp9']); pr9:=pr9+strtoint(tstat_spros.FieldValues['pr9']); sp10:=sp10+strtoint(tstat_spros.FieldValues['sp10']); pr10:=pr10+strtoint(tstat_spros.FieldValues['pr10']); sp11:=sp11+strtoint(tstat_spros.FieldValues['sp11']); pr11:=pr11+strtoint(tstat_spros.FieldValues['pr11']); sp12:=sp12+strtoint(tstat_spros.FieldValues['sp12']); pr12:=pr12+strtoint(tstat_spros.FieldValues['pr12']);tstat_spros.Next;end;Chart2.Series[0].Clear;Chart2.Series[1].Clear;Chart2.Series[0].AddXY(1,sp1);Chart2.Series[1].AddXY(1,pr1);Chart2.Series[0].AddXY(2,sp2);Chart2.Series[1].AddXY(2,pr2);Chart2.Series[0].AddXY(3,sp3);Chart2.Series[1].AddXY(3,pr3);Chart2.Series[0].AddXY(4,sp4);Chart2.Series[1].AddXY(4,pr4);Chart2.Series[0].AddXY(5,sp5);Chart2.Series[1].AddXY(5,pr5);Chart2.Series[0].AddXY(6,sp6);Chart2.Series[1].AddXY(6,pr6);Chart2.Series[0].AddXY(7,sp7);Chart2.Series[1].AddXY(7,pr7);Chart2.Series[0].AddXY(8,sp8);Chart2.Series[1].AddXY(8,pr8);Chart2.Series[0].AddXY(9,sp9);Chart2.Series[1].AddXY(9,pr9);Chart2.Series[0].AddXY(10,sp10);Chart2.Series[1].AddXY(10,pr10);Chart2.Series[0].AddXY(11,sp11);Chart2.Series[1].AddXY(11,pr11);Chart2.Series[0].AddXY(12,sp12);Chart2.Series[1].AddXY(12,pr12); }end;functionCutIt (Number: Real; Digits: Integer): Real;//Number - число, которое нужно обрезать, Digits - количество знаков, которое нужно оставитьvar i: Integer; //простой счетчикst: Integer; // пригодиться для определения порядкаbeginst:=1; For i:=1 to Digits dost:=st*10; Number:=trunc(Number*st)/st;CutIt:=Number;end;procedure TForm1.suiButton2Click(Sender: TObject);var KL, KSR, KTL, KA, KFZ, KM, KOSR, KPI, KRA, KRSK: real;beginKL:=(strtofloat(suiEdit8.Text)+strtofloat(suiEdit6.Text))/strtofloat(suiEdit5.Text);label14.Caption:=floattostr(CutIt(KL,2));KSR:=(strtofloat(suiEdit8.Text)+strtofloat(suiEdit6.Text)+strtofloat(suiEdit11.Text))/strtofloat(suiEdit5.Text);label48.Caption:=floattostr(CutIt(KSR,2));KTL:=strtofloat(suiEdit17.Text)/strtofloat(suiEdit5.Text);label49.Caption:=floattostr(CutIt(KTL,2));KA:=strtofloat(suiEdit9.Text)/strtofloat(suiEdit13.Text);label50.Caption:=floattostr(CutIt(KA,2));KFZ:=strtofloat(suiEdit14.Text)/strtofloat(suiEdit9.Text);label51.Caption:=floattostr(CutIt(KFZ,2));KM:=(strtofloat(suiEdit9.Text)-strtofloat(suiEdit15.Text))/(strtofloat(suiEdit9.Text)+strtofloat(suiEdit12.Text));label52.Caption:=floattostr(CutIt(KM,2));KOSR:=(strtofloat(suiEdit9.Text)+strtofloat(suiEdit12.Text)-+strtofloat(suiEdit15.Text))/strtofloat(suiEdit17.Text);label53.Caption:=floattostr(CutIt(KOSR,2));KPI:=strtofloat(suiEdit9.Text)+strtofloat(suiEdit12.Text)/strtofloat(suiEdit13.Text);label54.Caption:=floattostr(CutIt(KPI,2));KRA:=strtofloat(suiEdit16.Text)/strtofloat(suiEdit15.Text);label55.Caption:=floattostr(CutIt(KRA,2));KRSK:=strtofloat(suiEdit16.Text)/strtofloat(suiEdit9.Text);label56.Caption:=floattostr(CutIt(KRSK,2));end;end.