Fórum Rotina para agendamentos #190411
23/10/2003
0
Ola pessoal,
Estou precisando aprender como fazer uma rotina agendar compromissos
onde três condições devem ser consideradas.
Nome(string)
Data(Date)
Hora(Time)
Exemplo se tiver um compromisso marcado para o ´Nome´ na ´Data´ e ´Hora´
MessageDlg(´esta data e horário já estão agendados´);
Utilizo o Delphi 5 com Paradox
Desde já muito obrigada
Baby
Estou precisando aprender como fazer uma rotina agendar compromissos
onde três condições devem ser consideradas.
Nome(string)
Data(Date)
Hora(Time)
Exemplo se tiver um compromisso marcado para o ´Nome´ na ´Data´ e ´Hora´
MessageDlg(´esta data e horário já estão agendados´);
Utilizo o Delphi 5 com Paradox
Desde já muito obrigada
Baby
Jads
Curtir tópico
+ 0
Responder
Posts
23/10/2003
Dj_charles
Faz o seguinte:
tabela.filter := ´Nome =´ +quotedstr(VarNome) + ´ and data = ´ + quotedstr(varData) + ´and hora = ´ +quotedstr(vaHoras);
tabela.filtered :=true
if tabela.fieldbyname(´Nome´) <> ´´ then
begin
showmessage(´Já há agendamento´);
exit
end
else
begin
tabela.append
....
....
end;
basicamento axo q eh isso.
Qualquer coisa meu email eh charlesgarrotti@hotmail.com
té mais...
Dj_Charles - CDG Sistemas
tabela.filter := ´Nome =´ +quotedstr(VarNome) + ´ and data = ´ + quotedstr(varData) + ´and hora = ´ +quotedstr(vaHoras);
tabela.filtered :=true
if tabela.fieldbyname(´Nome´) <> ´´ then
begin
showmessage(´Já há agendamento´);
exit
end
else
begin
tabela.append
....
....
end;
basicamento axo q eh isso.
Qualquer coisa meu email eh charlesgarrotti@hotmail.com
té mais...
Dj_Charles - CDG Sistemas
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)