[calciojar]

Este es el codigo del Modulo Reportes (dmReportes)

Código Delphi [-]
unit dm_Reportes;

interface

uses
  SysUtils, Classes, FR_DSet, FR_DBSet, DB, IBCustomDataSet, IBQuery, Forms,
  IBSQL;

type
  TdmReportes = class(TDataModule)
    qryMatriNom: TIBQuery;
    dsMatricula: TDataSource;
    frMatricula: TfrDBDataSet;
    qryMatriNomNOMBRE_APELLIDO: TIBStringField;
    qryBusFac: TIBQuery;
    dsBusFac: TDataSource;
    qryBusFacCOD_FACTURA: TIntegerField;
    //procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
    procedure Guardas;
  public
    { Public declarations }
    Procedure BuscarMatriNom(Nombre: String);
    procedure BusFac(Factura: String);
  end;

var
  dmReportes: TdmReportes;

implementation

uses dm_Conexion, dm_Tablas, frm_CambiarLoginPass, frm_Codificadores,
  frm_Facturar, frm_InformesRecaudo, frm_InformesUsuario,
  frm_InformesVarios, frm_IngresarPagos, frm_Inicio, frm_Matricula,
  frm_Principal, DateUtils;

{$R *.dfm}

procedure TdmReportes.BuscarMatriNom(Nombre: String);
begin
  with qryMatriNom do
  begin
    Close;
      ParamByName('parametro').AsString := '%'+Nombre+'%';
    Open;
  end;
end;

procedure TdmReportes.BusFac(Factura: String);
Begin
  with qryBusFac do
  begin
    //Close;
      ParamByName('PMBusFac').AsString := '%'+Factura+'%';
    Open;
  end;
end;

procedure TdmReportes.Guardas;
begin
  dmConexion.SalvarTransaccion;
end;

end.