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

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

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

Aceitar