Database

unit uPrincipal;

interface

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

type
  TfrmPrincipal = class(TForm)
    Label1: TLabel;
    btnBD: TButton;
    procedure btnBDClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation

{$R *.dfm}

uses u_DM;

procedure TfrmPrincipal.btnBDClick(Sender: TObject);
var
  tabela: String;
begin
  tabela := 'Favoritos';
  try
    DM.Consulta.Close;
    DM.Consulta.SQL.Add
      ('CREATE TABLE if not exists '+tabela+'(id INT NOT NULL AUTO_INCREMENT, `Usuario` VARCHAR(30), `Url` VARCHAR(300), `Computador` VARCHAR(30), PRIMARY KEY(id)) DEFAULT CHARSET = utf8');
    DM.Consulta.ExecSQL;
  except
    on E: Exception do
      ShowMessage(E.ClassName + #13 + 'Erro!' + #13 + E.Message);
  end;
end;

end.

//DataModule
unit u_DM;

interface

uses
  System.SysUtils, System.Classes, 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.MySQLDef,
  FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
  FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client,
  FireDAC.Comp.UI, FireDAC.Phys.MySQL, Vcl.Dialogs, Data.FMTBcd;

type
  TDM = class(TDataModule)
    Conexao: TFDConnection;
    Driver: TFDPhysMySQLDriverLink;
    DataSource: TDataSource;
    Cursor: TFDGUIxWaitCursor;
    Consulta: TFDQuery;
    Comando: TFDCommand;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  DM: TDM;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

uses uPrincipal;
{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
var
  banco: String;
begin
  (* Obs: Essas configurações são para conexão local(localhost) *)
  banco := 'DBase';
  Conexao.Params.UserName := 'root';
  Conexao.Params.Password := '';
  Driver.VendorLib := 'libmySQL.dll';

  try
    Conexao.Connected := True;
    DM.Comando.Close;
    DM.Comando.CommandText.CommaText :=
      ('CREATE DATABASE IF NOT EXISTS ' + banco +
      ' DEFAULT CHARACTER SET utf8 DEFAULT COLLATE utf8_general_ci');
    DM.Comando.Execute;
    DM.Comando.Close;
    DM.Comando.CommandText.CommaText := 'USE ' + banco + '';
    DM.Comando.Execute;

  except
    on E: Exception do
    begin
      showMessage(E.ClassName + #13 + 'Erro ao conectar' + #13 + E.Message);
      exit
    end;
  end;
end;

procedure TDM.DataModuleDestroy(Sender: TObject);
begin
  Conexao.Connected := False;
  Consulta.Active := False;
end;

end.