Problema Com Table

[juniorboll]

Ai galera to com um problema serio.

é o seguinte, tenho duas table. Em uma table eu ponho os campos

tiporoupa, codigo, preço e estilo

na outra eutenho mais um monte de campas mas tenho tenho os 4 campos da outra tabela com o mesmas coisas, tem como eu puxar esses campos da outra table e quando eu por tipo o codigo já aparecer os outros campos preenchidos??

[Vivendo&Aprendendo]

Olá Junior me explique melhor o que você quer fazer...

pelo que entendi você quer apenas fazer uma consulta par que quando digitar o código da roupa o sistema já busuqe o resto das informações..

seria isso mesmo?

[juniorboll]

eu quero é o seguinte

cadas trar em um form tipo

tipo: camisa estilo:regata preço:12

so que vou ter outro form que vai ter um monte de campos so que eu quero q quando eu por tipo camisa os campos regata e preço já preencham automatico. e eu vo por o campo tipo como dbcombobox pra so selecionalo e já aparecer o outros entendeu?

[Vivendo&Aprendendo]

cara você terá que criar uma tabela com todos os tipos de roupas já cadastradas, tipo: calça, camiseta, camisa, bermuda, etc.

Ai quando cadastrar a roupa você coloca um dbcombobox para o usuario selecionar o tipo daquela roupa que ele esta cadastrando, e no outro form outro dbcombobox para selecionar os tipo de roupa tb... ai neste combobox você faz uma busca com sql.

falou

[juniorboll]

Mas como eu vo colocar essa busca?

para aparecer o valor no dbcombobox?

[Vivendo&Aprendendo]

Tipo:

Você adiciona em seu form um ComboBox com os items já cadastrados nele como: camiseta, camisa, calça, etc.

Coloque também um edit do lado do combobox

Ai é só criar uma consulta sql para cada item.

No evento OnChange do Edit coloque o código abaixo:

  If Combobox.ItemIndex = 0 then
  begin
    Tabela.Close;
    Tabela.SQL.Clear;
    Tabela.SQL.Add('Select * From NOME_DA_TABELA_DO_PRODUTO');
    Tabela.SQL.Add('Where CAMPO_ONDE_ESTA_O_TIPO_DA_ROUPA Like :pCod ');
    Tabela.SQL.Add('Order By Codigo');
    Tabela.Parameters[0].Value := Edit1.Text + '%';
    Tabela.Open;
  end;

é mais ou menos isso... testa ai e qualquer coisa posta ai o erro ou duvida

falou

[juniorboll]

Eu entendi o q você falo mas é o seguinte

eu tenho 2 tables certo

so que as duas tem tipo so que em uma so cadastra o tipo na outra eu quero que apareça todos os tipos que foram cadastrados.

ai no combobox vai fica armazenados todos os tipos que existem

entendeu?

[Vivendo&Aprendendo]

Se você tem um cadastro de TIPOS e um form para mostrar os tipos cadastrados onde é escolhido um desses tipos você poderia utilizar o DbLoockUp.. para listar os tipos.

falou

[juniorboll]

você num tem nada que esplica como usar esse componente não porque eu cologo pra ele listar os tipos que já estão armazenados mas so que num aparece nada na lista e tb ele fica como não disponivel com a cetinha de apertar pra baixo transparente... daqueçe modo de como não pode ser apertada.

[Vivendo&Aprendendo]

Amigão você deve estar fazendo alguma configuração errada nele...

adicione esse componente no form e junto com ele um AdoTabel ou ADOQuery e um Data Source, sete o ado para a tabela que esta cadastrado os valores dos tipos.

E depois nas propriedades do LoockUp:

List Source - coloque o data source do ado que é do loockup

List Field - o campo que você quer listar no loockup

key field - os dois campos código das duas tabelas

Data Source - o data source da tabela que é referente ao form

cara basicamente é isso

qualquer coisa me adiciona ai no MSN que te ajudarei melhor, mas as dúvidas posta aki no forum mesmo

falou

[Guest João pereira]

ai to querendo quase a mesma coisa so que tem umas coisas diferentes

posso fazer uma pesquisa com no meu caso frigorifico selecionada

assim se eu selecionar o frigorifico pedroso

a pesquisa me da o resultado assim

o q eu selecionei Estilo Valor

Pedroso Semanal 10

so que eu não consigo inserir esses valores q eu achei no meu dbedit

alguém ai sabe o q eu faço?

Ps: estou querendo q apareça altomatico assim q for selecionado o frigorifico faz-se a pequisa e manda para os campos estilo e valor o resultado achado na pesquisa!!

[Vivendo&Aprendendo]

Kr ao seu DBEdit vai trazer aquilo que ele esta ligado para trazer essas informações que você deseja basta colocar outros DBEdits e liga-los nesses campos ai que você falou ou colocar Edit e pedit para receber essas informações:

Edit1.Text := Informação que você deseja

falou

E ai JUNIORBOLL deu certo o que você estava querendo?

Alexandre

[juniorboll]

Deu certo sim, valeu você ajudo d+, agora to quase acabando.

ai se você souber, tem como eu puxar um item tipo valor de uma pesquisa e por ele numa variavel, no meu caso uma pesquisa vai retornar so um resultado.

[Guest João pereira]

você num entendeu o q eu queria. é o seguinte

eu tenho um campo dbedit.

so que eu quero que o campo dbedit.text recebe o valor que é dado na pesquisa.

tentei fazer o seguinte mas num deu certo

criei uma variavel valor1

e fiz assim

valor1:=query.fieldbyname('valor').asfload;

dbedit.text:=valor1;

mas não funcionou

[Micheus]

valor1:=query.fieldbyname('valor').asfload;

dbedit.text:=valor1;

mas não funcionou

parece que não deve nem ter compilado, já que supostamente valor1 é um Float e dbedit.text é um String. Supondo que seja isto, vc poderia fazer:

dbedit.text := query.fieldbyname('valor').AsString;

ou atribuir o resultado em query.fieldbyname('valor') para o campo(Field) ligado ao seu DBEdit (algo tipo: TabaInicializarVALOR.AsFloat = query.fieldbyname('valor').AsFloat).

[Vivendo&Aprendendo]

cara se o seu campo no banco for Texto basta atribuir o valor do campo para a variável:

Valor1 := query.fieldbyname('valor').asString;//Como mencionou o nosso amigo Micheus
Edit1.Text := Valor1;

Se o campo for Moeda ai você deve fazer a conversão do valor: crie a variável como float ou Curr

Valor1 := query.fieldbyname('valor').asFloat; 
Edit1.Text := FloatToStr(Valor1);

falou

[juniorboll]

Ai tive esse problema eu acho e resolvi assim

<code>

procedure TForm1.DBComboBox2Change(Sender: TObject);

var v1:string;

v2:string;

begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('Select * From "lugar da tabela"');

Query1.SQL.Add('As frigorifico');

Query1.SQL.Add('Where frigorifico = '+#39+ dbcombobox2.Text +#39+'');

Query1.Prepare;

Query1.Open;

v1 := query1.fieldbyname('tipo').AsString;

v2 := query1.fieldbyname('nome').AsString;

dbedit9.Text:=(v1);

dbedit10.Text:=(v2);

end;

<code>

acho que isso vai te achudar um pouco

ah e eu criei a variavel pra num da problema na hr de por no dbedit mas acho que você pode por direto que nem precisa...