INTERBASE

BLOB-поля в таблице FarmPreparati

Есть база данных «Apteka.gdb», созданная к слову говоря в СУБД «Interbase 6.5». В этой базе имеется таблица «FarmPreparati», в которой, в числе прочих есть пара BLOB-полей. Одно поле «Instrukciya» предназначено для хранения инструкции к фармпрепарату, другое поле «Kartinka» служит для хранения картинки с внешним видом стандартной упаковки препарата.

Поскольку с BLOB-полями в самой СУБД «Interbase 6.5» работать не совсем удобно, нужно в среде разработки «Дельфи 7» написать приложение для редактирования BLOB-полей.

Итак, загружаем «Дельфи 7», создаем новое приложение. На главную форму приложения с панелей компонентов перетаскиваем:

– IBDataBase (с закладки InterBase);

– IBTransAction (с закладки InterBase);

– IBTable (с закладки InterBase);

– DataSource (с закладки Data Access);

– DBGrid (с закладки Data Controls);

– DBMemo (с закладки Data Controls);

– DBImage (с закладки Data Controls);

– OpenPictureDialog (с закладки Dialogs);

– Button (с закладки Standart);

Рис. 1. Расположение компонентов на главной форме приложения

Далее нужно связать компоненты между собой, установить некоторые параметры и написать немного кода.

Компонент	Параметр	Значение
IBDataBase1	DatabaseName DefaultTransaction	C:\INTERBASE\APTEKA.GDB TransAction1
IBTransAction1	DefaultDatabase	IBDatabase1
IBTable1	Database TableName TransAction Active	IBDatabase1 FarmPreparati TransAction1 True
DataSource1	DataSet	IBTable1
DBGrid1	DataSource Options–dgRowSelect	DataSource1 True
DBMemo1	DataSource DataField	DataSource1 Instrukciya
DBImage1	DataSource DataField	DataSource1 Kartinka
Button1	onClick	if not OpenPictureDialog1.Execute then Exit; IBTable1.Edit; DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName); IBTable1.Post;

Что интересно, для того чтобы добавлять/изменять содержимое текстового BLOB-поля через компонент DBMemo1 достаточно выделить запись и произвести изменения непосредственно в компоненте DBMemo1.

Ну а чтобы добавить картинку в BLOB-поле нужно уже постить данные через DataSet, в данном случае это IDTable1, т.е. надо нажать кнопку «Добавить картинку», выбрать картинку в диалоге, загрузить ее, и только потом отправить в базу. Причем диалог картинок «OpenPictureDialog1» загружает не все картинки, формат «jpg», например, изначально даже не видит. Хотя, если добавить в «uses» модуль «jpeg», то видит, но опять же в BLOB-поле рисунок не добавится, поэтому нужно добавлять картинки формата «bmp», а они понятное дело тяжелее.

Рис. 2. Результат добавления инструкции и изображения в BLOB-поля