unTestProject.pas

unit unTestProject;

interface

uses
  System.SysUtils,
  System.Types,
  System.UITypes,
  System.Classes,
  System.Variants,
  System.Rtti,
  System.Bindings.Outputs,

  FMX.Types,
  FMX.Controls,
  FMX.Forms,
  FMX.Graphics,
  FMX.Dialogs,
  FMX.Controls.Presentation,
  FMX.StdCtrls,
  FMX.TabControl,
  FMX.Bind.Editors,
  FMX.Grid.Style,
  FMX.ScrollBox,
  FMX.Grid,
  FMX.Bind.DBEngExt,
  FMX.Bind.Grid,
  FMX.ExtCtrls,
  FMX.ListBox,
  FMX.Layouts;

type
  TForm1 = class(TForm)
    ButSQLite: TButton;
    ButMySQL: TButton;
    ButPostgreSQL: TButton;
    ButFirebird: TButton;
    TabControl1: TTabControl;
    TabSQLite: TTabItem;
    GridSQLite: TGrid;
    TabFirebird: TTabItem;
    GridFirebird: TGrid;
    TabMySQL: TTabItem;
    GridMySQL: TGrid;
    TabPostgreSQL: TTabItem;
    GridPostgreSQL: TGrid;
    ComboBoxSQLite: TComboBox;
    ComboBoxFirebird: TComboBox;
    ComboBoxMySQL: TComboBox;
    ComboBoxPostgreSQL: TComboBox;
    ListBoxSQLite: TListBox;
    ListBoxFirebird: TListBox;
    ListBoxMySQL: TListBox;
    ListBoxPostgreSQL: TListBox;
    procedure ButSQLiteClick(Sender: TObject);
    procedure ButMySQLClick(Sender: TObject);
    procedure ButPostgreSQLClick(Sender: TObject);
    procedure ButFirebirdClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

uses
  ADBConnection, ADBQueryBuilder;

procedure TForm1.ButSQLiteClick(Sender: TObject);
var
  DBSQLite : TADBConnection;
  Query: TADBQueryBuilder;
  SQL: TADBQuery;
begin
  DBSQLite := TADBConnection.Create;
  //DBSQLite := TADBConnectionClass.GetInstance();
  try
    DBSQLite.Driver := SQLITE;
    DBSQLite.Database :=
    {$IFDEF MSWINDOWS}
      ExtractFilePath(ParamStr(0)) + 'DB.SQLITE';
    {$ELSE}
      TPath.Combine(TPath.GetDocumentsPath, 'DB.SQLITE');
    {$ENDIF}

    if not DBSQLite.GetInstance.Connection.Connected then
      DBSQLite.GetInstance.Connection.Connected := True;

    SQL := TADBQuery.Create;
    try
      SQL := Query.View('SELECT * FROM logradouro');
      SQL.toGrid(GridSQLite);
      SQL.toComboBox(ComboBoxSQLite, 'id', 'nome');
      SQL.toListBox(ListBoxSQLite, 'id', 'nome');
      //ShowMessage(SQL.Query.RecordCount.ToString);
    finally
      SQL.Free;
    end;

  finally
    DBSQLite.Free;
  end;
end;

procedure TForm1.ButFirebirdClick(Sender: TObject);
var
  DBFirebird : TADBConnection;
  Query: TADBQueryBuilder;
  SQL: TADBQuery;
begin
  DBFirebird := TADBConnection.Create;
  //DBFirebird := TADBConnectionClass.GetInstance();
  try
    DBFirebird.Driver := FIREBIRD;
    DBFirebird.Host := '127.0.0.1';
    DBFirebird.Port := 3050;
    DBFirebird.Database :=
    {$IFDEF MSWINDOWS}
      ExtractFilePath(ParamStr(0)) + 'DB.FDB';
    {$ELSE}
      TPath.Combine(TPath.GetDocumentsPath, 'DB.FDB');
    {$ENDIF}
    DBFirebird.Username := 'SYSDBA';
    DBFirebird.Password := 'masterkey';

    if not DBFirebird.GetInstance.Connection.Connected then
      DBFirebird.GetInstance.Connection.Connected := True;

    SQL := TADBQuery.Create;
    try
      SQL := Query.View('SELECT * FROM "card_sector"');
      SQL.toGrid(GridFirebird);
      SQL.toComboBox(ComboBoxFirebird, 'id', 'nome');
      SQL.toListBox(ListBoxFirebird, 'id', 'nome');
      //ShowMessage(SQL.Query.RecordCount.ToString);
    finally
      SQL.Free;
    end;

  finally
    DBFirebird.Free;
  end;
end;

procedure TForm1.ButMySQLClick(Sender: TObject);
var
  DBMySQL : TADBConnection;
  Query: TADBQueryBuilder;
  SQL: TADBQuery;
begin
  DBMySQL := TADBConnection.Create;
  //DBMySQL := TADBConnectionClass.GetInstance();
  try
    DBMySQL.Driver := MYSQL;
    DBMySQL.Host := '127.0.0.1';
    DBMySQL.Port := 3306;
    DBMySQL.Database := 'demodev';
    DBMySQL.Username := 'demo';
    DBMySQL.Password := 'masterkey';

    if not DBMySQL.GetInstance.Connection.Connected then
      DBMySQL.GetInstance.Connection.Connected := True;

    SQL := TADBQuery.Create;
    try
      SQL := Query.View('SELECT * FROM estado');
      SQL.toGrid(GridMySQL);
      SQL.toComboBox(ComboBoxMySQL, 'id', 'nome');
      SQL.toComboBox(ListBoxMySQL, 'id', 'nome');
      //ShowMessage(SQL.Query.RecordCount.ToString);
    finally
      SQL.Free;
    end;

  finally
    DBMySQL.Free;
  end;
end;

procedure TForm1.ButPostgreSQLClick(Sender: TObject);
var
  DBPostgreSQL : TADBConnection;
  Query: TADBQueryBuilder;
  SQL: TADBQuery;
begin
  DBPostgreSQL := TADBConnection.Create;
  //DBPostgreSQL := TADBConnectionClass.GetInstance();
  try
    DBPostgreSQL.Driver := POSTGRES;
    DBPostgreSQL.Host := '127.0.0.1';
    DBPostgreSQL.Port := 5432;
    DBPostgreSQL.Database := 'postgres';
    DBPostgreSQL.Schema := 'demodev';
    DBPostgreSQL.Username := 'postgres';
    DBPostgreSQL.Password := 'masterkey';

    if not DBPostgreSQL.GetInstance.Connection.Connected then
      DBPostgreSQL.GetInstance.Connection.Connected := True;

    SQL := TADBQuery.Create;
    try
      SQL := Query.View('SELECT * FROM demodev.cidade');
      SQL.toGrid(GridPostgreSQL);
      SQL.toComboBox(ComboBoxPostgreSQL, 'id', 'nome');
      SQL.toListBox(ListBoxPostgreSQL, 'id', 'nome');
      //ShowMessage(SQL.Query.RecordCount.ToString);
    finally
      SQL.Free;
    end;

  finally
    DBPostgreSQL.Free;
  end;
end;

end.