Разработка баз данных в Delphi

Создание баз
данных в Delphi

Урок
1:
Настройка BDE

Содержание
урока 1:

Обзор 2

Сущность
BDE 2

Алиасы 2

Системная
информация
утилиты настройки
BDE 4

Заключение 5

Обзор

На этом уроке
мы познакомимся
с ядром баз
данных компании
Борланд - Borland
Database Engine (BDE), а также
научимся создавать
и редактировать
алиасы - механизм,
облегчающий
связь с базами
данных. Кроме
того, мы изучим,
как конфигурировать
ODBC драйверы.

Сущность
BDE

Мощность и
гибкость Delphi при
работе с базами
данных основана
на низкоуровневом
ядре - процессоре
баз данных
Borland Database Engine (BDE). Его интерфейс
с прикладными
программами
называется
Integrated Database Application Programming Interface (IDAPI). В
принципе, сейчас
не различают
эти два названия
(BDE и IDAPI) и считают
их синонимами.
BDE позволяет
осуществлять
доступ к данным
как с использованием
традиционного
record-ориентированного
(навигационного)
подхода, так
и с использованием
set-ориентированного
подхода, используемого
в SQL-серверах
баз данных.
Кроме BDE, Delphi позволяет
осуществлять
доступ к базам
данных, используя
технологию
(и, соответственно,
драйверы) Open
DataBase Connectivity (ODBC) фирмы
Microsoft. Но, как показывает
практика,
производительность
систем с использованием
BDE гораздо выше,
чем оных при
использовании
ODBC. ODBC драйвера
работают через
специальный
“ODBC socket”, который
позволяет
встраивать
их в BDE.

Все инструментальные
средства баз
данных Borland
- Paradox, dBase, Database Desktop - используют
BDE. Все особенности,
имеющиеся в
Paradox или dBase, “наследуются”
BDE, и поэтому этими
же особенностями
обладает и
Delphi.

Алиасы

Таблицы сохраняются
в базе данных.
Некоторые СУБД
сохраняют базу
данных в виде
нескольких
отдельных
файлов, представляющих
собой таблицы
(в основном,
все локальные
СУБД), в то время
как другие
состоят из
одного файла,
который содержит
в себе все таблицы
и индексы
(InterBase). Например,
таблицы dBase и
Paradox всегда сохраняются
в отдельных
файлах на диске.
Каталог, содержащий
dBase .DBF файлы или
Paradox .DB файлы,
рассматривается
как база данных.
Другими словами,
любой каталог,
содержащий
файлы в формате
Paradox или dBase, рассматривается
Delphi как единая
база данных.
Для переключения
на другую базу
данных нужно
просто переключиться
на другой каталог.
Как уже было
указано выше,
InterBase сохраняет
все таблицы
в одном файле,
имеющем расширение
.GDB, поэтому этот
файл и есть
база данных
InterBase.

Удобно не просто
указывать путь
доступа к таблицам
базы данных,
а использовать
для этого некий
заменитель
- псевдоним,
называемый
алиасом. Он
сохраняется
в отдельном
конфигурационном
файле в произвольном
месте на диске
и позволяет
исключить из
программы
прямое указание
пути доступа
к базе данных.
Такой подход
дает возможность
располагать
данные в любом
месте, не перекомпилируя
при этом программу.
Кроме пути
доступа, в алиасе
указываются
тип базы данных,
языковый драйвер
и много другой
управляющей
информации.
Поэтому использование
алиасов позволяет
легко переходить
от локальных
баз данных к
SQL-серверным
базам (естественно,
при выполнении
требований
разделения
приложения
на клиентскую
и серверную
части).

Для создания
алиаса запустите
утилиту конфигурации
BDE (программу
bdeadmin.exe), находящуюся
в каталоге, в
котором располагаются
динамические
библиотеки
BDE.

Рис. 1: Главное
окно утилиты
конфигурации
BDE

Главное
окно утилиты
настройки BDE
имеет вид,
изображенный
на рис.1. Для
создания алиаса
выберите в меню
“Object” пункт
“New”. В появившемся
диалоговом
окне выберите
имя драйвера
базы данных.
Тип алиаса
может быть
стандартным
(STANDARD) для работы
с локальными
базами в формате
dBase или Paradox или
соответствовать
наименованию
SQL-сервера (InterBase,
Sybase, Informix, Oracle и т.д.).

Рис.
2: В диалоговом
окне добавления
нового алиаса
можно указать
тип базы данных

После создания
нового алиаса
следует дать
ему имя. Это
можно сделать
с помощью подпункта
“Rename” меню
“Object”. Однако
просто создать
алиас не достаточно.
Вам нужно указать
дополнительную
информацию,
содержание
которой зависит
от типа выбранной
базы данных.
Например, для
баз данных
Paradox и dBase (STANDARD) требуется
указать лишь
путь доступа
к данным, имя
драйвера и флаг
ENABLE BCD, который
определяет,
транслирует
ли BDE числа
в двоично-десятичном
формате (значения
двоично-десятичного
кода устраняют
ошибки округления):

TYPE	STANDARD
DEFAULT DRIVER	PARADOX
ENABLE BCD	FALSE
PATH	c:usersdata

SQL-сервер InterBase и
другие типы
баз данных
требуют задания
большого количества
параметров,
многие из которых
можно оставить
установленными
по умолчанию.

Системная
информация
утилиты настройки
BDE

Итак, мы познакомились
с наиболее
важной возможностью
утилиты настройки
BDE - созданием
и редактированием
алиасов, определяющих
параметры
доступа к базам
данных. Однако,
утилита настройки
BDE позволяет
специфицировать
не только алиасы,
но и драйверы
для доступа
к базам данных,
а также различную
системную
информацию,
составляющую
операционное
окружение этих
самых алиасов.

Рассмотрим,
например, системную
информацию
драйвера PARADOX:

NET DIR. Параметр
содержит
расположение
каталога сетевого
управляющего
файла. Он нужен
для того, чтобы
обратиться
к таблице PARADOX
на сетевом
диске.

VERSION. Номер
версии драйвера.

TYPE. Тип драйвера.

LANGDRIVER. Языковой
драйвер, определяющий
множество
допустимых
символов.

BLOCK SIZE. Размер
блока на диске,
используемого
для запоминания
одной записи.

FILL FACTOR. Содержит
процент от
блока на текущем
диске. Параметр
нужен для создания
индексных
файлов.

LEVEL. Параметр
определяет
тип формата
таблицы, используемой
для создания
временных
таблиц.

STRICTINTEGRTY. Параметр
использования
ссылочной
целостности.
Если он равен
TRUE, то вы не можете
изменить таблицу
с ссылочной
целостностью,
а если FALSE, то можете,
но рискуете
нарушить целостность
данных.

Как уже отмечалось
выше, утилита
настройки BDE
сохраняет всю
конфигурационную
информацию
в файле IDAPI.CFG. Этот
файл с предустановленными
ссылками на
драйверы и
некоторыми
стандартными
алиасами создается
при установке
Delphi. Кроме того,
он создается
при установке
файлов редистрибуции
BDE (т.е. когда Вы
переносите
BDE и SQL Links на другие
компьютеры).

Заключение

Итак, на данном
уроке мы постарались
понять для, что
такое BDE,
изучили очень
важное для
работы с базами
данных понятие
- алиас, а также
научились
настраивать
его параметры
для корректной
работы программы
на примере
драйвера PARADOX.

5

Урок 1:
Настройка
BDE

Создание баз
данных в Delphi

Урок 2:
Создание таблиц
с помощью Database
Desktop

Содержание
урока 2:

Обзор 2

Утилита
Database Desktop 2

Заключение 9

Обзор

На данном уроке
мы изучим, как
создавать
таблицы базы
данных с помощью
утилиты Database Desktop,
входящей в
поставку Delphi. Хотя
для создания
таблиц можно
использовать
различные
средства (SQL -
компонент
TQuery
и компонент
TTable),
применение
этой утилиты
позволяет
создавать
таблицы в
интерактивном
режиме и сразу
же просмотреть
их содержимое
- и все это для
большого числа
форматов. Это
особенно удобно
для локальных
баз данных, в
частности
Paradox и dBase.

