Пишем утилиту управления метаданными. Урок 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, которая будет заполнять список типов в поле списка "Список типов по умолчанию":

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

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...

...

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

...

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

...

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

Последнее обновление ( 06.11.2011 г. )

« След.		Пред. »

Вернуться