Лабораторная работа №6,7
.docxСимоненко В.С.
ИТ 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.