Continuacao no problema do SQL
O amigo Romilson deu uma dica...
mas ainda nao tá funcionando
strSqlLog: String;
begin
strSqlLog:= ´Select * from usuario,perfil WHERE usuario.nivel = perfil.id´;
strSqlLog:= strSqlLog + ´ AND fantasia = ´ + #39 + (valorNome.text) + 39 ;
strSqlLog:= strSqlLog + ´ AND senha = ´ + 39 + (valorNome.text) + 39 ;
menuPrin.QueryLogin.Close;
menuPrin.QueryLogin.SQL.Clear;
menuPrin.QueryLogin.sql.Add(strSqlLog);
menuPrin.QueryLogin.Open;
if (menuPrin.QueryLogin.RecordCount) = 1 then
begin
menuPrin.StatusBar1.Panels[2].Text:= ´´ + ´Usuário: ´+ login.valorNome.Text + ´ - ´ + menuPrin.QueryLogin.FieldByName(´dpto´).AsString;
login.Close;
end;
end;
quando clicar no botao se a senha tiver ok, vai fechar a janela de login em mostrar o menu...onde será que está o erro nisto
obrigado a todos
mas ainda nao tá funcionando
strSqlLog: String;
begin
strSqlLog:= ´Select * from usuario,perfil WHERE usuario.nivel = perfil.id´;
strSqlLog:= strSqlLog + ´ AND fantasia = ´ + #39 + (valorNome.text) + 39 ;
strSqlLog:= strSqlLog + ´ AND senha = ´ + 39 + (valorNome.text) + 39 ;
menuPrin.QueryLogin.Close;
menuPrin.QueryLogin.SQL.Clear;
menuPrin.QueryLogin.sql.Add(strSqlLog);
menuPrin.QueryLogin.Open;
if (menuPrin.QueryLogin.RecordCount) = 1 then
begin
menuPrin.StatusBar1.Panels[2].Text:= ´´ + ´Usuário: ´+ login.valorNome.Text + ´ - ´ + menuPrin.QueryLogin.FieldByName(´dpto´).AsString;
login.Close;
end;
end;
quando clicar no botao se a senha tiver ok, vai fechar a janela de login em mostrar o menu...onde será que está o erro nisto
obrigado a todos
Mergulhador
Curtidas 0
Respostas
Anonymous
03/02/2003
Qual é o formulário principal de sua aplicação?
O menuPrin, ou o login.
Explique melhor o que você quer fazer?
Se a tela de login for o formulário principal da aplicação (View - Options),
se você fecha-la, a aplicação irá terminar.
O menuPrin, ou o login.
Explique melhor o que você quer fazer?
Se a tela de login for o formulário principal da aplicação (View - Options),
se você fecha-la, a aplicação irá terminar.
GOSTEI 0
Anonymous
03/02/2003
strSqlLog:= ´Select * from usuario, perfil WHERE usuario.nivel = perfil.id´;
strSqlLog:= strSqlLog + ´ AND fantasia = ´ + QuotedStr(valorNome.Text);
strSqlLog:= strSqlLog + ´ AND senha = ´ + QuotedStr(ValorNome.Text);
strSqlLog:= strSqlLog + ´ AND fantasia = ´ + QuotedStr(valorNome.Text);
strSqlLog:= strSqlLog + ´ AND senha = ´ + QuotedStr(ValorNome.Text);
GOSTEI 0
Nebrio
03/02/2003
VocÊ está querendo relacionar duas tabelas via SQL ?
Dá uma olhada na instrução SQL, falta o nome da tabela na frente do campo fantasia e senha.
Que tipo de erro está dando ?
Assim poderemos ajudar melhor .
Nébrio :x
Dá uma olhada na instrução SQL, falta o nome da tabela na frente do campo fantasia e senha.
Que tipo de erro está dando ?
Assim poderemos ajudar melhor .
Nébrio :x
GOSTEI 0
Anonymous
03/02/2003
O que eu quero é o seguinte, que na janela de login, ele digite os dados de usuario e senha e quando clicar no ok, valide do lado do servidor os dados e feche a tela do login, que aparece....
o problema é que quando clico no ok , fica parado e nao acontece nada
strSqlLog: String;
begin
strSqlLog:= ´Select * from usuario,perfil WHERE usuario.nivel = perfil.id´;
strSqlLog:= strSqlLog + ´ AND fantasia = ´ + #39 + (valorNome.text) + 39 ;
strSqlLog:= strSqlLog + ´ AND senha = ´ + 39 + (valorNome.text) + 39 ;
menuPrin.QueryLogin.Close;
menuPrin.QueryLogin.SQL.Clear;
menuPrin.QueryLogin.sql.Add(strSqlLog);
menuPrin.QueryLogin.Open;
if (menuPrin.QueryLogin.RecordCount) = 1 then
begin
menuPrin.StatusBar1.Panels[2].Text:= ´´ + ´Usuário: ´+ login.valorNome.Text + ´ - ´ + menuPrin.QueryLogin.FieldByName(´dpto´).AsString;
login.Close;
end;
end;
a instrucao inteira tá ai o Andros me mandou um modelo diferente de SQL que eu vou testar aqui....
valeu gente
Abracos
Luciano
Obs... ainda nao funcionou
o problema é que quando clico no ok , fica parado e nao acontece nada
strSqlLog: String;
begin
strSqlLog:= ´Select * from usuario,perfil WHERE usuario.nivel = perfil.id´;
strSqlLog:= strSqlLog + ´ AND fantasia = ´ + #39 + (valorNome.text) + 39 ;
strSqlLog:= strSqlLog + ´ AND senha = ´ + 39 + (valorNome.text) + 39 ;
menuPrin.QueryLogin.Close;
menuPrin.QueryLogin.SQL.Clear;
menuPrin.QueryLogin.sql.Add(strSqlLog);
menuPrin.QueryLogin.Open;
if (menuPrin.QueryLogin.RecordCount) = 1 then
begin
menuPrin.StatusBar1.Panels[2].Text:= ´´ + ´Usuário: ´+ login.valorNome.Text + ´ - ´ + menuPrin.QueryLogin.FieldByName(´dpto´).AsString;
login.Close;
end;
end;
a instrucao inteira tá ai o Andros me mandou um modelo diferente de SQL que eu vou testar aqui....
valeu gente
Abracos
Luciano
Obs... ainda nao funcionou
GOSTEI 0