Registro n�o � gravado

Question

Ol�,

Estou com um problema. Quando incluo registros no programa e depois minimizo ele, se eu desligar o computador sem fechar o programa antes,

Paullsoftware · Answer

n�o creio que o fato de voc� est� �Minimizando� o seu programa tenha algo haver com o n�o salvamento dos dados no banco de dados, creio que est� relacionado a maneira como voc� est� �Gravando� esses dados, quando voc� clica no bot�o �Salvar� para confirmar a �Inclus�o� dos dados que c�digo voc� est� usando???

sempre post o c�digo usado, assim, fica mais f�cil de ajudar nos esclarecimentos... 8)

L_carlos · Answer

Tem a ver com o programa estar minimizado e n�o ser fechado. Porque quando eu fecho o programa clicando no bot�o fechar e desligo o miccro qdo abro novamente os registros foram incluidos normalmente (no bot�o fechar eu desconecto as query e o ibdatabase).

O Codigo para gravar � esse:

with FDADOS.QryINSAgenda do
begin

ParamByName(�dat_dia�).asDate := dtdata.date;
ParamByName(�hor_hora�).asTime := strtotime(EDHORA.Text);
ParamByName(�des_evento�).asstring := edevento.text;
ParamByName(�des_detalhe�).asstring := memodetalhe.text;
ExecSql;
FDADOS.QryAgenda.Active :=FALSE;
FDADOS.QryAgenda.Active :=TRUE;

Onde FDADOS � o Data Module.

Luiz

Marco Salles · Answer

talves interceptar a mensagem do Windows possa resolver o seu problema

na secc��o private do form escreva

private
   procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;

procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession); 
begin 
if TestarSeFormmularioEstaMinimizado
  begin
     exceutarEventoBotaoSalvar Ou ExcutarEventoBotaoSalvar
  end;

Msg.Result := 1; 
end;

ou se preferir :

procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION; 
Adicionar a procedure � se��o implementation de sua unit:

procedure TForm1.WMEndSession(var Msg : TWMEndSession); 
begin 
if Msg.EndSession = true then 
  if TestarSeFormmularioEstaMinimizado
  begin
     exceutarEventoBotaoSalvar Ou ExcutarEventoBotaoSalvar
  end;
inherited; 
end;

Acho que funfa para o que voce quer

Paullsoftware · Answer

quando eu trabalhava com IBX com os componentes:

IbDataBase
IbTransaction
IbDataSet
e nos eventos
[b:6af753cca6]afterPost e AfterDelete[/b:6af753cca6]
eu sempre coloco o c�digo abaixo...

if Not Transaction.InTransaction then
 Transaction.StartTransaction;
  Try
   if Transaction.InTransaction then
    Transaction.CommitRetaining
     Except
      if Transaction.InTransaction then
       Transaction.RollbackRetaining;
        end;

assim, sempre que executo alguma altera��o essas s�o gravadas diretamente no banco, ent�o mesmo que falte energia logo depois de clicar no bot�o SALVAR os dados j� estaram gravados no banco, pelo menos comigo sempre funcionou... :wink:

L_carlos · Answer

Valeu Paull. Problema resolvido.  :D Luiz...

Marco Salles · Answer

Sei n�o , mas � so uma opini�o ..Abrir transa��o comitar fechar transa��o etc , para cad apost que se da no Aplicativo �pode n�o ser uma pr�tica boa... Pois pelo que tudo indica ,estara consomindo muito recurso do servidor alem de prender a conex�o e tamb�m o cursor . Nun Sistema de Rede , poderemos ter uma perda consideravel na performace.....

Paullsoftware · Answer

[quote:7a0e1fc957=�Marco Salles�]Sei n�o , mas � so uma opini�o ..

Abrir transa��o comitar fechar transa��o etc , para cad apost que se da no Aplicativo �pode n�o ser uma pr�tica boa... Pois pelo que tudo indica ,
estara consomindo muito recurso do servidor alem de prender a conex�o e tamb�m o cursor . Nun Sistema de Rede , poderemos ter uma perda consideravel na performace..[/quote:7a0e1fc957]

valeu Marcos, eu usava isso quando trabalhava com IBX mais agora migrei pra DBX e n�o fa�o mais isso, at� pq eu s� usava essa torina como forma alternativa quando ocorria problemas do tipo!
mais valeu pelo toque...