Puxar dados de outro Formulario

Question

Boa Noite Pessoal, tenho um formulario princiapal com uma tabela com o campo erro, porem esse campo erro vai puxar os dados de um outro formulario com uma tabela secundaria, normalmente eu fa�o isso c...

Joel Rodrigues · Answer

Essa forma que voc� citou � interessante. Voc� pode fazer assim:
1) Declarar vari�veis p�blicas no form secund�rio;
2) Ao selecionar o registro, preencher essas vari�veis (com C�digo, Id, Nome, etc);
3) No form principal, voc� chama o form secund�rio e ap�s o ShowModal, acessa essas vari�veis (afinal, s�o p�blicas).
Veja um exemplo:

formClientes := TformClientes.Create(Application);
formClientes.ShowModal();
codigoCliente := formClientes.CodigoClienteSelecionado;

Essa � uma forma, mas voc� poderia muito bem acessar a tabela que est� no form secund�rio direto:

formClientes := TformClientes.Create(Application);
formClientes.ShowModal();
codigoCliente := formClientes.queryClientes.FieldByName('Codigo').AsString;

Qualquer coisa, � s� falar.

Felipe Arruda · Answer

Bom dia Joel, cidade boa Natal, tive ai mes passado....heheheh. E desde ja fico agradecido a ajuda.
Vamos la, como sou iniciante em delphi gostaria de uma ajuda mais detalhada.

1) Eu declaro a variavel no FRSecundario, seria isso?

private
{ Private declarations }
public
{ Public declarations }
end;

var
FRPrimario: TFRPrimario;

implementation

uses unitprimario;

2) Essa segunda cita��o tenho que fazer algo ou ja esta incluso no codigo a frente?

3) O cdigo que vc citou abaixo eu o coloco no FRPrimario? Em qual evento do Formulario? Onde vc cita formClientes, seria meu FRSecundario? o codigocliente que vc tambem citou e uma variavel "var", tenho que cita la tamb�m?

Obrigado, aguardo, tenha um bom dia.

Joel Rodrigues · Answer

Opa, tudo em paz?Rapaz, nesse caso sugiro que voc� fa�a da segundo forma que eu citei. Vai ser mais r�pido e mais f�cil pra voc�~, al�m de atender bem sua necessidade.O formClientes que citei � o form secund�rio sim, no seu caso, o FRSecundario.Com rela��o a em que evento fazer o procedimento, a� depende de voc�, se vai ser em um bot�o ou em outro controle, por exemplo.Abra�o....

Felipe Arruda · Answer

Ok, mas qual componente eu vou usar para mostrar esses dados em meu formulario principal?esse codigocleinte que vc citou no seu codigo o que seria?...

Joel Rodrigues · Answer

codigoCliente seria uma vari�vel declarada no form principal. O que eu quis dizer foi que voc� pode pegar o conte�do de uma query que est� em outro form e fazer o que quiser: atribuir a uma vari�vel, mostrar em um edit, label, etc....

Felipe Arruda · Answer

Boa Tarde, uma variavel codigocliente : String;??
Posso mostrar em um DBMemo, ele ligado a minha tabela principal, pois esses dados tem que ficar salvos no banco de dados, a ele tenho um IBTable e um DataSource, n�o tenho nenhuma query, e necessario essa query?

Joel Rodrigues · Answer

Funciona da mesma forma par o IBTable. E como eu disse, uma vez acessado o valor, voc� pode fazer o que quiser com ele, inclusive mostrar em um Memo....

Felipe Arruda · Answer

Boa Tarde, fiz o seguinte no meu formulario primario tenho um DBMemo que esta ligado ao DataSource1 e um IBTable1, no evento dele onchange coloquei:

procedure TFRAtendimento.DBMemo1Change(Sender: TObject);
var
codigocliente : String;

begin
FRSecundario := TFRSecundario.Create(Application);
FRFRSecundario.ShowModal();
codigoCliente := FRSecundario.IBTable1.FieldByName('Codigo').AsString;
end;

Os erros foram: inves de abrir o formulario primario, abre o secundario, ok. O outro erro e o seguinte, fecho os formularios secundarios para voltar para o primario, quando eu clico no DBMemo abre o formulario secundario, ate ai certo, porem, quero que abra o formualario eu escolha um dos registro da minha tabela que esta sendo mostrada em um DBGrid e ele preenche automaticamento esse campo no meu formulario primario. exemplo que vc me passou so esta abrindo o formulario.

Joel Rodrigues · Answer

Sobre os erros:1) Est� abrindo o form secund�rio: ora, e n�o � essa a inten��o? Abrir o form secund�rio para que nele o usu�rio selecione um registro?2) Voc� colocou no evento OnChange do Memo, isso n�o � bom. Utilize um bot�o ou algo do tipo.3) Voc� atribuiu o retorno a uma vari�vel, mas n�o fez nada relacionado ao memo. Precisaria colocar a vari�vel dentro do memo, por exemplo:...

Felipe Arruda · Answer

Ok. A primeira situa��o foi resolvida, foi erro meu aqui.a variavel dentro do memo, seria assim:varcodigocliente : String;begin  DBMemo1.Lines.Add(Cliente:  + codigoCliente);end;...

Joel Rodrigues · Answer

N�o, n�o.. essa linha deve ser adicionada ap�s aquelas outras 3 que j� tem....

Felipe Arruda · Answer

Boa Noite, fiz aqui, porem o que esta acontecendo. Abre o form principal clico no bot�o com os codigo abaixo, abre o form secundario que neste meu caso e o FRErro, clico no registro que desejo ser salvo no campo ERRO/PROBLEMA do form princiapl, fecho o form secundario, os dados desejados aparecem no campo ERRO/PROBLEMA do form principal, porem aparece assim: "ERRO/PROBLEMA: E AQUI OS DADOS QUE FORAM PUXADOS DO FORM SECUNDARIO"

procedure TFRAtendimento.Button4Click(Sender: TObject);
var
codigocliente : String;

begin
FRErro := TFRErro.Create(Application);
FRErro.ShowModal();
codigoCliente := FRErro.IBTable1.FieldByName('ERRO/PROBLEMA').AsString;
DBMemo1.Lines.Add('ERRO/PROBLEMA: ' + codigoCliente);
end;

Joel Rodrigues · Answer

N�o entendi o que est� errado, para mim voc� descreveu o procedimento como deveria ser....

Felipe Arruda · Answer

Se eu clicar no campo no form principal onde foi puxado do form secundario, os dados somi.Posso te passar a aplica��o para vc ver?...

Joel Rodrigues · Answer

Como assim no campo em que o form secund�riofoi puxado? O form secund�rio est� sendo chamado a prartir de um bot�o....

F�rum Puxar dados de outro Formulario #445213