Доклад: Отчётность в Excel

⚡ 👉🏻👉🏻👉🏻 ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

Наша задача создать отчётность в Excel. Эта потребность может возникнуть у каждого программиста баз данных, ведь Office установлен в нашей стране практически на каждом компьютере. А это значит, что вашу отчётность можно смело переносить между компьютерами и быть уверенным, что её смогут прочитать.
Сначала я покажу полностью процедуру, потому что исходников в конце статьи не будет, а потом мы разберём её по косточкам:
procedure TForm1.Button1Click(Sender: TObject);
XLApp:= CreateOleObject('Excel.Application');
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
Sheet.Cells[1,2]:='Отчётиз Delphi';
Sheet.Rows[index].Font.Color:=clGreen;
Sheet.Cells[index,4].Font.Color:=clRed;
Для того, чтобы всё это работало, нужно подключить в раздел Uses модуль ComObj . А теперь начнём всё с самого начала.
Первая строка создаёт объект Excel (XLApp:= CreateOleObject('Excel.Application')), и записывает его в переменную XLApp . Эта переменная типа Variant . Variant - это тип, который может принимать любые значения: строки, числа, указатели и др. Вторая строка (XLApp.Visible:=true) заставляет запустить сам Excel. Потом я добавляю новую рабочую книгу (XLApp.Workbooks.Add(-4167)). Число в скобках - это константа, которая означает создание книги и её изменять нельзя. Дальше я даю название созданной книге XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт'. Это действие не обязательно, но я всегда это делаю, потому что меня бесит название по умолчанию "Лист 1".
Теперь у нас Excel запущен и создана новая книга. Можно переходить к впечатыванию данных. Но прежде чем это сделать я отформатирую колонки и строки. Для этого я получаю указатель на колонки рабочей книги (Colum:= XLApp. Workbooks[1]. WorkSheets['Отчёт']. Columns), и записываю результат в переменную Colum типа Variant . Теперь последовательно изменяю ширину колонок (Colum. Columns[1]. ColumnWidth := 40). На русском эта команда будет звучать так: Колонки. Колонка[1]. ШиринаКолонки:=40.
После этого я в ту же переменную записываю указатель на строки рабочей книги (Colum := XLApp. Workbooks[1]. WorkSheets['Отчёт']. Rows). Для украшения строк нашего отчёта, я устанавливаю у первых двух строк жирный шрифт (Colum. Rows[1]. Font. Bold := true). В квадратных скобках теперь порядковый номер строки. Далее идут две строки, в которых я устанавливаю цвет первой строки в синий и размер шрифта равный 14.
Форматирование окончено, теперь можно выводить данные. Для этого я получаю указатель на лист (Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт']). Для того, чтобы вывести данные, нужно просто присвоить значение в Sheet.Cells[строка, колонки]. В процессе вывода данных можно изменять цвет строк Sheet. Rows[строка]. Font. Color или колонок Sheet. Columns[колонка]. Font. Color, простым присваиванием (как мы это делали при форматировании). Если нужно изменить цвет отдельной ячейки, то это можно сделать, присвоив новое значение в Sheet.Cells[строка, колонка].Font.Color.
Вот ещё некоторые параметры, которые ты можешь изменить:
Sheet.Cells[строка,колонка].Font.Italic - курсивный шрифт
Sheet.Cells[строка,колонка].Font.Bold - жирный шрифт
Sheet.Cells[строка,колонка].Font.Underline - подчёркнутый шрифт
Sheet.Cells[строка,колонка].Font.Size - размер шрифта
С помощью всего этого, ты сможешь создавать простые, но эффективные отчёты. В Delphi, в директории Lib есть файлик excel97.pas, в нём ты найдёшь все доступные функции Excel. Если у тебя есть достаточные навыки, чтобы разобраться с ним, то в перёд. А начинающему программисту там без бутылки не разобраться. Если ты относишься ко второй категории, то жди, возможно я ещё вернусь к этой теме.

Название: Отчётность в Excel
Раздел: Рефераты по информатике, программированию
Тип: доклад
Добавлен 05:57:51 13 декабря 2004 Похожие работы
Просмотров: 410
Комментариев: 16
Оценило: 4 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Доклад: Отчётность в Excel
Реферат по теме Аналіз основних теорій заселення Північного Причорномор’я
Как Начать Сочинение На Английском Языке
Сочинение По Дубровскому Продолжение Романа
Контрольная работа по теме Особенности компьютерной графики
Сочинение На Тему Мама Учитель
Мероприятия по повышению устойчивости функционирования ЛПУ в чрезвычайных ситуациях.
Курсовая работа по теме Технологии развития силовой подготовленности студентов, занимающихся пауэрлифтингом
Реферат по теме Зубы
Реферат Тему Мусульманская Культура
Сочинение Описание Герасимов Церковь Покрова На Нерли
Курсовая Направления Социальной Работы
Курсовая работа: Удосконалення трудового навчання в школі
Средства Общения В Психологии Реферат
Имидж Власти Как Управленческий Ресурс Реферат
Аксиологическая Функция Философии Реферат
Реферат: Эволюция форм счетоводства
Реферат: Обоснование объема продаж
Безответная Любовь Итоговое Сочинение
Курсовая работа по теме Средства постановки помех и помехозащиты РЛС
Реферат по теме Основные понятия информатики
Реферат: Общие требования к грузоподъёмным и транспортным машинам
Доклад: Святой апостол и евангелист Иоанн Богослов
Доклад: Танго