Лабораторная работа №6,7

Симоненко В.С.

ИТ 13-2

Лабораторная работа №6,7

Автоматизация Microsoft Excel: построение диаграмм

Цель: получить навыки построение диаграмм в документах Microsoft Excel.

Индивидуальное задание

На основании файла, сформированного в результате выполнения лабораторной работы №6, построить диаграмму согласно варианту. Диаграмму добавить в сформированный ранее xls-файл.

Вариант	Индивидуальное задание
18	На круговой диаграмме показать прибыль от продажи товаров для каждого поставщика

Листинг прграммы:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ComObj, Spin, ExtDlgs, ExtCtrls, ComCtrls, ExcelXP;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

var

E:variant;

Chart:Variant;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

//Создание объекта Excel и отображение окна

begin

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

E.Visible:=True;

end;

procedure TForm1.Button2Click(Sender: TObject);

//Создание рабочей книги

begin

E.WorkBooks.Add;

end;

procedure TForm1.Button3Click(Sender: TObject);

//Добавление диаграммы и получение ссылки на нее

var

i:Integer;

const xl3DColumn=-4100;

xlColumns=2;

begin

for i:=1 to 3 do

begin

E.ActiveSheet.Cells(1,1):='Петров В.В. - молоко'; E.ActiveSheet.Cells(1,2):='1658';

E.ActiveSheet.Cells(2,1):='Сидоров А.А. - сыр';

E.ActiveSheet.Cells(2,2):='4568';

E.ActiveSheet.Cells(3,1):='Иванов М.М. - творог';

E.ActiveSheet.Cells(3,2):='12598';

E.ActiveSheet.Cells(4,1):='Бойчук В.М. - йогурт';

E.ActiveSheet.Cells(4,2):='9874';

E.ActiveSheet.Cells(5,1):='Гамалюк М.В. - ряженка';

E.ActiveSheet.Cells(5,2):='968';

E.ActiveSheet.Cells(6,1):='Ковшура Т.В. - кефир';

E.ActiveSheet.Cells(6,2):='48598';

end;

Chart:=E.Charts.Add;

Chart.ChartType:=xlPie;

Chart.SetSourceData(Source:=E.ActiveWorkbook.Sheets.Item['Лист1'].Range['A1:B6'],

PlotBy:=xlColumns);

end;

end.

Результат выполнения программы:

Вывод: получила навыки построение диаграмм в документах Microsoft Excel.