AlterPost para atualizar tela Cadastro
12/08/2004
0
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
Curtir tópico
+ 0
Responder
Posts
12/08/2004
Roy
Faça o seguinte:
DatModule.dsGuiaSetor.Post;
DatModule.dsGuiaSetor.applyUpdates;
datModule.ibtransaction.CommitRetaining;
DatModule.dsGuiaSetor.Post;
DatModule.dsGuiaSetor.applyUpdates;
datModule.ibtransaction.CommitRetaining;
Responder
Clique aqui para fazer login e interagir na Comunidade :)