UFunctionBuilderForm.pas

unit UFunctionBuilderForm;


interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls, Vcl.ExtCtrls, System.UITypes, System.IOUtils, System.Threading,
  Vcl.Clipbrd, Vcl.Menus,
  Data.DB, FireDAC.Comp.Client, FireDAC.Stan.Param, FireDAC.Stan.Async,
  FireDAC.DApt, FireDAC.Comp.DataSet,
  cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer,
  cxEdit, dxSkinsCore, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxMemo,
  cxGroupBox, cxRadioGroup, cxPC, cxButtons, cxStyles, cxCustomData, cxFilter,
  cxData, cxDataStorage, cxNavigator, dxDateRanges, cxDBData, cxGridLevel,
  cxClasses, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, dxBarBuiltInMenu, dxSkinBlue,
  dxSkinDevExpressDarkStyle, dxSkinMoneyTwins, dxSkinOffice2007Blue,
  dxSkinOffice2010Silver, dxSkinOffice2019Black, SkinAzul,
  dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
  dxScrollbarAnnotations, cxGeometry, dxFramedControl, dxPanel, cxLabel,
  uSQLFunctionBuilder, uParameterDialog ;


type
  TFunctionBuilderForm = class(TForm)
    pcFunctions: TcxPageControl;
    tsScalarFunction: TcxTabSheet;
    tsTableFunction: TcxTabSheet;
    pnlScalarTop: TdxPanel;
    edtScalarFunctionName: TcxTextEdit;
    cbScalarSchema: TcxComboBox;
    cbScalarReturnType: TcxComboBox;
    edtScalarTypeLength: TcxTextEdit;
    pnlScalarLeft: TdxPanel;
    pnlScalarParameters: TdxPanel;
    grdScalarParameters: TcxGrid;
    grdScalarParametersLevel: TcxGridLevel;
    pnlScalarParamButtons: TdxPanel;
    btnScalarAddParam: TcxButton;
    btnScalarEditParam: TcxButton;
    btnScalarDeleteParam: TcxButton;
    pnlScalarRight: TdxPanel;
    memScalarBody: TcxMemo;
    pnlScalarBottom: TdxPanel;
    memScalarSQL: TcxMemo;
    btnGenerateScalarSQL: TcxButton;
    btnCopyScalarSQL: TcxButton;
    pnlTableTop: TdxPanel;
    edtTableFunctionName: TcxTextEdit;
    cbTableSchema: TcxComboBox;
    pnlTableLeft: TdxPanel;
    pnlTableParameters: TdxPanel;
    grdTableParameters: TcxGrid;
    grdTableParametersLevel: TcxGridLevel;
    pnlTableParamButtons: TdxPanel;
    btnTableAddParam: TcxButton;
    btnTableEditParam: TcxButton;
    btnTableDeleteParam: TcxButton;
    pnlTableColumns: TdxPanel;
    grdTableColumns: TcxGrid;
    grdTableColumnsLevel: TcxGridLevel;
    pnlTableColButtons: TdxPanel;
    btnTableAddColumn: TcxButton;
    btnTableEditColumn: TcxButton;
    btnTableDeleteColumn: TcxButton;
    pnlTableRight: TdxPanel;
    memTableBody: TcxMemo;
    pnlTableBottom: TdxPanel;
    memTableSQL: TcxMemo;
    btnGenerateTableSQL: TcxButton;
    btnCopyTableSQL: TcxButton;
    grdScalarParametersView: TcxGridDBTableView;
    grdTableParametersView: TcxGridDBTableView;
    grdTableColumnsView: TcxGridDBTableView;
    grdScalarParametersViewName: TcxGridDBColumn;
    grdScalarParametersViewDataType: TcxGridDBColumn;
    grdScalarParametersViewLength: TcxGridDBColumn;
    grdScalarParametersViewPrecision: TcxGridDBColumn;
    grdScalarParametersViewScale: TcxGridDBColumn;
    grdTableParametersViewName: TcxGridDBColumn;
    grdTableParametersViewDataType: TcxGridDBColumn;
    grdTableParametersViewLength: TcxGridDBColumn;
    grdTableParametersViewPrecision: TcxGridDBColumn;
    grdTableParametersViewScale: TcxGridDBColumn;
    grdTableColumnsViewName: TcxGridDBColumn;
    grdTableColumnsViewDataType: TcxGridDBColumn;
    grdTableColumnsViewLength: TcxGridDBColumn;
    grdTableColumnsViewPrecision: TcxGridDBColumn;
    grdTableColumnsViewScale: TcxGridDBColumn;
    lblScalarFunctionName: TcxLabel;
    lblScalarSchema: TcxLabel;
    lblScalarReturnType: TcxLabel;
    lblScalarTypeLength: TcxLabel;
    lblTableFunctionName: TcxLabel;
    lblTableSchema: TcxLabel;
    Panel4: TPanel;
    Panel2: TPanel;
    Panel1: TPanel;
    Panel3: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btnScalarAddParamClick(Sender: TObject);
    procedure btnScalarEditParamClick(Sender: TObject);
    procedure btnScalarDeleteParamClick(Sender: TObject);
    procedure btnTableAddParamClick(Sender: TObject);
    procedure btnTableEditParamClick(Sender: TObject);
    procedure btnTableDeleteParamClick(Sender: TObject);
    procedure btnTableAddColumnClick(Sender: TObject);
    procedure btnTableEditColumnClick(Sender: TObject);
    procedure btnTableDeleteColumnClick(Sender: TObject);
    procedure btnGenerateScalarSQLClick(Sender: TObject);
    procedure btnCopyScalarSQLClick(Sender: TObject);
    procedure btnGenerateTableSQLClick(Sender: TObject);
    procedure btnCopyTableSQLClick(Sender: TObject);
    procedure cbScalarReturnTypePropertiesChange(Sender: TObject);
  private
    FScalarParamsDataSet : TFDMemTable;
    FTableParamsDataSet  : TFDMemTable;
    FTableColumnsDataSet : TFDMemTable;
    FFunctionBuilder     : TSQLFunctionBuilder;
    FConnection          : TFDConnection;

    procedure InitializeControls;
    procedure LoadSchemasFromDB;
    procedure LoadDataTypes;
    procedure CreateDataSets;
    procedure SetupGrids;

    procedure ShowParameterDialog(ADataSet : TFDMemTable; const AIsEdit : Boolean);
    procedure ShowColumnDialog(ADataSet : TFDMemTable; const AIsEdit : Boolean);
    procedure GenerateScalarFunctionSQL;
    procedure GenerateTableFunctionSQL;
  public
    procedure Initialize(AConnection : TFDConnection);
  end;

