Executar ao encerrar o programa

22/07/2008

0

Olá a todos!

Fiz um programa que ao iniciar o windows, ele é startado e acrescenta uma linha no banco de dados contendo a máquina, nome do usuário e horário de logon... Aí o programa fica rodando lá, escondidinho perto do relógio. Isso aí tá funcionando beleza! :wink:

Agora... gostaria que qdo o programa fosse encerrado, ele adicionasse outra linha no banco contendo os mesmos dados, mas já tentei no OnClose e OnCloseQuery e não consegui.

Obrigado ;)


Etomazett

Etomazett

Responder

Posts

23/07/2008

Paulo_amorim

Olá

Você colocou no FormClose? Talvez o evento onde vc esteja tratando isso ocorra depois do fechamento da conexão com o BD... onde está cada evento?

Espero que ajude

Até+


Responder

23/07/2008

Etomazett

Olha só....

procedure TFormControle.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  with query do
  begin
    close;
    sql.clear;
    sql.Add(´insert into ccobr(ID_EVENTO,USUARIO_EVENTO,DATA_EVENTO,HORA_EVENTO,EVENTO,MAQUINA_EVENTO)´);
    sql.Add(´values(seq_id.nextval,´ + UpperCase(quotedstr(usuario)) + ´, to_date(´ + quotedstr(DateToStr(now)) + ´,´ + quotedstr(´dd/mm/yyyy´) + ´), to_date(´ + quotedstr(DateToStr(now) + ´ ´ + TimeToStr(Now)) + ´,´ +  quotedstr(´dd/mm/yyyy HH24:MI:SS´) + ´), ´ + quotedstr(´LOGOFF_closequery´)+ ´,´ + quotedstr(maquina) + ´)´);
    Active;
    sql.SaveToFile(´c:\logoff.sql´);
  end;
end;


procedure TFormControle.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  with query do
  begin
    close;
    sql.clear;
    sql.Add(´insert into ccobr(ID_EVENTO,USUARIO_EVENTO,DATA_EVENTO,HORA_EVENTO,EVENTO,MAQUINA_EVENTO)´);
    sql.Add(´values(seq_id.nextval,´ + UpperCase(quotedstr(usuario)) + ´, to_date(´ + quotedstr(DateToStr(now)) + ´,´ + quotedstr(´dd/mm/yyyy´) + ´), to_date(´ + quotedstr(DateToStr(now) + ´ ´ + TimeToStr(Now)) + ´,´ +  quotedstr(´dd/mm/yyyy HH24:MI:SS´) + ´), ´ + quotedstr(´LOGOFF_close´)+ ´,´ + quotedstr(maquina) + ´)´);
    Active;
    sql.SaveToFile(´c:\logoff.sql´);
  end;
end;



Em nenhum desses funcionou.[/code]



Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar