Manual Tecnico

Introducción.

La empresa PAPER RECYCLE tiene como fin cuidar el medio ambiente y también aprovechar eso para la producción y venta de cuadernos, que serán elaborados con materiales (reciclados) que serán obtenidos de un banco de materiales reciclables.
Por eso nos hemos dado a la tarea de realizar un sistema donde muestre lo que PAPER RECYCLE es como empresa, conocer todo sobre su productoy la administración en general de cada uno de los diferentes departamentos (FINANZAS, PROMOCION, DISEÑO, PRODUCCION, RECURSOS HUMANOS).

OBJETIVO.
El objetivo de este manual es mostrar los datos técnicos del sistema que se esta desarrollando, para facilitar su modificación o su actualización y poder dar un mantenimiento.
En este manual se encontrara las pantallas del sistema explicando todasu estructura de base de datos, codificación de cada uno de los botones u opciones del sistema para un mayor entendimiento de ellos.

Diseño del sistema.
Este sistema fue realizado con Microsoft Visual Basic 6.0, donde este mismo será ejecutable.
Pantalla de inicio de la empresa (formulario 1).

Código del botón ¿QUIENES SOMOS?
Private Sub Command1_Click ()
Form2.Show
End Sub
Código delbotón NUESTROS PRODUCTOS.
Private Sub Command2_Click ()
Form7.Show
End Sub
Código del botón DEPARTAMENTOS.
Private Sub Command3_Click ()
Form22.Show
End Sub
Ventana de menú (formulario 2).

En este formulario se agrego un objeto de Reproductor de Windows media Player, Labels, Texbox, Command.
Ya aplicado el objeto de Reproductor de Windows media Player se lo caliza el video en suspropiedades, opción personalizado y se busca la ruta del video, aplicar, aceptar.
Codigo del botón INICIO.
Private Sub Command3_Click()
Form1.Show
End Sub

Código del botón ENTRAR.
OptionExplicit
Dim a, B, C, D As Integer
Private Sub Command1_Click()
Select Case Text1.Text
Case "A"
Form3.Show
Case "B"
Form4.Show
Case "C"
Form5.Show
Case "D"
Form6.Show
End Select
End Sub
Códigodel botón BORRAR.
Private Sub Command2_Click()
Text1.Text = ""
End Sub

Código de los botones MENU E INICIO.
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub

Codigo del boton MENU.
Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
Form1.Show
End SubCodigo de botones MENU E INICIO.
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub

Código de los botones INICIO Y ESTILOS.
Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub Command2_Click()
Form8.Show
End Sub

Codigo de boton inicio y de los optionbutton.
Private Sub Command1_Click()
Form1.Show
End Sub

Private SubCommand3_Click()
Form1.Show
End Sub

Private Sub Option1_Click()
Picture1.Picture = LoadPicture("E:\infantiles.jpg")
End Sub

Private Sub Option2_Click()
Picture2.Picture = LoadPicture("E:\juveniles.jpg")
End Sub

Private Sub Option3_Click()
Picture3.Picture = LoadPicture("E:\naturales.jpg")
End Sub

Private Sub Option4_Click()
Picture4.Picture = LoadPicture("E:\clasicos.jpg")
EndSub

Private Sub Option5_Click()
Picture5.Picture = LoadPicture("E:\animados.jpg")
End Sub

Private Sub Option6_Click()
Picture6.Picture = LoadPicture("E:\hipster.jpg")
End Sub
Private Sub Option7_Click()
Picture7.Picture = LoadPicture("E:\skates.jpg")
End Sub

Código de los botones entrar y regresar.
Private Sub Command1_Click()
If Text1.Text = "PAPER" Then
Form10.Show
Unload MeElse
MsgBox "¡¡ERROR!!",vbOKCancel, "CONTRASEÑA INVALIDA"
Form1.Show
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
Private Sub inicio_Click()
Form1.Show End Sub

Código de los botones finanzas, diseño, promoción, producción, recursos humanos e inicio.
Private Sub Command1_Click()
Form11.Show
End Sub
Private Sub Command2_Click()...