var
  FunctionBuilderForm: TFunctionBuilderForm;

implementation

uses
  Utileria;

{$R *.dfm}

procedure TFunctionBuilderForm.FormCreate(Sender: TObject);
begin
  FFunctionBuilder := TSQLFunctionBuilder.Create;
  CreateDataSets;
  InitializeControls;
  SetupGrids;
end;

procedure TFunctionBuilderForm.FormDestroy(Sender: TObject);
begin
  FFunctionBuilder.Free;
  FScalarParamsDataSet.Free;
  FTableParamsDataSet.Free;
  FTableColumnsDataSet.Free;
end;

procedure TFunctionBuilderForm.Initialize(AConnection : TFDConnection);
begin
  FConnection := AConnection;
  LoadSchemasFromDB;
end;

procedure TFunctionBuilderForm.CreateDataSets;
begin
  FScalarParamsDataSet := TFDMemTable.Create(Self);
  with FScalarParamsDataSet do
  begin
    FieldDefs.Add('Name', ftString, 128);
    FieldDefs.Add('DataType', ftString, 50);
    FieldDefs.Add('Length', ftInteger);
    FieldDefs.Add('Precision', ftInteger);
    FieldDefs.Add('Scale', ftInteger);
    CreateDataSet;
  end;

  FTableParamsDataSet := TFDMemTable.Create(Self);
  with FTableParamsDataSet do
  begin
    FieldDefs.Add('Name', ftString, 128);
    FieldDefs.Add('DataType', ftString, 50);
    FieldDefs.Add('Length', ftInteger);
    FieldDefs.Add('Precision', ftInteger);
    FieldDefs.Add('Scale', ftInteger);
    CreateDataSet;
  end;

  FTableColumnsDataSet := TFDMemTable.Create(Self);
  with FTableColumnsDataSet do
  begin
    FieldDefs.Add('Name', ftString, 128);
    FieldDefs.Add('DataType', ftString, 50);
    FieldDefs.Add('Length', ftInteger);
    FieldDefs.Add('Precision', ftInteger);
    FieldDefs.Add('Scale', ftInteger);
    CreateDataSet;
  end;
