Dúvida Pesquisa
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
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
Curtidas 0
Respostas
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;
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
30/12/2005
Todo iniciante é assim mesmo.. valeu pela ajuda kra, funcionou blz...
GOSTEI 0