Dúvida Pesquisa

Delphi

30/12/2005

Olá amigos, blz?

Eu criei uma tela de cadastro de usuarios, que contém os campos COD_USER, USER, UNIDADE, LOGIN E SENHA.

Para o campo UNIDADE (filial onde o usuário trabalha), utilizei um combobox que exbie o Código da Unidade e a UNIDADE, da seguinte forma:

001 - CM. ABC

Qdo faço a pesquisa, a combobox é preenchida automaticamente com o código e a unidade de um determinado usuário. Caso queira alterar, eu clico no botão, habilita todos os componentes, inclusive o combobox, mas qdo nele para selecionar outro, o item que já estava selecionado aparece duplicado no final.

______________________________
[u:a9f9d0f01f]| [color=darkred:a9f9d0f01f]003 - Unidade C [/color:a9f9d0f01f] |V|[/u:a9f9d0f01f]
| 001 - Unidade A | |
| 002 - Unidade B | |
| 003 - Unidade C | |
| 004 - Unidade D | |
[u:a9f9d0f01f]| [color=red:a9f9d0f01f]003 - Unidade C[/color:a9f9d0f01f] | |[/u:a9f9d0f01f]

Será que tem como não sair duplicado?

O código que usei pra que aparecesse o codigo e a unidade que o usuario trabalha é:

Botão Pesquisar

if rdbtnCodigo.Checked = true then
begin
with dmUsuarios.cdsUsuarios do
begin
close;
commandText := ´select * from USUARIOS ´ +
´ where COD_USER = ´ + edtProcurar.Text;
open;

if not isempty then
begin
cbbxUnidade.ItemIndex := cbbxUnidade.Items.Add(FieldByName(´COD_UNID´).Text + ´ - ´ +
FieldByName(´UNIDADE´).Text);

with dbgrid1 do
begin
DataSource := dmUsuarios.dsUsuarios;
Columns[2].Visible := false;
end;
....

Fico no aguardo.

Desejo a todos um feliz ano novo com muita paz, saúde, sucesso!!!!

[]´s

Rogério


Roger1976

Roger1976

Curtidas 0

Respostas

Thomaz_prg

Thomaz_prg

30/12/2005

Crie uma variável do tipo inteiro, por exemplo ´indice´ e faça assim:

indice := cbbxUnidade.Items.IndexOf(FieldByName(´COD_UNID´).Text + ´ - ´ + FieldByName(´UNIDADE´).Text);
if indice < 0 then
indice := cbbxUnidade.Items.Add(FieldByName(´COD_UNID´).Text + ´ - ´ + FieldByName(´UNIDADE´).Text);
cbbxUnidade.ItemIndex := indice;


GOSTEI 0
Roger1976

Roger1976

30/12/2005

Todo iniciante é assim mesmo.. valeu pela ajuda kra, funcionou blz...


GOSTEI 0
POSTAR