end;

procedure TFunctionBuilderForm.InitializeControls;
begin
  // Set source for grids
  grdScalarParametersView.DataController.DataSource         := TDataSource.Create(Self);
  grdScalarParametersView.DataController.DataSource.DataSet := FScalarParamsDataSet;

  grdTableParametersView.DataController.DataSource         := TDataSource.Create(Self);
  grdTableParametersView.DataController.DataSource.DataSet := FTableParamsDataSet;

  grdTableColumnsView.DataController.DataSource         := TDataSource.Create(Self);
  grdTableColumnsView.DataController.DataSource.DataSet := FTableColumnsDataSet;

  // Default to scalar function tab
  pcFunctions.ActivePage := tsScalarFunction;

  // Load data types
  LoadDataTypes;

  // Set initial text for function body
  memScalarBody.Lines.Clear;
  memScalarBody.Lines.Add('RETURN');

  memTableBody.Lines.Clear;
  memTableBody.Lines.Add('RETURN');
end;

procedure TFunctionBuilderForm.LoadSchemasFromDB;
var
  Query : TFDQuery;
begin
  if FConnection = nil then
    Exit;

  cbScalarSchema.Properties.Items.Clear;
  cbTableSchema.Properties.Items.Clear;

  Query := TFDQuery.Create(nil);
  try
    Query.Connection := FConnection;
    Query.SQL.Text   := 'SELECT schema_name FROM information_schema.schemata ORDER BY schema_name';

    try
      Query.Open;
      while not Query.Eof do
      begin
        cbScalarSchema.Properties.Items.Add(Query.FieldByName('schema_name').AsString);
        cbTableSchema.Properties.Items.Add(Query.FieldByName('schema_name').AsString);
        Query.Next;
      end;
    except
      on E : Exception do
        Mensaje('Error al obtener los esquemas: ' + E.Message,
                'Error de esquemas', Error);
    end;
  finally
    Query.Free;
  end;

  // Default to dbo schema
  if cbScalarSchema.Properties.Items.IndexOf('dbo') >= 0 then
    begin
      cbScalarSchema.ItemIndex := cbScalarSchema.Properties.Items.IndexOf('dbo');
      cbTableSchema.ItemIndex  := cbTableSchema.Properties.Items.IndexOf('dbo');
    end
  else
    if cbScalarSchema.Properties.Items.Count > 0 then
      begin
        cbScalarSchema.ItemIndex := 0;
        cbTableSchema.ItemIndex  := 0;
      end;
end;

procedure TFunctionBuilderForm.LoadDataTypes;
begin
  cbScalarReturnType.Properties.Items.Clear;

  // Add SQL Server data types
  cbScalarReturnType.Properties.Items.AddStrings([
    'INT', 'BIGINT', 'SMALLINT', 'TINYINT', 'BIT',
    'DECIMAL', 'NUMERIC', 'MONEY', 'SMALLMONEY', 'FLOAT', 'REAL',
    'DATE', 'DATETIME', 'DATETIME2', 'DATETIMEOFFSET', 'SMALLDATETIME', 'TIME',
    'CHAR', 'VARCHAR', 'TEXT', 'NCHAR', 'NVARCHAR', 'NTEXT',
    'BINARY', 'VARBINARY', 'IMAGE',
    'UNIQUEIDENTIFIER', 'XML', 'JSON'
  ]);

  if cbScalarReturnType.Properties.Items.Count > 0 then
    cbScalarReturnType.ItemIndex := 0;
end;

