[Tutorial] Criando Aplicação de Cadastro com Delphi

[matadorss]

Tutorial de como Criar Aplicação de Cadastro com Delphi

Conhecimento em Delphi necessário : Avançado

1. Abra o Iniciar > Programas > Borland Delphi 7 > Database Desktop

2. Depois Clique em File > New > Table.

3. Irá aparecer uma tela clique em Ok

4. As "Opções" da Aplicação,eu vou fazer de uma empresa de vendas de carros por exemplo,você faça de acordo com o que precisar.

5. Para Opções que Contém Datas o Números Coloque o Size 50 e para Nome do cliente e endereço por exemplo coloque o Size no 75 e o type coloque em todos a letra A.

6. Salve o seu "projeto" do Database Desktop em alguma pasta,Recomendo que crie uma pasta nova pois você terá que colocar o seu projeto delphi nela também.

7. Abra o Delphi,não mexa em nada e Salve o Projeto e a Unit na mesma pasta em que salvou o arquivo do DATABASE DESKTOP.

8. Após ter Salvo e Fechado o Projeto abra o Delphi novamente

9. Crie um Table da Paleta BDE

10. Com o Table Selecionado procure na Object Inspetor o Propriedade Table Name clique nela e selecione seu banco de dados e depois na propriedade Active deixe em true.

11. Clique 2x no table irá aparecer uma "Mini-Tela" clique com o botão direito nela e depois clique com o Botão Esquerdo em : Add All Filds.Selecione todas as opções que você fez e arreste para o Form.

12. Adicione um DBGrid da Paleta Data Controls.

13. Com o DBGrid Selecionado procure a propriedade Data Source e selecione DataSource1.

14. Adicione 5 BitBtn Buttons e coloque os seguintes nomes : Inserir,Editar,Excluir,Fechar e Novo, respectivamente; Adicione imagens se preferir.

15. Deixe o Form mais bonitinho mudando o seu caption,Colocando a Propriedade Border Style em bsSingle e biMaximize(BorderIcons)em false,"pinte" ele de alguma cor vai ficar Style.

16. Códigos Dos Buttons :

Botão Inserir :

Código:


Table1.Append;
DBEdit2.SetFocus;
BitBtn1.Enabled :=false;   


Botão Editar :

Código:


Table1.Edit;
DBEdit2.SetFocus;
BitBtn2.Enabled :=false;

Botão Fechar :

Código:

Application.Terminate; 

Botão Novo :

Código:

Table1.Post;
BitBtn1.Enabled:=true;
BitBtn2.Enabled:=true;