Kilometragem Zerando???

[EderDias 0]

Olá...Pessoal.....eu tenho este código abaixo:

 

procedure TForm3.Button1Click(Sender: TObject);beginif Table2.Locate('placa',table1placa.Value,[]) thenif Table1kmgas.Value >= Table2kmoleo.Value thenShowMessage('KM Gasolina é Igual ou Superior a Km Óleo') elseShowMessage('KM Gasolina é Menor que Km do Óleo');end;

A table2 é a tabela de oleo motor e a table1 é a tabela de abastecimento, ou seja a medida que vai abastecendo o veiculo ele vai comparando, e quando chegar a km de nova troca de oleo ele avisa se é igual ou maior ai joga a mensagem na tela.

 

Como a gente sabe a Km de um véiculo não é infinita e acaba chegando por exemplo a 999.999 depois ele zera e começa tudo de novo.

Neste caso eu pederia aos nosso colegas...como é que ficaria o meu código....caso eu tenha cadastrado na tabela TABLE2 campo KMOLEO =2.000

e na table1 campo KMGAS eu estiver ainda lançando 999.000 ???

Neste caso o programa vai dizer que ShowMessage('KM Gasolina é Igual ou Superior a Km Óleo') É UMA RESPOSTA ATÉ CERTO POSTO MENTIROSA porque ainda não chegou a gora de trocar o óleo.

 

Algum colega poderia me dizer como ficaria o meu código neste caso??

 

Um abraço a todos e mto obrigado pela ajuda e bom Domingo.

 

Grato

 

http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

 

EderDias

[proteus 0]

meu..

solução é a seguinte...

quando essa for umacondição mentirosa...

você , ou altera o banco... ou você adiciona x no óleo pra que pareça estar certo..

 

http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

[EderDias 0]

Colega...Proteus....Mto obrigado em responder...mas como sou novato....você poderia me dar um exemplo prático de como fazer isto???

 

Trabalho com delphi 4 e paradox

 

Mto Grato

 

http://forum.imasters.com.br/public/style_emoticons/default/grin.gif