Rodar o Crystal a partir do Delphi 7
05/07/2004
0
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
Curtir tópico
+ 0
Responder
Posts
06/07/2004
Mozico
//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
Responder
Clique aqui para fazer login e interagir na Comunidade :)