none
FORMULARIOS RELACIONADOS RRS feed

  • Pergunta

  • Boa noite a todos!

    Estou aprendendo a linguagem visual basic, estou criando um sistema com banco de dados para Cadastro de Clientes, e Pedidos. No frm CADASTRO DE CLIENTES coloquei um botão como atalho para o frm PEDIDOS. Mas gostaria que os dados digitados no CADASTRO DE CLIENTES, tipo: Cliente, Telefone, Celular. Quando o usuario clicar no botão PEDIDOS os mesmos dados sejam repetidos no frm PEDIDOS.

    Qual é o código que devo usar para isso?

    Sei que é uma pergunta as vezes até bem facíl, (para quem já sabe) mas como eu estudo em casa ainda estou aprendendo, se puderem me ajudem por favor

    

    sexta-feira, 17 de maio de 2013 00:57

Todas as Respostas

  • Olá Thiago,

    Se você tem o Cliente como uma classe, no construtor (Sub New()) do formulário do Pedido, recebe um parâmetro do tipo cliente. E na chamada do formulário de Pedido a partir do formulário de cliente, envie como parâmetro o cliente que está apresentado no formulário no momento, como uma instância da classe cliente... conseguiu entender? Aí no construtor do form Pedido você terá todas as informações do cliente posicionado no form anterior...

    Att,


    Fabio Rosa.

    sexta-feira, 17 de maio de 2013 11:23
  • Thiago, que banco de dados vc usa?

    vou colocar aqui um exemplo mas vai depender um pouco do seu banco:

    Primeiro vc conecta o o frmPedidos ao mesmo banco de dados do frmCadastro, e aqui vai um exemplo bem facil thiago..

    dim rsDados as new ADODB.Recordset dim banco as new ADODB.Connection Set rsDados = New ADODB.Recordset rsDados.Source = ("SELECT C.* FROM CLIENTES C WHERE C.CODIGO = '" & frmClientes.lstDados.SelectedItem.SubItems(3) & "' ") rsDados.ActiveConnection = banco rsDados.Open rsDados.Close rsDados.Source = ("SELECT C.* FROM CLIENTES C WHERE C.CODIGO = '" & UCase(frmClientes.lstDados.SelectedItem.SubItems(3)) & "' ORDER BY C.CODIGO") rsDados.ActiveConnection = banco rsDados.Open If rsDados("CODIGO") <> "Null" Then txtCodigo.Text = Trim(rsDados("CODIGO")) End If If rsDados("NOME") <> "Null" Then txtNome.Text = Trim(rsDados("NOME")) End If If Trim(rsDados("CELULAR")) <> "Null" Then txtCelular.Text = Trim(rsDados("CELULAR")) End If If Trim(rsDados("TELEFONE")) <> "Null" Then txtTelefone.Text = Trim(rsDados("TELEFONE"))

    End If

    Thiago, no exemplo acima os campos NOME, CELULAR e TELEFONE, devem ser iguais ao do banco de dados, e o CODIGO é um generator que criei no banco para gerar um código automaticamente, aconselho a você a criar um campo código também, mas se não quiser vc pode fazer o Select buscando o NOME por exemplo, vlww..



    sexta-feira, 17 de maio de 2013 12:32
  • Ahh, e no exemplo acima o lstDados é o List do frmClientes que mostra meus clientes cadastrados, no caso o NOME é o Subitem 0, o CELULAR o 1, o TELEFONE o 2 e o CODIGO o 3.
    sexta-feira, 17 de maio de 2013 12:35