Rotina para ativar agenda na data e hora desejada
Olá!
Tenho uma agenda que ao ser aberto o Windows, fica escondida (Hide).
Quero que quando chegar a data e hora agendada, ela seja ativada automaticamente e mostre uma mensagem ao usuário com os dados do compromisso agendado.
Nota: Os dados estão gravados em arquivo texto, recebidos de Edit e MaskEdit.
Tenho uma agenda que ao ser aberto o Windows, fica escondida (Hide).
Quero que quando chegar a data e hora agendada, ela seja ativada automaticamente e mostre uma mensagem ao usuário com os dados do compromisso agendado.
Nota: Os dados estão gravados em arquivo texto, recebidos de Edit e MaskEdit.
Bielisilva
Curtidas 0
Respostas
Edilcimar
21/11/2007
Se você colocar um timer no programa, no ontime dele você pode mandar fazer qualquer coisa, basta fazer uma verificação com o banco de dados da agenda e fazer comparação. Faça um intervalo de 1 min. e dê uma olhada no banco da agenda
GOSTEI 0
Bielisilva
21/11/2007
Caro Colega,
Coloquei o código abaixo, funcionou legal, mas o DBGrid que recebe os dados da tabela entrou em loop.
O que fiz de errado?
procedure TtelaPrincipal.localizaAlgumCompromisso(Sender: TObject);
begin
Form1.Table1.open;
form1.Table1.First;
while not(form1.Table1.Eof) do begin
IF (Form1.Table1.FieldByName(´Data´).AsString=DateToStr(Date))and(Form1.Table1.FieldByName(´Hora´).AsString=Timetostr(time)) then begin
form1.Show;
end;
form1.table1.next;
end;
end;
Coloquei o código abaixo, funcionou legal, mas o DBGrid que recebe os dados da tabela entrou em loop.
O que fiz de errado?
procedure TtelaPrincipal.localizaAlgumCompromisso(Sender: TObject);
begin
Form1.Table1.open;
form1.Table1.First;
while not(form1.Table1.Eof) do begin
IF (Form1.Table1.FieldByName(´Data´).AsString=DateToStr(Date))and(Form1.Table1.FieldByName(´Hora´).AsString=Timetostr(time)) then begin
form1.Show;
end;
form1.table1.next;
end;
end;
GOSTEI 0