TCustomSQLQuery constructor

Implementation

TCustomSQLQuery([TComponent? aOwner]) : super(aOwner) {
  _statement = createSQLStatement(this);

  _insertSQL = TStringList();
  _insertSQL.onChange = onChangeModifySQL;
  _updateSQL = TStringList();
  _updateSQL.onChange = onChangeModifySQL;
  _deleteSQL = TStringList();
  _deleteSQL.onChange = onChangeModifySQL;
  _refreshSQL = TStringList();
  _refreshSQL.onChange = onChangeModifySQL;

  sequence = TSQLSequence(this);
  _serverIndexDefs = TServerIndexDefs(this);

  _serverFiltered = false;
  _serverFilterText = '';

  _schemaType = TSchemaType.stNoSchema;
  _schemaObjectName = '';
  _schemaPattern = '';

  // Delphi has upWhereAll as default, but since strings and
  // oldvalue's don't work yet (variants) set it to upWhereKeyOnly
  // (original comment kept as-is)
  _updateMode = TUpdateMode.upWhereKeyOnly;
  _usePrimaryKeyAsKey = true;
}