Delphi Delphi FMX TFrame Insert query in to Sqlite

[Lomanu4]

https://www.youtube.com/watch?v=ZB4XcOW5d5A&feature=youtu.be

Unit DB

unit objectinsertSQL

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation, FMX.Edit, FMX.Objects, FMX.Layouts;

type
  TFrame1 = class(TFrame)
    Layout1: TLayout;
    VertScrollBox1: TVertScrollBox;
    Rectangle1: TRectangle;
    Layout2: TLayout;
    Text1: TText;
    materiale: TEdit;
    Layout3: TLayout;
    Text2: TText;
    category: TEdit;
    Layout4: TLayout;
    Layout5: TLayout;
    Layout6: TLayout;
    Cancel: TSpeedButton;
    Insert: TSpeedButton;
    procedure CancelClick(Sender: TObject);
    procedure InsertClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   var
   objt:TFrame1;

implementation
  uses   DB,main;
{$R *.fmx}

procedure TFrame1.CancelClick(Sender: TObject);
begin
DisposeOf
end;

procedure TFrame1.InsertClick(Sender: TObject);
begin
  try
    if form1.ComboEdit1.Text = 'Test' then
      begin
        DataModule2.fdqry.SQL.Text:=
        'INSERT INTO Test (Materiale,Category)VALUES (:Materiale,:Category)';
          DataModule2.fdqry.ParamByName('Materiale').Value :=materiale.Text;
           DataModule2.fdqry.ParamByName('Category').Value :=category.Text;
            DataModule2.fdqry.OpenOrExecute;
           DataModule2.fdqry.SQL.Text :='Select * from Test';
          DataModule2.fdqry.OpenOrExecute;
      end;
  finally
   DisposeOf;
  end;
end;

end.

unit main;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit,
  FMX.ComboEdit, FMX.Layouts, FMX.TMSBaseControl, FMX.TMSGridCell,
  FMX.TMSGridOptions, FMX.TMSGridData, FMX.TMSCustomGrid, FMX.TMSLiveGrid,
  FMX.Objects, FMX.StdCtrls, FMX.Controls.Presentation,db, Data.Bind.EngExt,
  Fmx.Bind.DBEngExt, FMX.TMSLiveGridDataBinding, System.Rtti,
  System.Bindings.Outputs, Fmx.Bind.Editors, Data.Bind.Components,
  Data.Bind.Grid, Data.Bind.DBScope,objectinsertSQL;

type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    btnmenu: TSpeedButton;
    logo: TText;
    TMSFMXLiveGrid1: TTMSFMXLiveGrid;
    Layout1: TLayout;
    ComboEdit1: TComboEdit;
    BindSourceDB1: TBindSourceDB;
    BindingsList1: TBindingsList;
    LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource;
    procedure ComboEdit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.ComboEdit1Change(Sender: TObject);
  var
    Obj:Tframe1;
begin
    if ComboEdit1.Text = 'Test' then
     begin
       Obj         := TFrame1.Create(Form1);
       Obj.Parent  := form1;
       Obj.Align   := TAlignLayout.Client;
     end;
end;