TDAStatementCollection

Overview

The TDAStatementCollection class implements the TSearcheableCollection as a collection of TDAStatements. It is an auxilary class and used internally to implement the Statements property of the TDASQLCommand and TDADataset classes.

Location


 

constructor Create (TPersistent, TDASQLCommand)

Creates a new instance.

constructor Create(aOwner: TPersistent; aSQLCommand: TDASQLCommand)

Parameters:

  • aOwner: Owner
  • aSQLCommand: SQL command

constructor Create (TPersistent, TCollectionItemClass)    (declared in TSearcheableCollection)

Initializes the collection with the supplied parameters.

constructor Create(AOwner: TPersistent; ItemClass: TCollectionItemClass)

Parameters:

  • AOwner: owner
  • ItemClass: item class

Add  reintroduce

Returns the inherited Add as TDAStatement.

function Add: TDAStatement

CloneItem    (declared in TSearcheableCollection)

Inserts a copy of an item and names it "Copy nn of " of the cloned item name.

function CloneItem(iIndex: Integer): Integer

Parameters:

  • iIndex: position.

FindItem (string): TCollectionItem  virtual    (declared in TSearcheableCollection)

Finds the first occurrence of the item with the supplied name. Search is case-insensitive.

function FindItem(const aName: string): TCollectionItem

Parameters:

  • aName: the supplied name

FindItem (string, string, string, Boolean): TDAStatement  reintroduce

When aConnectionType is not empty this method looks for the TDAStatement whose Connection equals aName, and, when aStatementName is not empty, whose Name equals aStatementName. If both aConnectionType and aStatementName are empty, the first statement will be returned. If the sought statement was not found, but aReturnDefault is true, the last statement with a set Default property will be returned. Otherwise, NIL is returned.

function FindItem(const aName: string; const aStatementName: string; const aConnectionType: string; aReturnDefault: Boolean): TDAStatement

Parameters:

  • aName: Connection name
  • aStatementName: Required statement name or empty string
  • aConnectionType: Required connection type or empty string
  • aReturnDefault: Returns the Default statement

FindUniqueName    (declared in TSearcheableCollection)

Returns the supplied name if the item with that name is absent in the collection or adds a number to it and sequentially increments it until the result is unique.

function FindUniqueName(const iBaseName: string): string

Parameters:

  • iBaseName: the supplied name

FindUniqueNameEx    (declared in TSearcheableCollection)

Does the same as FindUniqueName, but uses a template with a numeric parameter as second argument, it should be compatible with the Delphi Format function.

function FindUniqueNameEx(const iBaseName: string; const iNumberedName: string): string

Parameters:

  • iBaseName: the supplied name
  • iNumberedName: numeric parameter

GetDefaultItem    (declared in TSearcheableCollection)

Looks for the first occurrence of the item that has a boolean property with the name "Default" and the value true. Raises an exception if no such item can be found.

function GetDefaultItem: TCollectionItem

GetItemDefault  protected dynamic    (declared in TSearcheableCollection)

Returns default item's name

function GetItemDefault(anItem: TCollectionItem): Boolean

Parameters:

  • anItem: given item

GetItemName  protected override

Gets the name of the specified item.

function GetItemName(anItem: TCollectionItem): string

Parameters:

  • anItem: the specified item.

ItemByName    (declared in TSearcheableCollection)

Returns an item with the specified name.

function ItemByName(const aName: string): TCollectionItem

Parameters:

  • aName: fClientFields

ItemName  protected virtual    (declared in TSearcheableCollection)

Returns the string "item".

function ItemName: string

MoveItem    (declared in TSearcheableCollection)

Moves the item from one position to another. Checks boundaries.

procedure MoveItem(iFromIndex: Integer; iToIndex: Integer)

Parameters:

  • iFromIndex: old index
  • iToIndex: new index

Notify  protected override    (declared in TSearcheableCollection)

Notifies about the adding or removal of an item if the event handler is assigned. If an item with an empty name is added and items without name are not allowed, it sets the name to "Item" plus number.

procedure Notify(Item: TCollectionItem; Action: TCollectionNotification)

Parameters:

  • Item: given item
  • Action: action

OnItemRemoved    (declared in TSearcheableCollection)

Event handler for removing an item.

property OnItemRemoved: TDAItemRemovedEvent read write
delegate: procedure OnItemRemoved(aSender: TObject; const aName: string)

OnItemRenamed    (declared in TSearcheableCollection)

Event handler for renaming an item.

property OnItemRenamed: TDAItemRenamedEvent read write
delegate: procedure OnItemRenamed(aSender: TObject; const aOldName: string; const aNewName: string)

SetItemName  protected override

Sets a new name for the specified item.

function SetItemName(anItem: TCollectionItem; const aName: string): string

Parameters:

  • anItem: item
  • aName: name

SQLCommand

Returns the TDASQLCommand that was used as argument of Create.

property SQLCommand: TDASQLCommand read

StatementByName

Returns the inherited ItemByName(aName) typecast to the TDAStatement.

function StatementByName(const aName: string): TDAStatement

Parameters:

  • aName: the specified name.

Statements

Returns the item on the Index position as TDAStatement.

property Statements[Index: Integer]: TDAStatement read write

TriggerOnItemRemoved  virtual    (declared in TSearcheableCollection)

Calls the event handler if it was assigned.

procedure TriggerOnItemRemoved(const iName: string)

Parameters:

  • iName: item name

TriggerOnItemRenamed  virtual    (declared in TSearcheableCollection)

Calls the event handler if it was assigned.

