Continuacao no problema do SQL

Delphi

03/02/2003

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


Mergulhador

Mergulhador

Curtidas 0

Respostas

Anonymous

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.


GOSTEI 0
Anonymous

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);


GOSTEI 0
Nebrio

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


GOSTEI 0
Anonymous

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


GOSTEI 0
POSTAR