- •Структура модуля
- •Interface
- •Implementation
- •Interface
- •Implementation
- •4. Инкапсуляция
- •7. Области видимости
- •Interface
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
- •10. Функции работы с файлами
- •11. Построение пользовательского интерфейса
- •Interface
- •Implementation
- •С помощью объекта Range выделим диапазон
- •Компонент tDataSource
С помощью объекта Range выделим диапазон
Excel.WorkBooks[1].WorkSheets[1].Range['A1:E13'].HorizontalAlignment:=3;
(HorizontalAlignment:=3 – определяет отступ для набора текста в ячейке.)
Теперь до любой ячейки мы можем добраться следующим образом:
Excel.ActiveWorkBook.WorkSheets[1].Cells[1, 2]:='Текст ячейки (1,2)';
Определяем ширину колонок:
Excel.WorkBooks[1].WorkSheets[1].Columns[1].ColumnWidth:=7;
Excel.WorkBooks[1].WorkSheets[1].Columns[2].ColumnWidth:=10;
Excel.WorkBooks[1].WorkSheets[1].Columns[3].ColumnWidth:=25;
Excel.WorkBooks[1].WorkSheets[1].Columns[4].ColumnWidth:=25;
Excel.WorkBooks[1].WorkSheets[1].Columns[5].ColumnWidth:=20;
Определяем заголовки для столбцов
Excel.WorkBooks[1].WorkSheets[1].Cells[3,1]:='Номер';
Excel.WorkBooks[1].WorkSheets[1].Cells[3,2]:='рег номер';
Excel.WorkBooks[1].WorkSheets[1].Cells[3,3]:='Дата';
Excel.WorkBooks[1].WorkSheets[1].Cells[3,4]:='Фамилия имя отчество';
Excel.WorkBooks[1].WorkSheets[1].Cells[3,5]:='Паспортные данные';
Заполним первый столбец (и поместим таблицу в рамку толщиной = 3):
for i:=3 to 13 do begin
if i<13 then Excel.WorkBooks[1].WorkSheets[1].Cells[i+1,1]:=IntToStr(i-2);
Excel.WorkBooks[1].WorkSheets[1].Range['A'+intToStr(i)+':E'+IntToStr(i)].Borders.Weight:=3;
end;
Для установки шрифта и размера текста выделите нужный диапазон и установите свойство Name объекта-свойства Font объекта Selection и свойство Size для изменения размера: (для ячейки А4)
Excel.ActiveWorkBook.WorkSheets[1].Range['A4'].Select;
Excel.Selection.Font.Name:='Courier New';
Excel.Selection.Font.Size:=18;
Если Вы хотите установить жирный или, например, наклонный стиль написания текста установите соответствующие свойства:
Excel.ActiveWorkBook.WorkSheets[1].Range['G1'].Select;
Excel.Selection.Font.Bold:=true; // Для жирного текста
Excel.Selection.Font.Italic:=true; // Для наклонного текста
Для указания цвета текста измените свойство ColorIndex все того же объекта Font:
Excel.ActiveWorkBook.WorkSheets[1].Range['A1'].Select;
Excel.Selection.Font.ColorIndex:=3;
Вот несколько индексов цветов:
Индекс - Цвет
0 - Авто
2 - Белый
3 - Красный
5 - Синий
6 - Желтый
10 - Зеленый
Для изменения цвета фона ячейки используйте объект Interior свойства Selection:
Excel.ActiveWorkBook.WorkSheets[1].Range['H1'].Select;
Excel.Selection.Interior.ColorIndex:=3; // Цвет
Представьте такую ситуацию: необходимо объединить несколько ячеек и выровнять текст в них по центру.
Выделяем ячейки с A1 по G1:
Excel.ActiveWorkBook.WorkSheets[1].Range['A1:G1'].Select;
Объединяем:
Excel.ActiveWorkBook.WorkSheets[1].Range['A1:G1'].Merge;
РАБОТА С БАЗАМИ ДАННЫХ
В первых версиях Delphi основой работы с базами данных являлся Borland Database Engine (BDE) — процессор баз данных фирмы Borland.
BDE служит посредником между приложением и базами данных. Приложение Delphi обращается к базе данных через BDE. BDE реализован в виде динамически присоединяемых библиотек DLL
Приложение Delphi, когда ему нужно связаться с базой данных, обращается к BDE и сообщает обычно псевдоним базы данных и необходимую таблицу в ней. BDE no псевдониму находит драйвер, подходящий для указанной базы данных.
Если в BDE имеется собственный драйвер соответствующей СУБД, то ВОЕ связывается через него с базой данных и с нужной таблицей в ней, обрабатывает запрос пользователя и возвращает в приложение результаты обработки. Если собственного драйвера нужной СУБД в BDE нет, то используется драйвер ODBC. ODBC (Open Database Connectivity) — DLL, аналогичная по функциям BDE, но разработанная фирмой Microsoft.
Она хранится в файле ODBC.DLL. Поскольку Microsoft включила поддержку ODBC в свои офисные продукты и для ODBC созданы драйверы практически к любым СУБД, фирма Borland включила в BDE драйвер, позволяющий использовать ODBC. Правда, работа через ODBC осуществляется несколько медленнее, чем через собственные драйверы СУБД, включенные в BDE, но благодаря связи с ODBC масштабируемость Delphi существенно увеличилась и сейчас из Delphi можно работать с любой сколько-нибудь значительной СУБД.
В Delphi 5 была введена альтернативная возможность работы с базами данных, минуя BDE. Это разработанная в Microsoft технология ActiveX Data Objects (ADO). ADO — это пользовательский интерфейс доступа к любым типам данных, включая реляционные и не реляционные базы данных, электронную почту, системные, текстовые и графические файлы. Связь с данными осуществляется посредством так называемой технологии OLE DB. Использование ADO является альтернативой Borland Database Engine (BDE), обеспечивающей более эффективную работу с данными.
OLE DB(англ.Object Linking and Embedding, Database) — наборинтерфейсов, основанных наCOM, которые позволяютприложениямобращаться кданным, хранимым в разных источниках информации или хранилищах данных с помощью унифицированного доступа.
COM(англ.Component Object Model— объектная модель компонентов; произносится как [ком]) — этотехнологическийстандарт от компанииMicrosoft, предназначенный для созданияпрограммного обеспеченияна основе взаимодействующих компонентов, каждый из которых может использоваться во многих программах одновременно. Стандарт воплощает в себе идеиполиморфизмаиинкапсуляцииобъектно-ориентированного программирования.
Для работы с ADO предусмотрены компоненты, расположенные на странице библиотеки ADO.
Компоненты ADO.
На закладке ADO расположены компоненты:
а) Компоненты соединения:
- ADOConnection;
- ADOCommand;
б) Стандартные компоненты:
- ADODataSet - универсальный набор данных;
- ADOTable - таблица БД;
- ADOQuery - запрос SQL;
- ADOStoredProc - хранимая процедура.
Связь с базой данных в технологии ADO осуществляется обычной цепочкой:
набор данных =>источник данных (компонент DataSource) =>компоненты управления и отображения данных (DBGrid, DBEdit и др.).
Только в первом звене этой цепочки используются компоненты, расположенные на странице ADO.
Рассмотрим основные классы для работы с БД:
TADOConnection;
TADOQuery;
TDataSource;
Компонент TADOConnection
Служит для создания соединения с базой данных. Компонент ADOConnection позволяет указать метоположение базы данных, настроить процедуру аутентификации, контролировать транзакции, напрямую выполнять команды, адресованные БД, кроме того, он позволяет сократить количество подключений, существующих в рамках приложения, так как несколько разных компонентов могут использовать одно и то же соединение с сервером базы данных. Параметры соединения к базе данных задаются через свойство ConnectionString.
Свойство Connectionstring предназначено для хранения информации о соединении с объектом ADO. В нем через точку с запятой перечисляются все необходимые параметры. Как минимум это должны быть имена провайдера соединения или удаленного сервера:
Connectionstring:='Remote Server=ServerName;Provider=ProviderName' ;
При необходимости указываются путь к удаленному провайдеру:
Connectionstring:='Remote Provider=ProviderName' ;
и параметры, необходимые провайдеру:
'User Name=UserName;Password=Password'
Свойство ConnectionTimeOut – integer – определяет время в секундах, необходимое на попытку соединения с базой данных. По истечению этого времени выдаются сообщение о невозможности соединения. По умолчанию это время равно 15 секундам.
Для выполнения sql – команды класс TADOConnection имеет функцию: function Execute (const CommandText: WideString; …) - Выполняет команду, заданную параметром CommandText