Início![Tico[HK]](https://2img.net/u/1916/23/72/60/avatars/22-87.jpg)
![[G]uardião](https://2img.net/h/www.webcheats.com.br/forum/images/rank/guardiao.png "[G]uardião"){kind=icon}
Warn
Vou ensinar à vocês como criar uma aplicação de cadastro com Delphi utilizando como Banco de Dados o Database Desktop.
Requisitos :
Ter o DELPHI 7 FULL Instalado,pois é nele que "temos" a opção Database Desktop.
Conhecimento Avançado em Delphi.
Bom,Vamos ao Tutorial
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. Vamos Adicionar os Códigos nos Buttons :
Video
Requisitos :
Ter o DELPHI 7 FULL Instalado,pois é nele que "temos" a opção Database Desktop.
Conhecimento Avançado em Delphi.
Bom,Vamos ao Tutorial
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. Vamos Adicionar os Códigos nos Buttons :
- Código:
Botão Inserir :
Table1.Append;
DBEdit2.SetFocus;
- Código:
Botão Editar
Table1.Edit;
DBEdit2.SetFocus;
BitBtn2.Enabled :=false;
- Código:
Botão Excluir:
Table1.Delete;
- Código:
Botão Fechar:
Application.Terminate;
- Código:
Botão Novo:
Table1.Post;
BitBtn2.Enabled:=true;
Video
Gostou, Agradeça
