analisis de sistema

DESARROLLO

En el desarrollo del proyecto se hicieron 3 formularios los cuales son los siguientes: Este es el primer formulario el cual contiene un frame una caja de texto y tres botones decomando.

El código para el botón de comando (aceptar) es el siguiente:
Private Sub Command1_Click()
clave = Text1.Text
contra = "2"
cont = cont + 1
If StrComp(contra, clave) 0 Then
BeepMsgBox ("clave incorrecta")
If cont = 3 Then
MsgBox ("oportunidades de acceso agotadas")
End if
End sub
Esto quiere decir que si la contraseña es correcta te permitirá entrar a la siguiente partedel programa y si es incorrecta te aparecerá el siguiente mensaje “CLAVE INCORRECTA”




Este es el segundo formulario el cual contiene varias imágenes y el (logotipo de la empresa).

Elcódigo para el botón de comando (entrar) es el siguiente:
Private Sub Command1_Click()
Form2.Hide
Form3.Show
End Sub
Esto quiere decir que al dar clic en este botón de comando se oculta el formulario2 y el 3 se muestra.


Este es el formulario 3 el cual contiene todos los campos, los comandos de botones y el VISDATA.



Este boton sirve para agregar otro dato a la visdata
PrivateSub cmdAdd_Click()
Data1.Recordset.AddNew
txtFields(0).SetFocus
End Sub




Elimina datos de la visdata

Private Sub cmdDelete_Click()
'esto puede producir un error si elimina elúltimo
'registro o el único registro del recordset
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub


Actualiza toda la visdata conforme a los datos ingresados
Private SubcmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub

Este boton oculta la interfaz
Private Sub cmdClose_Click()
Unload Me
End Sub

Con este botonse sale del programa
Private Sub Command1_Click()
End
End Sub

En este botón al pulsarlo se regenera lo que ya habias borrado
Private Sub cmdRefresh_Click()
'esto sólo es necesario para...