24/07/2005, 04:42
|
| | | Fecha de Ingreso: junio-2003 Ubicación: Asturias
Mensajes: 2.429
Antigüedad: 20 años, 11 meses Puntos: 7 | |
| Presentación:
if objNegocio.AutentificarCliente(txtUsuario.text, txtClave.text) then
'SI TODO HA IDO BIEN
End If
Negocio:
private function AutentificarCliente(usuario as String, clave as String) as Boolean
'Aqui Accedes a la capa de Acceso a la BD.
'Haces la sentencia select y si la autentificación se hace bien, devuelves true
'Esta clase podrás usarla para clientes Forms, Webs y de todo
End Function
Espero haberte entendido y que este ejemplo te sirva.
Saludos.
__________________
Charlie. |