procedure TFunctionBuilderForm.SetupGrids;
begin
  // Configure grid columns for scalar parameters
  with grdScalarParametersView do
    begin
      with grdScalarParametersViewName do
      begin
        DataBinding.FieldName := 'Name';
        Caption               := 'Nombre';
        Width                 := 135;
      end;

      with grdScalarParametersViewDataType do
      begin
        DataBinding.FieldName := 'DataType';
        Caption               := 'Tipo de Dato';
        Width                 := 135;
      end;

      with grdScalarParametersViewLength do
      begin
        DataBinding.FieldName := 'Length';
        Caption               := 'Longitud';
        Width                 := 95;
      end;

      with grdScalarParametersViewPrecision do
      begin
        DataBinding.FieldName := 'Precision';
        Caption               := 'Precisión';
        Width                 := 95;
      end;

      with grdScalarParametersViewScale do
      begin
        DataBinding.FieldName := 'Scale';
        Caption               := 'Escala';
        Width                 := 70;
      end;
    end;

  // Configure grid columns for table parameters (same as scalar)
  with grdTableParametersView do
  begin
    with grdTableParametersViewName do
    begin
      DataBinding.FieldName := 'Name';
      Caption               := 'Nombre';
      Width                 := 135;
    end;

    with grdTableParametersViewDataType do
    begin
      DataBinding.FieldName := 'DataType';
      Caption               := 'Tipo de Dato';
      Width                 := 135;
    end;

    with grdTableParametersViewLength do
    begin
      DataBinding.FieldName := 'Length';
      Caption               := 'Longitud';
      Width                 := 95;
    end;

    with grdTableParametersViewPrecision do
    begin
      DataBinding.FieldName := 'Precision';
      Caption               := 'Precisión';
      Width                 := 95;
    end;

    with grdTableParametersViewScale do
    begin
      DataBinding.FieldName := 'Scale';
      Caption               := 'Escala';
      Width                 := 70;
    end;
  end;

  // Configure grid columns for table columns (same structure)
  with grdTableColumnsView do
  begin
    with grdTableColumnsViewName do
    begin
      DataBinding.FieldName := 'Name';
      Caption               := 'Nombre';
      Width                 := 135;
    end;

    with grdTableColumnsViewDataType do
    begin
      DataBinding.FieldName := 'DataType';
      Caption               := 'Tipo de Dato';
      Width                 := 135;
    end;

    with grdTableColumnsViewLength do
    begin
      DataBinding.FieldName := 'Length';
      Caption               := 'Longitud';
      Width                 := 95;
    end;

    with grdTableColumnsViewPrecision do
    begin
      DataBinding.FieldName := 'Precision';
      Caption               := 'Precisión';
      Width                 := 95;
    end;

    with grdTableColumnsViewScale do
    begin
      DataBinding.FieldName := 'Scale';
      Caption               := 'Escala';
      Width                 := 70;
    end;
  end;
end;

procedure TFunctionBuilderForm.btnScalarAddParamClick(Sender: TObject);
begin
  ShowParameterDialog(FScalarParamsDataSet, False);
end;

procedure TFunctionBuilderForm.btnScalarEditParamClick(Sender: TObject);
begin
  if not FScalarParamsDataSet.IsEmpty then
    ShowParameterDialog(FScalarParamsDataSet, True)
  else
    Mensaje('No hay parámetros para editar.',
            'Parámetros inexistentes', Advertencia);
end;

procedure TFunctionBuilderForm.btnScalarDeleteParamClick(Sender: TObject);
begin
  if not FScalarParamsDataSet.IsEmpty then
    begin
      if Mensaje('¿Está seguro de eliminar este parámetro?',
                 'Eliminar parámetro',Pregunta) = True then
        FScalarParamsDataSet.Delete;
    end
  else
    Mensaje('No hay parámetros para eliminar.',
            'Parámetros inexistentes', Advertencia);
end;

procedure TFunctionBuilderForm.btnTableAddParamClick(Sender: TObject);
begin
  ShowParameterDialog(FTableParamsDataSet, False);
end;

procedure TFunctionBuilderForm.btnTableEditParamClick(Sender: TObject);
begin
  if not FTableParamsDataSet.IsEmpty then
    ShowParameterDialog(FTableParamsDataSet, True)
  else
    Mensaje('No hay parámetros para editar.',
            'Parámetros inexistentes', Advertencia);
end;

