Fórum Relacionamento com Sql #155947
26/04/2003
0
Pessoal como eu faço para relacionar 2 tabelas
por exemplo
tenho um formulario de fechamento de venda aonde nesse formulario tem 3 edits
o 1º e o
editCodigo
o 2º
EditNome
o 3º
EditConvenio
o que faco no editCodigo no OnExit coloco para que quando eu sair dele ele tera que me retornar o seguintes dados
Codigo
000001
Clientes
Deibe Junior Viana
Conveniado
Carrefur Supermercados
em Sql sei que e mais ou menos assim
Q.Sql.Add(´Select Clientes.Nome , Convenio.Nome´);
Q.Sql.Add(´from Clientes , Convenio´)
Q.Sql.Add(where Clientes.Codigo=Convenio.Codigo´)
o que eu nao sei e retornar esses dados para os edit...
Obs.: no editCodigo ele tem que localizar pelo codigo...
se alguem poder me ajudar fico muito grato...
por exemplo
tenho um formulario de fechamento de venda aonde nesse formulario tem 3 edits
o 1º e o
editCodigo
o 2º
EditNome
o 3º
EditConvenio
o que faco no editCodigo no OnExit coloco para que quando eu sair dele ele tera que me retornar o seguintes dados
Codigo
000001
Clientes
Deibe Junior Viana
Conveniado
Carrefur Supermercados
em Sql sei que e mais ou menos assim
Q.Sql.Add(´Select Clientes.Nome , Convenio.Nome´);
Q.Sql.Add(´from Clientes , Convenio´)
Q.Sql.Add(where Clientes.Codigo=Convenio.Codigo´)
o que eu nao sei e retornar esses dados para os edit...
Obs.: no editCodigo ele tem que localizar pelo codigo...
se alguem poder me ajudar fico muito grato...
Babu
Curtir tópico
+ 0
Responder
Posts
26/04/2003
Cac2000
Q.Sql.Add(´Select Clientes.Nome [b:6d52b145c8]nome_cliente[/b:6d52b145c8], Convenio.Nome [b:6d52b145c8]nome_convenio[/b:6d52b145c8]´);
Q.Sql.Add(´from Clientes , Convenio´)
Q.Sql.Add(where Clientes.Codigo=Convenio.Codigo´)
Q.Sql.Add(and Clientes.Codigo=´+editCodigo.Text)
Q.Open;
editNomeCliente.Text := Q.FieldByName(´nome_cliente´).AsString;
editNomeConvenio.Text := Q.FieldByName(´nome_convenio´).AsString;
Q.Sql.Add(´from Clientes , Convenio´)
Q.Sql.Add(where Clientes.Codigo=Convenio.Codigo´)
Q.Sql.Add(and Clientes.Codigo=´+editCodigo.Text)
Q.Open;
editNomeCliente.Text := Q.FieldByName(´nome_cliente´).AsString;
editNomeConvenio.Text := Q.FieldByName(´nome_convenio´).AsString;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)