Classe TMiConnectionsDb

Unit

uMiConnectionsDb

Declaração

type TMiConnectionsDb = class(TDataModule)

Descrição

O Data Module TMiConnectionsDb é usado para conectar-se ao banco de dados através de parâmetros salvos no arquivo config.ini

• PARÂMETROS

  PASCAL
  
           object dm_connections: Tdm_connections
             O[]nCreate = DataModuleCreate
             OnDestroy = DataModuleDestroy
             OldCreateOrder = False
             Height = 160
             HorizontalOffset = 616
             VerticalOffset = 328
             Width = 414
             object SQLTransaction1: TSQLTransaction
               Active = False
               Action = caCommit
               Database = SQLConnector1
               Left = 336
               Top = 32
             end
             object SQLConnector1: TSQLConnector
               Connected = True
               LoginPrompt = True
               DatabaseName = 'assistente_virtual'
               KeepConnection = True
               Password = 'masterkey'
               Transaction = SQLTransaction1
               UserName = 'postgres'
               HostName = '45.160.125.12'
               Options = [scoApplyUpdatesChecksRowsAffected]
               ConnectorType = 'PostgreSQL'
               Left = 208
               Top = 32
             end
           end

• EXEMPLO

  • O evento OnCreate do forme principal deve executar o seguinte código:

    
    if Assigned(dm_connections)
    then begin
           dm_connections.Connection  := true;
           if not dm_connections.Connection
           then halt // Termina a aplicação
           else dm_connections.Connection  := false; //Fecha a conexão com o banco de dados
         end;

Hierarquia

• TObject
• TPersistent
• TComponent
• TDataModule
• TMiConnectionsDb

Visão Geral

Classes e Registros Aninhados

TParam = record

Campos

	SQLConnector1: TSQLConnector;
	SQLTransaction1: TSQLTransaction;
	var _Connection:Boolean ;

Métodos

	procedure DataModuleCreate(Sender: TObject);
	procedure SQLConnector1Login(Sender: TObject; Username, Password: string);
	procedure DmxScroller_Form1CloseQuery(aDmxScroller: TUiDmxScroller; var CanClose: boolean);
	function GetParametros_Conexao(aFileName:String;var aParam:TParam):Boolean;
	procedure SetParametros_Conexao(aFileName:String;var aParam:TParam);

Propriedades

property Connection : Boolean Read GetConnection Write SetConnection;

Descrição

Campos

	SQLConnector1: TSQLConnector;
O atributo SQLConnector1 permite contectar ao banco de dados.

	SQLTransaction1: TSQLTransaction;
O atributo SQLTransaction1 permite o usu de transações para acessar o BD.

	var _Connection:Boolean ;

Métodos

	procedure DataModuleCreate(Sender: TObject);
O método DataModuleCreate torna o datamodule privado.

	procedure SQLConnector1Login(Sender: TObject; Username, Password: string);
O evento SQLConnector1Login é usado para checar no banco de dados se o usuário tem permisão para conectar-se.

	procedure DmxScroller_Form1CloseQuery(aDmxScroller: TUiDmxScroller; var CanClose: boolean);

	function GetParametros_Conexao(aFileName:String;var aParam:TParam):Boolean;
O método name ler os parâmetros de conexão com o banco de dados postgress NOTAS Caso o arquivo config.ini não exista, o método GetParametros_Conexao solicita do usuário através do método GetForm_Connections;

	procedure SetParametros_Conexao(aFileName:String;var aParam:TParam);
O método name grava no arquivo config.ini os parâmetros de conexão com o banco de dados postgres.

Propriedades

property Connection : Boolean Read GetConnection Write SetConnection;

A propriedade Connection conecta-se ou desconecta-se do banco de dados. NOTAS: A método Connection checa se o arquivo config.ini existe, se existir então ler os parãmetros de conexão do arquivo config.ini; se o arquivo config.ini não existir então pede para a pessoa que executou o programa informar os parâmetros para conexão, em seguida salva os parâmetros no arquivo config.ini. PARÂMETROS DE CONEXÃO SESSÃO CONEXÃO; ConnectorType; UserName; Password; HostName; REFERÊNCIAS [Using INI Files](https://wiki.freepascal.org/Using_INI_Files)

---

Gerado por PasDoc 0.16.0.