Fórum Apontar para um determinado registro dentro de uma tabela. #235619
02/06/2004
0
Tenho uma tabela de clientes, quero apontar para o registro 5(ou seja, em que o COD_Cliente = 5).
Em um form tenho um DBGrid, seleciono o registro 5, quando saio do form armazeno esse código em uma variavel(integer)
Depois em outro form, onde cadastro, altero dados dos clientes, etc, quero que os dados desse cliente, cujo código está armazenado na variavel(cod = 5), apareçam nos dbedits.
Quero que depois de selecionado um certo cliente, tudo o que eu fizer no programa(inclusão de notas, relatórios, etc), seja atribuido a esse cliente.
Resumindo: Quando entrar em um determinado form
Quero saber Como atribuir o valor armazenado na variavel para a tabela
Alguma coisa do tipo: Query1.cod_cliente := variavel;
Utilizo Interbase e dbExpress
Em um form tenho um DBGrid, seleciono o registro 5, quando saio do form armazeno esse código em uma variavel(integer)
Depois em outro form, onde cadastro, altero dados dos clientes, etc, quero que os dados desse cliente, cujo código está armazenado na variavel(cod = 5), apareçam nos dbedits.
Quero que depois de selecionado um certo cliente, tudo o que eu fizer no programa(inclusão de notas, relatórios, etc), seja atribuido a esse cliente.
Resumindo: Quando entrar em um determinado form
Quero saber Como atribuir o valor armazenado na variavel para a tabela
Alguma coisa do tipo: Query1.cod_cliente := variavel;
Utilizo Interbase e dbExpress
Bossoni
Curtir tópico
+ 0
Responder
Posts
02/06/2004
Boca 09
Olá Bossoni ultilize o seguinte procedimento:
[b:561f48a532]procedure[/b:561f48a532] Tranferencia;
[b:561f48a532]begin[/b:561f48a532]
Formulario.DBEdit1.Text:= TabelaCampo.asString;
Formulario.DBEdit2.Text:= TabelaCampo.asString;
Formulario.DBEdit3.Text:= TabelaCampo.asString;
[b:561f48a532]end;[/b:561f48a532]
No evento OnCellClick do DBGrid // [i:561f48a532] no Formulario de pesquisa[/i:561f48a532]:
[b:561f48a532]procedure[/b:561f48a532] TFormularioPesquisa.DBGrid1CellClick(Column: TColumn);
[b:561f48a532]begin[/b:561f48a532]
Transferencia;
[b:561f48a532]end;[/b:561f48a532]
[b:561f48a532]Explicação:[/b:561f48a532]
Quando você navega pelos registros no DBGrid ele ´Seta o regitro na Tabela´. Sendo assim quaisquer operações feitas com a tabela (Tabela.Delete, Tabela.Edit), seram aplicadas no registro selecionado.
[b:561f48a532]procedure[/b:561f48a532] Tranferencia;
[b:561f48a532]begin[/b:561f48a532]
Formulario.DBEdit1.Text:= TabelaCampo.asString;
Formulario.DBEdit2.Text:= TabelaCampo.asString;
Formulario.DBEdit3.Text:= TabelaCampo.asString;
[b:561f48a532]end;[/b:561f48a532]
No evento OnCellClick do DBGrid // [i:561f48a532] no Formulario de pesquisa[/i:561f48a532]:
[b:561f48a532]procedure[/b:561f48a532] TFormularioPesquisa.DBGrid1CellClick(Column: TColumn);
[b:561f48a532]begin[/b:561f48a532]
Transferencia;
[b:561f48a532]end;[/b:561f48a532]
[b:561f48a532]Explicação:[/b:561f48a532]
Quando você navega pelos registros no DBGrid ele ´Seta o regitro na Tabela´. Sendo assim quaisquer operações feitas com a tabela (Tabela.Delete, Tabela.Edit), seram aplicadas no registro selecionado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)