Delphi Aplicado Módulo 2A

Delphi Aplicado Módulo 2A

(Parte 1 de 6)

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 209

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.

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 210

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 nomeForm2.

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 211

R Sistema com senha A seguir faremos um cadastro para usuários e senhas, um menu e um cadastro simples para Clientes.

Vamos criar duas tabela para este sistema, uma será para osUsuários e uma paraClientes.

Tabela de Clientes

Índices secundários para pesquisa.

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 212 Formulário de Login:

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 213

Formulário do menu.

Clique duplo no componenteImageList, 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:

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 214 Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 214

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 215 Formulário de Clientes

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 216 Ícones usados:

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 217

Clique em

ComboBox1, na propriedade Items digite um abaixo do outro: Nome

Sobrenome Cep

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 218 Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 218

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 219

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 ocultasVeja as setinhas abaixo:

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

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 220

R Relatóriow Exemplo “básico” ( 1 )

Primeiramente criaremos um cadastro declientes para listarmos alguns registros, após faremos o programa abaixo para listar os registros.

Crie uma tabela com oForm Wizard e cadastre alguns registros.

Será aberto um formulário em branco abaixo

Filew Neww Otherw Reportw OK

Insira um botão para o relatório.

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 221

Insira um componenteTable, altere a propriedadeName paraClientes_TB_Relatorio, na propriedade Databasename defina o alias, na propriedadeTableName defina a tabelaClientes.Db.

Clique duplo no formulárioQuickReport, será aberta a tela abaixo:

Após clicadoOK teremos o formulário abaixo.

Clique no formulário noQuickReport ( região branca ), clique no componenteTable1 e mude o nome para Clientes_TB_Relatorio , defina a tabela na propriedade

TableName paraClientes.DB. Clique em Clientes_TB_Relatorio, clique na propriedadeActivee defina True.

Clique na região branca e defina a propriedadeDataSet para

Clientes_TB_Relatorio. Altere a propriedadeName paraQuickReport1 para QReport_Todos_Clientes.Se preferir deixe o nomeQuickReport.

Delphi AplicadovbyEnglishWay26/03/2008 - 14:10:36 - Jurandir / Timbó / SC 2

Vamos definir ocabeçalho do relatório,data,hora enumeraçã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 abaQReport. • Insira 5 componentesQRLabel, estes serão alterados recebendo um nome ( caption ) adequado.

• Insira dois componentesQRSysData1, para definir a data e hora e outro para numeração da página.

Veja abaixo após alterado todos os captions dosQRLabels com seus respectivos nomes.

(Parte 1 de 6)

Comentários