Утилита
Database Desktop

Database Desktop - это утилита,
во многом похожая
на Paradox, которая
поставляется
вместе с Delphi для
интерактивной
работы с таблицами
различных
форматов локальных
баз данных -
Paradox и dBase, а также
SQL-серверных
баз данных
InterBase, Oracle, Informix, Sybase (с использованием
SQL Links). Исполняемый
файл утилиты
называется
DBD32.EXE. Для запуска
Database Desktop просто дважды
щелкните по
ее иконке.

Рис. 1: Выпадающий
список в диалоговом
окне Table Type позволяет
выбрать тип
создаваемой
таблицы

После старта
Database Desktop выберите
команду меню
File|New|Table для создания
новой таблицы.
Перед Вами
появится диалоговое
окно выбора
типа таблицы,
как показано
на рис.1. Вы можете
выбрать любой
формат из
предложенного,
включая различные
версии одного
и того же формата.

После выбора
типа таблицы
Database Desktop представит
Вам диалоговое
окно, специфичное
для каждого
формата, в котором
Вы сможете
определить
поля таблицы
и их тип, как
показано на
рис.2.

Рис. 2: Database Desktop позволяет
задать имена
и типы полей
в таблице

Имя поля в таблице
формата Paradox
представляет
собой строку,
написание
которой подчиняется
следующим
правилам:

Имя должно
быть не длиннее
25 символов.

Имя не должно
начинаться
с пробела, однако
может содержать
пробелы. Однако,
если Вы предполагаете
в будущем переносить
базу данных
в другие форматы,
разумнее будет
избегать включения
пробелов в
название поля.
Фактически,
в целях переносимости
лучше ограничиться
девятью символами
в названии
поля, не включая
в него пробелы.

Имя не должно
содержать
квадратные,
круглые или
фигурные скобки
[], ()
или {},
тире, а также
комбинацию
символов “тире”
и “больше”
(->).

Имя не должно
быть только
символом #,
хотя этот символ
может присутствовать
в имени среди
других символов.
Хотя Paradox поддерживает
точку (.)
в названии
поля, лучше ее
избегать, поскольку
точка зарезервирована
в Delphi для других
целей.

Имя поля в таблице
формата dBase
представляет
собой строку,
написание
которой подчиняется
правилам, отличным
от Paradox:

Имя должно
быть не длиннее
10 символов.

Пробелы в имени
недопустимы.

Таким образом,
Вы видите, что
имена полей
в формате dBase
подчиняются
гораздо более
строгим правилам,
нежели таковые
в формате Paradox.
Однако, мы еще
раз хотим
подчеркнуть,
что если перед
Вами когда-либо
встанут вопросы
совместимости,
то лучше сразу
закладывать
эту совместимость
- давать полям
имена, подчиняющиеся
более строгим
правилам.

Укажем еще
правила, которым
подчиняется
написание имен
полей в формате
InterBase.

Имя должно
быть не длиннее
31 символа.

Имя должно
начинаться
с букв A-Z,
a-z.

Имя поля может
содержать
буквы (A-Z,
a-z),
цифры, знак $
и символ подчеркивания
(_).

Пробелы в имени
недопустимы.

Для имен таблиц
запрещается
использовать
зарезервированные
слова InterBase.

Следующий
(после выбора
имени поля) шаг
состоит в задании
типа поля. Типы
полей очень
сильно различаются
друг от друга,
в зависимости
от формата
таблицы. Для
получения
списка типов
полей перейдите
к столбцу “Type”,
а затем нажмите
пробел или
щелкните правой
кнопкой мышки.
Приведем списки
типов полей,
характерные
для форматов
Paradox, dBase и InterBase.

Итак, поля таблиц
формата Paradox могут
иметь следующий
тип (для ввода
типа поля можно
набрать только
подчеркнутые
буквы или цифры):

Табл.
A: Типы полей
формата Paradox

Alpha	строка длиной 1-255 байт, содержащая любые печатаемые символы
Number	числовое поле длиной 8 байт, значение которого может быть положительным и отрицательным. Диапазон чисел - от 10-308 до 10308 с 15 значащими цифрами
$ (Money)	числовое поле, значение которого может быть положительным и отрицательным. По умолчанию, является форматированным для отображения десятичной точки и денежного знака
Short	числовое поле длиной 2 байта, которое может содержать только целые числа в диапазоне от -32768 до 32767
Long Integer	числовое поле длиной 4 байта, которое может содержать целые числа в диапазоне от -2147483648 до 2147483648
# (BCD)	числовое поле, содержащее данные в формате BCD (Binary Coded Decimal). Скорость вычислений немного меньше, чем в других числовых форматах, однако точность - гораздо выше. Может иметь 0-32 цифр после десятичной точки
Date	поле даты длиной 4 байта, которое может содержать дату от 1 января 9999 г. до нашей эры - до 31 декабря 9999 г. нашей эры. Корректно обрабатывает високосные года и имеет встроенный механизм проверки правильности даты
Time	поле времени длиной 4 байта, содержит время в миллисекундах от полуночи и ограничено 24 часами
@ (Timestamp)	обобщенное поле даты длиной 8 байт - содержит и дату и время
Memo	поле для хранения символов, суммарная длина которых более 255 байт. Может иметь любую длину. При этом размер, указываемый при создании таблицы, означает количество символов, сохраняемых в таблице (1-240) - остальные символы сохраняются в отдельном файле с расширением .MB
Formatted Memo	поле, аналогичное Memo, с добавлением возможности задавать шрифт текста. Также может иметь любую длину. При этом размер, указываемый при создании таблицы, означает количество символов, сохраняемых в таблице (0-240) - остальные символы сохраняются в отдельном файле с расширением .MB. Однако, Delphi в стандартной поставке не обладает возможностью работать с полями типа Formatted Memo
Graphic	поле, содержащее графическую информацию. Может иметь любую длину. Смысл размера - такой же, как и в Formatted Memo. Database Desktop “умеет” создавать поля типа Graphic, однако наполнять их можно только в приложении
OLE	поле, содержащее OLE-данные (Object Linking and Embedding) - образы, звук, видео, документы - которые для своей обработки вызывают создавшее их приложение. Может иметь любую длину. Смысл размера - такой же, как и в Formatted Memo. Database Desktop “умеет” создавать поля типа OLE, однако наполнять их можно только в приложении. Delphi “напрямую” не умеет работать с OLE-полями, но это легко обходится путем использования потоков
Logical	поле длиной 1 байт, которое может содержать только два значения - T (true, истина) или F (false, ложь). Допускаются строчные и прописные буквы
+ (Autoincrement)	поле длиной 4 байта, содержащее нередактируемое (read-only) значение типа long integer. Значение этого поля автоматически увеличивается (начиная с 1) с шагом 1 - это очень удобно для создания уникального идентификатора записи (физический номер записи не может служить ее идентификатором, поскольку в Парадоксе таковой отсутствует. В InterBase также отсутствуют физические номера записей, но отсутствует и поле Autoincrement. Его с успехом заменяет встроенная функция Gen_id, которую удобней всего применять в триггерах)
Binary	поле, содержащее любую двоичную информацию. Может иметь любую длину. При этом размер, указываемый при создании таблицы, означает количество символов, сохраняемых в таблице (0-240) - остальные символы сохраняются в отдельном файле с расширением .MB. Это полнейший аналог поля BLOb в InterBase
Bytes	строка цифр длиной 1-255 байт, содержащая любые данные

Поля таблиц
формата dBase могут
иметь следующий
тип (для ввода
типа поля можно
набрать только
подчеркнутые
буквы или цифры):

Табл.
B: Типы полей
формата dBase

