ActiveDelphi

[estagiarias]

Oi... Temos uma tabela no banco de dados de login e senha, e queremos ligar essa tabela ao programa que vai abrir com login e senha, ja temos os componentes (database, query, datasource e updatesql), ja conectamos a tabela, mas não conseguimos colocar o comando pra logar, quando colocamos esse comando da erro:

QueryLogin.Close;
QueryLogin.SQL.Clear;
QueryLogin.SQL.Add('SELECT * FROM operador WHERE usuario =:'''+usuario+''' AND senha =:'''+senha+''');
QueryLogin.Open;
QueryLogin.First;

Alguem pode nos ajudar com o comando???

[aleshy]

Se voce tiver usando edits, e provavelmente esta, faz assim:

QueryLogin.Close;
QueryLogin.SQL.Clear;
QueryLogin.SQL.Add('SELECT * FROM operador WHERE usuario ="+#39+(SeuEditUsuario.text)+#39+ 'AND senha =' +#39+(SeuEditSenha.text)+#39);
QueryLogin.Open;
QueryLogin.First;

[xGoku]

[estagiarias]

Aleshy Fizemos assim, ele roda mas quando clicamos em OK para entrar no programa da esse erro:


Project Project1.exe raised exception class EDBEngineError with message 'General SQL error.
ORA-00933: comando SQL não encerrado adequadamente'. Process stopped. Use Step or Run to continue.

[estagiarias]

XGoku

o que seria esse sqlusuario?
e o DM?

rs

Obrigada a vcs desde ja

[aleshy]

sqlusuario é o nome que ele deu ao query dele e DM é o Data Module.
Mas olha so, retira a ultima linha (QueryLogin.first) e veja o que acontece

[estagiarias]

tentamos, mas da o msm erro
o edit tem q estar conectado a algo no Banco de Dados?

[aleshy]

Nao. O edit é so para a entrada dos dados. Faz assim, manda o codigo para eu analisar.
Na sua tela de login tem o que? 2 edits. Botao Ok etc... E quando clica no ok ele faz a consulta e depois deve fechar a janela de login?

[estagiarias]

Nosso botão ok ta assim:

procedure TFormLogin.Button1Click(Sender: TObject);
var
Usuario: String;
Senha: String;

begin
if((Edit1.Text ='')or (Edit2.Text=''))then
begin
ShowMessage('Erro:um dos campos está vazio!');
end else if ((Edit1.Text<>'')and(Edit2.Text<>''))then

begin
QueryLogin.Close;
QueryLogin.SQL.Clear;
QueryLogin.SQL.Add('SELECT * FROM operador WHERE usuario =:'''+usuario+''' AND senha =:'''+senha+''');
QueryLogin.Open;
QueryLogin.First;


begin
if SameText(Edit1.Text, Usuario) and (Edit2.Text=Senha) then
ModalResult := mrOk;

end;
end;
end;



e a gente quer q assim q fechar a caixa de login abra uma tabela de dados (um programinha que ja temos pronto).
Quando agente ñ insere nenhum dado nos edits de login ela abre sem erro, ñ é isso que queremos... queremos que quando a pessoa ñ digitar o login, ou digitar errado q ele de erro e possa tentar novamente.


e a gente tem no formlogin 2 edits e um botão ok...

se ñ entender algo que dissemos manda outra pergunta rsrss...

Obrigada desde ja por estar nos ajudando

[aleshy]

Quer mandar seu msn? Assim fica mais facil ajudar.. depois voce me bloqueia

[xGoku]

estagiaria naquele outro topico puis um exemplo vai por ele que da certimm

[estagiarias]

Add ai

[estagiarias]

XGoku...
Desculpe nossa ignorancia, mas a gente não achou a parte certa !!!

se puder mandar só a a parte

[xGoku]

[estagiarias]

ja adicionamos