Devart Forums

Code: Select all

unit UntConexion;

interface

 Uses MSAccess,ADODB,DB;

type

 TConexion = class
  private
   FError : string;
   FCadenaConexion : string;
   FConexion : TMSConnection;
   FStoredProc : TMSStoredProc;
   FMuestraVentanaConexion : Boolean;
   function GetCadenaConexion : string;
   procedure WriteCadenaConexion(AValue : string);
  public
   constructor Create;
   destructor Destroy;override;
   function Abrir : Boolean;
   procedure Cerrar;
   property CadenaConexion : string read GetCadenaConexion write WriteCadenaConexion;
   property Error : string read FError write FError;
   property MuestraVentanaConexion : Boolean read FMuestraVentanaConexion write FMuestraVentanaConexion;
   property StoreProcedure : TMSStoredProc read FStoredProc;
   property Conexion : TMSConnection read FConexion;
 end;

implementation

uses untClasesBasicas, UntCfgBD,Forms,Controls,SysUtils,Classes,OLEDBAccess;


{ TConexion }



procedure TConexion.Cerrar;
begin
 FConexion.Close;
end;

constructor TConexion.Create;
begin
 FConexion := TMSConnection.Create(Nil);
 FConexion.LoginPrompt := False;
 FConexion.Options.DisconnectedMode := True;
 FConexion.Pooling := True;
 FConexion.Authentication := auWindows;
 FConexion.Options.Provider := prNativeClient;
 FConexion.Options.NativeClientVersion := nc2012;
 FStoredProc := TMSStoredProc.Create(Nil);
 FStoredProc.Connection := FConexion;
 FMuestraVentanaConexion := True;
end;


destructor TConexion.Destroy;
begin
 FStoredProc.Free;
 FConexion.Free;
 inherited Destroy;
end;

procedure TConexion.WriteCadenaConexion(AValue: string);
begin
 OpcionesRegistro.CadenaConexion :=  AValue;
end;


function TConexion.GetCadenaConexion : string;
var
 Enc : TEnc;
begin
 Enc := TEnc.Create;
 try
  FCadenaConexion := OpcionesRegistro.CadenaConexion;
  Enc.TextoEnc := FCadenaConexion;
  Enc.DesEnc;
  Result := Enc.Texto;
 finally
  Enc.Free;
 end;
end;


function TConexion.Abrir : Boolean;
var
 cnxString : string;
 Enc : TEnc;
begin
 try
  FConexion.ConnectString := CadenaConexion;
  FConexion.Open;
  Result := True;
 except
  on ex : Exception do
   begin
    if FMuestraVentanaConexion then
     begin
      if frmCfgBD.MuestraCfgBD(cnxString) then
       begin
        Enc := TEnc.Create;
        try
         Enc.Texto := cnxString;
         Enc.Enc;
         WriteCadenaConexion(Enc.TextoEnc);
         Result := True;
        finally
         Enc.Free;
        end;
       end
      else
       begin
        Result := False;
        FError := 'No se ha podido establecer conexión a la base de datos.' + #13#13 + 'La acción ha sido cancelada por el usuario.'
       end;
     end
    else
     begin
      FError := 'Ha ocurrido un error al intentar conectar a la base de datos ' + #13#10 + ex.Message;
      Result := False;
     end;
   end;
 end;
end;
end.

Code: Select all

function TMovInv.Guardar : Boolean;
var
 Conexion : TConexion;
begin
 Result := true;
 Conexion := TConexion.Create;
 Conexion.Abrir;
 try
  Conexion.StoreProcedure.Close;
  Conexion.StoreProcedure.StoredProcName := 'PA_OPERACIONES_MOVINV';
  Conexion.StoreProcedure.Params.ParamByName('PMENU').Value := 'tsrInserta';
  Conexion.StoreProcedure.Params.ParamByName('DATOS').Value := Get_XML;
  Conexion.StoreProcedure.ExecProc;
  if Conexion.StoreProcedure.Params.ParamByName('PMensaje').Value <> 'SIN ERROR' then
   begin
    Error := Conexion.StoreProcedure.Params.ParamByName('PMensaje').Value;
    Result := false;
   end
 finally
  Conexion.Free;
 end;
end;