Capturar um valor de um atabela Me ajudem...

Delphi

08/04/2003

Eu tenho uma tabela chamada Tarifa, la existe 3 tipos de Tarifa cada uma com um valor
PC = Passe Coletivo;
PE = Passe Escolar;
PI= Passe Idoso; Todos Numérico;

Estou querendo pegar somente o valor da tarifa PC, para multiplicar polo valor da minha Dbedit1.Text

Que comando eu uso? se possivel descreva o exemplo;

Muito Obrigado;


Marcelototini

Marcelototini

Curtidas 0

Respostas

Anonymous

Anonymous

08/04/2003

Caro Marcelo,
seja mais claro na descrição de sua duvida, pois nao consegui entender a mesma, sendo assim nao consigo ajuda-lo

sds,
Rafael Helm
rafaelhelm@yahoo.com.br


GOSTEI 0
Marcelototini

Marcelototini

08/04/2003

[quote:d5f595ef35=´Rafael Helm´]Caro Marcelo,
seja mais claro na descrição de sua duvida, pois nao consegui entender a mesma, sendo assim nao consigo ajuda-lo

sds,
Rafael Helm
rafaelhelm@yahoo.com.br[/quote:d5f595ef35]


PC, PI, PE São trez campos de uma tabela e cada Campo tem um único valor
Eu queria Capturar o valor que esta no campo PC
Depois eu iria multiplicar esse valor capturado por um que eu digitasse na Dbedit1.text
PC Significa Passe Coletivo (valor de uma passagem de circular)


GOSTEI 0
Anonymous

Anonymous

08/04/2003

Caro Marcelo,
- Supondo que sua tabela se chama TARIFA;
- Supondo também que a mesma tenha três campos do tipo INTEGER: PC, PI, PE;
- Supondo que esta tabela JÁ TENHA um registro com os seguintes valores: 2.50, 1.50 e 0.00;
- Supondo que vc Tenha um formulário (form1) que contém quatro edits (Edit1, Edit2, Edit3, Edit4), um Button (Button1) e uma query (Query1);

Na propriedade SQL da query1, digite o texto: ´SELECT * FROM TARIFA´;

No evento ONCREATE do form1, digite:
Query1.Open;

No evento ONCLICK do Botão, digite;
Edit2.Text := FloatToStr( StrToInt(Edit1.Text)*Query1.FieldByName(´PC´).Value);
Edit3.Text := FloatToStr( StrToInt(Edit1.Text)*Query1.FieldByName(´PI´).Value);
Edit3.Text := FloatToStr( StrToInt(Edit1.Text)*Query1.FieldByName(´PE´).Value);

onde o Edit1 conterá a quantidade e os edits Edit2,Edit3 e edit4 conterão o resultado da multiplicação da quantidade pelo valor...

Espero ter ajudado!


GOSTEI 0
Dli

Dli

08/04/2003

Testa aí:

Edit2.Text:=tabelaNomedocampo.value * Valor;

ou

tabelacamponovovalor.value:=tabelaNomedocampo.value * Valor;



dli


GOSTEI 0
POSTAR