Ajuda em ReportBuilder, IBO e para criação de Function

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Ajuda em ReportBuilder, IBO e para criação de Function

Chamar Formulário
Nome do formulario := TNome do formulário.Create(Self);
Nome do formulario.Showmodal;
Nome do formulario.Free;
Criando função no Delphi
function Nome da função(Nome do parametro : Tipo de dados de entrada) :Tipo dos dados de saída. Depois pressionar Crtl + Shift + C.
Result é responsável por receber os dados de saída da função.
Nome da Tabela.First – Vai para o 1º registro da tabela.
Nome da Tabela.Next  - Vai para o próximo registro da tabela.
Nome da Tabela.RecordCount – Vai até o último registro gravado da tabela.
ProgressBar
Nome do ProgressBar.Max – Para informar o valor máximo do progressbar.
Nome do ProgressBar.Position := Nome da tabela.RecNo
Botão Novo
Nome da Query. Append;
Nome do Edit. Setfocus;
Botão Alterar
Nome da Query. Edit;
Botão Salvar
Nome da Query. Post;
Nome da Query. Nome do Transaction. CommitRetaining;
Botão Apagar
Nome da Query. Delete;
Botão Cancelar
Nome da Query. Cancel;
Nome da Query. Nome do Transaction. CommitRetaining;
Botão Retornar
Close;
Não deixa fechar a tela quando estiver em modo de edição
No Onclosequery do formulário:
  if (not (Nome da Tabela.State in [dsInsert, dsEdit]) and not (Nome da Tabela.State in [dsinsert,dsEdit])) then
   CanClose := true
else CanClose := false;
AutoIncrement
Incluir uma query com o seguinte SQL: Select Max (nome do campo) from nome da tabela;
Variável := Query.fieldbyname(‘Max’). asInteger  +  1;
Mudar de Campo ao Pressionar do ENTER
Botão invisível
Default: True;
Enabled: True;
Widht: 0;
No onclick : Self.Perform(WM_NEXTDLGCTL,0,0);
Jogo de botões 
DataSet: Nome da Query;
OnStateChange:  Nome do Botão Novo.Enabled := Nome do DataSource.State = dsBrowse;
 Nome do Botão Altera.Enabled := Nome do Botão Novo.Enabled;
 Nome do Botão Salva.Enabled := not Nome do Botão Novo.Enabled;
Nome do Botão Cancela.Enabled := not Nome do Botão Novo.Enabled;
Nome do Botão Retorna.Enabled := Nome do Botão Novo.Enabled;
ClienteDataSet: É Responsável pela criação da cópia de uma tabela onde a propriedade FieldsDefds poderá incluir todas os campos da tabela que irá fazer a cópia onde deveremos informar os campos de acordo como estão na tabela principal .
A Propriedade IndexField é responsável pela criação das chaves da tabela cópia.
Indexname é responsável pela indicação do nome do campo que será a chave principal.
Consultas através da função SETSQLWHERE
Adicionar a biblioteca “PARSE” na uses da unit.
Adicionar uma variável.
No Onclick do botão Pesquisar
Nome da Query de Consulta.Close;
Variável:= IBOQuery_ConsultaTimes.SQL.Text;
SETSQLWHERE (variável, 'Where upper (Nome do campo pesquisado) like '+quotedstr ('%'+ UpperCase (nome do Edit.Text) + '%') );
 Nome da Query de Consulta. SQL. Text:= SQL;
 Nome da Query de Consulta. Open;
Para saber se a Tabela está vazia utilizamos o seguinte código: IF Nome da Tabela. Recordcount > 0.
Indexname
Serve para classificar a ordem de impressão nos relatórios. Devemos incluir o seguinte código no onclick do botão imprimir: Nome da Tabela. Indexname:= 'Nome do Campo Chave';
 
Exportando dados de um DbGrid para o Excel
DBGrid2Excel1.Workbook := nil;
DBGrid2Excel1.WorkSheetName := 'Testando exportação';
DBGrid2Excel1.ExportDBGrid;
DBGrid2Excel1.SaveAs('Caminho onde será salvo o arquivo em formato xls');
Reportbuilder
Texto: Funciona como o Label no Delphi.
Variável do Sistema: Como o nome já o diz é utilizado para pegar valores do sistema tipo: Data, Horário, Data/Horário, Nº da página entre outras, para poder altera – lá, basta modificar a propriedade Vartype.
Variável: Funciona parecido com a Variável do Sistema, nele temos a propriedade Calctype que é utilizada para fazer cálculos, por exemplo, na paleta cálculos no evento oncalc se adicionarmos o código: Value:= Value + 1; ele irá contar o numero de itens cadastrados.
Imagem: É utilizado para importar imagens para o relatório, utilizando a propriedade Picture, além de poder fazer várias alterações como: Alterar largura da borda, tamanho da imagem entre outras.
Polígono: É utilizada para fazer as formas de tabelas nos relatórios onde nele existe a propriedade Shape onde podemos modificar a forma do retângulo, podendo deixá-lo mais arredondado, quadrado e etc... Na paleta Cálculo no evento onprint devemos adicionar o código: Nome do 1º Shape. Height:= valor para ajustar a página;
Linha: É utilizada para fazer formas no relatório, auxiliado pelo componente polígono para fazer tabelas. Nela existe a propriedade Position que é onde escolhemos a posição em que vai ficar a linha, existe a propriedade Style que podemos escolher se a linha será simples ou dupla.
CRTL + G: irá inserir grupos no relatório onde podemos separar os dados existentes por tipos um exemplo pode ser separar as cidades por seus respectivos estados.
As unidades devem ser medidas em Milímetros e a configuração da página deve ser de 20 para todas as dimensões.
Campo Calculado pode ser utilizado para fazer a soma, contagem, máximo, mínimo e média de valores no relatório alterando a propriedade DBCalcType do componente.
Podemos adicionar um PARAMETRO no Reportbuilder para que possa incluir um campo da área de desenvolvimento para o relatório adicionando o seguinte código: Nome do ppReport.Parameters['Nome do Parametro'].Value := Campo que irá informar o valor que será adicionado no relatório;
Devemos incluir no 1º Shape na aba cálculo o evento Onprint onde receberá o seguinte código: Nome do Shape. Height:= Valor que se adéqüe melhor a página; (Irá fazer o final de o relatório ficar com o espaço).
Para incluir o formato dia e data juntos (quarta-feira, 07 de outubro de 2009) no componente Variável do Sistema devemos alterar o displayFormat para : dddd, dd " de " mmmm " de " yyyy.
Exemplo de como alterar as cores de um determinado campo será colocar o seguinte código no evento onPrint do campo:  Nome do Campo.Font.Color := clWindowText;
if  Nome da Tabela[‘Parametro'] = 'Nome do parametro' then
Nome do Campo.Font.Color := clGreen;
if  Nome da Tabela [' Parametro '] = 'Nome do parametro' then
Nome do Campo.Font.Color := clMaroon;
if  Nome da Tabela [' Parametro '] = 'Nome do parametro' then
Nome do Campo.Font.Color := clBlue;
if  Nome da Tabela [' Parametro '] = 'Nome do parametro' then
Nome do Campo.Font.Color := clRed;
if  Nome da Tabela [' Parametro '] = 'Nome do parametro' then
Nome do Campo.Font.Color := clTeal;
end;
 
Espero que tenham gostado!
 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?