Locate应用

ADOQryResult.Locate('CKDJID', EditNum.Text, [loCaseInsensitive]);

-------------------------------------------------------------------------------------------------------------

procedure Tfrmstore_material_in_import2.ToolBtnSelectClick(Sender: TObject);
var
  i : integer;
begin
  if assigned(frmStore_Material_In) then
  begin
    if not ADOQryResult.IsEmpty then
      if ADOQrySelect.Locate('SLID;NUM',
        vararrayof([ADOQryResult.FieldValues['SLID'],
        ADOQryResult.FieldValues['NUM']]),
        [loCaseInsensitive]) = false then
        begin //ADOQrySelect中还没有这条记录
            if ADOQrySelect.RecordCount<1 then
            begin
              ADOQrySelect.Append;
              for i := 0 to ADOQrySelect.FieldCount - 1 do
                ADOQrySelect.Fields[i].Value := ADOQryResult.Fields[i].Value;
            end
            else if (ADOQryResult.FieldValues['SLID'] = ADOQrySelect.FieldValues['SLID']) then
            begin
               ADOQrySelect.Append;
               for i := 0 to ADOQrySelect.FieldCount - 1 do
                ADOQrySelect.Fields[i].Value := ADOQryResult.Fields[i].Value;
            end
            else application.MessageBox('  不允许选择多个收料订单!','提示',MB_OK);
      end;
    end;
end;