Baixe o app para aproveitar ainda mais
Prévia do material em texto
Cadastro do usuário – CHAVE ESTRANGEIRA DO CAMPO VENDEDOR ATIVIDADE INDIVIDUAL 1-) Salve All. Unit será: U_Cad_Usuario enquanto o projeto será Project1 mesmo dentro (não se esqueça de colocar dentro da pasta). 2-) Defina para esse Form a propriedadeo name para Form_Cadastro_Usuario, Width = 480, Height = 400, Position = poDesktopCenter; 3-) Lembremos da estrutura da tabela TB_USUARIO no SQL SERVER 4-) Faça um ADOQueryUsuario contendo a propriedade Connection = ADOConnection1, o sql select * from tb_usuario, não se esqueça de deixar active igual à true e já adicione todos os fields 5-) Arraste os Fields na tela conforme imagem abaixo: 6-) Observe que um DataSource1 já foi fornecido (ligado ao ADOQuery correspondente). Altere sua propriedade name para DataSourceUsuario 7-) Exclua o campo (Label e o Edit), referente à VENDEDOR 8.a-) No lugar desses 2 componentes colocaremos um Button, e dois Label´s (conforme a figura abaixo). Observação: Os label´s possivelmente fiquem com o name contendo a numeração 4 e 5 respectivamente. 8.b-) Arraste um ADOQuery (próximo ao Label5), e coloque o nome para ADOQueryVendedor, defina também: a propriedade Connection para ADOConnection1 sql = select * from tb_vendedor where nome like :nome Active = True Vá na propriedade parameters do ADOQuery e defina o parâmetro nome lançando 0 para o value; Adicione todos os fields, dando um duplo clique sobre o ADOQueryVendedor 9-) Faremos o botão Funcionário: 10-) Vamos adicionar dois DB´s Navigator´s com o objetivo de ter um botão em cada componente. No DBNavigator1 será Insert (+) enquanto no segundo DBNavigator Post ().! 11-) Faça os DB´S Navigator´s ligarem ao DataSourceUsuario. O DBNavigator1 ficará com o sinal de + enquanto o segundo DBNavigator ficará com o sinal de Post apagado. 12-) Dê um duplo clique sobre o DBNavigator1 e faça: 13-) Dê um duplo clique sobre o DBNavigator2 e faça com que o botão de + apareça novamente: 14-) Selecione o ADOQueryUsuario e crie o evento onBeforePost contend a seguinte linha: 15-) Teste no Delphi. Lembre-se de MARCAR ou DESMARCAR o componente DBCheckBox1, pois o campo super usuário foi criado no banco como não nulo, ou seja, não pode ficar assim antes de clicar no botão Post, 16-) Teste no SQL Server.
Compartilhar