如何能够随着记录的移动,image控件中的照片也随着更新

Question

我是ADOTable和Image的,能告诉我这个初学者吗?

Answer 1

数据库设计时最好将大字段放到另一个表,实现主从关系
,jlid 是从表外键,delphi+oracle8测试通过,有些格式可能无法显示
procedure TForm.XSZP(jlid: String);
Var
  str :String;
  stream: TBlobStream;
  jpeg:TJPEGImage;
begin
  if jlid='' then exit;
  str :=' select zp from table where jlid='+jlid+'';
  Query.sql.clear;
  Query.sql.add(str);
  Query.open;
  if Query.IsEmpty then
    image1.Picture.Assign(nil)
  else
  begin
    try
      stream:=TBlobStream.Create(Query.fieldbyname('zp') as TBlobField,bmRead);
      jpeg:=TJPEGImage.Create ;
      jpeg.LoadFromStream(stream);
      image1.Picture.Assign(jpeg);
    finally
      stream.Free ;
      jpeg.Free;
    end;
  end;
end;