Тема: БД Delphi Access
Показать сообщение отдельно
  #2  
Старый 13.03.2011, 13:07
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

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