Tecnico
Control Materia Prima.
Versión 1.0.0.1
Manual del Programador
Índice
Estimados Colegas..........................i
Código Pantalla Inicio......................1
Código MDI....................................2
Agregar Material.............................6
Mostrar Material.............................7
Restar Material...............................8Código Modulo...............................12
Estimados Colegas:
Saludos cordiales, de parte de cada uno de los que integramos Softpro S.A. de CV es para nosotros gratificante que usted este utilizando nuestro software para llevar un mejor control de su negocio.
Se le proporciona el código de cada uno de los formularios utilizados para llevar a cabo todos los procedimientos del sistemacon el propósito que usted sepa o este enterado de cómo se ha realizado la aplicación.
i
Código Pantalla Inicio.
A continuación se muestra el código que hace posible que la pantalla de inicio este visible por un cierto tiempo y pase después a cargar el formulario MDI
Public Class Form1
Inherits System.Windows.Forms.Form
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'al cargar el formulario, empezara a medir el tiempo que se le
'ha establecido al timer para la pantalla de inicio
Me.Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'al cumplir el rangodel timer el formulario se cerrara
Me.Close()
End Sub
End Class
1
Codigo Formulario MDI
A continuación se presenta el código el cual se utilizo para mandar a llamar los distintos formularios dentro de nuestro formulario principal o mdi. Como todos sabemos, la característica principal de losformularios MDI es que los formularios carguen dentro de el.
Public Class Form2
Inherits System.Windows.Forms.Form
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'el siguiente codigo es para poder aplicarle un color de fondo
'al formulario MDI distinto al que tiene por defecto
Dim ctl As Control
Dim ctlMDI AsMdiClient
For Each ctl In Me.Controls
Try
ctlMDI = CType(ctl, MdiClient)
ctlMDI.BackColor = Me.BackColor
Catch exc As InvalidCastException
End Try
Next
'aplicar el formato de fecha y hora para los paneles del
'status bar del formulario MDI
Me.StatusBarPanel1.Text = Format(Now, "dd/MMMM/yyyy")Me.StatusBarPanel3.Text = Format(Now, "hh:mm:ss")
End Sub
2
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'el timer se ha usado para que la hora del panel del status bar
'siempre se este actualizando automáticamente cada segundoMe.StatusBarPanel3.Text = Format(Now, "hh:mm:ss")
End Sub
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
'código de comando para mandar a llamar el formulario para agregar nuevo material
Dim agr As New Form3
agr.MdiParent = Me
agr.Show()
End Sub
Private Sub Form2_Closing(ByVal sender As Object, ByVal e AsSystem.ComponentModel.CancelEventArgs) Handles MyBase.Closing
'código para mostrar el mensaje de cerrar por cualquiera de los métodos para cerrar la aplicación
Dim clo As Integer
clo = MessageBox.Show("Esta apunto de cerrar la aplicacion. ¿Desea Continuar?", "Atencion", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
If clo = MsgBoxResult.No Then
e.Cancel...
Regístrate para leer el documento completo.