procedure TriggerOnItemRenamed(const iOldName: string; const iNewName: string)

Parameters:

  • iOldName: old name
  • iNewName: new name

 

SQLCommand

Returns the TDASQLCommand that was used as argument of Create.

property SQLCommand: TDASQLCommand read

Statements

Returns the item on the Index position as TDAStatement.

property Statements[Index: Integer]: TDAStatement read write

 

constructor Create (TPersistent, TDASQLCommand)

Creates a new instance.

constructor Create(aOwner: TPersistent; aSQLCommand: TDASQLCommand)

Parameters:

  • aOwner: Owner
  • aSQLCommand: SQL command

constructor Create (TPersistent, TCollectionItemClass)    (declared in TSearcheableCollection)

Initializes the collection with the supplied parameters.

constructor Create(AOwner: TPersistent; ItemClass: TCollectionItemClass)

Parameters:

  • AOwner: owner
  • ItemClass: item class

Add  reintroduce

Returns the inherited Add as TDAStatement.

function Add: TDAStatement

CloneItem    (declared in TSearcheableCollection)

Inserts a copy of an item and names it "Copy nn of " of the cloned item name.

function CloneItem(iIndex: Integer): Integer

Parameters:

  • iIndex: position.

FindItem (string): TCollectionItem  virtual    (declared in TSearcheableCollection)

Finds the first occurrence of the item with the supplied name. Search is case-insensitive.

function FindItem(const aName: string): TCollectionItem

Parameters:

  • aName: the supplied name

FindItem (string, string, string, Boolean): TDAStatement  reintroduce

When aConnectionType is not empty this method looks for the TDAStatement whose Connection equals aName, and, when aStatementName is not empty, whose Name equals aStatementName. If both aConnectionType and aStatementName are empty, the first statement will be returned. If the sought statement was not found, but aReturnDefault is true, the last statement with a set Default property will be returned. Otherwise, NIL is returned.

function FindItem(const aName: string; const aStatementName: string; const aConnectionType: string; aReturnDefault: Boolean): TDAStatement

Parameters:

  • aName: Connection name
  • aStatementName: Required statement name or empty string
  • aConnectionType: Required connection type or empty string
  • aReturnDefault: Returns the Default statement

FindUniqueName    (declared in TSearcheableCollection)

Returns the supplied name if the item with that name is absent in the collection or adds a number to it and sequentially increments it until the result is unique.

function FindUniqueName(const iBaseName: string): string

Parameters:

  • iBaseName: the supplied name

FindUniqueNameEx    (declared in TSearcheableCollection)

Does the same as FindUniqueName, but uses a template with a numeric parameter as second argument, it should be compatible with the Delphi Format function.

function FindUniqueNameEx(const iBaseName: string; const iNumberedName: string): string

Parameters:

  • iBaseName: the supplied name
  • iNumberedName: numeric parameter

GetDefaultItem    (declared in TSearcheableCollection)

Looks for the first occurrence of the item that has a boolean property with the name "Default" and the value true. Raises an exception if no such item can be found.

function GetDefaultItem: TCollectionItem

GetItemDefault  protected dynamic    (declared in TSearcheableCollection)

Returns default item's name

function GetItemDefault(anItem: TCollectionItem): Boolean

Parameters:

  • anItem: given item

GetItemName  protected override

Gets the name of the specified item.

function GetItemName(anItem: TCollectionItem): string

Parameters:

  • anItem: the specified item.

ItemByName    (declared in TSearcheableCollection)

Returns an item with the specified name.

function ItemByName(const aName: string): TCollectionItem

Parameters:

  • aName: fClientFields

ItemName  protected virtual    (declared in TSearcheableCollection)

Returns the string "item".

function ItemName: string

MoveItem    (declared in TSearcheableCollection)

Moves the item from one position to another. Checks boundaries.

procedure MoveItem(iFromIndex: Integer; iToIndex: Integer)

Parameters:

  • iFromIndex: old index
  • iToIndex: new index

Notify  protected override    (declared in TSearcheableCollection)

Notifies about the adding or removal of an item if the event handler is assigned. If an item with an empty name is added and items without name are not allowed, it sets the name to "Item" plus number.

procedure Notify(Item: TCollectionItem; Action: TCollectionNotification)

Parameters:

  • Item: given item
  • Action: action

SetItemName  protected override

Sets a new name for the specified item.

function SetItemName(anItem: TCollectionItem; const aName: string): string

Parameters:

  • anItem: item
  • aName: name

StatementByName

Returns the inherited ItemByName(aName) typecast to the TDAStatement.

function StatementByName(const aName: string): TDAStatement

Parameters:

  • aName: the specified name.

TriggerOnItemRemoved  virtual    (declared in TSearcheableCollection)

Calls the event handler if it was assigned.

procedure TriggerOnItemRemoved(const iName: string)

Parameters:

  • iName: item name

TriggerOnItemRenamed  virtual    (declared in TSearcheableCollection)

Calls the event handler if it was assigned.

procedure TriggerOnItemRenamed(const iOldName: string; const iNewName: string)

Parameters:

  • iOldName: old name
  • iNewName: new name

 

OnItemRemoved    (declared in TSearcheableCollection)

Event handler for removing an item.

property OnItemRemoved: TDAItemRemovedEvent read write
delegate: procedure OnItemRemoved(aSender: TObject; const aName: string)

OnItemRenamed    (declared in TSearcheableCollection)

Event handler for renaming an item.

property OnItemRenamed: TDAItemRenamedEvent read write
delegate: procedure OnItemRenamed(aSender: TObject; const aOldName: string; const aNewName: string)