Fazendo pesquisa no banco de dados
Autor: Helio | Publicado: 2010-11-30T10:43:00-08:00

Criação de relatórios Utilizando Delhpi 5.0 e FastReport* Obviamente o FastReport deverá estar instalado e configurado no Delphi.Primeira etapa: construir a interface de consulta1. Em um DataModule ou em um Form coloque um frReport e frBDEComponents da aba FastReport2. No Object Inspector na aba Properties, selecione a opçao TRUE em StoreInDFM3. Dê um clique com botão direito e selecione Design Report4. Clique no botão Add Dialog Form6. Onde tem Page2 Arraste para Page1,sem mostrar nada, agora a janela de diálogo é a primeira a aparecer7. Selecione do lado esquerdo Insert Query8. Dê um clique no formulario (aparecerá uma query)9. Selecione InsertLabelControl e clique na janela10. No object inspector na opção caption coloque o titulo que desejar, se desejar ver   como está clique no botão Preview report do fastreport11. Coloque um botão na opção Insert button control12. Colque um DBLookUPComboBox clicando em Insert DBLookUpComboBoxControl--- Pronto: Interface criada ---segunda etapa: ligar a interface com o bd1. Coloque um componente table2. Clique em table e no object inspector e em databasename e selecione seu ALIAs        Obs.: Para mostrar dados vc terá que Já ter um criado um ALIAS para seu bd utilizando o    BDE Administrator ou o SQLMonitor3. No object inspector clique em Active e selecione true para a sua table;4. No object Inspector clique em tablename e selecione o nome da tabela que quer mostrar    os dados 5. Agora clique sobre o DBLookupComboBox e selecione no object inspector listSource: a tabelaque vc colocou, listField: o nome do campo que quer mostrar para o usuario, e por ultimokeyfield (campo chave primária da tabela)( a partir deste momento do componente dblookupcombobox passa a mostrar o campo  que foi selecionado, para ver clique em Preview)6. Clique na Query7. no object inspector clique na opção databasename e selecione o nome do alias do seu bd   3. Permaneça com a query selecionada e selecione no object inspector a opção SQL, será   aberta uma janela (clique no botão ao lado)8. Agora vc pode digitar ai qualquer expressão em SQL para a consulta no seu bd. Porém essa   consulta deve ter uma "variavel" que vai receber o conteudo da seleção do dblookupcombobox.   Exemplo de uma consulta:    select *from aluno where (cod_aluno:=CodA)   Essa consulta mostra o nome do aluno que tem cod_aluno igual ao conteudo da variavel CodA)9. Clique na Query e em Object Inspector clique em Params (somente vai abrir a janela   se vc criar a "variavel" na sua consulta SQL, no caso CodA)10. Na janela que se abrir no campo Data Type selecione o tipo do campo que está na    consulta, no caso cod_aluno é Integer.11. Agora clique na opção value e coloque o seguinte código: dblookupcombobox1.text, desse    na sua consulta será levado em consideração o texto do componente.--- Pronto,bd linkado.---Terceira etapa: Construir o relatório mostrado ao usuario1.Clique na aba Page22.Clique em InsertBand e depois em MasterHeader(cabeçalho mostrado em todas páginas)3.Clique em Object Retangle e digite um titulo4.clique no botão e no object inspector e na opção ModalResult selecione mrOK.  (Faça um teste clique preview e clique no botão, deverá ser mostrado um relatório em branco)5.Clique em InsertBand e depois em MasterData clique em sua query e ok6. Observe a janela Insert Data Field, clique na sua query, se não houver erros de sintaxe   na sua expressão SQL todos os campos da tabela serão mostrados, arraste aquele que vc  apareça no seu relatorio. O que deve acontecer é que para o código do aluno selecionado  no dblookupcombobox o nome correspondente será mostrado.7.Observe que existem ferramentas para fazer linhas ou colocar linhas no retangle.( a partir deste momento o relatório já pode ser mostrado,para ver clique em Preview)--- Relatório criado ---Quarta Etapa: Código no delphi para mostrar o relatório1. Salve tudo2. No delhpi, se quiser chamar o relatório a partir de um botão:   no evento OnClick do botão digite: nome do report.showReport, no caso aqui   frReport1.showReport;3. Se quiser utilizar um menu é só adicionar o mesmo código no menu. Tudo terminado. --- Relatório mostrado ---Ok! É só isso.