var
Tp:TMemoryStream;
begin
If img3.Picture.Graphic<>nil then
begin
DM.tblImage.Append;
Tp := TMemoryStream.Create;
dm.tblImage.FieldByName('资产编号').AsString := edtzcbh.Text;
try
img3.Picture.Graphic.SaveToStream(Tp);
TBlobField( DM.tblImage.FieldByName('图片')).LoadFromStream(Tp);
DM.tblImage.Post;
tp.free;
except
MessageBox(Handle,'保存图片失败','提示',MB_ICONINFORMATION+mb_ok);
end
end;