if nmComp<>'' then begin
dbIM:=ctr As TDBImage;
if not(dbIm is TDBImage) then Exit;
if dbIM=nil then Exit;
if not(ExtractFileExt(drFile)='.bmp') then Exit;
try
if dbIM.DataSource.State <> dsEdit then dbIM.DataSource.Edit;
dbIM.Picture.LoadFromFile(drFile);
dbIM.DataSource.DataSet.Post;
except
ShowMessage('Ошибка записи в БД изображения из файла:'+#13#10+drFile);
end;
end;
end;
Әртүрлі нақты суреттерді формаға тасымалдау программасының жұмысын тексеріңіз:
17-сурет – Іске қосқанда шығатын терезе
Бақылау сұрақтары
MS Access көмегімен ДБ қалай құрылады?
Access-те құрылған ДБ-ны Delphi ортасымен қандай компоненттердің көмегімен байланыстыруға болады?
Фильтрді қалай жасауға болады?
Достарыңызбен бөлісу: |
