Rotina para agendamentos
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
Curtidas 0
Respostas
Dj_charles
23/10/2003
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
GOSTEI 0