(Resolvido) Alterar dados da consulta

[nicolasbraz]

Eu tenho um formulario de consulta que esta ligado por um DataSource e IbQuery.

E o de cadastro que é ligado por um DataSource e IbDataset.

Gostaria de que quando eu fize-se a consulta eu desse um duplo clique no registro da consulta e eu fosse para a tela de cadastro em modo de edição.

É possivel ?

[Pompeu]

Olá 'nicolasbraz'

Sim é possível ... como é seu formulário de pesquisa ? você usa um DBGrid para visualizar os registros ? qual a versão do Delphi que usa ?

Abraços

[nicolasbraz]

Olá 'nicolasbraz'

Sim é possível ... como é seu formulário de pesquisa ? você usa um DBGrid para visualizar os registros ? qual a versão do Delphi que usa ?

Abraços

Delphi 2007 sim são visualizados em um DBGrid.

[Pompeu]

'nicolasbraz'

Clique sobre o DBGrid e no event OnDblClick você pode atribuir as condições para que quando você der um duplo clique sobre o registro você pode pedir para a tela de consulta fechar e habilitar o modo de edição do formulário de cadastro. Segue exemplo abaixo:

Tela de consulta

procedure TParentescosSelecionar.DBGrid1DblClick(Sender: TObject);

begin

Formulario_de_Consulta.Close;

//Caso você use comando SQL para editar, eu recomendo você armazenar o campo que tenha a chave primária para localizar o registro a ser editado ex: Update From tabela Where id = variavel

end;

Lembrando que é um pouco difícil orientar sobre como fazer já que não estou vendo a forma que você está programando, creio que esse exemplo sirva de referência e qualquer coisa poste aí

Abraços

[nicolasbraz]

Botão pesquisar do formulario de consulta.

procedure TFrmConFerramentas.BotaoPesquisarClick(Sender: TObject);
begin
   if (DateEdit1.Date > dateEdit2.Date) then
     begin
     showMessage('Não é possivel pesquisar quando a data inicial for maior que a data final');
     end
     else
     begin
        dmdados.sqlconferramentas.Close;
        dmdados.sqlconferramentas.ParamByName('datainicial').AsDate:=DateEdit1.Date;
        dmdados.sqlconferramentas.ParamByName('datafinal').AsDate:=DateEdit2.Date;
        dmdados.sqlconferramentas.ParamByName('controle').AsString:='%'+Edit1.Text+'%';
        dmdados.sqlconferramentas.ParamByName('nome').AsString:='%'+editnome.Text+'%';
        dmdados.sqlconferramentas.ParamByName('ferramenta').AsString:='%'+editferramenta.Text+'%';
        dmdados.sqlconferramentas.ParamByName('nomeobra').AsString:='%'+EditObra.Text+'%';
        dmdados.sqlconferramentas.Open;
     end;
end;

Código do DbGrid

procedure TFrmConFerramentas.DBGrid1DblClick(Sender: TObject);
var
 registro:integer;
begin
   registro := dmdados.SqlConFerramentasFER_CODIGO.Value;
   if not assigned (frmFerramentas) then
   begin
      application.createForm( TfrmFerramentas, frmFerramentas);
      frmFerramentas.show;
   end
   else
     abort;

   dmdados.ibFerramentas.Edit;
   dmdados.IbFerramentasFer_codigo.value := registro;
   frmferramentas.TbConsulta.TabVisible:=false;
   frmferramentas.TbCadastro.TabVisible:=true;
   frmferramentas.dbedit2.SetFocus;
end;

Tentei isso mas deu errado, ele abre o primeiro registro da tabela e altera o codigo dele.

[Pompeu]

'nicolasbraz'

Estou meio sem tempo mas vou analizar seu codigo hj e tento postar hj ainda ok

Abraço

[Pompeu]

Tente isso ...

Código do DbGrid

procedure TFrmConFerramentas.DBGrid1DblClick(Sender: TObject);
var
 registro:integer;
begin
   registro := dmdados.SqlConFerramentasFER_CODIGO.Value;
   if not assigned (frmFerramentas) then
   begin
      application.createForm( TfrmFerramentas, frmFerramentas);
      frmFerramentas.show;
   end
   else
     abort;

   dmdados.ibFerramentas.Locate('FER_CODIGO', registro, []);

   dmdados.ibFerramentas.Edit;
   dmdados.IbFerramentasFer_codigo.value := registro;
   frmferramentas.TbConsulta.TabVisible:=false;
   frmferramentas.TbCadastro.TabVisible:=true;
   frmferramentas.dbedit2.SetFocus;
end;

O que está acontecendo é que você não está localizando o registro antes de editá-lo, creio que desta forma irá funcionar

Abraço

Editado Novembro 6, 2009 por Pompeu

[nicolasbraz]

Cara muito obrigado mesmo o código que você postou está perfeito.

Só houve um erro meu, era na hora de chamar o form no caso que o form já estive-se aberto ele não acontecia nada, agora abaixo vou colocar o código funcionando redondo.

procedure TFrmConFerramentas.DBGrid1DblClick(Sender: TObject);
var
registro:integer;
begin
   registro := dmdados.SqlConFerramentasFER_CODIGO.Value;

   if not assigned (frmFerramentas) then
   begin
      application.createForm( TfrmFerramentas, frmFerramentas);
      frmFerramentas.show
   end
   else
     frmferramentas.show;

   dmdados.ibFerramentas.Locate('FER_CODIGO', registro, []);

   dmdados.ibFerramentas.Edit;
   dmdados.IbFerramentasFer_codigo.value := registro;
   frmferramentas.TbConsulta.TabVisible:=false;
   frmferramentas.TbCadastro.TabVisible:=true;
   frmferramentas.dbedit2.SetFocus;
end;