怎么在ADOTABLE中将指针定位于符合条件的记录

Question

使用Locate方法定位.函数方法原型
Locate(const AnsiString KeyFields, const System::Variant &KeyValues, TLocateOptions Options);

Answer 1

ADOTable1.Filter := '你的条件';
  ADOTable1.FindFirst;

Answer 2

ADOTable1.Filter := '你的条件';
  ADOTable1.FindFirst;

Answer 3

原样拷贝了我一段程序，数据集是基于ClientDataSet的，但大体思路是这样的：
procedure TfrmObjectPhoto.ShowPhoto(DataSet: TDataSet);
var
  PicBlob: TStream;
  jpeg: TJpegImage;
begin
  with DataModuleObjectManage.cdsPhoto do
  begin
    if UpdateStatus = usInserted then
    begin
      Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
      SetImageProperty();
    end
    else
    begin
      Edit;
      PicBlob := CreateBlobStream(FieldByName('Photo'), bmReadWrite);
      Post;      if PicBlob.Size = 0 then
        Image1.Picture := nil
      else
      begin
        jpeg := TJpegImage.Create;
        jpeg.LoadFromStream(PicBlob);
        Image1.Picture.Assign(jpeg);
        SetImageProperty();
        jpeg.Free;
      end;      PicBlob.Free;
    end;
  end;
end;

Answer 4

这是一段保存图象得代吗：
procedure TfrmObjectPhoto.btnNewClick(Sender: TObject);
var
  NewPhotoID: Integer;
  PhotoStream: TFileStream;
  ThumbStream: TMemoryStream;
begin
  if OpenPictureDialog1.Execute then
  begin
    PhotoStream := TFileStream.Create(OpenPictureDialog1.FileName, fmShareDenyNone);
    ThumbStream := TMemoryStream.Create();
    CreateThumbnail(PhotoStream, ThumbStream, 200, 200);    with DataModuleObjectManage do
    begin
      SocketConnection1.AppServer.GetSequenceNo(FPhotoSequenceIndex, NewPhotoID);      cdsPhoto.Append;
      cdsPhoto.Edit;
      cdsPhoto.FieldByName('PhotoID').AsInteger  := NewPhotoID;
      cdsPhoto.FieldByName('ObjectID').AsInteger := FObjectID;
      cdsPhoto.FieldByName('Descript').AsString  := '编号为' + IntToStr(NewPhotoID) + '的照片';
      TBLOBField(cdsPhoto.FieldByName('Photo')).LoadFromStream(PhotoStream);
      TBLOBField(cdsPhoto.FieldByName('Thumbnail')).LoadFromStream(ThumbStream);
      cdsPhoto.Post;
    end;    PhotoStream.Free;
    ThumbStream.Free;
  end;
end;

Answer 5

帮助文件索引：
TCustomADODataSet,Locate