Четверг, 23 Май 2024, 00:15
Uchi.ucoz.ru
Меню сайта
Форма входа

Категории раздела
Высшая математика [11]
Экономическая социология [95]
Основы Менеджмента [64]
Бухгалтерский учёт [157]
Философия [163]
Мировая Экономика [603]
Бизнес планирование [29]
Финансирование и кредитование инвест [105]
Ценообразование [46]
Гражданское право [196]
Права Человека [173]
Основы Маркетинга [207]
Основы энергосбережения [55]
Информатика [0]
Экология и устойчивое развитие [0]
Физика для студентов [0]
Основы права [0]
Политология [0]
Не стандартные примеры на Delphi [169]
Примеры на Delphi7 [108]
Алгоритмы [94]
API [110]
Pascal [152]
Базы Данных [6]
Новости
Чего не хватает сайту?
500
Статистика
Зарегистрировано на сайте:
Всего: 51637


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Яндекс.Метрика
Рейтинг@Mail.ru

Каталог статей


Главная » Статьи » Студентам » Базы Данных

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

Приведенный ниже пример демонстрирует технологию полного воспроизведения
доступных полей в компоненте TTable или TQuery. Программа извлекает информацию о
доступных полях и отображает ее в компоненте TListBox; эта информация необходима
для динамического построения потомков TField. В данном примере источником данных
служит компонент TTable, но той же цели может служить и TQuery (TTable и TQuery
для доступа к полям таблицы используют одно и то же свойство Fields).

procedure
TForm1.Button1Click(Sender: TObject);
var

i: Integer;
F: TFieldDef;
D: String;begin

Table1.Active := True;
ListBox1.Items.Clear;

with Table1 do begin
for i := 0 to FieldDefs.Count -
1 do begin
F := FieldDefs.Items[i];
case F.DataType of
ftUnknown: D := 'Unknown';
ftString: D := 'String';
ftSmallint: D := 'SmallInt';
ftInteger: D := 'Integer';
ftWord: D := 'Word';
ftBoolean: D := 'Boolean';
ftFloat: D := 'Float';
ftCurrency: D := 'Currency';
ftBCD: D := 'BCD';
ftDate: D := 'Date';
ftTime: D := 'Time';
ftDateTime: D := 'DateTime';
ftBytes: D := 'Bytes';
ftVarBytes: D := '';
ftBlob: D := 'BLOB';
ftMemo: D := 'Memo';
ftGraphic: D := 'Graphic';
else
D := '';
end;
ListBox1.Items.Add(F.Name + ', ' +
D);
end;
end;
Table1.Active := False;end;
Категория: Базы Данных | Добавил: Lerka (22 Ноя 2012)
Просмотров: 797 | Рейтинг: 1.0/ 14 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


Для форума (BB-Code)


Прямая ссылка

Профиль
Четверг
23 Май 2024
00:15


Вы из группы: Гости
Вы уже дней на сайте
У вас: непрочитанных сообщений
Добавить статью
Прочитать сообщения
Регистрация
Вход
Улучшенный поиск
Поиск по сайту Поиск по всему интернету
Наши партнеры
Интересное
Популярное статьи
Портфолио ученика начальной школы
УХОД ЗА ВОЛОСАМИ ОЧЕНЬ ПРОСТ — ХОЧУ Я ЭТИМ ПОДЕЛИТ...
Диктанты 2 класс
Детство Л.Н. Толстого
Библиографический обзор литературы о музыке
Авторская программа элективного курса "Практи...
Контрольная работа по теме «Углеводороды»
Поиск
Главная страница
Используются технологии uCoz