DBGrid - Capturar os Valores

Question

Bom Pessoal... tenho uma pesquisa em MySQL que esta ativa somente em tempo de execu��o... mas preciso copiar alguns valores da pesquisa...Pensei em capturar do DBGrid quando clico duas vezes... desta ...

Aroldo Zanela · Answer

Colega,A dbGrid possui um manipulador de evento para o duplo clique. Adicione algo como:[code:1:c69020dc84]...EditCodCliente.Text  := TABELACodCliente.AsString;EditNomeCliente.Text := TABELANomeCliente.Value;...[/code:1:c69020dc84]...

Adelor Silva · Answer

Primeiramente gostaria de agradecer sua colabora��o...

mas eu preciso obter os valores de um DBGrid1 que esta apontando para uma ZQuery1...

da forma que voc� passou ele captura o primeiro registro da Tabcliente cadastrado...

se puderes me ajudar ... agrade�o...

Night_man · Answer

foce ja tentou fazer on evento afterscrroll da queryEditCodCliente.Text  := dataset.fieldByName(�CodCliente�).AsString; EditNomeCliente.Text  := dataset.fieldByName(NomeCliente�).AsString;...

Adelor Silva · Answer

Muito obrigado NiGTH_MaN...Desta forma funcionou... qdo eu clico sobre as linhas do DBGrid1 os mesmos valores aparece Edits...mas se voc� souber como posso fazer dando dois clidks sobre o DBGrid1, ficaria mais adequado com o objetivo do projeto...mas mesmo assim... muito obrigado... pela sua disponibilidade......

Night_man · Answer

No evento OnMouseDown do DBGrid tenta colocar isso

if (Shift in ssDouble) then
begin
EditCodCliente.Text := Query.fieldByName(�CodCliente�).AsString;
EditNomeCliente.Text := Query.fieldByName(�NomeCliente�).AsString;
end;

Adelor Silva · Answer

Muito Obrigado... Muito Obrigado...Fico grato pela sua colabora��o...  tudo esta ok... como deveria ser...Um abra�o meus amigos......

Marco Salles · Answer

Sei que esta tudo resolvido , mas como a duvida de uns pode ser a duvida de outros amanh� . eu sinceramente n�o entendi porque que o promeiro post do Aroldo n�o solucioneou o problema :cry: :cry: :cry:

A dbGrid possui um manipulador de evento para o duplo clique. Adicione algo como:

Aroldo

C�digo: procedure TForm2.DBGrid1DblClick(Sender: TObject); begin EditCodCliente.Text := TABELACodCliente.AsString; EditNomeCliente.Text := TABELANomeCliente.Value; end;

Adelor da Silva

da forma que voc� passou ele captura o primeiro registro da Tabcliente cadastrado...

N�o deveria capturar o registro selecionado da Grid , sendo ele primeiro , ultimo , ou do meio ??? :cry: :cry: :cry:

Adelor Silva · Answer

� que se eu fizer da forma que o Aroldo passou... (refor�o que agrade�o toda a ajuda, indiferente de quem postou...)

begin
EditCodCliente.Text := TABELACodCliente.AsString;
EditNomeCliente.Text := TABELANomeCliente.Value;
end;

eu estaria pegando direto da tabela_Cliente...

e o que eu precisava era pegar da ZQuery_Cliente... Quando eu clico duas vezes no DBGrid1 (que esta ligado a ZQuery_Cliente) tenho que passar estas informa��es para os Edits... a linha de comando que eu n�o sabia era justamente:

procedure TFrmPsqCli.DBGrid1DblClick(Sender: TObject);
begin
FrmLote.DBEdit4.Text := DmDados.QryPsqCli.FieldByName(�NmCli�).AsString;
FrmLote.DBEdit3.Text := DmDados.QryPsqCli.FieldByName(�CodCli�).AsString;
end;

Marco Salles · Answer

mas o que o aroldo , acredito , eu lhe sugeriu , n�o era para voce pegar os dados da tabela Cleinte,.. Ele nen sabia que voce tinha esta tabela no seu projeto , qual era os seus Tfields , seu Componentes de Acesso etc...
. Ele apenas usou um termo generico , aonde ele lhe quis indicar o evento , aonde voce pudesse capturar o que voce estava proprondo...

Por isso eu insiste no t�pico , que do jeito que foi finalizado , deu a entender que o evento OnDBGrid1DblClick [b:641e327efe]n�o[/b:641e327efe] lhe serveria, o que n�o � verdade

Adelor Silva · Answer

Acredito ter entendido o que voc� quis dizer... mas devido a minha inesperiencia... no assunto... n�o entendi quando o Aroldo passou a dica... gostaria de pedir desculpas ao Aroldo... afinal sou novato e estou estudando Delphi em casa nos finais de semana... sempre fui apaixonado pela id�ia de poder programar... mas na minha cidade (Tai�-SC) n�o temos por perto um curso que traga este conhecimento... ao conhecer este forum notei que o pessoal tira v�rias d�vidas...

Entendo que as vezes � um pouco dif�cil ajudar, principalmente aos iniciante como eu... mas � digamos minha unica forma de aprender programa��o... e fico muito feliz e agradecido por ela existir...

Entendo sua preocupa��o com o fato de eu dizer que o post do Aroldo n�o havia solucionado minha d�vida... mas foi por ignor�ncia minha mesmo...

Mas volto a agradecer a todos... incluseve voc� Marcos... Pois posso ver que todos levam a s�rio as participa��es... at� mesmo a dos iniciantes como eu... e � justamente por isso que eu participo e fa�o coment�rios positivos ao www.devmedia.com.br quando estou discutindo com amigos sobre programa��o...

Um Abra�o a Todos...

Marco Salles · Answer

� isso ai amigo . estamos sempre � disposi��o para trocarmos nossas experincias...

F�rum DBGrid - Capturar os Valores #325878