Classe TDM_Connections

Unit

Declaração

type TDM_Connections = class(TDataModule)

Descrição

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

Hierarquia

Visão Geral

Campos

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

Métodos

Public procedure DataModuleCreate(Sender: TObject);
Public procedure SQLConnector1AfterConnect(Sender: TObject);
Public procedure SQLConnector1AfterDisconnect(Sender: TObject);
Public procedure SQLConnector1BeforeConnect(Sender: TObject);
Public procedure SQLConnector1BeforeDisconnect(Sender: TObject);
Public procedure SQLConnector1Log(Sender: TSQLConnection; EventType: TDBEventType; const Msg: String);
Public procedure SQLConnector1Login(Sender: TObject; Username, Password: string);
Public Function GetParametros_Conexao(aFileName:String;var aParam:TParam):Boolean;
Public procedure SetParametros_Conexao(aFileName:String;var aParam:TParam);
Public function DoConnect(Const login: String; Const Senha: String): boolean;

Propriedades

Public property Connection : Boolean Read GetConnection Write SetConnection;

Descrição

Campos

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

Métodos

Public procedure DataModuleCreate(Sender: TObject);

O método DataModuleCreate checa se o arquivo config.ini existe, se existir, ler os parãmetros de conexão do arquivo config.ini, se não existir pede para a pessoa que executou o programa informar parâmetros para conexão e em seguida salva no arquivo config.ini.

Public procedure SQLConnector1AfterConnect(Sender: TObject);
 
Public procedure SQLConnector1AfterDisconnect(Sender: TObject);
 
Public procedure SQLConnector1BeforeConnect(Sender: TObject);
 
Public procedure SQLConnector1BeforeDisconnect(Sender: TObject);
 
Public procedure SQLConnector1Log(Sender: TSQLConnection; EventType: TDBEventType; const Msg: String);
 
Public 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.

Public Function GetParametros_Conexao(aFileName:String;var aParam:TParam):Boolean;
 
Public procedure SetParametros_Conexao(aFileName:String;var aParam:TParam);
 
Public function DoConnect(Const login: String; Const Senha: String): boolean;
 

Propriedades

Public property Connection : Boolean Read GetConnection Write SetConnection;
 

Gerado por PasDoc 0.16.0.