Rodar o Crystal a partir do Delphi 7
Caros Colegas
Depois de instalado os controles activex do Crystal no D7, qual o objeto do Crystal a ser usado e como configura-lo para poder capturar e passar os parametros do relatorio e fazer ele rodar ?
Depois de instalado os controles activex do Crystal no D7, qual o objeto do Crystal a ser usado e como configura-lo para poder capturar e passar os parametros do relatorio e fazer ele rodar ?
Mauricioao_cwb
Curtidas 0
Respostas
Mozico
05/07/2004
//Ex: Crystal 9
with Crpe1 do
begin
ReportName := ´C:\RPTs\Empregados.rpt´; //Caminho do Reltatorio
Connect.ServerName := ´Firebird´ ; // crie um odbc
Connect.UserID := ´SYSDBA´ ;
Connect.Password := ´masterkey´ ;
Connect.DatabaseName := ´10.0.0.1:\EMPLOYEE.FDB´; // Caminho do B.D
Selection.Formula.Clear;
Connect.Test;
Selection.Formula.Text := ´{EMPLOYEE.EMP_NO} = ´+ Edit1.Text +´ ´; // Formulap/ Filtrar Registros
DiscardSavedData;
Refresh;
Execute;
end ; // end with
with Crpe1 do
begin
ReportName := ´C:\RPTs\Empregados.rpt´; //Caminho do Reltatorio
Connect.ServerName := ´Firebird´ ; // crie um odbc
Connect.UserID := ´SYSDBA´ ;
Connect.Password := ´masterkey´ ;
Connect.DatabaseName := ´10.0.0.1:\EMPLOYEE.FDB´; // Caminho do B.D
Selection.Formula.Clear;
Connect.Test;
Selection.Formula.Text := ´{EMPLOYEE.EMP_NO} = ´+ Edit1.Text +´ ´; // Formulap/ Filtrar Registros
DiscardSavedData;
Refresh;
Execute;
end ; // end with
GOSTEI 0