[Médio] dbNavigator personalizado

[xSlayerx 0]

Olá pessoal, neste tutorial irei explicar como criar um dbNavigator personalizado.

 

Pra quem não sabe o dbNavigator é um componente para controlar um banco de dados no delphi (adicionar registros, consultar, cancelar, excluir, etc)

 

Irei dividir o tutorial em 2 partes: Design e Programação

 

bom, vamos lá:

 

Design

 

1º Passo: Adicione em seu formulário 9 SpeedButtons e altere a propriedade caption dos botoes para:

1° botao: "Primeiro"

2° botao: "Anterior"

3° botao: "Proximo"

4° botao: "Ultimo"

5° botao: "Adicionar"

6° botao: "Salvar"

7° botao: "Editar"

8° botao: "Cancelar"

9° botao: "Excluir"

 

2º Passo: Altere para True a propriedade Flat de todos os botoes

 

 

3º Passo: na propriedade Glyph de cada SpeedButton selecione uma imagem pra cada botao referente a sua funcionalidade.

Exemplo

botao "Anterior":

 

dica: Se você for fazer seus próprios botões, a cor "rosa" (255 0 255) é a cor transparente, ou seja, aonde for rosa, ficará transparente

 

 

4° Passo: Depois de colocar imagem em todos os botoes, altere o tamanho de todos para um tamanho adequado (+/- 48 x 48) e altere a propriedade layout de todos para a que você axar melhor...

 

 

 

Programação

 

 

A programação é bem simples. Cada botão vai ter praticamente a mesma programação, só mudara 1 palavra.

 

Na propriedade OnClick dos botoes coloque:

 

[color=darkred]NomeDoFormulario[/color].[color=purple]NomeDaTabela[/color].[color=red]Comando[/color]

 

Comando: Comando que o botao ira efetuar (por exemplo salvar o registo). Abaixo tem a lista dos comandos para cada botao:

[left]"Primeiro": First
"Anterior": Prior
"Proximo": Next
"Ultimo": Last
"Adicionar": Insert
"Salvar": Post
"Editar": Edit
"Cancelar": Cancel
"Excluir": Delete[/left]

 

NomeDoFormulario: Aqui você ira colocar o nome do formulario onde estao os componentes do seu banco. Exemplo: se você criou um Data Module (com o nome de DataModule) para adicionar todos os seus componentes de Banco nele então ficaria assim:

 

DataModule.NomeDaTabela.Post

 

 

NomeDaTabela: Nome da tabela que o botao ira atuar. Exemplo:

 

DataModule.Tbl_Clientes.Edit

 

 

 

bom pessoal, é isso. Espero que ajude vocês. Qualquer dúvida é só postar aqui que eu tentarei ajudar (Y)