Undeclared identifier: ´VarArrayOf´ e ´EditNome´
14/12/2003
0
procedure TForm10.BtconfirmaClick(Sender: TObject);
Var
A:Integer;
begin
A := 1;
if not f_cadsenha.tbsenha.locate (´usuario;senha´,VarArrayOf ([EditNome.text,EditSenha.text]),[]) then
begin
A := 0; beep; showMessage (´Nome ou Senha incorretos´);
if A <> 0 then
begin
showMessage (´Usuário aceito´);
f_menu.show;
end;
end;
end;
erros
[Error] USenha.pas(74): Undeclared identifier: ´VarArrayOf´
[Error] USenha.pas(74): Undeclared identifier: ´EditNome´
[Fatal Error] progcessos1.dpr(29): Could not compile used unit ´USenha.pas´
wagnernormando@ig.com.br
Titulo editado pelo Moderador (AZ)
Wagner
Posts
14/12/2003
Leonel_fraga
Contando que o form tenha um campo onde vc digita o login e outro a senha, e que a tabela de usuários chama-se ´TabUsu´ e que os campos Login e Senha estejam visíveis no Edit Fields do componente Table, vamos ao código:
TFrmLogin.BtnLoginClick(Sender : TObject); begin if TabUsu.Locate(´Login´,EdtLogin.Text,[]) then begin if TabUsuSenha.Value = EdtSenha.Text then //Código a ser executado caso o usuário seja aceito else //Código a ser executado caso a senha seja incorreta end else // Código a ser executado caso o usuário nao for encontrado end;
Bem, aí está a parte da autenticação do usuário.
14/12/2003
Leonel_fraga
Desculpem-me pela falha!
14/12/2003
Wagner
Vou tenta...Ah quanto ao sistema de video locadora eu terminei um que acho bacaninha, vou ate colocar tambem essa rotina de senha que eu ainda nao tinha colocado, caso voce queira ver alguma coisa desse humilde sistema de um iniciante e so contactar.
um abraco
wagnernormando@ig.com.br
15/12/2003
Aroldo Zanela
Adicione Variants na sua lista de uses (a partir do Delphi 6).
Clique aqui para fazer login e interagir na Comunidade :)