Continuacao no problema do SQL

03/02/2003

0

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

Responder

Posts

03/02/2003

Anonymous

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.


Responder

03/02/2003

Anonymous

strSqlLog:= ´Select * from usuario, perfil WHERE usuario.nivel = perfil.id´;
strSqlLog:= strSqlLog + ´ AND fantasia = ´ + QuotedStr(valorNome.Text);
strSqlLog:= strSqlLog + ´ AND senha = ´ + QuotedStr(ValorNome.Text);


Responder

03/02/2003

Nebrio

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


Responder

03/02/2003

Anonymous

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


Responder

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

Aceitar