VERSION 5.00
Begin VB.MDIForm MDIForm1
AutoShowChildren= 0 'False
BackColor = &H80000004&
Caption = "ProSS"
ClientHeight = 3825
ClientLeft = 165
ClientTop = 1035
ClientWidth = 8955
Icon = "ProSS.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin VB.Menu mnuOrdenes
Caption = "Gestión Base de Datos"
Begin VB.Menu mnuNuevaOrden
Caption = "Alta de Producto Final"
End
Begin VB.Menu mnuAbrirOrden
Caption = "Modificar Producto Final"
End
End
Begin VB.Menu mnuGestion
Caption = "Ordenes de Producción"
Begin VB.Menu mnuAltaProducto
Caption = "Listado de Producción (Necesidades Brutas)"
End
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
Form1.Visible = False
MDIForm1.Visible = True
End Sub
Private Sub mnuAbrirOrden_Click()
Form3.Visible = True
End Sub
Private Sub mnuAltaProducto_Click()
Form2.Visible = True
End Sub
Private Sub mnuModificacionProducto_Click()
Form5.Visible = True
End Sub
Private Sub mnuNecesidades_Click()
Form8.Visible = True
End Sub
Private Sub mnuNuevaOrden_Click()
Form4.Visible = True
End Sub
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