Character (alpha)	строка длиной 1-254 байт, содержащая любые печатаемые символы
Float (numeric)	числовое поле размером 1-20 байт в формате с плавающей точкой, значение которого может быть положительным и отрицательным. Может содержать очень большие величины, однако следует иметь в виду постоянные ошибки округления при работе с полем такого типа. Число цифр после десятичной точки (параметр Dec в DBD) должно быть по крайней мере на 2 меньше, чем размер всего поля, поскольку в общий размер включаются сама десятичная точка и знак
Number (BCD)	числовое поле размером 1-20 байт, содержащее данные в формате BCD (Binary Coded Decimal). Скорость вычислений немного меньше, чем в других числовых форматах, однако точность - гораздо выше. Число цифр после десятичной точки (параметр Dec в DBD) также должно быть по крайней мере на 2 меньше, чем размер всего поля, поскольку в общий размер включаются сама десятичная точка и знак
Date	поле даты длиной 8 байт. По умолчанию, используется формат короткой даты (ShortDateFormat)
Logical	поле длиной 1 байт, которое может содержать только значения “истина” или “ложь” - T,t,Y,y (true, истина) или F,f,N,n (false, ложь). Допускаются строчные и прописные буквы. Таким образом, в отличие от Парадокса, допускаются буквы “Y” и “N” (сокращение от Yes и No)
Memo	поле для хранения символов, суммарная длина которых более 255 байт. Может иметь любую длину. Это поле хранится в отдельном файле. Database Desktop не имеет возможности вставлять данные в поле типа Memo
OLE	поле, содержащее OLE-данные (Object Linking and Embedding) - образы, звук, видео, документы - которые для своей обработки вызывают создавшее их приложение. Может иметь любую длину. Это поле также сохраняется в отдельном файле. Database Desktop “умеет” создавать поля типа OLE, однако наполнять их можно только в приложении. Delphi “напрямую” не умеет работать с OLE-полями, но это легко обходится путем использования потоков
Binary	поле, содержащее любую двоичную информацию. Может иметь любую длину. Данное поле сохраняется в отдельном файле с расширением .DBT. Это полнейший аналог поля BLOb в InterBase

Поля таблиц
формата InterBase могут
иметь следующий
тип:

Табл.
C: Типы полей
формата InterBase

SHORT	числовое поле длиной 2 байта, которое может содержать только целые числа в диапазоне от -32768 до 32767
LONG	числовое поле длиной 4 байта, которое может содержать целые числа в диапазоне от -2147483648 до 2147483648
FLOAT	числовое поле длиной 4 байта, значение которого может быть положительным и отрицательным. Диапазон чисел - от 3.4*10-38 до 3.4*1038 с 7 значащими цифрами
DOUBLE	числовое поле длиной 8 байт (длина зависит от платформы), значение которого может быть положительным и отрицательным. Диапазон чисел - от 1.7*10-308 до 1.7*10308 с 15 значащими цифрами
CHAR	строка символов фиксированной длины (0-32767 байт), содержащая любые печатаемые символы. Число символов зависит от Character Set, установленного в InterBase для данного поля или для всей базы данных (например, для символов в кодировке Unicode число символов будет в два раза меньше длины строки)
VARCHAR	строка символов переменной длины (0-32767 байт), содержащая любые печатаемые символы. Число символов также зависит от Character Set, установленного в InterBase для данного поля или для всей базы данных
DATE	поле даты длиной 8 байт, значение которого может быть от 1 января 100 года до 11 декабря 5941 года (время также содержится)
BLOB	поле, содержащее любую двоичную информацию. Может иметь любую длину. Database Desktop не имеет возможности редактировать поля типа BLOB
ARRAY	поле, содержащее массивы данных. InterBase позволяет определять массивы, имеющие размерность 16. Поле может иметь любую длину. Однако, Database Desktop не имеет возможности не только редактировать поля типа ARRAY, но и создавать их
TEXT BLOB	подтип BLOB-поля, содержащее только текстовую информацию. Может иметь любую длину. Database Desktop не имеет возможности редактировать поля типа TEXT BLOB

Типы полей
могут отличаться
от приведенных
выше. Это зависит
от версии драйвера
базы данных.

Итак, мы изучили
все типы полей,
являющиеся
“родными” для
Delphi.

После этого
для таблиц
Paradox мы можем
определить
поля, составляющие
первичный ключ,
причем все они
должны быть
в начале записи,
а первое поле,
входящее в
ключ, должно
быть первым
полем в записи.
Для этого достаточно
по ней дважды
щелкнуть мышкой
или нажать
любую клавишу.

После создания
таблицы, с ней
можно связать
некоторые
свойства, перечень
которых зависит
от формата
таблицы. Так,
для таблиц
формата Paradox можно
задать:

Validity Checks (проверка
правильности)
- относится к
полю записи
и определяет
минимальное
и максимальное
значение, а
также значение
по умолчанию.
Кроме того,
позволяет
задать маску
ввода

Table Lookup (таблица
для “подсматривания”)
- позволяет
вводить значение
в таблицу, используя
уже существующее
значение в
другой таблице

Secondary Indexes (вторичные
индексы) - позволяют
доступаться
к данным в порядке,
отличном от
порядка, задаваемого
первичным
ключом

Referential Integrity (ссылочная
целостность)
- позволяет
задать связи
между таблицами
и поддерживать
эти связи на
уровне ядра.
Обычно задается
после создания
всех таблиц
в базе данных

Password Security (парольная
защита) - позволяет
закрыть таблицу
паролем

Table Language (язык таблицы)
- позволяет
задать для
таблицы языковый
драйвер.

В таблицах
dBase не существует
первичных
ключей. Однако,
это обстоятельство
можно преодолеть
путем определения
уникальных
(Unique) и поддерживаемых
(Maintained) индексов
(Indexes). Кроме того,
для таблиц
dBase можно определить
и язык таблицы
(Table Language) - языковый
драйвер, управляющий
сортировкой
и отображением
символьных
данных.

Определения
дополнительных
свойств таблиц
всех форматов
доступны через
кнопку “Define” (для
таблиц InterBase данная
кнопка называется
“Define Index...” и позволяет
определять
лишь только
индекс, но не
первичный ключ)
в правой верхней
части окна
(группа Table Properties).
Причем, все эти
действия можно
проделывать
не только при
создании таблицы,
но и тогда, когда
она уже существует.
Для этого
используется
команда Table|Restructure
Table (для открытой
в данный момент
таблицы) или
Utilities|Restructure (с возможностью
выбора таблицы).
Однако, если
Вы желаете
изменить структуру
или добавить
новые свойства
для таблицы,
которая в данный
момент уже
используется
другим приложением,
Database Desktop откажет
Вам в этом, поскольку
данная операция
требует монопольного
доступа к таблице.
Но зато все
произведенные
в структуре
изменения сразу
же начинают
“работать”
- например, если
Вы определите
ссылочную
целостность
для пары таблиц,
то при попытке
вставить в
дочернюю таблицу
данные, отсутствующие
в родительской
таблице, в Delphi
возникнет
исключительное
состояние.

В заключение
отметим еще
часто используемую
очень полезную
возможность
Database Desktop. Создавать
таблицу любого
формата можно
не только “с
чистого листа”,
но и путем
копирования
структуры уже
существующей
таблицы. Для
этого достаточно
воспользоваться
кнопкой “Borrow”,
имеющейся в
левом нижнем
углу окна.
Появляющееся
диалоговое
окно позволит
Вам выбрать
существующую
таблицу и
включить/выключить
дополнительные
опции, совпадающие
с уже перечисленными
свойствами
таблиц. Это
наиболее легкий
способ создания
таблиц.

Заключение

Итак, на данном
уроке мы познакомились
со штатной
утилитой,
используемой
для интерактивного
создания и
модификации
таблиц различной
структуры. И
хотя управление
таблицами можно
осуществлять
с помощью различных
средств (компонент
TTable,
компонент
TQuery),
данная утилита
позволяет
делать это в
интерактивном
режиме наиболее
простым способом.

9

Урок 2:
Создание таблиц
с помощью Database
Desktop

Создание
баз данных в
Delphi

Урок 3:
Создание таблиц
с помощью
SQL-запросов

Содержание
урока 3:

Обзор 2

