procedure TForm1.MasterFDQueryAfterScroll(DataSet: TDataSet);
begin
 ShowMessage(DataSet.Name+': AfterScroll');
end;

procedure TForm1.FilterButtonClick(Sender: TObject);
begin

 FDQuery.AfterScroll := MasterFDQueryAfterScroll;
 FDQuery.DisableControls;
 try
   FDQuery.Filtered := True;
   FDQuery.Filtered := False;
 finally
   FDQuery.EnableControls;
 end;
end;

procedure TFDDataSet.ResyncViews;
var
  oLastRow: TFDDatSRow;
  iNewIndex: Integer;
  lScrolled: Boolean;
begin
  if Active then begin
    oLastRow := GetRow;
    lScrolled := False;
    if oLastRow <> nil then begin
      iNewIndex := FSourceView.IndexOf(oLastRow);
      lScrolled := FRecordIndex <> iNewIndex;
      FRecordIndex := iNewIndex;
    end;
    Include(FFlags, dfLockNoBMK);
    try
      if lScrolled then
        DoBeforeScroll;
      UpdateCursorPos;
      Resync([]);
      if lScrolled then
        DoAfterScroll;
    finally
      Exclude(FFlags, dfLockNoBMK);
    end;
  end;
end;

procedure TFDDataSet.ResyncViews;

procedure TForm4.FilterButtonClick(Sender: TObject);
begin

 // FDQuery.First;
 FDQuery.AfterScroll := FDQueryAfterScroll;
 FDQuery.Filter := 'PCODE=128';

 with FDQuery do begin

   DisableControls;
   try
     ShowMessage('1: '+FieldByName('PCODE').AsString);
     Filtered := True;
     ShowMessage('2: '+FieldByName('PCODE').AsString);
     Filtered := False;
     ShowMessage('3: '+FieldByName('PCODE').AsString);
   finally
     EnableControls;
   end;

   ShowMessage('6: '+FieldByName('PCODE').AsString);

 end;

procedure TForm4.FDQueryAfterScroll(DataSet: TDataSet);
begin

 if DataSet.ControlsDisabled then
   ShowMessage('4: '+DataSet.FieldByName('PCODE').AsString)
 else
   ShowMessage('5: '+DataSet.FieldByName('PCODE').AsString)

end;

 FDMemTable.Close;
 FDMemTable.Fields.Clear;
 FDMemTable.FieldDefs.Clear;
 Def:=FDMemTable.FieldDefs.AddFieldDef;
 Def.Name:='ID'
 Def.DataType:=ftInteger;

 while Condition do
  begin
   FDMemTable.Append;
   FDMemTable.FieldByName('ID').AsInteger:=GetValue;
  end;

   else if SQLDataType = SQL_SS_TABLE then begin
    FScale := 0;
    FColumnSize := MaxInt; //было 1
    FDataSize := 0;
  end

function TODBCCommandStatement.PutLongParams: SQLReturn;
var
  pParamNum: SQLPointer;
  oPar: TODBCParameter;
  iCurNum: SQLSmallint;
  lFirst: Boolean;
  iIndex: Integer;
begin
  iCurNum := -1;
  oPar := nil;
  FFocusedParam := nil;
  iIndex := 0;
  lFirst := True;
  repeat
    pParamNum := nil;
    Result := Lib.SQLParamData(FHandle, pParamNum);
    if Result = SQL_NEED_DATA then begin
      // MSSQL: subsequent SQLParamData calls for TVP return pParamNum=nil
      if pParamNum <> nil then
      begin
        oPar := ParamList.FindByToken(pParamNum) as TODBCParameter;
        lFirst := True; //новый параметр, заначит надо DataReader сделать Reset  
      end;

  if Correct_UTF8_Exception then
  begin
    try
      FDM.Query.Open;
    except
      on E: EIBNativeException
        do raise Exception.Create(UTF8ToString(RawByteString(E.Message)));
      else raise;
    end;
  end
  else FDM.Query.Open;

Posted via ActualForum NNTP Server 1.5