Criando formulário de cadastro de clientes com ADO !

Primeiramente, vamos relembrar como fazer um Banco de Dados no Access
para utilizarmos na conexão com o formulário. Lembrando que os nomes do
BD e das tabelas são opcionais, desde que você coloque certinho os
nomes nas Properties do ADO.

Utilizando Microsoft Access


Para cadastrar os usuários, senhas e clientes deste software utilizaremos o ACCESS. Então vá abrindo o seu aí!

Depois que seu Access estiver aberto, procure salvar seu BD junto com os arquivos do Delphi.

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Atenção, quando for salvar mude o tipo do BD para (formato 2000) e verifique se seu BD foi salvo com a terminação .mdb.

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Pronto, agora pode criar seu BD![Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Quando executar seu Access clique em Modo de Exibição de Folha de Dados para inserir os Campos.

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Depois volte para o Modo Design para cadastrar um usuário, só para o teste.

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Agora , antes de finalizar o Access, crie outra tabela com os
seguintes campos, que será a de armazenamento dos dados de clientes:

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

ADO


Agora crie uma janelinha de login como a seguinte:[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Por enquanto usaremos os mesmos ADOs utilizados nos posts anteriores que são ADOConnection e ADOQuery:

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

De 2 cliques no ADO Connection, aparecerá a seguinte janela, então clique Build…

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Na Próxima Janela selecione a Opção Microsoft Jet 4.0 OLE DB Provider, é o provedor utilizado pelo Access.Clique em Avançar.

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Na Próxima janela clique em “…” e procure onde salvou seu BD, depois teste sua conexão e de OK.

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Ainda com o ADOConnection selecionado vá em Properties>Connected e marque True.

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Agora vá no ADOQuery e vá em Properties>Active e marque True.

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Programando


Feito isso, hora de programar o botão Entrar.

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Agora crie um novo formulário, de preferência com o nome que está no
código acima para evitar mudanças no código. Este formulário será o
principal e servirá para cadastrar os clientes.

Depois de criado esse formulário, você deve fazer o seguinte: [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]Project>Options e fazer como na imagem:

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Isto servirá, para que o outro formulário não seja carregado junto com o de Login.

Outra coisa importante a se fazer é ir em File>Use Unit, para
possibilitar a interação entre os 2 FORMs. Faça isso nos 2 FORMs.

Montando Tela de Cadastro


Agora que está tudo certinho com a tela de Login e ja temos um formulário criado, vamos deixá-lo assim:[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Primeiramente vamos adicionar um ADOTable que se localiza na Aba ADO:

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Depois de adicionado o ADOTable, iremos nas Properties dele, e em
Connection, o conectaremos com o ADOConnection1 do
frm_principal,.Depois, em Active habilitaremos True.

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Agora adicionaremos os Labels e os Edits manualmente, mas com uma
exceção, nos Edits utilizaremos um diferente que é o DBEdit, encontrado
na Aba Data Controls, isso facilitará a conexão com o BD.

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Depois de adicionados todos os Labels e Edits, renomeie os Edits como no exemplo. Ex: “DB_nome”

Feito isso, adicione um DataSource encontrado na Aba DataAccess:

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Então vá nas Properties do DataSource e em DataSet ligue este componente com o ADOTable, selecionando o nome de tal.
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Agora então vá nas properties de cada DBEdit e conecte-o ao
DataSource através da Propriedade DataSource e depois escolha o campo
correspondente na propriedade DataField:

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]Não se esqueça de fazer isso em todos!

Agora vamos adicionar uma DBNavigator para facilitar o cadastro. Ela
se encontra na Aba DataControls e em suas propriedades deve-se
conectá-la ao DataSource também.

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Agora adicione um DBGrid, para facilitar a visualização dos
cadastros. Ele se localiza também na Aba DataControls e também deve ser
conectado ao DataSource como nos outros!

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Agora é só deixar tudo salvo certinho e colocar o programa pra rodar!

Na hora que estiver executando, a DBNavigator servirá pra Adicionar +
Cadastros ou Remover-, assim como você poderá locomover-se entre os
cadastros através das setinhas!


Credit's: delphi4humans

Cara você entrou no fórum as 0:50?