UClaseCreateIndex.pas

unit UClaseCreateIndex;

interface       // CLASE PARA MANEJAR LA CREACION DE INDICES

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus,
  Vcl.StdCtrls, Vcl.ExtCtrls;


type
  // Enumerado para el tipo de índice
  TTipoIndice = (tiNormal, tiUnico, tiClusterizado, tiUnicoClusterizado);

  // Clase para representar un índice
  TIndice = class
  private
    FNombre          : string;
    FTabla           : string;
    FCampos          : TStringList;
    FCamposIncluidos : TStringList;
    FTipo            : TTipoIndice;
    FFactorRelleno   : Integer;
    FDescripcion     : string;

  public
    constructor Create;
    destructor Destroy; override;

    property Nombre : string read FNombre write FNombre;
    property Tabla : string read FTabla write FTabla;
    property Campos : TStringList read FCampos;
    property CamposIncluidos : TStringList read FCamposIncluidos;
    property Tipo : TTipoIndice read FTipo write FTipo;
    property FactorRelleno : Integer read FFactorRelleno write FFactorRelleno;
    property Descripcion : string read FDescripcion write FDescripcion;

    function GenerarScriptSQL : string;
  end;

implementation

// IMPLEMENTACION DE LA CLASE INDICE

// Implementación del constructor de TIndice
constructor TIndice.Create;
begin
  inherited;
  FCampos          := TStringList.Create;
  FCamposIncluidos := TStringList.Create;
  FTipo            := tiNormal;
  FFactorRelleno   := 0; // 0 significa no usar factor de relleno
end;

destructor TIndice.Destroy;
begin
  FCampos.Free;
  FCamposIncluidos.Free;
  inherited;
end;

function TIndice.GenerarScriptSQL : string;
var
  SB : TStringBuilder;
  I  : Integer;
  TipoIndiceStr, CamposStr, CamposIncluidos : string;
begin
  SB := TStringBuilder.Create;
  try
    // Comentario descriptivo
    if FDescripcion <> '' then
      begin
        SB.AppendLine('/* ');
        SB.AppendLine(FDescripcion);
        SB.AppendLine('*/');
        SB.AppendLine;
      end;

    // Tipo de índice
    case FTipo of
      tiNormal            : TipoIndiceStr := 'NONCLUSTERED';
      tiUnico             : TipoIndiceStr := 'UNIQUE NONCLUSTERED';
      tiClusterizado      : TipoIndiceStr := 'CLUSTERED';
      tiUnicoClusterizado : TipoIndiceStr := 'UNIQUE CLUSTERED';
    end;

    // Armar consulta CREATE INDEX
    SB.AppendLine('CREATE ' + TipoIndiceStr + ' INDEX ' + FNombre);
    SB.AppendLine('ON ' + FTabla);

    // Campos del índice
    CamposStr := '';
    for I := 0 to FCampos.Count - 1 do
    begin
      if I > 0 then
        CamposStr := CamposStr + ', ';

      // Aquí se podría añadir ASC/DESC si se implementa la elección de dirección
      CamposStr := CamposStr + FCampos[I];
    end;

    SB.AppendLine('(' + CamposStr + ')');

    // Campos incluidos (INCLUDE)
    if FCamposIncluidos.Count > 0 then
      begin
        CamposIncluidos := '';
        for I := 0 to FCamposIncluidos.Count - 1 do
        begin
          if I > 0 then
            CamposIncluidos := CamposIncluidos + ', ';

          CamposIncluidos := CamposIncluidos + FCamposIncluidos[I];
        end;

        SB.AppendLine('INCLUDE (' + CamposIncluidos + ')');
      end;

    // Factor de relleno (FILLFACTOR)
    if FFactorRelleno > 0 then
      SB.AppendLine('WITH (FILLFACTOR = ' + IntToStr(FFactorRelleno) + ')');

    SB.Append('GO');

    Result := SB.ToString;
  finally
    SB.Free;
  end;
end;


end.