Delphi Aplicado Módulo 2A, Notas de estudo de Tecnologia Industrial

Baixe Delphi Aplicado Módulo 2A e outras Notas de estudo em PDF para Tecnologia Industrial, somente na Docsity!

R Fecha formulário com animação

Ao clicar no “x” fechará o formulário de forma animada.

Digite as variáveis no início do programa.

Ao clicar no X para fechar o formulário, este começará ficar com os cantos arredondados, diminuindo e aumentando seu tamanho... em ciclo, até que for confirmado Sim ou Não.

R Animando formulário na abertura

O código abaixo abrirá um outro formulário de forma animada, tipo, explodindo o formulário. Escreva o código no formulário que deseja abrir, neste exemplo será aberto o formulário de nome Form.

• Formulário de Login:

Ž Formulário do menu.

Clique duplo no componente ImageList , será aberta uma tela onde será possível adicionar ícones.

Dê um clique duplo no componente MainMenu para definir as opções na tela abaixo:

• Formulário de Clientes

Ícones usados:

Resultado:

Ao clicar no botão x vermelho, pede se realmente quer remover todos os registros.

Se ao clicar na setinha para posicionar o ponteiro no primeiro registro os ícones setinhas desaparecerão visto que o ponteiro estará posicionado no primeiro registro.

Setinhas estão ocultas Veja as setinhas abaixo:

Clicar no X no canto do formulário para fecha-lo, será pedido confirmação.

Ž Insira um componente Table , altere a propriedade Name para Clientes_TB_Relatorio , na propriedade Databasename defina o alias, na propriedade TableName defina a tabela Clientes.Db.

• Clique duplo no formulário QuickReport , será aberta a tela abaixo:

‘ Após clicado OK teremos o formulário abaixo.

• Clique no formulário no QuickReport ( região branca ), clique no componente Table1 e mude o nome para Clientes_TB_Relatorio , defina a tabela na propriedade TableName para Clientes.DB. Clique em Clientes_TB_Relatorio , clique na propriedade Active e defina True.

Clique na região branca e defina a propriedade DataSet para Clientes_TB_Relatorio. Altere a propriedade Name para QuickReport1 para QReport_Todos_Clientes. Se preferir deixe o nome QuickReport.

’ Vamos definir o cabeçalho do relatório, data , hora e numeração de página do relatório. O layout do formulário será visto mais adiante, alinhamentos etc.

• Os componentes do relatório estão na aba QReport.
• Insira 5 componentes QRLabel , estes serão alterados recebendo um nome ( caption ) adequado.
• Insira dois componentes QRSysData1 , para definir a data e hora e outro para numeração da página.

“ Veja abaixo após alterado todos os captions dos QRLabels com seus respectivos nomes.

” Agora insira 4 componentes QRDBText para imprimir ( listar ) os registros da tabela Clientes.

Obs: Todos os dados da tabela são impressos na banda Detail.

Para digitar o texto Pág.: Clique no componente QRSysData e na propriedade Data defina qrsPageNumber , na propriedade Text digite Pág.:

Clique em QRSysData , mude a propriedade Data que esta mostrando como default ( padrão ) qrsTime , mude para qrsPageNumber

Considere o seguinte exemplo, ao invés de ser Cadastro de Clientes , ser apenas um Cadastro de Funcionários com alguns detalhes a mais.

Clique na banda Summary , clique no evento BeforePrint ( ante de imprimir ) e digite o código abaixo:

Resultado:

Ž Todos os componentes que estão na banda Title e Column Header são do tipo QRlabel , basta alterar a propriedade Caption de cada um digitando o texto desejado.

• Todos os componentes que estão na banda Detail são do tipo QRDBText, para cada um destes deverá ser definido as propriedades DataSet e DataField ( para associar o nome do campo ).

ŒInsira um componente Table , clique na propriedade Name e digite Funcionários_TB_Rel , na propriedade DatabaseName defina um Alias , na propriedade TableName defina o nome da tabela Funcionários.db , clique na propriedade Active e defina o valor para True , clique duplo sobre Funcionários_TB_Rel , clique no botão direito, clique em Add fields e Ok para confirmar.

• Clique na parte branca do formulário do relatório, clique na propriedade DataSet e defina Funcionarios_TB_Rel
• Contando a quantidade de registros que há na tabela. Insira um componente QRSysData1 , clique na propriedade Data e escolha a opção qrsDetailCount.

‘Somando os salários que serão listados. Insira um componente QRExpr1 , clique na propriedade Expression e digite SUM(Funcionarios_TB_Rel.Func_Salario)

R Relatório w Exemplo básico usando “SQL” ( 2 )

O exemplo a seguir é igual ao da página anterior, porém feito com SQL. Œ Clique em New ± Other ± Report e Ok.

• Clique no formulário, clique na propriedade Name e digite QReport_Funcionarios_SQL_Rel. Clique duplo no centro do formulário, será aberta a tela abaixo:

Após clicado em OK teremos a tela abaixo:

Ž Insira um componente Query , clique na propriedade DatabaseName e defina o Alias , clique em Query , clique no botão direito, clique em SQL Builder , será aberta uma tela, selecione a tabela Funcionários.db , selecione os campos desejados nos quadrinhos ( veja página seguinte ), após clique X para fechar e Yes para gravar a SQL.

Clique / marque os seguintes quadrinhos:

• Title
• Column header
• Detail band
• Summary

Clique OK

R Relatório w Exemplo “básico” ( 3 )

Outro exemplo básico para listar e imprimir registros da tabela Clientes. Como trabalharemos com Relatórios usaremos vários componentes da palheta QReport

Campos da tabela usados no relatório: Nome, Cidade, Data_Nasc

Œ File - New - Other - Report - Ok, o Delphi abrirá a tela abaixo ( QuickReport1 )

Ž Após confirmar propriedades da página anterior teremos a tela abaixo:

• Clique duplo onde o balão esta apontando para abrir a tela de propriedades do QuickReport , veja tela ao lado. Assinale as opções que estão marcadas com um círculo veremlho.

Banda para título do relatório, data, hora, numeração de página etc Banda onde serão impressos os cabeçalhos de cada coluna dos dados ( banda detail ).

Banda onde os dados serão impressos.

• Pressione F11 e altere a propriedade Name de QuickReport1 para QReport_Clientes_Todos.
• File ± Use Unit escolha Clientes , clique no formulário do relatório e defina a propriedade DataSet para Clientes_Frm.Clientes_TB. ’ Insira dois componentes QRSysData e altere a propriedade Data para qrsDateTime e a segunda propriedade Data para qrsPageNumber.

‘ Insira um componente QRSysdata ( aba Report ), altere a propriedade Data para qrsReportTitle.

“ Insira componente QRLabel ( aba Report ) para definir os cabeçalhos dos campos, altere a propriedade Caption de cada objeto, de acordo como os nomes definidos abaixo.

” Insira componentes QRDBText para definir onde os dados serão impressos. Preste atenção nas iniciais dos nomes dos componentes QRDB = Query Report Data Base Text, comparando com os componentes do cabeçalho QRLabel = QR = Query Report Label.

• Selecione individualmente cada componente e defina suas propriedades: DataSet será Clientes_Frm.Clientes_TB e a propriedade DataField para definir os campos desejados.