Создание
таблиц с помощью
SQL 2

Заключение 6

Обзор

На данном
уроке мы познакомимся
еще с одной
возможностью
создания таблиц
- через посылку
SQL-запросов. Как
Вы, наверное,
могли заметить
на предыдущем
уроке, Database Desktop не
обладает всеми
возможностями
по управлению
SQL-серверными
базами данных.
Поэтому с помощью
Database Desktop удобно создавать
или локальные
базы данных
или только
простейшие
SQL-серверные
базы данных,
состоящие из
небольшого
числа таблиц,
не очень сильно
связанных друг
с другом. Если
же Вам необходимо
создать базу
данных, состоящую
из большого
числа таблиц,
имеющих сложные
взаимосвязи,
можно воспользоваться
языком SQL. При
этом можно
воспользоваться
компонентом
Query
в Delphi, каждый раз
посылая по
одному SQL-запросу,
а можно записать
всю последовательность
SQL-предложений
в один так называемый
скрипт
и послать его
на выполнение.
Конечно, для
этого нужно
хорошо знать
язык SQL, но, уверяю
Вас, сложного
в этом ничего
нет! Конкретные
реализации
языка SQL незначительно
отличаются
в различных
SQL-серверах, однако
базовые предложения
остаются одинаковыми
для всех реализаций.

Создание
таблиц с помощью
SQL

Если Вы хотите
воспользоваться
компонентом
TQuery,
сначала поместите
его на форму.
После этого
настройте
свойство DatabaseName
на нужный Вам
алиас. После
этого можно
ввести SQL-предложение
в свойство SQL.
Для выполнения
запроса, изменяющего
структуру,
вставляющего
или обновляющего
данные на сервере,
нужно вызвать
метод ExecSQL
компонента
TQuery.
Для выполнения
запроса, получающего
данные с сервера
(т.е. запроса,
в котором основным
является оператор
SELECT), нужно вызвать
метод Open
компонента
TQuery.
Это связано
с тем, что BDE при
посылке запроса
типа SELECT открывает
так называемый
курсор,
с помощью которого
осуществляется
навигация по
выборке данных
(подробней об
этом см. в уроке,
посвященном
TQuery).

Приведем
упрощенный
синтаксис
SQL-предложения
для создания
таблицы на
SQL-сервере InterBase
(более полный
синтаксис можно
посмотреть
в online-справочнике
по SQL, поставляемом
с локальным
InterBase):

CREATE TABLE table

( [,
| ...]);

где

table
- имя создаваемой
таблицы,

- описание поля,

- описание
ограничений
и/или ключей
(квадратные
скобки []
означают
необязательность,
вертикальная
черта |
означает “или”).

Описание
поля состоит
из наименования
поля и типа
поля (или домена
- см. урок 9), а также
дополнительных
ограничений,
накладываемых
на поле:

=
col {datatype | COMPUTED BY () | domain}

[DEFAULT
{literal | NULL | USER}]

[NOT NULL]
[]

[COLLATE
collation]

Здесь

col
- имя поля;

datatype
- любой правильный
тип SQL-сервера
(для InterBase такими
типами являются
SMALLINT,
INTEGER,
FLOAT,
DOUBLE
PRECISION, DECIMAL,
NUMERIC,
DATE,
CHAR,
VARCHAR,
NCHAR,
BLOB),
символьные
типы могут
иметь CHARACTER SET - набор
символов,
определяющий
язык страны.
Для русского
языка следует
задать набор
символов WIN1251;

COMPUTED
BY () - определение
вычисляемого
на уровне сервера
поля, где
- правильное
SQL-выражение,
возвращающее
единственное
значение;

domain
- имя домена
(обобщенного
типа), определенного
в базе данных;

DEFAULT
- конструкция,
определяющая
значение поля
по умолчанию;

NOT
NULL - конструкция,
указывающая
на то, что поле
не может быть
пустым;

COLLATE
- предложение,
определяющее
порядок сортировки
для выбранного
набора символов
(для поля типа
BLOB не применяется).
Русский набор
символов WIN1251
имеет 2 порядка
сортировки
- WIN1251 и PXW_CYRL. Для правильной
сортировки,
включающей
большие буквы,
следует выбрать
порядок PXW_CYRL.

Описание
ограничений
и/или ключей
включает в себя
предложения
CONSTRAINT
или предложения,
описывающие
уникальные
поля, первичные,
внешние ключи,
а также ограничения
CHECK
(такие конструкции
могут определяться
как на уровне
поля, так и на
уровне таблицы
в целом, если
они затрагивают
несколько
полей):

= [CONSTRAINT constraint ]

Здесь

= {{PRIMARY KEY | UNIQUE} (col[,col...]) | FOREIGN KEY (col [, col
...]) REFERENCES other_table

| CHECK
()}

=

