Определение эффективности использования сельхозугодий с помощью языка программирования Delphi 7.0

TabSheet2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Memo2.Lines.Add('Произведено на 100 га сельхозугодий,ц:');

Memo2.Lines.Add(Label99.Caption+' '+FloatToStrF(PrZ,fffixed,6,2));

Memo2.Lines.Add(Label100.Caption+' '+FloatToStrF(PrK,fffixed,6,2));

Memo2.Lines.Add(Label101.Caption+' '+FloatToStrF(PrM,fffixed,6,2));

Memo2.Lines.Add(Label102.Caption+' '+FloatToStrF(PrMS,fffixed,6,2));

Memo2.Lines.Add(Label103.Caption+' '+FloatToStrF(PrSH,fffixed,6,2));

Memo2.Lines.Add(Label138.Caption+' '+FloatToStrF(PrOv,fffixed,6,2));

Memo2.Lines.Add(Label139.Caption+' '+FloatToStrF(PrSil,fffixed,6,2));

Memo2.Lines.Add('Произведено на 100 га пашни,ц:');

Memo2.Lines.Add(Label105.Caption+' '+FloatToStrF(PrPZ,fffixed,6,2));

Memo2.Lines.Add(Label106.Caption+' '+FloatToStrF(PrPK,fffixed,6,2));

Memo2.Lines.Add('Урожайность,ц/га:');

Memo2.Lines.Add(Label108.Caption+' '+FloatToStrF(YZ,fffixed,6,2));

Memo2.Lines.Add(Label109.Caption+' '+FloatToStrF(YK,fffixed,6,2));

Memo2.Lines.Add(Label110.Caption+' '+FloatToStrF(SKK,fffixed,6,2));

Memo2.Lines.Add('Произведено на 100 га кормовых культур(пастбищ,сенокосов):');

Memo2.Lines.Add(Label112.Caption+' '+FloatToStrF(PrKKM,fffixed,6,2));

Memo2.Lines.Add(Label113.Caption+' '+FloatToStrF(PrKKMS,fffixed,6,2));

Memo2.Lines.Add(Label114.Caption+' '+FloatToStrF(PrKKSH,fffixed,6,2));

Memo2.Lines.Add(Label115.Caption+' '+FloatToStrF(Isy,fffixed,6,1));

Memo2.Lines.Add(Label116.Caption+' '+FloatToStrF(RS,fffixed,6,1));

Memo2.Lines.Add(Label117.Caption+' '+FloatToStrF(YKK,fffixed,6,1));

Memo2.Lines.Add('Стоимость валовой продукции на 100 га,тыс.руб');

Memo2.Lines.Add(Label119.Caption+' '+FloatToStrF(StSY,fffixed,6,2));

Memo2.Lines.Add(Label120.Caption+' '+FloatToStrF(StP,fffixed,6,2));

Memo2.Lines.Add('Стоимость товарной продукции на 100 га,тыс.руб');

Memo2.Lines.Add(Label144.Caption+' '+FloatToStrF(STPsy,fffixed,6,2));

Memo2.Lines.Add(Label145.Caption+' '+FloatToStrF(STPp,fffixed,6,2));

Memo2.Lines.Add('Прибыль на 100 га:');

Memo2.Lines.Add(Label147.Caption+' '+FloatToStrF(Psy,fffixed,6,2));

Memo2.Lines.Add(Label148.Caption+' '+FloatToStrF(Pp,fffixed,6,2));

Memo2.Lines.SaveToFile('C:/1.txt');

TabSheet3.Show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

PrintDialog1.options:=[poPageNums, poSelection];

PrintDialog1.FromPage:=1;

PrintDialog1.ToPage:=PageControl1.PageCount;

PrintDialog1.MinPage:=1;

PrintDialog1.MaxPage:=PageControl1.PageCount;

if not PrintDialog1.execute then exit;

if PrintDialog1.PrintRange=prAllPages then

begin

Start:=PrintDialog1.MinPage-1;

Stop:=PrintDialog1.MaxPage-1;

end

else //  если выбрано отличное от печати "все"

if PrintDialog1.printrange=prSelection then

begin

start:=PageControl1.ActivePageIndex;

stop:=start;

end

else // если выбрано отличное от "выделенный фрагмент"

begin

start:=PrintDialog1.FromPage-1;

stop:=PrintDialog1.ToPage-1;

end;

//начало печати

Printer.BeginDoc;

Printer.Canvas.TextOut(50,50, 'Проверка принтера');

{For i:=start to stop do

Begin

 

PageControl1.Pages[i].PaintTo(Printer.Handle,200,200);

if i<>stop then

Printer.NewPage;

end;  }

Printer.EndDoc;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

 SaveDialog1.FileName := FName;

if SaveDialog1.Execute then

 begin

  FName := SaveDialog1.FileName;

  Memo2.Lines.SaveToFile(FName);

 end;

end;

end.