Delphi + FDQuery (FireDAC) + DataSource

11/11/2020

Estou fazendo liga��o dos componentes DataSource e FDQuery.
Com os componentes devidamente conectados, fa�o o select no FDQuery, carrego o FieldEditor com os campos, e puxo pra tela..

Estou utilizando os comandos Append, Post, ApplyUpdates..

A d�vida � se eu consigo inserir algum campo a mais que n�o est� no FDQuery.
Exemplo: Gostaria de colocar Insert/Update o campo de InseridoPor, AtualizadoPor (que viria do usu�rio logado no sistema)
Mas esses campos n�o est�o em tela, est�o vem variaveis globais.
Existe essa op��o? Um jeito que consiga insert/update em um "FDQuery.POST"

Gabriel Kenji

Curtir t�pico + 0

Responder

Posts

11/11/2020

Emerson Nascimento

coloque todos os campos na query e adicione-os no FieldEditor. e altere a propriedade Visible para False nos campos InseridoPor e AtualizadoPor, assim n�o aparecer�o em grades, por exemplo.
implemente o evento BeforePost para gravar o conte�do desses campos:

procedure TFormX.FDQuery1BeforePost(DataSet: TDataSet);
begin
  if FDQuery1.State = dsEdit then
    Dataset.FieldByName('AtualizadoPor').AsString := login.usuario
  else
  if FDQuery1.State = dsInsert then
    Dataset.FieldByName('InseridoPor').AsString := login.usuario
end;

Responder

Gostei + 0

11/11/2020

Gabriel Kenji

procedure TFormX.FDQuery1BeforePost(DataSet: TDataSet);
begin
  if FDQuery1.State = dsEdit then
    Dataset.FieldByName('AtualizadoPor').AsString := login.usuario
  else
  if FDQuery1.State = dsInsert then
    Dataset.FieldByName('InseridoPor').AsString := login.usuario
end;

Nossa, resolveu minha vida.. Muito obrigado.

Porem aconteceu um neg�cio estranho:
- Quando eu fa�o a liga��o do meu DBEdit com DataSource/FieldEditor (FDQuery) os acentos continuam a funcionar normalmente.
- Se eu passo por par�metro igual voc� mostrou pra mim, os acentos n�o funcionam, grava caracteres estranhos: 'S�o Paulo' fica 'São Paulo'
Banco de Dados: MariaDB
Firedac..

Responder

Gostei + 0

11/11/2020

Emerson Nascimento

troque
.AsString :=
por
.Value :=

Responder

Gostei + 0