Evento No Dbgrid

[AlexBEE]

Ola a Todos

Eu estou com um problema, eu tenho que colocar um evento de OnClicK e um Evento OnEnter em uma CELULA do DBGrid.

Eu quero fazer tipo aquele negocio de selecionar um ESTADO e no outro campo so mostrar as cidades daquele estado!!!!!!!!!

Eu estou usando campo DBLookupComboBox dentro das celulas da Tabela do DbGrid.

ALGUÉM SABE ENTÃO COMO COLOCAR EVENTOS EM ALGUNS CAMPOS DA TABELA E NÃO NA TABELA TODA!!!!!!????????

OBRIGADO

ALEXANGELO

[Micheus]

E se você utilizar o evento OnChange do field referente ao estado (field do dataset utilizado no DBGrid) e usar o valor deste campo para filtrar a query que você, provavelmente, utiliza como loockup para cidade? Não resolveria?

[AlexBEE]

Ola Amigo

Pode dar certo, eu so vou ter que alterar o cadigo que eu já tenho pronto, mais valeu a dica.

[AlexBEE]

Ola

Eu utilizava 2 eventos para fazer esse negocio do estado e cidade, eu usava esse codigo:

procedure TfrmCliente.DBLookupComboBox1Click(Sender: TObject);
begin
  inherited;

        DM.SqlkCidade.Filter := '';
        DM.SqlkCidade.Filtered := False;
        DBLookupComboBox2.KeyValue := 0;
end;

procedure TfrmCliente.DBLookupComboBox2Enter(Sender: TObject);
begin
  inherited;

        if (DBLookupComboBox1.Text) <> '' then
        begin
            DM.SqlkCidade.Refresh;
            DM.SqlkCidade.Filter := 'ID_UF = ' + IntToStr(DBLookupComboBox1.KeyValue);
            DM.SqlkCidade.Filtered := True;
        end
        else begin
            DM.SqlkCidade.Filter := '';
            DM.SqlkCidade.Filtered := False;
            ShowMessage('ESCOLHA PRIMEIRO UM ESTADO!!!!');
            DBLookupComboBox1.SetFocus;
            Exit;
        end;
end;

so que eu não consegui adapitar esse codigo para fazer a mesma coisa no evento OnChange!!!!!!

[Micheus]

Agora que você postou esse código, queria exclarecer que a sugestão que dei anteriormente baseava-se na possibilidade de você estar utilizando um Loockupfield (acho que é isto) no seu dataset, o que faz com que um um combobox seja automaticamente criado dentro do seu DBGrid. Mas vejo que não era o caso. No momento não poderei lhe ajudat, aqui onde estou não tenho o D7 então não lembro de cabeça os detalhes.

[AlexBEE]

beleza

Mais valeu ate agora, você me ajudou MUITO hoje!!!!!!!!!!!1

[AlexBEE]

Ola

ninguém sabe como eu posso fazer isso???????????

[Micheus]

Seria isto talvez?

procedure TfrmCliente.DBLookupComboBox1Change(Sender: TObject);
begin
  inherited;

  DM.SqlkCidade.Filtered := False;
  DM.SqlkCidade.Filter := '';
  DBLookupComboBox2.KeyValue := 0;

  DM.SqlkCidade.Filter := 'ID_UF = ' + IntToStr(DBLookupComboBox1.KeyValue);
  DM.SqlkCidade.Filtered := True;
  DM.SqlkCidade.Refresh;
end;

[AlexBEE]

OK

Mais esse codigo eu colocaria a onde??????????

Lembrando que este campo esta dentro de DbGrid!!!!!!!!!

[AlexBEE]

Ok

Eu consegui fazer com esse codigo que você passou!!!!!!!

So tem um probleminha como eu estou trabalhando com o DBGrid, pode-se colocar varios registros, quando você so colocar 1 registro é perfeito, so que quando você começa a colocar mais de 1 registro começa a perder os registros anteriores!!!!!!!!!!!!

você teria alguma ideia de como reselver isso???????????

[AlexBEE]

Ola

Eu consegui diagnosticar exatamente o meu Problema!!!!!!!!!!!!

O problema é o mesmo que esta acontecendo com todas as telas que Utilizam Cidade e Estado!!!!!!!!!

Quando eu seleciono um estado e uma cidade e salvo, todos os outros registro daquela tela que não forem o estado selecionado a cidade desaparece, so que quando ele fecho e abro o programa estodas la.

EX:

Eu tenho varios registros de um cadrastro de CLientes, e utilizo vairos Estados e Cidade: Tipo:

1 - MATO GROSSO DO SUL - CAMPO GRANDE

2 - MINAS GERAIS - BELO HORIZONTE

3 - RIO DE JANEIRO - RIO DE JANEIRO

4 - SÃO PAULO - CAMPINAS

5 - RIO DE JANEIRO - CABO FRIO

So que se eu Fazer um Cadrastro Tipo para o Estado do "RIO DE JANEIRO" e cidade de "NITEROI" e salvar, quando eu navego pelos registros daquela tabela TODOS os estados que não forem "RIO DE JANEIRO" as cidades desaparesem, e as Cidade do estado de "RIO DE JANEIRO" ficam Normais, se agora eu fazer um registro para outro estado vai acont4ecer a mesma coisa so que para esse novo estado escolido!!!!!!!!!

O Codigo que eu utilizo para fazer esse filtro é:

procedure TfrmCliente.DBLookupComboBox1Click(Sender: TObject);
begin
  inherited;

        DM.SqlkCidade.Filter := '';
        DM.SqlkCidade.Filtered := False;
        DBLookupComboBox2.KeyValue := 0;
end;

procedure TfrmCliente.DBLookupComboBox2Enter(Sender: TObject);
begin
  inherited;

        if (DBLookupComboBox1.Text) <> '' then
        begin
            DM.SqlkCidade.Refresh;
            DM.SqlkCidade.Filter := 'ID_UF = ' + IntToStr(DBLookupComboBox1.KeyValue);
            DM.SqlkCidade.Filtered := True;
        end
        else begin
            DM.SqlkCidade.Filter := '';
            DM.SqlkCidade.Filtered := False;
            ShowMessage('ESCOLHA PRIMEIRO UM ESTADO!!!!');
            DBLookupComboBox1.SetFocus;
            Exit;
        end;
end;

alguém SABE O QUE ESTA ACONTECENDO???????????????????

[AlexBEE]

alguém Pode me AJUDAR????????