Firebird - Interbase - IB Expert - SQL

 

Modelagem de dados lógica e física

Muitos exemplos práticos passo a passo...

 
Localizar registros na tabela com Locate
O que são Propriedades ?
O que são Eventos ?
Personalizando BitBtn1
Apagar registros da tabela
 
Step 01
 zProcurando registros com LOCATE
 
Usaremos o projeto inicial Aula 001, se este projeto não estiver aberto abra clicando em File, Open project indique o caminho onde esta o arquivo Project1.dpr e dê um clique duplo neste arquivo para abrí-lo.
 
Este exemplo mostra como procurar / localizar registros em uma tabela.
Insira um componente Label ( mude o nome label para Procura Informações ) e um Edit1 ( pegue-os da aba/paleta Standard ), na propriedade Text do Edit apague o texto Edit1, insira um botão Bitbtn que esta na aba Additional.
 
Veja na imagem abaixo, no Object Inspector ( Inspecionador de Objetos ) o Delphi trabalha como Properties ( Propriedades ) e Events ( Eventos )
No formulário na direita estamos usando o componente Bitbtn1, cada componente possui sua propriedades e eventos específicos.
Propriedades: Propriedades são características básicas de um componente. Cada componente Delphi possui uma série de propriedades com um valor default (padrão), tais como: altura, fonte dos textos, estilo, cor, tipo de cursor, etc., todas elas com um valor padrão incluído pelo Delphi.
Eventos: Os programas feitos em Delphi são orientados a eventos. Eventos são ações normalmente geradas pelo usuário. Existem eventos associados ao formulário e cada componente inserido neste. Neste exemplo, ao clicar será procurado o nome de uma pessoa na tabela, ou, poderíamos manda apagar um registro, abrir outra tela, fechar etc
 
 
Veja a tela acima, o componente BitBtn1 esta selecionado, poderiamos alterar este nome para um nome de melhor compreensão, como por exemplo: Procura e não BitBtn1. Ao fazer isto estaríamos alterando a propriedade Caption , observe tela acima mais no lado esquerdo.
 
 
Após um clique duplo sobre o botão Bitbtn1 será aberto o editor de códigos do Delphi e automaticamente serão inseridas sempre um begin e um end;
 
 
entre begin e end; digite as 3 linhas abaixo:
 
 
Veja abaixo como ficou o código completo.
 
 
Vamos entender melhor a linha abaixo:
 
TForm1 Nome do formulário. Ex: TClientes, TFornecedores
Bitbtn1 Nome do botão. Ex: Bitbtn1_Procura, Procua_Bit
Click Evento. Evento que dizer uma ação que será feita no programa, ou seja, ao clicar no botão será feito a procura na tabela.
Como padrão o Delphi define nomes como: TForm1, Bitbtn1 etc .... cada programa definirá uma nomeação própria que tornará a manutenção do sistema de forma bem dinâmica.
 
Veja na imagem abaixo a aba Additional e seus componentes. O Delphi possui várias abas com vários tipos de componentes para diferentes finalidades.
 
Resultado do programa ( programa pronto )
Pressione F9 para rodar / executar o programa, no campo Procura informações, digite eric, clique no botão para procurar o nome na tabela.
 
Para executar o programa, basta dar um clique duplo sobre Project1.exe. Poderia ter salvo como outro nome, mas preferi permanecer com o padrão ( default ) para facilitar o entendimento.
 
Step 02
 zPersonalizando BitBtn1
 
Clique no botão BitBtn1, clique na aba Properties ( lado esquerdo da tela ), clique em Caption, apague BitBtn1 e digite OK, após, mais para baixo, clique na propriedade Name, mude o nome de BitBtn1 para Ok_Bit ( nome interno do botão - ), após clique em Glyph, será aberta umam tela, clique em Load, selecione um ícone ( se tiver ), este ícone será mostrado no botão, veja abaixo:
 
 
Step 03
 zApagando registros da tabela
Apagando registros da tabela
Insira um botão Bitbtn ( aba Additional )
 
 
Clique no botão BitBtn2, clique na aba Properties ( no Object Inspector, lado esquerdo da tela ), clique em Caption, apague o nome BitBtn2 e digite Apaga registros, role para baixo, clique em Name, mude o nome de BitBtn2 para Bit_APaga e pressione Enter, veja abaixo:
 
 
Dê um clique duplo sobre o botão Apaga registros e digite digite as linhas abaixo:
 
 
Código completo abaixo:
 
 
Exemplo código rodando:
 
" Não orgulheis por aquilo que sabeis, porque esse saber tem limites estreitos "

 
Volta...