| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
joao_arthur
Profissional
Registrado: Sexta-Feira, 10 de Novembro de 2006
Mensagens: 687
Localização: Fortaleza-CE
|
 Enviada: Qui Nov 15, 2007 7:43 pm Assunto: Passar parametros d usuário e senha ao IBDatabase1 Interbase |
 |
|
pessoal tenho uma tela de login e quero passar os parametros de usuário e senha para o IBDatabase1 através de Edits, como posso fazer?
_________________
João Arthur. |
|
| Voltar ao Topo |
|
 |
joao_arthur
Profissional
Registrado: Sexta-Feira, 10 de Novembro de 2006
Mensagens: 687
Localização: Fortaleza-CE
|
| Enviada: Qui Nov 15, 2007 8:05 pm Assunto: |
|
|
Resolvido
| Código: | procedure TfrmLogin.btnEntrarClick(Sender: TObject);
begin
if DM.IBDatabase1.Connected = true then
DM.IBDatabase1.Connected:= false;
with DM.IBDatabase1 do
begin
try
Params.Add('user_name='+edtUsuario.Text);
Params.Add('password='+edtSenha.Text);
Connected:= true;
except
Application.MessageBox('Erro ao conectar o Banco de Dados.','Erro',MB_OK+MB_ICONWARNING);
exit;
end;
end;
Form1.StatusBar1.Panels[0].Text:= 'Usuário: '+edtUsuario.Text;
close;
end; |
_________________
João Arthur. |
|
| Voltar ao Topo |
|
|
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Sex Nov 16, 2007 9:07 am Assunto: |
|
|
no caso add vc tem q ter cuidado pq num prox login poderia passar por esse codigo e duplicar a linha.
o ideal era usar a propriedade Values |
|
| Voltar ao Topo |
|
|
joao_arthur
Profissional
Registrado: Sexta-Feira, 10 de Novembro de 2006
Mensagens: 687
Localização: Fortaleza-CE
|
| Enviada: Sex Nov 16, 2007 2:24 pm Assunto: |
|
|
eu botei um clear antes de adicionar os parametros
params.clear;
_________________
João Arthur. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
