ActiveDelphi :: Exibir tópico - [RESOLVIDO] Resultado de sorteio FastReport

ActiveDelphi
.: O site do programador Delphi! :.

FAQ

Pesquisar

Membros

Grupos

Registrar

Perfil

Entrar e ver Mensagens Particulares

Entrar

[RESOLVIDO] Resultado de sorteio FastReport

ActiveDelphi - Índice do Fórum -> Delphi

Exibir mensagem anterior :: Exibir próxima mensagem

Autor

Mensagem

netoferreira
Novato
Novato

Registrado: Sexta-Feira, 19 de Dezembro de 2014
Mensagens: 77
Localização: Macapá - AP

Enviada: Qua Abr 05, 2017 3:38 pm Assunto: [RESOLVIDO] Resultado de sorteio FastReport

Mudei a forma de sorteio de uma aplicação para gerar chaves para campeonato de Jiu-Jitsu, antes usada um ListBox e mandava para o FastReport através de variáveis como nas imagens e no texto abaixo.

Código:

DmRelatorios := TDmRelatorios.Create(nil);
try
DmRelatorios.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'relatorios\frmChave.fr3');
DmRelatorios.frxReport.Variables['Versao'] := QuotedStr(VersaoExe);
DmRelatorios.frxReport.Variables['Categoria'] := QuotedStr(edtCategoria.Text);
DmRelatorios.frxReport.Variables['Atleta01'] := QuotedStr(lbxSorteados.Items[0]);
DmRelatorios.frxPDFExport.FileName := edtCategoria.Text;
if lbxSorteados.Items.Count >= 2 then
begin
DmRelatorios.frxReport.Variables['Atleta02'] := QuotedStr(lbxSorteados.Items[1]);
end;
if lbxSorteados.Items.Count >= 3 then
begin
DmRelatorios.frxReport.Variables['Atleta03'] := QuotedStr(lbxSorteados.Items[2]);
end;
if lbxSorteados.Items.Count >= 4 then
begin
DmRelatorios.frxReport.Variables['Atleta04'] := QuotedStr(lbxSorteados.Items[3]);
end;
if lbxSorteados.Items.Count >= 5 then
begin
DmRelatorios.frxReport.Variables['Atleta05'] := QuotedStr(lbxSorteados.Items[4]);
end;
if lbxSorteados.Items.Count >= 6 then
begin
DmRelatorios.frxReport.Variables['Atleta06'] := QuotedStr(lbxSorteados.Items[5]);
end;
if lbxSorteados.Items.Count >= 7 then
begin
DmRelatorios.frxReport.Variables['Atleta07'] := QuotedStr(lbxSorteados.Items[6]);
end;
if lbxSorteados.Items.Count >= 8 then
begin
DmRelatorios.frxReport.Variables['Atleta08'] := QuotedStr(lbxSorteados.Items[7]);
end;
if lbxSorteados.Items.Count >= 9 then
begin
DmRelatorios.frxReport.Variables['Atleta09'] := QuotedStr(lbxSorteados.Items[8]);
end;
if lbxSorteados.Items.Count >= 10 then
begin
DmRelatorios.frxReport.Variables['Atleta10'] := QuotedStr(lbxSorteados.Items[9]);
end;
if lbxSorteados.Items.Count >= 11 then
begin
DmRelatorios.frxReport.Variables['Atleta11'] := QuotedStr(lbxSorteados.Items[10]);
end;
if lbxSorteados.Items.Count >= 12 then
begin
DmRelatorios.frxReport.Variables['Atleta12'] := QuotedStr(lbxSorteados.Items[11]);
end;
if lbxSorteados.Items.Count >= 13 then
begin
DmRelatorios.frxReport.Variables['Atleta13'] := QuotedStr(lbxSorteados.Items[12]);
end;
if lbxSorteados.Items.Count >= 14 then
begin
DmRelatorios.frxReport.Variables['Atleta14'] := QuotedStr(lbxSorteados.Items[13]);
end;
if lbxSorteados.Items.Count >= 15 then
begin
DmRelatorios.frxReport.Variables['Atleta15'] := QuotedStr(lbxSorteados.Items[14]);
end;
if lbxSorteados.Items.Count >= 16 then
begin
DmRelatorios.frxReport.Variables['Atleta16'] := QuotedStr(lbxSorteados.Items[15]);
end;
if lbxSorteados.Items.Count >= 17 then
begin
DmRelatorios.frxReport.Variables['Atleta17'] := QuotedStr(lbxSorteados.Items[16]);
end;
if lbxSorteados.Items.Count >= 18 then
begin
DmRelatorios.frxReport.Variables['Atleta18'] := QuotedStr(lbxSorteados.Items[17]);
end;
if lbxSorteados.Items.Count >= 19 then
begin
DmRelatorios.frxReport.Variables['Atleta19'] := QuotedStr(lbxSorteados.Items[18]);
end;
if lbxSorteados.Items.Count >= 20 then
begin
DmRelatorios.frxReport.Variables['Atleta20'] := QuotedStr(lbxSorteados.Items[19]);
end;
if lbxSorteados.Items.Count >= 21 then
begin
DmRelatorios.frxReport.Variables['Atleta21'] := QuotedStr(lbxSorteados.Items[20]);
end;
if lbxSorteados.Items.Count >= 22 then
begin
DmRelatorios.frxReport.Variables['Atleta22'] := QuotedStr(lbxSorteados.Items[21]);
end;
if lbxSorteados.Items.Count >= 23 then
begin
DmRelatorios.frxReport.Variables['Atleta23'] := QuotedStr(lbxSorteados.Items[22]);
end;
if lbxSorteados.Items.Count >= 24 then
begin
DmRelatorios.frxReport.Variables['Atleta24'] := QuotedStr(lbxSorteados.Items[23]);
end;
if lbxSorteados.Items.Count >= 25 then
begin
DmRelatorios.frxReport.Variables['Atleta25'] := QuotedStr(lbxSorteados.Items[24]);
end;
if lbxSorteados.Items.Count >= 26 then
begin
DmRelatorios.frxReport.Variables['Atleta26'] := QuotedStr(lbxSorteados.Items[25]);
end;
if lbxSorteados.Items.Count >= 27 then
begin
DmRelatorios.frxReport.Variables['Atleta27'] := QuotedStr(lbxSorteados.Items[26]);
end;
if lbxSorteados.Items.Count >= 28 then
begin
DmRelatorios.frxReport.Variables['Atleta28'] := QuotedStr(lbxSorteados.Items[27]);
end;
if lbxSorteados.Items.Count >= 29 then
begin
DmRelatorios.frxReport.Variables['Atleta29'] := QuotedStr(lbxSorteados.Items[28]);
end;
if lbxSorteados.Items.Count >= 30 then
begin
DmRelatorios.frxReport.Variables['Atleta30'] := QuotedStr(lbxSorteados.Items[29]);
end;
if lbxSorteados.Items.Count >= 31 then
begin
DmRelatorios.frxReport.Variables['Atleta31'] := QuotedStr(lbxSorteados.Items[30]);
end;
if lbxSorteados.Items.Count >= 32 then
begin
DmRelatorios.frxReport.Variables['Atleta32'] := QuotedStr(lbxSorteados.Items[31]);
end;
DmRelatorios.frxReport.ShowReport();
finally
FreeAndNil(DmRelatorios);
end;

Agora estou usando um DBGrid com um ClientDataSet e preciso enviar para o FastReport. A minha pergunta é, como enviar para as cada registro para um determinado label de uma variável?

Editado pela última vez por netoferreira em Sex Abr 14, 2017 7:22 pm, num total de 1 vez

Voltar ao Topo

conorte
Experiente

Registrado: Quinta-Feira, 8 de Mai de 2014
Mensagens: 406
Localização: Porto Alegre/RS

Enviada: Seg Abr 10, 2017 1:35 pm Assunto:

Olá! Puxa vida! Tá legal pra caramba! Parabéns. Achei uns tópicos aqui no fórum, espero que lhe ajude: http://www.activedelphi.com.br/forum/viewtopic.php?t=53937&sid=cabc20908f8e01f5e7328c4e9e320378 http://www.activedelphi.com.br/forum/viewtopic.php?t=78989&sid=73756330004363b34abc4660edf8a6ec http://www.activedelphi.com.br/forum/viewtopic.php?t=46396&sid=7a67e48bad0526cead097eb3da8289b8 _________________ Luciano Moraes 1º curso de Pascal em 1998.

Voltar ao Topo

netoferreira
Novato
Novato

Registrado: Sexta-Feira, 19 de Dezembro de 2014
Mensagens: 77
Localização: Macapá - AP

Enviada: Sex Abr 14, 2017 7:21 pm Assunto:

conorte escreveu:

Olá! Puxa vida! Tá legal pra caramba! Parabéns.
Achei uns tópicos aqui no fórum, espero que lhe ajude:

http://www.activedelphi.com.br/forum/viewtopic.php?t=53937&sid=cabc20908f8e01f5e7328c4e9e320378

http://www.activedelphi.com.br/forum/viewtopic.php?t=78989&sid=73756330004363b34abc4660edf8a6ec

http://www.activedelphi.com.br/forum/viewtopic.php?t=46396&sid=7a67e48bad0526cead097eb3da8289b8

Obrigado conorte,

Ficou assim:

Código:

if DmDados.CDS_tbl_atleta_sorteio_.IsEmpty then
begin
Abort;
end;

DmRelatorios := TDmRelatorios.Create(nil);
try
DmRelatorios.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName)+'relatorios\relChave.fr3');
DmRelatorios.frxReport.Variables['Versao'] := QuotedStr(VersaoExe);
DmRelatorios.frxReport.Variables['Categoria'] := QuotedStr(cbxCategoria.Text);
DmRelatorios.frxPDFExport.FileName := cbxCategoria.Text;

with DmDados do
begin
CDS_tbl_atleta_sorteio_.First; // CDS_Atleta_Sorteio_ para para a primeira posição
DmRelatorios.frxReport.Variables['Atleta01'] := QuotedStr('01 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 2 then
begin
DmRelatorios.frxReport.Variables['Atleta02'] := QuotedStr('02 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 3 then
begin
DmRelatorios.frxReport.Variables['Atleta03'] := QuotedStr('03 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 4 then
begin
DmRelatorios.frxReport.Variables['Atleta04'] := QuotedStr('04 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 5 then
begin
DmRelatorios.frxReport.Variables['Atleta05'] := QuotedStr('05 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 6 then
begin
DmRelatorios.frxReport.Variables['Atleta06'] := QuotedStr('06 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 7 then
begin
DmRelatorios.frxReport.Variables['Atleta07'] := QuotedStr('07 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 8 then
begin
DmRelatorios.frxReport.Variables['Atleta08'] := QuotedStr('08 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 9 then
begin
DmRelatorios.frxReport.Variables['Atleta09'] := QuotedStr('09 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 10 then
begin
DmRelatorios.frxReport.Variables['Atleta10'] := QuotedStr('10 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 11 then
begin
DmRelatorios.frxReport.Variables['Atleta11'] := QuotedStr('11 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 12 then
begin
DmRelatorios.frxReport.Variables['Atleta12'] := QuotedStr('12 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 13 then
begin
DmRelatorios.frxReport.Variables['Atleta13'] := QuotedStr('13 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 14 then
begin
DmRelatorios.frxReport.Variables['Atleta14'] := QuotedStr('14 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 15 then
begin
DmRelatorios.frxReport.Variables['Atleta15'] := QuotedStr('15 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 16 then
begin
DmRelatorios.frxReport.Variables['Atleta16'] := QuotedStr('16 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 17 then
begin
DmRelatorios.frxReport.Variables['Atleta17'] := QuotedStr('17 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 18 then
begin
DmRelatorios.frxReport.Variables['Atleta18'] := QuotedStr('18 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 19 then
begin
DmRelatorios.frxReport.Variables['Atleta19'] := QuotedStr('19 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 20 then
begin
DmRelatorios.frxReport.Variables['Atleta20'] := QuotedStr('20 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 21 then
begin
DmRelatorios.frxReport.Variables['Atleta21'] := QuotedStr('21 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 22 then
begin
DmRelatorios.frxReport.Variables['Atleta22'] := QuotedStr('22 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 23 then
begin
DmRelatorios.frxReport.Variables['Atleta23'] := QuotedStr('23 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 24 then
begin
DmRelatorios.frxReport.Variables['Atleta24'] := QuotedStr('24 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 25 then
begin
DmRelatorios.frxReport.Variables['Atleta25'] := QuotedStr('25 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 26 then
begin
DmRelatorios.frxReport.Variables['Atleta26'] := QuotedStr('26 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 27 then
begin
DmRelatorios.frxReport.Variables['Atleta27'] := QuotedStr('27 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 28 then
begin
DmRelatorios.frxReport.Variables['Atleta28'] := QuotedStr('28 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 29 then
begin
DmRelatorios.frxReport.Variables['Atleta29'] := QuotedStr('29 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 30 then
begin
DmRelatorios.frxReport.Variables['Atleta30'] := QuotedStr('30 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 31 then
begin
DmRelatorios.frxReport.Variables['Atleta31'] := QuotedStr('31 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;

CDS_tbl_atleta_sorteio_.Next;
if CDS_tbl_atleta_sorteio_.RecordCount >= 32 then
begin
DmRelatorios.frxReport.Variables['Atleta32'] := QuotedStr('32 - ' + CDS_tbl_atleta_sorteio_.FieldByName('no_apelido_equipe').AsString);
end;
end;

DmRelatorios.frxReport.ShowReport();
finally
FreeAndNil(DmRelatorios);
end;

Voltar ao Topo

Mostrar os tópicos anteriores:

	ActiveDelphi - Índice do Fórum -> Delphi	Todos os horários são GMT - 3 Horas
Página 1 de 1

Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.