Ica Virtual

Programar el ingreso de datos:

- script - modified for sle_1

if text = “” or sle_2.text = “” then
cb_1.enabled = false
else
cb_1.enabled = true
end if

- script - modified for sle_2

if text = “” or sle_1.text = “” then
cb_1.enabled = false
else
cb_1.enabled = true
end if

Programación del Botón Aceptar:

- script - clicked por cb_1

If sle_1.text <> “Eduardo” Then
Beep(2)
MessageBox( “Mensaje”,”Nombre de usuario incorrecto”,StopSign!,Ok! )
sle_1.SetFocus()
sle_1.SelectText( 1,len(sle_1.text) )
ElseIf sle_2.text <> “ICA” Then
Beep(2)
MessageBox( “Mensaje”,”Contraseña del usuario es incorrecta”,StopSign!,Ok! )
sle_2.SetFocus()
sle_2.SelectText( 1,len(sle_2.text) )
Else
MessageBox( “Mensaje”,”Los datos son correctos”,Information!,Ok! )
End If

Programación del Botón Cancelar:

- Script - Clicked for cb_2

Close( Parent )