Разработка БД и ПО для анализа производства, затрат, себестоимости и реализации продукции растениеводства в агропромышленном комплексе (п

dm.tb37.SQL.Clear;

dm.tb37.SQL.Add('select * from tb37 where dYear = ' + DBLookupComboboxEh2.Text);

dm.tb37.Open;

end; 

procedure Tfm37.Button15Click(Sender: TObject);

var i, j: integer;

l1: OleVariant;

begin

excel:=CreateOleObject('Excel.Application');

excel.WorkBooks.Open(extractfilepath(paramstr(0))+'tb37.xls',false);

l1:=excel.Worksheets['ëèñò1'];

dm.tbTemp37.First;

l1.Cells[2,1].value := 'Ïîêàçàòåëü -  ' + ComboBox1.Text;

dm.tbYear37.First;

for i:= 1 to dm.tbYear37.RecordCount do

  begin

  l1.Cells[3,i+1].value := dm.tbYear37dYear.AsString;

  dm.tbYear37.Next;

  end;

for i := 4 to DM.tbTemp37.RecordCount + 3 do

begin

l1.Cells[i,1].value := dm.tbTemp37naim.AsString;

for j:=1 to dm.tby37.RecordCount do

  begin

  l1.Cells[i,j+1].value := dm.tbTemp37.Fields[j+2].AsString;

  end;

  dm.tbTemp37.Next;

end;

excel.Visible := true;

end; 

procedure Tfm37.Button8Click(Sender: TObject);

begin

PageControl1.TabIndex := 3;

end; 

end. 

unit Unit8;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, Grids, DBGrids, comobj, Series, TeEngine,

  BubbleCh, ExtCtrls, TeeProcs, Chart, DbChart, Mask, DBCtrlsEh,

  DBLookupEh, DBGridEh, ComCtrls, Spin;

type

  Tfm39 = class(TForm)

    DBGridEh1: TDBGridEh;

    Label1: TLabel;

    DBLookupComboboxEh1: TDBLookupComboboxEh;

    Button9: TButton;

    Button10: TButton;

    Panel1: TPanel;

    SpinEdit1: TSpinEdit;

    Button11: TButton;

    Button12: TButton;

    Panel2: TPanel;

    DBLookupComboboxEh2: TDBLookupComboboxEh;

    Button13: TButton;

    Button14: TButton;

    Button1: TButton;

    Button2: TButton;

    procedure BitBtn1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  fm39: Tfm39;

implementation

uses uAbout, uDM, Unit2, Unit7;

{$R *.dfm}

procedure Tfm39.BitBtn1Click(Sender: TObject);

var i: integer;

begin

{excel:=CreateOleObject('Excel.Application');

excel.WorkBooks.Open(extractfilepath(paramstr(0))+'t38.xls',false);

list:=excel.Worksheets['38'];

dm.tb33.First;

for i := 3 to DM.tb37.RecordCount + 2 do

  begin

  list.Cells[i,3].value := dm.tb38posag.AsString;

  list.Cells[i,4].value := dm.tb38plVS.AsString;

  list.Cells[i,5].value := dm.tb38plPL.AsString;

  list.Cells[i,6].value := dm.tb38sbor.AsString;

  list.Cells[i,7].value := dm.tb38valSbor.AsString;

  list.Cells[i,8].value := dm.tb38s1ga.AsString;

  list.Cells[i,9].value := dm.tb38zatr.AsString;

  list.Cells[i,10].value := dm.tb38sebest.AsString;

  dm.tb38.Next;

  end;

excel.Visible := true;    }

end; 

procedure Tfm39.Button2Click(Sender: TObject);

begin

close;

end; 

procedure Tfm39.Button1Click(Sender: TObject);

var i, n: integer;

excel, list: olevariant;

begin

n:=4;

excel:=CreateOleObject('Excel.Application');

excel.WorkBooks.Open(extractfilepath(paramstr(0))+'tb39.xls',false);

list:=excel.Worksheets['39'];

dm.tb39.First;

for i := 3 to DM.tb39.RecordCount + 2 do

  begin

  if dm.tb39n.AsBoolean = true then

    begin

    list.Cells[n,3].value := dm.tb39isp.AsString;

    n:=n+1;

    end;

  dm.tb39.Next;

  end;

excel.Visible := true;

end;

end.