Visual Basic - programa de seguridad

Life is soft - evento anual de software empresarial
 
Vista:

programa de seguridad

Publicado por Arelis (14 intervenciones) el 01/05/2003 05:38:44
Necesito ayuda urgente, para la proxima semana tengo que entregar mi trabajo final de una clase, de la cual depende si me graduo o no este semestre, porfavor ayudenmen. Tengo que Crear un programa de seguridad que pida al usuario un Username y un Password y le conceda el acceso o se lo deniege.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:programa de seguridad

Publicado por Juan Carlos (128 intervenciones) el 01/05/2003 23:41:35
Bueno te dare una ayuda espero te sirva

Primero que nada tu formulario debe contener lo siguiente

Dos controles Label
Dos controles TextBox
Dos controles CommandButton

1 Label Caption = Usuario
1 Label Caption = Clave
1 TextBox Name = txtUsuario
MaxLenght = 8 'Puede ser el valor que gustes
1 TextBox Name = txtClave
MaxLenght = 8 'Puede ser el valor que gustes
PaswordChar = *
1 CommandButton Name = cmdAceptar
1 CommandButton Name = cmdCancelar

Ahora debes programar algo como lo ke sigue

El Boton cmdAceptar

Private Sub cmdAceptar_Click() 'que vaina escribir esto
Dim strUsuario As String, strClave As String
strUsuario=txtUsuario.Text
strClave=txtClave.Text
If strUsuario="" then
Msgbox "Ingrese un Usuario"
Exit Sub
End If
If strUsuario="arelisberrios" Then
Msgbox "Bingo, eres una chika segura." & vbcrlf & _
"Puedes Continuar con la vaina",opciones,"Titulo de msgbox"
End if
'Ahora toca salir de esta vaina
Load frmElquesiga
frmElquesiga.show
unload me
End Sub 'en verdad que es una vaina de vainas y por ke lo escribo

Pues si deseas programar el cmdcancelar

private sub cmdCancelar_Click() 'escribir un poko mas
Unload Me
'y/o el malevolo de
End
end sub

Y ya esta, espero te ayude, cualquier consulta solo escribe

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar