GARANTIR DESCONTO

Fórum Tabela Louca #188438

13/10/2003

0

Delphi

TENHO UM FORMULÁRIO DE CADASTRO DE USUÁRIOS, ESSE CHAMA ATRAVÉS DE UM BOTÃO, UM FORMULÁRIO DE CONSULTA DE USUÁRIOS JÁ EXISTENTES.

OS USUÁRIOS ESTÃO LISTADOS NUMA DBLISTBOX, VOCÊ SELECIONANDO UM USUARIO NA LISTA E CLICANDO NO BOTÃO ´SELECIONAR´, O FORM DE CONSULTA DEVERIA SER FECHADO, E VOLTAR PARA O FORM DE CADASTRO DE USUÁRIOS COM O NOME DO USUÁRIO SELECIONADO NO CAMPO CORRESPONDENTE (ISSO ACONTECE) E A SENHA CORRESPONDENTE A ESSE USUÁRIO (NÃO ACONTECE APARECE SEMPRE A SENHA DO ÚLTIMO USUÁRIO) O QUE PODE SER. ABAIXO SEGUEM OS CÓDIGOS RELEVANTES...

NO FORM DE CONSULTA BOTÃO SELECIONAR:

procedure TFrmBuscaUsu.BtSelecionarClick(Sender: TObject);
begin
FrmCadUsu.EdNovoUsu.Text := DM.TbUsuariosUsuario.Value;
FrmCadUsu.EdNovaSenha.Text := DM.TbUsuariosSenha.Value;
FrmBuscaUsu.Close;
end;

NO FORM DE CONSULTA ON CREATE DO FORM

procedure TFrmBuscaUsu.FormCreate(Sender: TObject);
begin
DM.TbUsuarios.First;
DM.TbUsuarios.Refresh;
While not DM.TbUsuarios.Eof do
Begin
DBLListaUsu.Items.Add(DM.TBUsuariosUsuario.Value);
DM.TBUsuarios.Next;
End;
end;

[i:766d132312]Título em maiúsculas editado. Digite sua mensagem em minúsculas. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=add834b4ed94967502cf2381c38e751a][u:766d132312]Regras de Conduta[/u:766d132312][/url]. (marcelo.c – Moderador)[/i:766d132312]


Thiago_masi

Thiago_masi

Responder

Posts

14/10/2003

Echoesofpinkfloyd

Experimente Assim:

NO FORM DE CONSULTA BOTÃO SELECIONAR:

procedure TFrmBuscaUsu.BtSelecionarClick(Sender: TObject);
begin
Dm.tbusuarios.locate(´usuario´,DBLListaUsu.text,[]);
FrmCadUsu.EdNovoUsu.Text := DM.TbUsuariosUsuario.Value;
FrmCadUsu.EdNovaSenha.Text := DM.TbUsuariosSenha.Value;
FrmBuscaUsu.Close;
end;

NO FORM DE CONSULTA ON CREATE DO FORM

procedure TFrmBuscaUsu.FormCreate(Sender: TObject);
begin
DM.TbUsuarios.First;
DM.TbUsuarios.Refresh;
While not DM.TbUsuarios.Eof do
Begin
DBLListaUsu.Items.Add(DM.TBUsuariosUsuario.Value);
DM.TBUsuarios.Next;
End;
end;


no seu evento on create quando termina de carregar a lista a tabela fica no ultimo registro, pode ser isso, tente acrescentar a linha que coloquei no botao selecionar, depois posta aqui se funcionou.. abraços.


Responder

Gostei + 0

14/10/2003

Thiago_masi

EU FIZ O Q VC DISSE MAS A PROPRIEDADE TEXT NÃO EXISTE NA DBLISTBOX, ENTÃO EU TENTEI:

IF DM.TBUSUSARIOS.LOCATE(´USUARIO´, DBLLISTAUSU.ITEMS.TEXT,[])
.
.
.
.
END;

MAS DEU MENSAGEM DE KEY VIOLATION;

MAS AINDA SIM AGRADEÇO A ATENÇÃO.


Responder

Gostei + 0

14/10/2003

Echoesofpinkfloyd

EU FIZ O Q VC DISSE MAS A PROPRIEDADE TEXT NÃO EXISTE NA DBLISTBOX, ENTÃO EU TENTEI: IF DM.TBUSUSARIOS.LOCATE(´USUARIO´, DBLLISTAUSU.ITEMS.TEXT,[]) . . . . END; MAS DEU MENSAGEM DE KEY VIOLATION; MAS AINDA SIM AGRADEÇO A ATENÇÃO.


confundi a listbox com o DBlistbox. mas mesmo assim o seu codigo parece estar certo ...ta estranho isso ..
aparece a senha do ultimo usuario que vc cadastrou ou o ultimo da tabela ?


Responder

Gostei + 0

14/10/2003

Echoesofpinkfloyd

EU FIZ O Q VC DISSE MAS A PROPRIEDADE TEXT NÃO EXISTE NA DBLISTBOX, ENTÃO EU TENTEI: IF DM.TBUSUSARIOS.LOCATE(´USUARIO´, DBLLISTAUSU.ITEMS.TEXT,[]) . . . . END; MAS DEU MENSAGEM DE KEY VIOLATION; MAS AINDA SIM AGRADEÇO A ATENÇÃO.


ja tentou usar com um list box ???


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar