Utilizando lazreport
LazarusBrasil :: Geral :: Utilização
Página 1 de 1
Utilizando lazreport
Saudações
Estou trabalhando com desenvolvimento de um software que apresentarei no meu trabalho de conclusão da pos-graduação.
Preciso exibir algumas informações no lazreport.
Criei o relatorio, e as variaveis.
Enquanto usando edits, sem problemas. A questão é quando preciso passar ao relatorio, os valores de um stringgrid.
Busquei resposta em um exemplo que vem no lazreport, mas configurei conforme o exemplo e o relatorio não tem cristo de
exibir todas as linhas da stringgrid.
Segue:
procedure TFormredes.filaCheckEOF(Sender: TObject; var Eof: Boolean);
begin
Eof := linha > sgrede.RowCount - 1;
end;
procedure TFormredes.filaFirst(Sender: TObject);
begin
linha:= 1;
end;
procedure TFormredes.filaNext(Sender: TObject);
begin
inc(linha);
end;
procedure TFormredes.fr1GetValue(const ParName: String; var ParValue: Variant);
begin
if parname = 'maquinas' then
parvalue:=editcomputadores.text;
if parname = 'setor' then
parvalue:=sgrede.cells[0,fila];
if parname = 'npc' then
parvalue:=sgrede.cells[1,fila];
if parname = 'ip'then
parvalue:=sgrede.cells[2,fila];
if parname = 'masc' then
parvalue:=sgrede.cells[3,fila];
end;
Alguem pode me prestar um socorro??
Abração galera.
Estou trabalhando com desenvolvimento de um software que apresentarei no meu trabalho de conclusão da pos-graduação.
Preciso exibir algumas informações no lazreport.
Criei o relatorio, e as variaveis.
Enquanto usando edits, sem problemas. A questão é quando preciso passar ao relatorio, os valores de um stringgrid.
Busquei resposta em um exemplo que vem no lazreport, mas configurei conforme o exemplo e o relatorio não tem cristo de
exibir todas as linhas da stringgrid.
Segue:
procedure TFormredes.filaCheckEOF(Sender: TObject; var Eof: Boolean);
begin
Eof := linha > sgrede.RowCount - 1;
end;
procedure TFormredes.filaFirst(Sender: TObject);
begin
linha:= 1;
end;
procedure TFormredes.filaNext(Sender: TObject);
begin
inc(linha);
end;
procedure TFormredes.fr1GetValue(const ParName: String; var ParValue: Variant);
begin
if parname = 'maquinas' then
parvalue:=editcomputadores.text;
if parname = 'setor' then
parvalue:=sgrede.cells[0,fila];
if parname = 'npc' then
parvalue:=sgrede.cells[1,fila];
if parname = 'ip'then
parvalue:=sgrede.cells[2,fila];
if parname = 'masc' then
parvalue:=sgrede.cells[3,fila];
end;
Alguem pode me prestar um socorro??
Abração galera.
macsmo- Mensagens : 2
Data de inscrição : 23/06/2010
corrigindo
No evento ongetvalue a variavel nao e fila, e sim linha:
procedure TFormredes.fr1GetValue(const ParName: String; var ParValue: Variant);
begin
if parname = 'maquinas' then
parvalue:=editcomputadores.text;
if parname = 'setor' then
parvalue:=sgrede.cells[0,linha];
if parname = 'npc' then
parvalue:=sgrede.cells[1,linha];
if parname = 'ip'then
parvalue:=sgrede.cells[2,linha];
if parname = 'masc' then
parvalue:=sgrede.cells[3,linha];
end;
procedure TFormredes.fr1GetValue(const ParName: String; var ParValue: Variant);
begin
if parname = 'maquinas' then
parvalue:=editcomputadores.text;
if parname = 'setor' then
parvalue:=sgrede.cells[0,linha];
if parname = 'npc' then
parvalue:=sgrede.cells[1,linha];
if parname = 'ip'then
parvalue:=sgrede.cells[2,linha];
if parname = 'masc' then
parvalue:=sgrede.cells[3,linha];
end;
macsmo- Mensagens : 2
Data de inscrição : 23/06/2010
LazarusBrasil :: Geral :: Utilização
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|