Вы русский? Это же надо так выражовываться?
А по вопросу, делается так:
На форму добавляется компонент TOpenPictureDialog
В событии OnClick для кнопки Добавить пишете следующий код:
Код:
if not OpenPictureDialog1.Execute then Exit;
AdoTable1.Edit;
AdoTable1.FieldByName('Фото').AsString := OpenPictureDialog1.FileName;
AdoTable1.Post;
Данный код будет работать правильно для уже существующей записи.
Если-же запись новая, то уберите из примера:
и перенесите
в событие OnClick для кнопки Ok
Отображение фоток реализуется следующим образом:
В событии OnAfterScroll для AdoTable1 надо прописать такой код:
Код:
Image1.Picture.LoadFromFile(AdoTable1.FieldByName('Фото').AsString)