Apontar para um determinado registro dentro de uma tabela.
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
Curtidas 0
Respostas
Boca 09
02/06/2004
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.
GOSTEI 0