Beginnings of Delphi12 SQLite DB access

.pas

unit Shopping;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.SQLite,
  FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, FireDAC.VCLUI.Wait,
  FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt,
  FireDAC.Phys.SQLiteWrapper.Stat, Data.DB, FireDAC.Comp.DataSet,
  FireDAC.Comp.Client, Vcl.StdCtrls, Vcl.FormTabsBar, Vcl.ComCtrls;

type
  TForm1 = class(TForm)
    FDConnection1: TFDConnection;
    FDQuery1: TFDQuery;
    DataSource1: TDataSource;
    FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink;
    TabControl1: TTabControl;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    sql: string;
    list_names: TStringList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    if not FDConnection1.Connected then
      FDConnection1.Open;

    sql := 'CREATE TABLE IF NOT EXISTS list (' +
           'id INTEGER PRIMARY KEY AUTOINCREMENT, ' +
           'name TEXT)';
    FDConnection1.ExecSQL(sql);
    sql := 'CREATE TABLE IF NOT EXISTS item (' +
           'id INTEGER PRIMARY KEY AUTOINCREMENT, ' +
           'name TEXT, ' +
           'note TEXT, ' +
           'category TEXT, ' +
           'cost NUMBER, ' +
           'quantity INTEGER, ' +
           'list_id INTEGER, ' +
           'assigned INTEGER)';
    FDConnection1.ExecSQL(sql);
  except
    on E: Exception do
      ShowMessage('Error creating tables: ' + E.Message);
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  i: integer;
begin
  FDQuery1.Close;
  FDQuery1.Open;
  if FDQuery1.RecordCount > 0 then
  begin
    list_names := TStringList.Create;
    try
      i := 0;
      FDQuery1.First;
      while not FDQuery1.Eof do
      begin
        list_names.Add(FDQuery1.FieldByName('name').AsString);
        Inc(i);
        FDQuery1.Next;
      end;
      TabControl1.Tabs := list_names;
    finally
      list_names.Free;
    end;
  end;
  FDQuery1.Close;
end;

end.