SQL を組み立てるためのレコード。ゆるふわ系。

type

  { TSelectSQL }
  TSelectSQL = record
    SELECT: string;
    FROM: string;
    WHERE: string;
    GROUP: string;
    HAVING: string;
    UNION: string;
    PLAN: string;
    ORDER: string;
    function Build(Terminate: Boolean = False): string;
    procedure Init;
  end;

  { TInsertSQL }
  TInsertSQL = record
    INSERT_INTO: string;
    FIELDS: string;
    VALUES: string;
    RETURNING: string;
    function Build(Terminate: Boolean = False): string;
    procedure Init;
  end;

  { TUpdateSQL }
  TUpdateSQL = record
    UPDATE: string;
    SET_: string;
    WHERE: string;
    function Build(Terminate: Boolean = False): string;
    procedure Init;
  end;

  { TDeleteSQL }
  TDeleteSQL = record
    DELETE_FROM: string;
    WHERE: string;
    function Build(Terminate: Boolean = False): string;
    procedure Init;
  end;

  { TChainSelectSQL }
  TChainSelectSQL = record
    SQL: string;
    function SELECT(aSELECT: string): TChainSelectSQL;
    function FROM(aFROM: string): TChainSelectSQL;
    function WHERE(aWHERE: string): TChainSelectSQL;
    function GROUP_BY(aGROUP: string): TChainSelectSQL;
    function ORDER_BY(aORDER: string): TChainSelectSQL;
    function HAVING(aHAVING: string): TChainSelectSQL;
    function UNION(aUNION: string): TChainSelectSQL;
    procedure Init;
    function Term(Terminate: Boolean = False): string;
  end;

  { TChainInsertSQL }
  TChainInsertSQL = record
    SQL: string;
    function INSERT_INTO(aINSERT_INTO: string; aFIELDS: string = ''): TChainInsertSQL;
    function VALUES(aVALUES: string): TChainInsertSQL;
    function RETURNING(aRETURNING: string): TChainInsertSQL;
    procedure Init;
    function Term(Terminate: Boolean = False): string;
  end;

  { TChainUpdateSQL }
  TChainUpdateSQL = record
    SQL: string;
    function UPDATE(aUPDATE: string): TChainUpdateSQL;
    function SET_(aSET: string): TChainUpdateSQL;
    function WHERE(aWHERE: string): TChainUpdateSQL;
    procedure Init;
    function Term(Terminate: Boolean = False): string;
  end;

  { TChainUpdateSQL }
  TChainDeleteSQL = record
    SQL: string;
    function DELETE_FROM(aDELETE: string): TChainDeleteSQL;
    function WHERE(aWHERE: string): TChainDeleteSQL;
    procedure Init;
    function Term(Terminate: Boolean = False): string;
  end;

　
Download: http://ht-deko.com/software/uSQLBuilder_100.zip