Geographic Visualization

uses
  BI.Geographic;

begin
  // Initialize database (automatic on first use)
  TGeo.Check;
  
  // Access country data
  ShowMessage(TGeo.Country.Name.TextData[0]);
end;

var
  Countries: TDataItem;
  Name, Capital: TDataItem;
begin
  Countries := TGeo.Country.Countries;
  Name := TGeo.Country.Name;
  Capital := TGeo.Country.Capital;
  
  // ISO codes
  ISONum := TGeo.Country.ISONum;    // ISO-3166 Numeric
  ISOA2 := TGeo.Country.ISOA2;      // ISO-3166 Alpha-2
  ISOA3 := TGeo.Country.ISOA3;      // ISO-3166 Alpha-3
end;

var
  Continents: TEntity;
begin
  Continents := TGeo.Continents;
  
  // Access continent names
  ShowMessage(Continents.Name.TextData[0]);
end;

var
  USA: TUSA;
  States, Counties: TEntity;
begin
  USA := TGeo.Entities.USA;
  
  // Access states
  States := USA.States;
  ShowMessage(States.Name.TextData[0]);  // First state name
  
  // Access counties
  Counties := USA.Counties;
end;

var
  Spain: TSpain;
  Regions, Provinces: TEntity;
begin
  Spain := TGeo.Entities.Spain;
  
  Regions := Spain.Regions;
  Provinces := Spain.Provinces;
end;

uses
  VCLBI.Chart, BI.Geographic;

var
  Chart: TBIChart;
  Data: TDataItem;
begin
  Chart := TBIChart.Create(Owner);
  Chart.Parent := Self;
  
  // Data with country names automatically displays map
  Chart.Data := CountrySalesData;
  
  // TeeBI detects geographic content and creates map
  // Chart.Options.Mode will be TBIChartMode.Geographic
end;

var
  LinkedData: TDataItem;
begin
  // Check if data is linked to geographic database
  LinkedData := TGeo.LinkedTo(MyData);
  
  if LinkedData <> nil then
    ShowMessage('Data is geographic: ' + LinkedData.Name);
end;

type
  TEntity = record
    Data: TDataItem;      // Full data table
    ID: TDataItem;        // Unique identifier
    Name: TDataItem;      // Display name
    Pad: Integer;         // Zero-padding for IDs
  end;

var
  States: TEntity;
  StateID, StateName: String;
begin
  States := TGeo.Entities.USA.States;
  
  // Get state ID
  StateID := States.ID.TextData[0];
  
  // Get state name
  StateName := States.Name.TextData[0];
  
  // Lookup by code
  StateName := States.NameOfCode(12);  // Florida
end;

var
  Link: TMasterDetail;
  Multi: TMasterDetail;
begin
  // Check if data has master-detail relationship
  if TGeo.IsMultiEntity(MyData, Multi) then
  begin
    // Access master
    ShowMessage('Master: ' + Multi.Master.Data.Name);
    
    // Access detail
    ShowMessage('Detail: ' + Multi.Detail.Data.Name);
    
    // Access linking field
    ShowMessage('Link: ' + Multi.DetailToMaster.Name);
  end;
end;

uses
  VCLBI.Chart, VCLBI.Chart.Geo, BI.Geographic;

var
  Chart: TBIChart;
  Values, Text: TDataItem;
begin
  Chart := TBIChart.Create(Owner);
  Chart.Parent := Self;
  Chart.Align := alClient;
  
  // Force geographic mode
  Chart.Options.Mode := TBIChartMode.Geographic;
  
  // Set data
  Values := SalesData['Amount'];    // Values to display
  Text := SalesData['Country'];     // Country names
  
  Chart.Data := SalesData;
end;

var
  RealName: String;
begin
  // Find official name from synonym
  RealName := TGeo.FindSynonym('USA');
  // Returns: 'United States of America'
  
  RealName := TGeo.FindSynonym('UK');
  // Returns: 'United Kingdom'
end;

uses
  VCLBI.Chart, BI.DataItem, BI.Geographic, BI.Summary;

procedure CreateCountrySalesMap;
var
  Chart: TBIChart;
  Data: TDataItem;
  Summary: TSummary;
begin
  // Load sales data with country column
  Data := LoadSalesData;
  
  // Create pivot by country
  Summary := TSummary.Create(nil);
  try
    Summary.AddGroupBy(Data['Country']);
    Summary.AddMeasure(Data['Amount'], TAggregate.Sum);
    
    // Create chart
    Chart := TBIChart.Create(Owner);
    Chart.Parent := Self;
    Chart.Align := alClient;
    
    // Display on world map
    Chart.Fill(Summary);
    
    // Customize
    Chart.Chart.Title.Text := 'Sales by Country';
  finally
    Summary.Free;
  end;
end;

var
  GeoData: TDataItem;
begin
  // Load from default store
  GeoData := TStore.Load('Geo');
end;