Como usar o Crystal Reports XI como o Delphi 2009

Primeiro instale o componente Crystal ActiveX Report View Library 11.0 através da opção Import Component do menu Component







Será acrescentada a paleta Crystal na barra de componentes como segue.


Executando um relatório .crp a partir de uma aplicação.
Em uma nova aplicação acrescente um botão a um formulário e no seu evento de clique adicione o seguinte código:

Uses OleCtrls, CrystalActiveXReportViewerLib11_TLB;
…
procedure TForm1.Button2Click(Sender: TObject);
var
cry: TCrystalActiveXReportViewer;
oRpt, oApp: variant;
i: integer;
frm: TForm;
begin
// criação do objeto e identificação do arquivo .rpt a ser executado
cry := TCrystalActiveXReportViewer.Create(Self);
oApp := CreateOleObject('CrystalRuntime.Application');
oRpt := oApp.OpenReport('K:\Copia\rel\comissao.rpt', 1);
// passando o usuario e a senha do bando de dados para o relatório
for i := 1 to oRpt.Database.Tables.Count do begin
oRpt.Database.Tables[i].ConnectionProperties.Item['User ID'] := 'usuarioDoBancoDeDados';
oRpt.Database.Tables[i].ConnectionProperties.Item['Password'] := 'senhaDoBancoDeDados';
end;
// exemplo de passagem de parâmetros do tipo data e texto
oRpt.ParameterFields.GetItemByName('data1', '').AddCurrentValue(StrToDateTime( '01/04/2006 15:15:22' ));
oRpt.ParameterFields.GetItemByName('data2', '').AddCurrentValue(StrToDateTime( '05/04/2006 15:15:22' ));
oRpt.ParameterFields.GetItemByName('usuario', '').AddCurrentValue('Francisco Soares');

// criando o formulario que exibirá o relatório
frm := TForm.Create(Self);
try
cry.Parent := frm;
cry.Align := alClient;
cry.ReportSource := oRpt;
cry.ViewReport;
frm.Position := poOwnerFormCenter;
frm.ShowModal;
finally
FreeAndNil(frm);
end;
end;


Espero ter colaborado com esse exemplo. Qualquer dúvida sobre o assunto pode enviá-las que se eu souber eu as repoderei.

Strings de conexão com banco de dados

Deivid Roger Oliveira Santos escreveu vários exemplos de Strings de Conecxões com os banco de dados mais usados atualmente. Sugiro como consulta.

http://www.linhadecodigo.com.br/ArtigoImpressao.aspx?id=1640

Manipulação de datas

Delphi
1. Verifica se o ano é bissexto

function IsThisLeapYear: Boolean;
begin
Result := IsLeapYear(YearOf(Date));
end;

Oracle

• SYSDATE - retorna a data e a hora atual do banco de dados
  
  
  SELECT SYSDATE FROM dual;
  
  SYSDATE
  
  ---------------------
  
  30/07/2009 12:00:00



• ADD_MONTHS - somando meses ou subtraindo meses
  
  
  SELECT ADD_MONTHS(SYSDATE,1) FROM DUAL;
  
  
  ADD_MONTHS(SYSDATE,1)
  
  --------------------
  
  30/08/2009 12:00:00



• LAST_DAY - último dia do mês da data passada como parâmetro
  
  
  SELECT LAST_DAY(sysdate) FROM dual;
  
  
  LAST_DAY(SYSDATE)
  
  -----------------
  
  30/04/2009 10:17:00



• NEXT_DAY - próximo dia da semana
  
  
  SELECT SYSDATE, NEXT_DAY(SYSDATE,7) FROM dual;
  
  
  SYSDATE     NEXT_DAY(SYSDATE,7)
  
  ----------- -------------------
  
  06/04/2009  11/04/2009



• MONTHS_BETWEEN - número de meses que existem entre duas datas
  
  
  SELECT MONTHS_BETWEEN(ADD_MONTHS(SYSDATE,5),SYSDATE) FROM DUAL;
  
  
  MONTHS_BETWEEN(ADD_MONTHS(SYSDATE)
  
  ------------------------------
  
  5

Exemplos de CSS para formatar tabelas

Se você precisar formatar uma tabela e não tiver tempo para criar um modelo legal. Nesse site há vários modelos.

http://icant.co.uk/csstablegallery/index.php?css=84#r84

Formatar data no MS SQL Server

Exemplos de como formatar data direto na sentença SQL

SELECT CONVERT (VARCHAR, campo_tipo_data, 3) FROM nome_tabela
--> DD/MM/YY

SELECT CONVERT (VARCHAR, campo_tipo_data, 1) FROM nome_tabela
--> MM/DD/YYYY

SELECT CONVERT (VARCHAR, campo_tipo_data, 103) FROM nome_tabela
--> DD/MM/YYYY

SELECT CONVERT (VARCHAR, campo_tipo_data, 101) FROM nome_tabela
--> MM/DD/YYYY

Espero que seja útil.

Evitando erros de TNS

Dicas práticas para configurar o Oracle

http://profissionaloracle.com.br/blogs/rodrigoalmeida/tag/sqlnetora/

Visualizar JOBS no Oracle

Para visualizar os jobs pode-se utilizar a query abaixo:

SELECT JOB,
SUBSTR(WHAT,1,35),
NEXT_DATE,
NEXT_SEC,
BROKEN
FROM DBA_JOBS;


JOB SUBSTR(WHAT,1,35) NEXT_DATE NEXT_SEC B
---------- ----------------------------------- --------- -------- -
1 DBA.TESTE_001; 21-MAR-03 17:04:02 N
2 DBA.TESTE_002; 21-MAR-03 17:28:13 N
3 DBA.TESTE_003; 21-MAR-03 17:02:37 N
4 DBA.TESTE_004; 26-MAR-03 08:00:00 N