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

Пишем утилиту управления метаданными. Урок 5. Форма редактирования описания типа

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

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


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

Для начала создадим форму, при помощи которой мы будем редактировать описание типа (данные класса, который мы создали на прошлом уроке)*:

Пишем утилиту управления метаданными. Урок 5. Форма редактирования описания класса

Файл формы назовем TypeDefEdit. Компоненты назовем следующим образом:

Имя Тип Метка (надпись)
edTypeName TEdit Имя типа
cbIsDataTypeAllowed TCheckBox Тип доступен
cbIsDataTypeFixed TCheckBox Тип фиксирован
cbDataType TEdit Тип данных по умолчанию
cbIsSizeAllowed TCheckBox Размер доступен
cdIsSizeFixed TCheckBox Размер фиксирован
edDefaultSize TEdit Размер по умолчанию
cdIsPrecisionAllowed TCheckBox Точность доступна
cbIsPrecisionFixed TCheckBox Точность фиксирована
edDefaultPrecision TEdit Точность по умолчанию
cbIsTableNameAllowed TCheckBox Имя таблицы доступно
cbIsTableNameFixed TCheckBox Имя таблицы фиксировано
edDefaultTableName TEdit Имя таблицы по умолчанию

В самой форме нам необходимо реализовать функцию Edit, которую надо объявить в секции public.

Вот как мы реализуем данную функцию...

...

... В этой функции у нас используется процедура FillDataTypes, которая будет заполнять список типов в поле списка "Список типов по умолчанию":

Пишем утилиту управления метаданными. Урок 5. Форма редактирования описания класса

вот как она реализована:

procedure TfrmMDETypeDescrEdit.FillDataTypes;

var i,cn:integer;

begin

   cn:=cnFieldTypesCount-1;

   for i := 0 to cn do cbDataType.Items.Add(cnFieldTypesNames[i]);

end;

Так же нам необходимо изменить файл mdebase.pas...

...

... Эти константы, как вы поняли, необходимы для диалога редактирования типов.

И еще нам надо объявить две глобальные функции FindTypeNameByDataType и FindDataTypeFromTypeName...

...

... Теперь перейдем к тестовому примеру...

...

... И вот такой его код ...

...

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


Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями   программного продукта "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
Я принимаю Яндекс.Деньги