Cita:
Empezado por Master23
podrías darme un ejemplo por favor.
|
mira mi forma principal se llama TFAcceso que es el login del usuario cuando hago el locate..!
si es verdadero entro a la forma menu y libero mi forma principal que es tfacceso.
Código Delphi
[-]procedure TFAcceso.BitBtn1Click(Sender: TObject);
begin
Modulo.TUsuario.open;
if (Edit1.Text<>'')then
begin
if Modulo.TUsuario.Locate('usuario;contraseña', VarArrayOf([Edit1.Text, Edit2.Text]), []) then
begin
Application.CreateForm(TFMenu,FMenu);
FMenu.Show;
facceso.Free;
end
else
begin
ShowMessage('Usuario y/o Contraseña Incorrecta');
Edit1.setFocus;
Edit2.Clear;
end;
Modulo.TUsuario.close;
end;
end;