TFPDDSQLEngine

type TFPDDSQLEngine = class(TPersistent)

protected

  procedure CheckTableDef;

  procedure NoIndent;

  procedure ResetLine;

  procedure AddToStringLN();

  procedure AddToString();

  procedure FixUpStatement();

  procedure AddWhereClause();

  function CreateAndTerm();

  procedure AddFieldString();

  function FieldNameString(); virtual;

  function TableNameString(); virtual;

  function FieldParamString(); virtual;

  function FieldTypeString();

  function FieldDefaultString(); virtual;

  function FieldCheckString(); virtual;

  function FieldDeclarationString(); virtual;

  property FieldQuoteChar: Char; [rw]

  property TerminatorChar: Char; [rw]

public

  constructor Create; virtual;

  function CreateWhereSQL();

  procedure CreateSelectSQLStrings();

  procedure CreateInsertSQLStrings();

  procedure CreateUpdateSQLStrings();

  procedure CreateDeleteSQLStrings();

  procedure CreateCreateSQLStrings();

  procedure CreateIndexesSQLStrings();

  procedure CreateForeignKeysSQLStrings();

  procedure CreateSequencesSQLStrings();

  procedure CreateDomainsSQLStrings();

  function CreateSelectSQL(); virtual;

  function CreateInsertSQL(); virtual;

  function CreateUpdateSQL(); virtual;

  function CreateDeleteSQL(); virtual;

  function CreateCreateSQL();

  function CreateIndexSQL(); virtual;

  function CreateIndexesSQL();

  function CreateForeignKeySQL(); virtual;

  function CreateForeignKeysSQL();

  function CreateSequenceSQL(); virtual;

  function CreateSequencesSQL();

  function CreateDomainSQL(); virtual;

  function CreateDomainsSQL();

  function CreateTableSQL;

  procedure CreateTableSQLStrings();

  property TableDef: TDDTableDef; [rw]

published

  property MaxLineLength: Integer; [rw]

  property Indent: Integer; [rw]

  property Options: TSQLEngineOptions; [rw]

end;

TFPDDSQLEngine

TObject