{
{ | ()}

| [NOT]
BETWEEN AND

| [NOT]
LIKE [ESCAPE ]

| [NOT]
IN ( [, ...] |

= {

col []
| | |

| NULL | USER |
RDB$DB_KEY } [COLLATE collation]

=
num | "string" | charsetname "string"

= {

COUNT (* | [ALL]
| DISTINCT )

| SUM ([ALL]
| DISTINCT )

|
AVG ([ALL] | DISTINCT )

| MAX ([ALL]
| DISTINCT )

| MIN ([ALL]
| DISTINCT )

| CAST (
AS )

| UPPER ()

| GEN_ID
(generator, )

}

=
{= | < | > | = | !< | !> | | !=}

=
выражение
SELECT по одному
полю, которое
возвращает
в точности одно
значение.

Приведенного
неполного
синтаксиса
достаточно
для большинства
задач, решаемых
в различных
предметных
областях. Проще
всего синтаксис
SQL можно понять
из примеров.
Поэтому мы
приведем несколько
примеров создания
таблиц с помощью
SQL.

Пример
A: Простая таблица
с конструкцией
PRIMARY KEY
на уровне поля

CREATE TABLE REGION
(

REGION
REGION_NAME NOT NULL PRIMARY KEY,

POPULATION INTEGER
NOT NULL);

Предполагается,
что в базе данных
определен домен
REGION_NAME,
например, следующим
образом:

CREATE DOMAIN
REGION_NAME

AS VARCHAR(40)
CHARACTER SET WIN1251 COLLATE PXW_CYRL;

Пример
B: Таблица с
предложением
UNIQUE
как на уровне
поля, так и на
уровне таблицы

CREATE TABLE GOODS (

MODEL SMALLINT NOT
NULL UNIQUE,

NAME CHAR(10) NOT
NULL,

ITEMID INTEGER NOT
NULL, CONSTRAINT MOD_UNIQUE

UNIQUE (NAME,
ITEMID));

Пример
C: Таблица с
определением
первичного
ключа, внешнего
ключа и конструкции
CHECK,
а также символьных
массивов

CREATE TABLE JOB (

JOB_CODE JOBCODE
NOT NULL,

JOB_GRADE JOBGRADE
NOT NULL,

JOB_REGION
REGION_NAME NOT NULL,

JOB_TITLE
VARCHAR(25) CHARACTER SET WIN1251 COLLATE PXW_CYRL NOT NULL,

MIN_SALARY SALARY
NOT NULL,

MAX_SALARY SALARY
NOT NULL,

JOB_REQ BLOB(400,1)
CHARACTER SET WIN1251,

LANGUAGE_REQ
VARCHAR(15) [5],

PRIMARY KEY
(JOB_CODE, JOB_GRADE, JOB_REGION),

FOREIGN KEY
(JOB_REGION) REFERENCES REGION (REGION),

CHECK (MIN_SALARY <
MAX_SALARY));

Данный пример
создает таблицу,
содержащую
информацию
о работах
(профессиях).
Типы полей
основаны на
доменах JOBCODE,
JOBGRADE,
REGION_NAME
и SALARY.
Определен
массив LANGUAGE_REQ,
состоящий из
5 элементов
типа VARCHAR(15).
Кроме того,
введено поле
JOB_REQ,
имеющее тип
BLOB
с подтипом 1
(текстовый
блоб) и размером
сегмента 400.
Для таблицы
определен
первичный ключ,
состоящий из
трех полей
JOB_CODE,
JOB_GRADE
и JOB_REGION.
Далее, определен
внешний ключ
(JOB_REGION),
ссылающийся
на поле REGION
таблицы REGION.
И, наконец, включено
предложение
CHECK,
позволяющее
производить
проверку соотношения
для двух полей
и вызывать
исключительное
состояние при
нарушении
такого соотношения.

Пример
D: Таблица с
вычисляемым
полем

CREATE
TABLE SALARY_HISTORY (

EMP_NO EMPNO NOT
NULL,

CHANGE_DATE DATE
DEFAULT "NOW" NOT NULL,

UPDATER_ID
VARCHAR(20) NOT NULL,

OLD_SALARY SALARY
NOT NULL,

PERC_CHANGE DOUBLE
PRECISION DEFAULT 0 NOT NULL

CHECK (PERC_CHANGE
BETWEEN -50 AND 50),

NEW_SALARY COMPUTED
BY

(OLD_SALARY +
OLD_SALARY * PERC_CHANGE / 100),

PRIMARY KEY (EMP_NO,
CHANGE_DATE, UPDATER_ID),

FOREIGN KEY (EMP_NO)
REFERENCES EMPLOYEE (EMP_NO));

Данный пример
создает таблицу,
где среди других
полей имеется
вычисляемое
(физически не
существующее)
поле NEW_SALARY,
значение которого
вычисляется
по значениям
двух других
полей (OLD_SALARY
и PERC_CHANGE).

Заключение

Итак, мы
рассмотрели,
как создавать
таблицы с помощью
SQL-выражений.
Этот процесс,
хотя и не столь
удобен, как
интерактивное
средство Database
Desktop, однако обладает
наиболее гибкими
возможностями
по настройке
Вашей системы
и управления
ее связями.

6

Урок 3: Создание
таблиц с помощью
SQL запросов

Создание баз
данных в Delphi

Урок
4: ОбъектTTable

Содержание
урока 4:

Содержание
урока 4: 1

Класс
TDataSet 2

Открытие
и закрытие
DataSet 4

Поля 10

Работа
с Данными 14

Использование
SetKey для поиска
в таблице 17

Использование
фильтров для
ограничения
числа записей
в DataSet 20

Обновление
(Refresh) 22

Закладки
(Bookmarks) 23

Создание
Связанных
Курсоров (Linked
cursors) 23

Основные
понятия о
TDataSource 26

Использование
TDataSource для проверки
состояния
БД: 27

Отслеживание
состояния
DataSet 31

Обзор

Статья содержит
всесторонний
обзор основных
фактов которые
Вы должны знать,
прежде чем
начать писать
программы,
работающие
с Базами Данных
(БД). Прочитав
эту статью, Вы
должны понять
большинство
механизмов
доступа к данным,
которые есть
в Delphi.

Более
подробно здесь
рассказывается
о TTable и TDataSource.

Имеются несколько
основных
компонент(объектов),
которые Вы
будете использовать
постоянно для
доступа к БД.
Эти объекты
могут быть
разделены на
три группы:

невизуальные:
TTable, TQuery, TDataSet, TField

визуальные:
TDBGrid, TDBEdit

связующие:
TDataSource

Первая группа
включает невизуальные
классы, которые
используются
для управления
таблицами и
запросами. Эта
группа сосредотачивается
вокруг компонент
типа TTable, TQuery, TDataSet и TField.
В Палитре Компонент
эти объекты
расположены
на странице
Data Access.

Вторая важная
группа классов
- визуальные,
которые показывают
данные пользователю,
и позволяют
ему просматривать
и модифицировать
их. Эта группа
классов включает
компоненты
типа TDBGrid, TDBEdit, TDBImage и
TDBComboBox. В Палитре
Компонент эти
объекты расположены
на странице
Data Controls.

Имеется и третий
тип, который
используется
для того, чтобы
связать предыдущие
два типа объектов.
К третьему типу
относится
только невизуальный
компонент
TDataSource.

Класс
TDataSet

TDataSet класс - один
из наиболее
важных объектов
БД. Чтобы начать
работать с ним,
Вы должны взглянуть
на следующую
иерархию:

TDataSet

|

TDBDataSet

|

|-- TTable

|-- TQuery

|-- TStoredProc

TDataSet содержит
абстрактные
методы там, где
должно быть
непосредственное
управление
данными. TDBDataSet знает,
как обращаться
с паролями и
то, что нужно
сделать, чтобы
присоединить
Вас к определенной
таблице. TTable знает
(т.е. уже все
абстрактные
методы переписаны),
как обращаться
с таблицей, ее
индексами и
т.д.

Как
Вы увидите в
далее, TQuery имеет
определенные
методы для
обработки SQL
запросов.

TDataSet - инструмент,
который Вы
будете использовать
чтобы открыть
таблицу, и
перемещаться
по ней. Конечно,
Вы никогда не
будете непосредственно
создавать
объект типа
TDataSet. Вместо этого,
Вы будете
использовать
TTable, TQuery или других
потомков TDataSet
(например, TQBE).
Полное понимание
работы системы,
и точное значение
TDataSet, будут становиться
все более ясными
по мере прочтения
этой главы.

На
наиболее
фундаментальном
уровне, Dataset это
просто набор
записей, как
изображено
на рис.1

Рис.1: Любой
dataset состоит из
ряда записей
(каждая содержит
N полей) и указатель
на текущую
запись.

В большинстве
случаев dataset будет
иметь a прямое,
один к одному,
соответствие
с физической
таблицей, которая
существует
на диске. Однако,
в других случаях
Вы можете исполнять
запрос или
другое действие,
возвращающие
dataset, который содержит
либо любое
подмножество
записей одной
таблицы, либо
объединение
(join) между несколькими
таблицами. В
тексте будут
иногда использоваться
термины DataSet и
TTable как синонимы.

Обычно в программе
используются
объекты типа
TTable или TQuery, поэтому
в следующих
нескольких
главах будет
предполагаться
существование
объекта типа
TTable называемого
Table1.

Итак, самое
время начать
исследование
TDataSet. Как только
Вы познакомитесь
с его возможностями,
Вы начнете
понимать, какие
методы использует
Delphi для доступа
к данным, хранящимся
на диске в виде
БД. Ключевой
момент здесь
- не забывать,
что почти всякий
раз, когда
программист
на Delphi открывает
таблицу, он
будет использовать
TTable или TQuery, которые
являются просто
некоторой
надстройкой
над TDataSet.

Открытие
и закрытие
DataSet

В этой главе
Вы узнаете
некоторые факты
об открытии
и закрытии
DataSet.

Если Вы используете
TTable для доступа
к таблице, то
при открытии
данной таблицы
заполняются
некоторые
свойства TTable
(количество
записей RecordCount,
описание структуры
таблицы и т.д.).

Прежде всего,
Вы должны поместить
во время дизайна
на форму объект
TTable и указать, с
какой таблицей
хотите работать.
Для этого нужно
заполнить в
Инспекторе
объектов свойства
DatabaseName и TableName. В DatabaseName можно
либо указать
директорию,
в которой лежат
таблицы в формате
dBase или Paradox (например,
C:DELPHIDEMOSDATA), либо выбрать
из списка псевдоним
базы данных
(DBDEMOS). Теперь, если
свойство Active
установить
в True, то при запуске
приложения
таблица будет
открываться
автоматически.

Имеются два
различных
способа открыть
таблицу во
время выполнения
программы. Вы
можете написать
следующую
строку кода:

Table1.Open;

Или, если Вы
предпочитаете,
то можете установить
свойство Active
равное True:

Table1.Active
:= True;

Нет никакого
различия между
результатом
производимым
этими двумя
операциями.
Метод Open, однако,
сам заканчивается
установкой
свойства Active в
True, так что может
быть даже чуть
более эффективно
использовать
свойство Active
напрямую.

Также, как
имеются два
способа открыть
a таблицу, так
и есть два способа
закрыть ее.
Самый простой
способ просто
вызывать Close:

Table1.Close;

Или,
если Вы желаете,
Вы можете написать:

Table1.Active
:= False;

Еще раз повторим,
что нет никакой
существенной
разницы между
двумя этими
способами. Вы
должны только
помнить, что
Open и Close это методы
(процедуры), а
Active - свойство.

Навигация
(Перемещение
по записям)

После открытия
таблицы, следующим
шагом Вы должны
узнать как
перемещаться
по записям
внутри него.

Следующий
обширный набор
методов и свойства
TDataSet обеспечивает
все , что Вам
нужно для доступа
к любой конкретной
записи внутри
таблицы:

procedure
First;

procedure
Last;

procedure
Next;

procedure
Prior;

property
BOF: Boolean read FBOF;

property
EOF: Boolean read FEOF;

procedure
MoveBy(Distance: Integer);

Дадим
краткий обзор
их функциональных
возможностей:

Вызов
Table1.First перемещает
Вас к первой
записи в таблице.

Table1.Last
перемещает
Вас к последней
записи.

Table1.Next
перемещает
Вас на одну
запись вперед.

Table1.Prior
перемещает
Вас на одну
запись Назад.

Вы
можете проверять
свойства BOF или
EOF, чтобы понять,
находитесь
ли Вы в начале
или в конце
таблицы.

Процедура
MoveBy перемещает
Вас на N записей
вперед или
назад в таблице.
Нет никакого
функционального
различия между
запросом Table1.Next
и вызовом
Table1.MoveBy(1). Аналогично,
вызов Table1.Prior имеет
тот же самый
результат, что
и вызов Table1.MoveBy(-1).

Чтобы начать
использовать
эти навигационные
методы, Вы должны
поместить
TTable, TDataSource и TDBGrid на форму,
также, как Вы
делали это в
предыдущем
уроке. Присоедините
DBGrid1 к DataSource1, и DataSource1 к Table1.
Затем установите
свойства таблицы:

в
DatabaseName имя подкаталога,
где находятся
демонстрационные
таблицы (или
псевдоним
DBDEMOS);

в
TableName установите
имя таблицы
CUSTOMER.

Если Вы запустили
программу,
которая содержит
видимый элемент
TDBGrid, то увидите,
что можно
перемещаться
по записям
таблицы с помощью
полос прокрутки
(scrollbar) на нижней
и правой сторонах
DBGrid.

Однако, иногда
нужно перемещаться
по таблице
“программным
путем”, без
использования
возможностей,
встроенных
в визуальные
компоненты.
В следующих
нескольких
абзацах объясняется
как можно это
сделать.

Поместите две
кнопки на форму
и назовите их
Next и Prior, как показано
на рис.2.

Рис.2 : Next и Prior кнопки
позволяют Вам
перемещаться
по БД.

Дважды
щелкните на
кнопке Next - появится
заготовка
обработчика
события:

procedure
TForm1.NextClick(Sender: TObject);

begin

end;

Теперь
добавьте одну
строчку кода
так, чтобы процедура
выглядела так:

procedure
TForm1.NextClick(Sender: TObject);

begin

Table1.Next;

end;

Повторите
те же самые
действия с
кнопкой Prior, так,
чтобы функция
связанная с
ней выглядела
так:

procedure
TForm1.PriorClick(Sender: TObject);

begin

Table1.Prior;

end;

Теперь запустите
программу, и
нажмите на
кнопки. Вы увидите,
что они легко
позволяют Вам
перемещаться
по записям в
таблице.

Теперь
добавьте еще
две кнопки и
назовите их
First и Last, как показано
на рис.3

Рис.3: Программа
со всеми четырьмя
кнопками.

Сделайте
то же самое для
новых кнопок.

procedure
TForm1.FirstClick(Sender: TObject);

begin

Table1.First;

end;

procedure
TForm1.LastClick(Sender: TObject);

begin

Table1.Last;

end;

Нет ничего
более простого
чем эти навигационные
функции. First перемещает
Вас в начало
таблицы, Last перемещает
Вас в конец
таблицы, а Next и
Prior перемещают
Вас на одну
запись вперед
или назад.

TDataSet.BOF - read-only Boolean свойство,
используется
для проверки,
находитесь
ли Вы в начале
таблицы. Свойства
BOF возвращает
true в трех случаях:

После
того, как Вы
открыли файл;

После
того, как Вы
вызывали
TDataSet.First;

После
того, как вызов
TDataSet.Prior не выполняется.

Первые два
пункта - очевидны.
Когда Вы открываете
таблицу, Delphi помещает
Вас на первую
запись; когда
Вы вызываете
метод First, Delphi также
перемещает
Вас в начало
таблицы. Третий
пункт, однако,
требует небольшого
пояснения:
после того, как
Вы вызывали
метод Prior много
раз, Вы могли
добраться до
начала таблицы,
и следующий
вызов Prior будет
неудачным -
после этого
BOF и будет возвращать
True.

Следующий код
показывает
самый общий
пример использования
Prior, когда Вы попадаете
к началу a файла:

while
not Table.Bof do begin

DoSomething;

Table1.Prior;

end;

В коде, показанном
здесь, гипотетическая
функция DoSomething будет
вызвана сперва
на текущей
записи и затем
на каждой следующей
записи (от текущей
и до начала
таблицы). Цикл
будет продолжаться
до тех пор, пока
вызов Table1.Prior не
сможет больше
переместить
Вас на предыдущую
запись в таблице.
В этот момент
BOF вернет True и программа
выйдет из цикла.
(Чтобы оптимизировать
вышеприведенный
код, установите
DataSource1.Enabled в False перед
началом цикла,
и верните его
в True после окончания
цикла.)

Все
сказанное
относительно
BOF также применимо
и к EOF. Другими
словами, код,
приведенный
ниже показывает
простой способ
пробежать по
всем записям
в a dataset:

Table1.First;

while
not Table1.EOF do begin

DoSomething;

Table1.Next;

end;

Классическая
ошибка в случаях,
подобных этому:
Вы входите в
цикл while или repeat, но
забываете
вызывать Table1.Next:

Table1.First;

repeat

DoSomething;

until
Table1.EOF;

Если
Вы случайно
написали такой
код, то ваша
машина зависнет.
Также, этот код
мог бы вызвать
проблемы, если
Вы открыли
пустую таблицу.
Так как здесь
используется
цикл repeat,
DoSomething был бы вызван
один раз, даже
если бы нечего
было обрабатывать.
Поэтому, лучше
использовать
цикл while
вместо repeat
в ситуациях
подобных этой.

EOF
возвращает
True в следующих
трех случаях:

После
того, как Вы
открыли пустой
файл;

После
того, как Вы
вызывали
TDataSet.Last;

После
того, как вызов
TDataSet.Next не выполняется.

Единственная
навигационная
процедура,
которая еще
не упоминалась
- MoveBy, которая позволяет
Вам переместиться
на N записей
вперед или
назад в таблице.
Если Вы хотите
переместиться
на две записи
вперед, то напишите:

MoveBy(2);

И
если Вы хотите
переместиться
на две записи
назад, то:

MoveBy(-2);

При использовании
этой функции
Вы должны всегда
помнить, что
DataSet - это изменяющиеся
объекты, и запись,
которая была
пятой по счету
в предыдущий
момент, теперь
может быть
четвертой или
шестой или
вообще может
быть удалена...

Prior и Next - это простые
функции, которые
вызывают MoveBy.

Поля

В большинстве
случаев, когда
Вы хотите получить
доступ из программы
к индивидуальные
полям записи,
Вы можете
использовать
одно из следующих
свойств или
методов, каждый
из которых
принадлежат
TDataSet:

property
Fields[Index: Integer];

function
FieldByName(const FieldName: string): TField;

property
FieldCount;

Свойство
FieldCount возвращает
число полей
в текущей структуре
записи. Если
Вы хотите программным
путем прочитать
имена полей,
то используйте
свойство Fields
для доступа
к ним:

var

S:
String;

begin

S
:= Fields[0].FieldName;

end;

Если Вы работали
с записью в
которой первое
поле называется
CustNo, тогда код
показанный
выше поместит
строку “CustNo” в
переменную
S. Если Вы хотите
получить доступ
к имени второго
поля в вышеупомянутом
примере, тогда
Вы могли бы
написать:

S
:= Fields[1].FieldName;

Короче
говоря, индекс
передаваемый
в Fields
(начинающийся
с нуля), и определяет
номер поля к
которому Вы
получите доступ,
т.е. первое поле
- ноль, второе
один, и так далее.

Если
Вы хотите прочитать
текущее содержание
конкретного
поля конкретной
записи, то Вы
можете использовать
свойство Fields
или метод
FieldsByName.
Для того, чтобы
найти значение
первого поля
записи, прочитайте
первый элемент
массива Fields:

S
:= Fields[0].AsString;

Предположим,
что первое поле
в записи содержит
номер заказчика,
тогда код, показанный
выше, возвратил
бы строку типа
“1021”, “1031” или “2058”.
Если Вы хотели
получить доступ
к этот переменный,
как к числовой
величине, тогда
Вы могли бы
использовать
AsInteger вместо AsString.
Аналогично,
свойство Fields
включают AsBoolean,
AsFloat и AsDate.

Если
хотите, Вы можете
использовать
функцию FieldsByName
вместо свойства
Fields:

S
:= FieldsByName(‘CustNo’).AsString;

Как показано
в примерах
выше, и FieldsByName,
и Fields
возвращают
те же самые
данные. Два
различных
синтаксиса
используются
исключительно
для того, чтобы
обеспечить
программистов
гибким и удобным
набором инструментов
для программного
доступа к содержимому
DataSet.

Давайте посмотрим
на простом
примере, как
можно использовать
доступ к полям
таблицы во
время выполнения
программы.
Создайте новый
проект, положите
на форму объект
TTable, два объекта
ListBox и две кнопки
- “Fields” и “Values” (см
рис.4).

Соедините
объект TTable с таблицей
CUSTOMER, которая
поставляется
вместе с Delphi (DBDEMOS),
не забудьте
открыть таблицу
(Active = True).

Рис.4: Программа
FLDS показывает,
как использовать
свойство Fields.

Сделайте
Double click на кнопке
Fields и создайте
a метод который
выглядит так:

procedure
TForm1.FieldsClick(Sender: TObject);

var

i:
Integer;

begin

ListBox1.Clear;

for
i := 0 to Table1.FieldCount - 1 do

ListBox1.Items.Add(Table1.Fields[i].FieldName);

end;

Обработчик
события начинается
с очистки первого
ListBox1, затем он проходит
через все поля,
добавляя их
имена один за
другим в ListBox1.
Заметьте, что
цикл показанный
здесь пробегает
от 0 до FieldCount - 1. Если
Вы забудете
вычесть единицу
из FieldCount, то Вы получите
ошибку “List Index Out of
Bounds”, так как Вы
будете пытаться
прочесть имя
поля которое
не существует.

Предположим,
что Вы ввели
код правильно,
и заполнили
ListBox1 именами всех
полей в текущей
структуре
записи.

В Delphi существуют
и другие средства
которые позволяют
Вам получить
ту же самую
информацию,
но это самый
простой способ
доступа к именам
полей в Run Time.

Свойство Fields
позволяет Вам
получить доступ
не только именам
полей записи,
но также и к
содержимому
полей. В нашем
примере, для
второй кнопки
напишем:

procedure
TForm1.ValuesClick(Sender: TObject);

var

i:
Integer;

begin

ListBox2.Clear;

for
i := 0 to Table1.FieldCount - 1 do

ListBox2.Items.Add(Table1.Fields[i].AsString);

end;

Этот код добавляет
содержимое
каждого из
полей во второй
listbox. Обратите
внимание, что
вновь счетчик
изменяется
от нуля до FieldCount
- 1.

Свойство Fields
позволяет Вам
выбрать тип
результата
написав Fields[N].AsString.
Этот и несколько
связанных
методов обеспечивают
a простой и гибкий
способ доступа
к данным, связанными
с конкретным
полем. Вот список
доступных
методов который
Вы можете найти
в описании
класса TField:

property
AsBoolean

property
AsFloat

property
AsInteger

property
AsString

property
AsDateTime

Всякий раз
(когда это имеет
смысл), Delphi сможет
сделать преобразования.
Например, Delphi
может преобразовывать
поле Boolean к Integer или
Float, или поле Integer к
String. Но не будет
преобразовывать
String к Integer, хотя и может
преобразовывать
Float к Integer. BLOB и Memo поля
- специальные
случаи, и мы их
рассмотрим
позже. Если Вы
хотите работать
с полями Date или
DateTime, то можете
использовать
AsString и AsFloat для доступа
к ним.

Как было объяснено
выше, свойство
FieldByName позволяет
Вам получить
доступ к содержимому
определенного
поля просто
указав имя
этого поля:

S
:= Table1.FieldByName(‘CustNo’).AsString;

Это - удобная
технология,
которая имеет
несколько
преимуществ,
когда используется
соответствующим
образом. Например,
если Вы не уверены
в местонахождении
поля, или если
Вы думаете, что
структура
записи, с которой
Вы работаете
могла измениться,
и следовательно,
местонахождение
поля не определено.

Работа
с Данными

Следующие
методы позволяют
Вам изменить
данные, связанные
с TTable:

procedure
Append;

procedure
Insert;

procedure
Cancel;

procedure
Delete;

procedure
Edit;

procedure
Post;

Все эти методы
- часть TDataSet, они
унаследованы
и используются
TTable и TQuery.

Всякий раз,
когда Вы хотите
изменить данные,
Вы должны сначала
перевести
DataSet в режим редактирования.
Как Вы увидите,
большинство
визуальных
компонент
делают это
автоматически,
и когда Вы
используете
их, то совершенно
не будете об
этом заботиться.
Однако, если
Вы хотите изменить
TTable программно,
Вам придется
использовать
вышеупомянутые
функции.

Имеется a типичная
последовательность,
которую Вы
могли бы использовать
при изменении
поля текущей
записи:

Table1.Edit;

Table1.FieldByName(‘CustName’).AsString
:= ‘Fred’;

Table1.Post;

Первая строка
переводит БД
в режим редактирования.
Следующая
строка присваивает
значение ‘Fred’
полю ‘CustName’. Наконец,
данные записываются
на диск, когда
Вы вызываете
Post.

При использовании
такого подхода,
Вы всегда работаете
с записями. Сам
факт перемещения
к следующей
записи автоматически
сохраняет ваши
данные на диск.
Например, следующий
код будет иметь
тот же самый
эффект, что и
код показанный
выше, плюс этому
будет перемещать
Вас на следующую
запись:

Table1.Edit;

Table1.FieldByName(‘CustNo’).AsInteger
:= 1234;

Table1.Next;

Общее правило,
которому нужно
следовать -
всякий раз,
когда Вы сдвигаетесь
с текущей записи,
введенные Вами
данные будут
записаны
автоматически.
Это означает,
что вызовы
First,
Next,
Prior и
Last
всегда выполняют
Post, если
Вы находились
в режиме редактирования.
Если Вы работаете
с данными на
сервере и
транзакциями,
тогда правила,
приведенные
здесь, не применяются.
Однако, транзакции
- это отдельный
вопрос с их
собственными
специальными
правилами, Вы
увидите это,
когда прочитаете
о них в следующих
уроках.

Тем
не менее, даже
если Вы не работаете
со транзакциями,
Вы можете все
же отменить
результаты
вашего редактирования
в любое время,
до тех пор, пока
не вызвали
напрямую или
косвенно метод
Post.
Например, если
Вы перевели
таблицу в режим
редактирования,
и изменили
данные в одном
или более полей,
Вы можете всегда
вернуть запись
в исходное
состояние
вызовом метода
Cancel.

Существуют
два метода,
названные
Append и
Insert,
который Вы
можете использовать
всякий раз,
когда Вы хотите
добавить новую
запись в DataSet. Очевидно
имеет больше
смысла использовать
Append для
DataSets которые не
индексированы,
но Delphi не будет
генерировать
exception если Вы используете
Append на
индексированной
таблице. Фактически,
всегда можно
использовать
и Append,
и Insert.

Продемонстрируем
работу методов
на простом
примере. Чтобы
создать программу,
используйте
TTable, TDataSource и TdbGrid. Открыть
таблицу COUNTRY. Затем
разместите
две кнопки на
форме и назовите
их ‘Insert’ и ‘Delete’.
Когда Вы все
сделаете, то
должна получиться
программа,
показанная
на рис.5

Рис.5: Программа
может вставлять
и удалять запись
из таблицы
COUNTRY.

Следующим
шагом Вы должен
связать код
с кнопками
Insert и Delete:

procedure
TForm1.InsertClick(Sender: TObject);

begin

Table1.Insert;

Table1.FieldByName('Name').AsString
:= 'Russia';

Table1.FieldByName('Capital').AsString
:= 'Moscow';

Table1.Post;

end;

procedure
TForm1.DeleteClick(Sender: TObject);

begin

Table1.Delete;

end;

Процедура
показанная
здесь сначала
переводит
таблицу в режим
вставки (новая
запись с незаполненными
полями вставляется
в текущую позицию
dataset). После вставки
пустой записи,
следующим
этапом нужно
назначить
значения одному
или большему
количеству
полей. Существует,
конечно, несколько
различных путей
присвоить эти
значения. В
нашей программе
Вы могли бы
просто ввести
информацию
в новую запись
через DBGrid. Или Вы
могли бы разместить
на форме стандартную
строку ввода
(TEdit) и затем установить
каждое поле
равным значению,
которое пользователь
напечатал в
этой строке:

Table1.FieldByName(‘Name’).AsString
:= Edit1.Text;

Можно было бы
использовать
компоненты,
специально
предназначенные
для работы с
данными в DataSet.

Назначение
этой главы,
однако, состоит
в том, чтобы
показать, как
вводить данные
из программы.
Поэтому, в примере
вводимая информация
скомпилирована
прямо в код
программы:

Table1.FieldByName('Name').AsString
:= 'Russia';

Один из интересных
моментов в этом
примере это
то, что нажатие
кнопки Insert дважды
подряд автоматически
вызывает exception
‘Key Violation’. Чтобы
исправить эту
ситуацию, Вы
должны либо
удалить текущую
запись, или
изменять поля
Name и Capital вновь созданной
записи.

Просматривая
код показанный
выше, Вы увидите,
что просто
вставка записи
и заполнения
ее полей не
достаточно
для того, чтобы
изменить физические
данные на диске.
Если Вы хотите,
чтобы информация
записалась
на диск, Вы должны
вызывать Post.

Если после
вызова Insert, Вы
решаете отказаться
от вставки
новой записи,
то Вы можете
вызвать Cancel. Если
Вы сделаете
это прежде, чем
Вы вызовете
Post, то все что Вы
ввели после
вызова Insert будет
отменено, и
dataset будет находиться
в состоянии,
которое было
до вызова Insert.

Одно
дополнительное
свойство, которое
Вы должны иметь
в виду называется
CanModify.
Если CanModify возвращает
False, то TTable находиться
в состоянии
ReadOnly. В противном
случае CanModify возвращает
True и Вы можете
редактировать
или добавлять
записи в нее
по желанию.
CanModify - само по себе
‘read only’ свойство.
Если Вы хотите
установить
DataSet в состояние
только на чтение
(Read Only), то Вы должны
использовать
свойство ReadOnly,
не CanModify.

Использование
SetKey для поиска
в таблице

Для того,
чтобы найти
некоторую
величину в
таблице, программист
на Delphi может
использовать
две процедуры
SetKey и
GotoKey.
Обе эти процедуры
предполагают,
что поле по
которому Вы
ищете индексировано.
Delphi поставляется
с демонстрационной
программой
SEARCH, которая показывает,
как использовать
эти запросы.

Чтобы создать
программу
SEARCH, поместите
TTable, TDataSource, TDBGrid, TButton, TLabel и TEdit на
форму, и расположите
их как показано
на рис.6. Назовите
кнопку Search, и затем
соедините
компоненты
БД так, чтобы
Вы видели в
DBGrid1 таблицу Customer.

Рис.6: Программа
SEARCH позволяет
Вам ввести
номер заказчика
и затем найти
его по нажатию
кнопки.

Вся функциональность
программы
SEARCH скрыта в
единственном
методе, который
присоединен
к кнопке Search. Эта
функция считывает
строку, введенную
в окно редактора,
и ищет ее в колонке
CustNo, и наконец
помещает фокус
на найденной
записи. В простейшем
варианте, код
присоединенный
к кнопке Search выглядит
так:

procedure
TSearchDemo.SearchClick(Sender: TObject);

begin

Table1.SetKey;

Table1.FieldByName(’CustNo’).AsString
:= Edit1.Text;

Table1.GotoKey;

end;

Первый вызов
в этой процедуре
установит
Table1 в режим поиска.
Delphi должен знать,
что Вы переключились
в режим поиска
просто потому,
что свойство
Fields используется
по другому в
этом режиме.
Далее, нужно
присвоить
свойству Fields
значение, которое
Вы хотите найти.
Для фактического
выполнения
поиска нужно
просто вызывать
Table1.GotoKey.

Если Вы ищете
не по первичному
индексу файла,
тогда Вы должны
определить
имя индекса,
который Вы
используете
в свойстве
IndexName. Например,
если таблица
Customer имеет вторичный
индекс по полю
City, тогда Вы должны
установить
свойство IndexName
равным имени
индекса. Когда
Вы будете искать
по этому полю,
Вы должны написать:

Table1.IndexName
:= ’CityIndex’;

Table1.Active
:= True;

Table1.SetKey;

Table1.FieldByName(’City’).AsString
:= Edit1.Text;

Table1.GotoKey;

Запомните:
поиск не будет
выполняться,
если Вы не назначите
правильно
индекс (св-во
IndexName). Кроме того,
Вы должны обратить
внимание, что
IndexName - это свойство
TTable, и не присутствует
в других прямых
потомках TDataSet или
TDBDataSet.

Когда Вы ищете
некоторое
значение в БД,
всегда существует
вероятность
того, что поиск
окажется неудачным.
В таком случае
Delphi будет автоматически
вызывать exception,
но если Вы хотите
обработать
ошибку сами,
то могли бы
написать примерно
такой код:

procedure
TSearchDemo.SearchClick(Sender: TObject);

begin

Cust.SetKey;

Cust.FieldByName('CustNo').AsString:=
CustNoEdit.Text;

if
not Cust.GotoKey then

raise
Exception.CreateFmt('Cannot find CustNo %g',

[CustNo]);

end;

В
коде, показанном
выше, либо неверное
присвоение
номера, либо
неудача поиска
автоматически
приведут к
сообщению об
ошибке ‘Cannot
find CustNo %g’.

Иногда
требуется найти
не точно совпадающее
значение, а
близкое к нему,
для этого следует
вместо GotoKey
пользоваться
методом GotoNearest.

Использование
фильтров для
ограничения
числа записей
в DataSet

Процедура
ApplyRange
позволяет Вам
установить
фильтр, который
ограничивает
диапазон
просматриваемых
записей. Например,
в БД Customers, поле CustNo
имеет диапазон
от 1,000 до 10,000. Если
Вы хотите видеть
только те записи,
которые имеют
номер заказчика
между 2000 и 3000, то
Вы должны
использовать
метод ApplyRange,
и еще два связанных
с ним метода.
Данные методы
работают только
с индексированным
полем.

Вот
процедуры,
которые Вы
будете чаще
всего использовать
при установке
фильтров:

procedure
SetRangeStart;

procedure
SetRangeEnd;

procedure
ApplyRange;

procedure
CancelRange;

Кроме