Relacionamento com Sql
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
Curtidas 0
Respostas
Cac2000
26/04/2003
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;
GOSTEI 0