F�rum Chamar cadastro do cliente, atr�ves do dbgrid! #385819

08/09/2010

Sou iniciante na programa��o delphi, ja faz alguns dias que venho tentando achar uma forma de que:
ao selecionar a linha do registro no formulario de listagem dos clientes no dbgrid, com dois cliques eu queria poder abrir esse registro selecionado no formulario de cadastro para pode editalo.

Resumo da aplica��o:

3 Formul�rios ( TfrPrincipal, TfrCadastro, TfrListaContato)
1 Modulo de dados ( componetes para liga�ao IB )
listagem de dados esta sendo feita com dbgrid.

por hora consegui chamar o formulario de cadastro ao dar dois cliques no dbgrid que esta localizado no tfrlistas contatos, porem , o form de cadastro abre em novo registro, e n�o como eu queria , ou seja:

ao selecionar a linha do registro no formulario de listagem dos clientes, com dois cliques eu queria poder abrir esse registro selecionado no formulario de cadastro para pode editalo.

obrigado desde j� ;D

Anderson Oliveira

Curtir t�pico

+ 0

Responder

Posts

08/09/2010

Eriley Barbosa

Para fazer a listagem no dbgrid, voc� est� usando o mesmo componente que usa para cadastro, tipo: ibQryCadClientes no de cadastro e listagem? Preciso de mais informa��es, tipo name do componente ibquery de cadastro e listagem, sql que est� usando nos dois componentes.

Responder

Gostei + 0

08/09/2010

Anderson Oliveira

ERILEY VILAGRANDE BARBOSA
seguinte,
no frCadastro = IBQUERY E DATASOURCEno frListaContatos = IBQUERY E DATASOURCE no md, Ttable e DATA SOURCEdatabase e trasnection (aba ib)por enquanto estou apenas utilizando um sql para ordenar por nome no dbgrid
e por hora estou utilizando o evendo dbclick do dbgrid
procedure TfrListaContatos.dbgListaDblClick(Sender: TObject);
begin
frCadastro.showmodal;
end;

Responder

Gostei + 0

08/09/2010

Eriley Barbosa

seguinte,
Selecione o IBquery e copie o conte�do da propriedade Name e SQL e poste aqui. no frCadastro = IBQUERY E DATASOURCE Selecione o IBquery e copie o conte�do da propriedade Name e SQL e poste aqui. no frListaContatos = IBQUERY E DATASOURCE Este aqui se n�o � usado na tela de cadastro, n�o precisa. no md, Ttable e DATA SOURCE database e trasnection (aba ib) por enquanto estou apenas utilizando um sql para ordenar por nome no dbgrid
e por hora estou utilizando o evendo dbclick do dbgrid
procedure TfrListaContatos.dbgListaDblClick(Sender: TObject);
begin
frCadastro.showmodal;
end;

Responder

Gostei + 0

08/09/2010

Anderson Oliveira

ok,

(FRCADASTRO)
NAME
IBCadastro

SQL
select * from CADASTRO

Responder

Gostei + 0

08/09/2010

Eriley Barbosa

Faltou o utilizado no formul�rio da listagem: Selecione o IBquery e copie o conte�do da propriedade Name e SQL e poste aqui. no frListaContatos = IBQUERY E DATASOURCE

Responder

Gostei + 0

08/09/2010

Anderson Oliveira

NAME
IBListaContatos
SQL
select * from CADASTRO

pois ambos estao utilizando a mesma tabela no banco de dados - tbCADASTRO

Responder

Gostei + 0

08/09/2010

Eriley Barbosa

Veja que voc� est� com as duas querys exatamente iguias e isso � redundante: IBCadastro SQL
select * from CADASTRO
IBListaContatos
SQL
select * from CADASTRO
Se voc� no frListaContatos ligar o datasource pela propriedade Dataset ao frCadastro.IBCadastro,
o registro que voc� selecionar no dbgrid ser� o mesmo que vai aparecer no formul�rio.
Dai voc� at� pode excluir o IBListaContatos. Se n�o quiser fazer isso, vai ter de me passar qual � a chave primaria da tabela CADASTRO.

Responder

Gostei + 0

08/09/2010

Anderson Oliveira

ol� amigo, fiz oque vc mensionou, deletei o ibListacontatos, e liguei o datasource com o frCadastro.IBCadastro
mas agora nao puxa nem um registro no grid na hora de compilar =x

a chave primaria da tabela � o codigo

chamado de 'COD'

Responder

Gostei + 0

08/09/2010

Eriley Barbosa

No onshow do frCadastro, voc� abriu o IBCadastro? if not IBCadastro.Active then IBCadastro.Open;

Responder

Gostei + 0

08/09/2010

Anderson Oliveira

sim fiz isso,

mas e no form FrListaContatos

Como chamo ele no menuprincipal?

Responder

Gostei + 0

08/09/2010

Eriley Barbosa

Se for chamar pelo menu principal, vai ter de colocar o c�digo no onshow do FrListaContatos: if not frCadastro.IBCadastro.Active then frCadastro.IBCadastro.Open; Para chamar o FrListaContatos no menu principal basta digitar: FrListaContatos.ShowModal;

Responder

Gostei + 0