procedure TSQLiteDS.DoPost(DataSet: TDataSet);
var
  s     : string;
  i     : integer;
  fParam : TParam;
  fField : TField;
begin
  if Tag <> 0 then Exit;
  if fTable = '' then Exit;
  if fKeyField = '' then Exit;
  if not (DataSet.State in [dsInsert, dsEdit]) then Exit;
  try
    case DataSet.State of
      dsInsert: s := BuildInsert(DataSet, fTable);
      dsEdit:   s := BuildUpdate(DataSet, fBuffer, fTable, fKeyField);
    end;
    if s = '' then Exit;
    fQuery.Close;
    fQuery.SQL.Text := s;
    fQuery.FetchParams;
    for i := 0 to fQuery.Params.Count - 1 do begin
      fParam := fQuery.Params[i];
      fField := DataSet.FindField(fParam.Name);
      case fField.DataType of
        ftBoolean    : fParam.AsBoolean  := fField.AsBoolean;
        ftWord,
        ftSmallInt,
        ftLargeInt,
        ftInteger    : fParam.AsInteger  := fField.AsInteger;
        ftTime,
        ftDate,
        ftDateTime   : fParam.AsDateTime := fField.AsDateTime;
        ftMemo,
        ftWideString,
        ftString     : fParam.AsString   := fField.AsString;
        else           fParam.Value      := fField.Value;
      end; // case fParams[i].DataType
    end;
    fQuery.Execute;
    fQuery.DataBase.Commit;
    fBuffer.EmptyTable;
  except
    on E:Exception do begin
      s := E.Message;
      ShowError(s);
      Abort;
    end;
  end;
end;