Fórum Copiar valor da linha selecionada dbgrid #322023
24/05/2006
0
Ta eu faço a busca consigo os resultados e quando clico na linha do db grid ela seleciona inteira. blz. Quero quando clicar duas veses nessa linha ela grave o valor do código em uma sting. Pois vai abrir outro form com todos os dados do cliente!
Alguémsabe como passar esse valor para uma sting sem perder o resultado da busca??
Tiago_hs
Curtir tópico
+ 0Posts
24/05/2006
Tiago_hs
Gostei + 0
24/05/2006
Tiago_hs
Gostei + 0
24/05/2006
Arc
esse outro form, vai ter dbedit ou edit comum ???? se estiver com dbedit use o mesmo datasource do grid .... senão, atribua os valores do fieldbyname da query para cada edit ....
Gostei + 0
24/05/2006
Adriano Santos
O [b:db3e2c651d]arc[/b:db3e2c651d] está certo no que diz respeito a FieldByName;
Como vc tem um resultado no DBGrid, basta pegar o valor de um ou mais campos e passar para a próxima tela, alogo +/- assim:
procedure TForm1.Button1Click(Sender: TObject);
var
Campo1, Campo2, Campo3 : String;
begin
Form2 := TForm2.Create(Self);
try
with Form2 do
begin
Edit1.Text := Query_Resultado.FieldByName(´CAMPO1´).AsString;
Edit2.Text := Query_Resultado.FieldByName(´CAMPO2´).AsString;
Edit3.Text := Query_Resultado.FieldByName(´CAMPO3´).AsString;
ShowModal;
finally
FreeAndNil(Form2);
end;
end;
Tem inúmeras formas de fazer isso, vc pode inclusive criar PROPERTY ou variáveis no Form2 para receber os valores que você quer.
Gostei + 0
25/05/2006
Tiago_hs
eu quero pegar o valor colocar numavaríavel p passar p outro form!
Gostei + 0
25/05/2006
Tiago_hs
Gostei + 0
25/05/2006
Tiago_hs
cod := DbGrid1.SelectedField.DataSet.FieldByName(´Card´).AsString;
ShowMessage(´CLiente encontrado!´+cod);
Gostei + 0
24/11/2020
Claudio Henrique
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)