Fórum duvida com programa que deve ser tipo agenda... #179633
04/09/2003
0
Oi Pessoal!!!
Eu gostaria de fazer um programa no Delphi 5 que fizesse mais ou menos isso:
Você vai cadastrando as vendas que vc faz, e as datas previstas para pagamento. Quando você iniciar o sistema, ele busca a data de hoje, e mostra uma lista de todos os clientes que tem que pagar neste dia.
Sou iniciante, e nem sei se da pra fazer isso hehehehe
Será que alguem pode me ajudar????
:oops: :roll: :lol:
Eu gostaria de fazer um programa no Delphi 5 que fizesse mais ou menos isso:
Você vai cadastrando as vendas que vc faz, e as datas previstas para pagamento. Quando você iniciar o sistema, ele busca a data de hoje, e mostra uma lista de todos os clientes que tem que pagar neste dia.
Sou iniciante, e nem sei se da pra fazer isso hehehehe
Será que alguem pode me ajudar????
:oops: :roll: :lol:
Glauciazinha
Curtir tópico
+ 0
Responder
Posts
04/09/2003
Bacalhau
Glauciazinha
1. Cria uma tabela no Database Desktop, com os campos que precisas. Um dos campos deverá ser ´Data Prevista´, do tipo date.
2. Cria um indice secundário desse campo (´Data Prevista´)
3. No teu programa, cria um botão e no código desse botão escreve:
var hoje : TDateTime;
hoje := Now;
table1.open;
table1.indexname := <nome que deste ao indice secundário>;
table1.setrangestart;
table1.fieldbyname(´Data Prevista´).asdatetime := hoje;
table1.setrangeend
table1.fieldbyname(´Data Prevista´).asdatetime := hoje;
if table1.recordcount > 0 then
begin
<mostra o resultado>
end
else
showmessage(´Não há nada para hoje´);
1. Cria uma tabela no Database Desktop, com os campos que precisas. Um dos campos deverá ser ´Data Prevista´, do tipo date.
2. Cria um indice secundário desse campo (´Data Prevista´)
3. No teu programa, cria um botão e no código desse botão escreve:
var hoje : TDateTime;
hoje := Now;
table1.open;
table1.indexname := <nome que deste ao indice secundário>;
table1.setrangestart;
table1.fieldbyname(´Data Prevista´).asdatetime := hoje;
table1.setrangeend
table1.fieldbyname(´Data Prevista´).asdatetime := hoje;
if table1.recordcount > 0 then
begin
<mostra o resultado>
end
else
showmessage(´Não há nada para hoje´);
Responder
Gostei + 0
05/09/2003
Glauciazinha
Obrigada Bacalhau ......vou tentar fazer.... :lol:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)