Часть полного текста документа:Компонент TTable. Содержание Обзор Создание таблиц с помощью компонента TTable Заключение 1. Обзор 2. На этом небольшом уроке мы завершим изучение возможностей создания таблиц. Как Вы помните, мы уже освоили два способа создания таблиц - с помощью утилиты Database Desktop, входящей в поставку Delphi (урок 11) и с помощью SQL-запросов (урок 12), которые можно использовать как в WISQL (Windows Interactive SQL - клиентская часть Local InterBase), так и в компоненте TQuery. Теперь мы рассмотрим, как можно создавать локальные таблицы в режиме выполнения с помощью компонента TTable. 3. Создание таблиц с помощью компонента TTable Для создания таблиц компонент TTable имеет метод CreateTable. Этот метод создает новую пустую таблицу заданной структуры. Данный метод (процедура) может создавать только локальные таблицы формата dBase или Paradox. Компонент TTable можно поместить на форму в режиме проектирования или создать динамически во время выполнения. В последнем случае перед использованием его необходимо создать, например, с помощью следующей конструкции: ? var Table1: TTable; ... Table1:=TTable.Create(nil); ... Перед вызовом метода CreateTable необходимо установить значения свойств * * TableType - тип таблицы * * DatabaseName - база данных * * TableName - имя таблицы * * FieldDefs - массив описаний полей * * IndexDefs - массив описаний индексов. Свойство TableType имеет тип TTableType и определяет тип таблицы в базе данных. Если это свойство установлено в ttDefault, тип таблицы определяется по расширению файла, содержащего эту таблицу: * * Расширение .DB или без расширения: таблица Paradox * Расширение .DBF : таблица dBASE * Расширение .TXT : таблица ASCII (текстовый файл). Если значение свойства TableType не равно ttDefault, создаваемая таблица всегда будет иметь установленный тип, вне зависимости от расширения: * ttASCII: текстовый файл * ttDBase: таблица dBASE * ttParadox: таблица Paradox. Свойство DatabaseName определяет базу данных, в которой находится таблица. Это свойство может содержать: * BDE алиас * директорий для локальных БД * директорий и имя файла базы данных для Local InterBase * локальный алиас, определенный через компонент TDatabase. Свойство TableName определяет имя таблицы базы данных. Свойство FieldDefs (имеющее тип TFieldDefs) для существующей таблицы содержит информацию обо всех полях таблицы. Эта информация доступна только в режиме выполнения и хранится в виде массива экземпляров класса TFieldDef, хранящих данные о физических полях таблицы (т.о. вычисляемые на уровне клиента поля не имеют своего объекта TFieldDef). Число полей определяется свойством Count, а доступ к элементам массива осуществляется через свойство Items: ? property Items[Index: Integer]: TFieldDef; При создании таблицы, перед вызовом метода CreateTable, нужно сформировать эти элементы. Для этого у класса TFieldDefs имеется метод Add: ? procedure Add(const Name: string; DataType: TFieldType; Size: Word; Required: Boolean); Параметр Name, имеющий тип string, определяет имя поля. Параметр DataType (тип TFieldType) обозначает тип поля. Он может иметь одно из следующих значений, смысл которых ясен из их наименования: ? TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftBlob, ftMemo, ftGraphic); Параметр Size (тип word) представляет собой размер поля. Этот параметр имеет смысл только для полей типа ftString, ftBytes, ftVarBytes, ftBlob, ftMemo, ftGraphic, размер которых может сильно варьироваться. Поля остальных типов всегда имеют строго фиксированный размер, так что данный параметр для них не принимается во внимание. Четвертый параметр - Required - определяет, может ли поле иметь пустое значение при записи в базу данных. ............ |