Программирование - это просто
Advertisement
Главная arrow Уроки Delphi arrow Утилита управления метаданными (платный раздел) arrow Пишем утилиту управления метаданными. Урок 3. Создание класса описания типа.
30.11.2021 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Пишем утилиту управления метаданными. Урок 3. Создание класса описания типа. Печать E-mail
Автор megabax   
14.12.2010 г.
New Page 1

Урок 3. Создание класса описания типа.

Что бы смотреть урок полностью, подпишитесь на платный раздел.

В платном разделе статья находиться здесь.


Исходники к уроку можно скачать в платном разделе.

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

...

.... И сделаем тестовые примеры ....

procedure TfrmMDETest.btnLoadClick(Sender: TObject);

var  Stream:TFileStream;

     DT:TMDEDataType;

begin

  Stream:=TFileStream.Create('d:\1\1.mde',fmOpenRead);

  DT:=TMDEDataType.Create;

  DT.Unserialize(Stream);

  Stream.Free;

  lbTypeName.Caption:=DT.TypeName;

  lbSize.Caption:=IntToStr(DT.Size);

  lbPrecision.Caption:=IntToStr(DT.Precision);

  lbTableName.Caption:=DT.TableName;

end;

 

procedure TfrmMDETest.btnSaveClick(Sender: TObject);

var Stream:TFileStream;

    DT:TMDEDataType;

begin

  DT:=TMDEDataType.Create;

  DT.TypeName:='Пробный тип';

  DT.DataType:=ftString;

  DT.Size:=3;

  DT.Precision:=2;

  DT.TableName:='Товары';

 

    Stream:=TFileStream.Create('d:\1\1.mde',fmCreate);

  DT.Serialize(Stream);

  Stream.Free;

end;

....

(C) Шуравин Александр 


Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями  в соответствии со ст. 1274 ГК РФ программного продукта "Turbo Delphi", авторское право на который принадлежит "Borland Software Corporation


 

Последнее обновление ( 06.11.2011 г. )
 
« След.
 
© 2021 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги