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 ;)
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
Curtir tópico
+ 0
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é+
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ó....
Em nenhum desses funcionou.[/code]
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