procedure TFunctionBuilderForm.btnTableDeleteParamClick(Sender: TObject);
begin
  if not FTableParamsDataSet.IsEmpty then
    begin
      if Mensaje('¿Está seguro de eliminar este parámetro?',
                 'Eliminar parámetro',Pregunta) = True then
        FTableParamsDataSet.Delete;
    end
  else
    Mensaje('No hay parámetros para eliminar.',
            'Parámetros inexistentes', Advertencia);
end;

procedure TFunctionBuilderForm.btnTableAddColumnClick(Sender: TObject);
begin
  ShowColumnDialog(FTableColumnsDataSet, False);
end;

procedure TFunctionBuilderForm.btnTableEditColumnClick(Sender: TObject);
begin
  if not FTableColumnsDataSet.IsEmpty then
    ShowColumnDialog(FTableColumnsDataSet, True)
  else
    Mensaje('No hay columnas para editar.',
            'Columnas inexistentes', Advertencia);

end;

procedure TFunctionBuilderForm.btnTableDeleteColumnClick(Sender: TObject);
begin
  if not FTableColumnsDataSet.IsEmpty then
    begin
      if Mensaje('¿Está seguro de eliminar esta columna?',
                 'Eliminar columna',Pregunta) = True then
        FTableColumnsDataSet.Delete;
    end
  else
    Mensaje('No hay columnas para eliminar.',
            'Columnas inexistentes', Advertencia);

end;

procedure TFunctionBuilderForm.ShowParameterDialog(ADataSet : TFDMemTable; const AIsEdit : Boolean);
var
  Dialog : TParameterDialog;
begin
  Dialog := TParameterDialog.Create(Self, ADataSet, AIsEdit);
  try
    Dialog.ShowModal;
  finally
    Dialog.Free;
  end;
end;

procedure TFunctionBuilderForm.ShowColumnDialog(ADataSet : TFDMemTable; const AIsEdit : Boolean);
var
  Dialog : TParameterDialog;
begin
  Dialog := TParameterDialog.Create(Self, ADataSet, AIsEdit);
  try
    Dialog.Caption := 'Columna de Función de Tabla';
    Dialog.ShowModal;
  finally
    Dialog.Free;
  end;
end;

procedure TFunctionBuilderForm.cbScalarReturnTypePropertiesChange(Sender: TObject);
var
  DataType : string;
begin
  DataType := cbScalarReturnType.Text;

  // Enable/disable length field based on data type
  edtScalarTypeLength.Enabled := (DataType = 'VARCHAR') or (DataType = 'NVARCHAR') or
                                (DataType = 'CHAR') or (DataType = 'NCHAR') or
                                (DataType = 'BINARY') or (DataType = 'VARBINARY');
end;

procedure TFunctionBuilderForm.btnGenerateScalarSQLClick(Sender: TObject);
begin
  GenerateScalarFunctionSQL;
end;

procedure TFunctionBuilderForm.btnCopyScalarSQLClick(Sender: TObject);
begin
  if memScalarSQL.Text <> '' then
    begin
      Clipboard.AsText := memScalarSQL.Text;
      Mensaje('SQL copiado al portapapeles.',
              'Copiado al portapapeles', Informacion);
    end;
end;

procedure TFunctionBuilderForm.btnGenerateTableSQLClick(Sender: TObject);
begin
  GenerateTableFunctionSQL;
end;

procedure TFunctionBuilderForm.btnCopyTableSQLClick(Sender: TObject);
begin
  if memTableSQL.Text <> '' then
    begin
      Clipboard.AsText := memTableSQL.Text;
      Mensaje('SQL copiado al portapapeles.',
              'Copiado al portapapeles', Informacion);
    end;
end;

procedure TFunctionBuilderForm.GenerateScalarFunctionSQL;
var
  FunctionName, SchemaName, ReturnType, Body : string;
  ReturnLength: Integer;
begin
  FunctionName := Trim(edtScalarFunctionName.Text);

  if FunctionName = '' then
    begin
      Mensaje('Por favor, ingresa un nombre para la función.',
              'nombre inexistente', Advertencia);
      edtScalarFunctionName.SetFocus;
      Exit;
    end;

  SchemaName := cbScalarSchema.Text;

  if SchemaName = '' then
    SchemaName := 'dbo';

  ReturnType := cbScalarReturnType.Text;

  if ReturnType = '' then
    begin
      Mensaje('Por favor, selecciona un tipo de retorno.',
              'Selección inexistente', Advertencia);
      Exit;
    end;

  ReturnLength := StrToIntDef(edtScalarTypeLength.Text, 0);

  Body := memScalarBody.Text;

  if Body = '' then
    begin
      Mensaje('Por favor, ingresa el cuerpo de la función.',
              'Cuerpo de la función inexistente', Advertencia);
      Exit;
    end;

  // Clear builder and set properties
  FFunctionBuilder.Clear;
  FFunctionBuilder.FunctionName := FunctionName;
  FFunctionBuilder.FunctionType := ftScalar;
  FFunctionBuilder.Schema       := SchemaName;
  FFunctionBuilder.SetReturnType(ReturnType, ReturnLength);
  FFunctionBuilder.SetFunctionBody(Body);

  // Add parameters
  FScalarParamsDataSet.First;
  while not FScalarParamsDataSet.Eof do
  begin
    FFunctionBuilder.AddParameter(
      FScalarParamsDataSet.FieldByName('Name').AsString,
      FScalarParamsDataSet.FieldByName('DataType').AsString,
      pdInput,
      FScalarParamsDataSet.FieldByName('Length').AsInteger,
      FScalarParamsDataSet.FieldByName('Precision').AsInteger,
      FScalarParamsDataSet.FieldByName('Scale').AsInteger
    );
    FScalarParamsDataSet.Next;
  end;

  // Generate SQL
  memScalarSQL.Text := FFunctionBuilder.GenerateSQL;
end;

procedure TFunctionBuilderForm.GenerateTableFunctionSQL;
var
  FunctionName, SchemaName, Body : string;
begin
  FunctionName := Trim(edtTableFunctionName.Text);

  if FunctionName = '' then
    begin
      Mensaje('Por favor, ingresa un nombre para la función.',
              'nombre inexistente', Advertencia);
      edtTableFunctionName.SetFocus;
      Exit;
    end;

  SchemaName := cbTableSchema.Text;

  if SchemaName = '' then
    SchemaName := 'dbo';

  // Check if there's at least one column defined
  if FTableColumnsDataSet.IsEmpty then
    begin
      Mensaje('Debe definir al menos una columna para la tabla de retorno.',
              'columna inexistente', Advertencia);
      Exit;
    end;

  Body := memTableBody.Text;

  if Body = '' then
    begin
      Mensaje('Por favor, ingresa el cuerpo de la función.',
              'cuerpo de la función inexistente', Advertencia);
      Exit;
    end;

  // Clear builder and set properties
  FFunctionBuilder.Clear;
  FFunctionBuilder.FunctionName := FunctionName;
  FFunctionBuilder.FunctionType := ftTable;
  FFunctionBuilder.Schema       := SchemaName;
  FFunctionBuilder.SetFunctionBody(Body);

  // Add parameters
  FTableParamsDataSet.First;
  while not FTableParamsDataSet.Eof do
  begin
    FFunctionBuilder.AddParameter(
      FTableParamsDataSet.FieldByName('Name').AsString,
      FTableParamsDataSet.FieldByName('DataType').AsString,
      pdInput,
      FTableParamsDataSet.FieldByName('Length').AsInteger,
      FTableParamsDataSet.FieldByName('Precision').AsInteger,
      FTableParamsDataSet.FieldByName('Scale').AsInteger
    );
    FTableParamsDataSet.Next;
  end;

  // Add table columns
  FTableColumnsDataSet.First;
  while not FTableColumnsDataSet.Eof do
  begin
    FFunctionBuilder.AddTableColumn(
      FTableColumnsDataSet.FieldByName('Name').AsString,
      FTableColumnsDataSet.FieldByName('DataType').AsString,
      FTableColumnsDataSet.FieldByName('Length').AsInteger,
      FTableColumnsDataSet.FieldByName('Precision').AsInteger,
      FTableColumnsDataSet.FieldByName('Scale').AsInteger
    );
    FTableColumnsDataSet.Next;
  end;

  // Generate SQL
  memTableSQL.Text := FFunctionBuilder.GenerateSQL;
end;


end.