AlterPost para atualizar tela Cadastro
Olá amigos delphianos,
Apos inserir um novo registro na minha tabela GUIASETOR através de um ibdataset eu gostaria que a tabela fosse atualizada automaticamente para que o usuraio pudesse ver no grid abaxo do cadastro o novo item inserido. Pensei em colocar este codigo no evento AlterPost do ibdataset:
procedure TDatModule.dsGuiaSetorAfterPost(DataSet: TDataSet);
begin
DatModule.dsGuiaSetor.Close;
DatModule.dsGuiaSetor.Open;
datModule.dsGuiaSetor.Refresh;
end;
end.
Eu gostaria de saber se algum amigo do forum tem uma ideia melhor sobre como fazer esta atualização ´imediata´ sem a necessidade de fechar o form e abri-lo novamente.
Apos inserir um novo registro na minha tabela GUIASETOR através de um ibdataset eu gostaria que a tabela fosse atualizada automaticamente para que o usuraio pudesse ver no grid abaxo do cadastro o novo item inserido. Pensei em colocar este codigo no evento AlterPost do ibdataset:
procedure TDatModule.dsGuiaSetorAfterPost(DataSet: TDataSet);
begin
DatModule.dsGuiaSetor.Close;
DatModule.dsGuiaSetor.Open;
datModule.dsGuiaSetor.Refresh;
end;
end.
Eu gostaria de saber se algum amigo do forum tem uma ideia melhor sobre como fazer esta atualização ´imediata´ sem a necessidade de fechar o form e abri-lo novamente.
Flavia_mococa
Curtidas 0
Respostas
Roy
12/08/2004
Faça o seguinte:
DatModule.dsGuiaSetor.Post;
DatModule.dsGuiaSetor.applyUpdates;
datModule.ibtransaction.CommitRetaining;
DatModule.dsGuiaSetor.Post;
DatModule.dsGuiaSetor.applyUpdates;
datModule.ibtransaction.CommitRetaining;
GOSTEI 0
Flavia_mococa
12/08/2004
Obrigado amigo,.
Funcionou como eu queria :wink:
Funcionou como eu queria :wink:
GOSTEI 0