[TUTORIAL]Criando tela de cadastro com ADO

Nesse tutorial iremos ensinar como fazer a tela de cadastro com o ADOTable

1. Adicione no segundo formulário que criamos no tutorial 1as seguintes funções:

2.Clique 2 vezes sobre o MainMenu e abrira a seguinte tela:

PS: Para renomear os MenuItens é só clica 2 vezes sobre ele e digitar o nome desejado e apertar ENTER.

3. Crie um terceiro forumulário que servira para Cadastrar o Usuário. Com as funções a seguir:

 PS: Os campos edits são DBEdit encontrados na aba Data Controls.

4. Voltamos para o MainMenu no MenuItem Usuário e clique 2 vezes nele, e coloque esse código abaixo para fazer a ligação com o Formulário.

Código: frm_cadastrar_usuario := Tfrm_cadastrar_usuario.Create(Self);
  frm_cadastrar_usuario.ShowModal;

Configurando os ADOs

5. Configure o ADOConnection igualmente ao primeiro tutorial (com o mesmo Banco de Dados)

6. Configurando o ADOTable,

PS: Primeiro clique em Connection e conecte com o ADOConnection, depois selecione a tabela do seu BD no campo TableName e por ultimo vá em Active e dê True.

7. Agora vamos configurar o DataSource

 PS: Conecte seu DataSource ao ADOTable atravéz do campo DataSet, depois dê True no campo Enabled.

8. Agora vamos conectar os DBEdit com o DataSource

 PS: No campo DataSource selecione o DataSource, depois selecione o campo que você deseja exibir no Edit, no caso "Nome", dê False no campo Enabled. Faça esse procedimento em todos os outros DBEdits, caso for o Edit de senha mude o campo PasswordChar para *.

9. Agora vamos configurar o DBNavigator

PS: Selecione seu DBNavigator no campo DataSource selecione seu DataSource e depois dê True no campo Enabled.

Pronto, seu programa está pronto para registrar mais usuários ao seu BD!

Obrigado pela visita!

[TUTORIAL] Inserindo Banco de Dados em Delphi

Nesse tutorial vamos ensinar como inserir um BD, no caso em Microsoft Acess, em Delphi 7.

1.             Crie um banco de dados com as tabelas desejadas e registre os cadastros, não se esqueça de salvar em formato 2000; 

2.            Agora abra seu Delphi 7 e crie um formulário com as seguintes características: 

3.             Crie outro formulário, o qual o usuário ira entrar após seu dados serem confirmados, conforme o exemplo abaixo ,ignore o mainmenu cadastrar e o actionlist,eles serão usado no proximo tutorial;

4.             Clique em Project/Options na aba Forms selecione o formulário 2 e clique na  " > " e depois em Ok;

5.             Agora vamos começar a comfigurar, clique em cima do ADO Connection no 1º form,  selecione a opção connected para true, a opção LoginPrompt para false e depois clique na opção ConnectionString conforme a figura abaixo:

 

6.            Vai aparecer uma janela com duas opções, marque a Use Connection String e clique em Build;

 

7.            Na aba Provedor, selecione a opção Microsoft Jet 4.0 OLE DB Provider e clique em avançar;

 

           

8.            Agora clique nos "..." e navegue até o seu arquivo do banco de dados;

9.            Teste a conexão, se estiver conectado corretamente, clique em Ok, e em seguida Ok de novo. Pronto o ADO connection está ligado com o BD;

10.            Agora clique no ADO Query e clique na opção Conection e selecione o ADOConnection1;

 

11.            Clique duas vezes na opção sql e escreva "SELECT * FROM (NOME DA SUA TABELA);"

 

12.           Clique em Ok e selecione a opção Active para TRUE;

13.          Agora vamos entrar nas linhas de código do botão ENTRAR , clique duas vezes em cima do botão e insira o código;

Código:

var
  sql:string;
begin
  sql:= 'select * from Tabela_usuario where usuário='+#39 + (edit1.Text) + #39;
  sql:= sql + 'and senha='+ #39 + (edit2.Text) + #39; ( Nessas duas linhas declaramos a variavel sql)
 
ADOQuery1.Close;  (Aqui mandamos o ADOQuery fechar)
  ADOQuery1.SQL.clear; (Aqui mandamos o ADOQuery limpar o campo SQL)
  adoquery1.SQL.add(sql); (Aqui adiciona a variável sql no campo SQL)
  adoquery1.Open; (Aqui abrimos o ADOQuery de novo)
   
 if not adoquery1.IsEmpty then  (Se o ADOQuery não estiver vazio ele executa)
    begin
      form2:=Tform2.Create(Application); (Aqui ele cria o form2 )       form2.Show;  (Aqui ele esta mostrando o form2)       form1.hide;    (Aqui ele esconde o form1)
      edit1.clear;    (Aqui ele limpa o edit1)
      edit2.clear;    (Aqui ele limpa o edit2)       end
      
else  (Se estiver vazio)
      begin
      showmessage('Usuário ou senha inválidos');  
      edit1.clear;    (Aqui ele limpa o edit1)
      edit2.clear;    (Aqui ele limpa o edit2)
      edit1.setFocus (Aqui ele manda o cursor para o edit1)
      i:= i+1;
      end;
      if i=3 then  (Aqui se ele errar a senha ou usuario 3 vezes o programa fecha)
      begin
      Application.Terminate;   (Aqui o programa é fechado)
      end;
   end;

 

PS: O i é uma variável publica, então declare-a antes do "implementation ", assim:      
          

  var


  Form1: TForm1;
  i:integer;