En el boton OK:
Código Delphi
[-]
procedure TFLogin.BtnOkClick(Sender: TObject);
begin
IBQuery1.Params.ParamByName('Cod').Value:= Edit1.Text;
IBQuery1.Active:= True;
If IBQuery1.RecordCount < 1 then
Begin
Cuenta := Cuenta + 1;
MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
Edit1.Text := '';
Edit2.Text := '';
IBQuery1.Active := False;
If Cuenta = 3 then Close;
end
else
If IBQuery1Clave.AsString = Edit2.Text then
Begin
Form1.Show;
IBQuery1.Active := False;
FLogin.Visible:= False;
end
else
Begin
Cuenta := Cuenta + 1;
MessageDlg('Clave Inválida',mtError, [mbOK], 0);
Edit2.Text := '';
IBQuery1.Active := False;
If Cuenta = 3 then Close;
end;
end;
Tengo un problema en la linea que esta indicada
If IBQuery1Clave.AsString = Edit2.Text then {Me arroja error en esta linea}
[DCC Error] ULogin.pas(51): E2003 Undeclared identifier: 'IBQuery1clave'
no se que hacer, agradezco la ayuda y perdonen la novatada.