Sistema de ventas
Sistema de Ventas
Form1.vb Public Class Form1 Private Sub MantenimientoDeClientesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MantenimientoDeClientesToolStripMenuItem.Click Dim frm As New FRMCLIENTES frm.MdiParent = Me frm.Show() End Sub PrivateSub MantenimientoDeProdutosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MantenimientoDeProdutosToolStripMenuItem.Click Dim frm As New frmPoductos frm.MdiParent = Me frm.Show() End Sub Private Sub CascadaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadaToolStripMenuItem.ClickMe.LayoutMdi(MdiLayout.Cascade) End Sub Private Sub MosaicoHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MosaicoHorizontalToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub MosaicoVerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MosaicoVerticalToolStripMenuItem.ClickMe.LayoutMdi(MdiLayout.TileVertical)
Computación e Informática V Ciclo – Willeams Medina – acreditación_ies@hotmail.com – tlf. 972893759
End Sub Private Sub AcercaDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcercaDeToolStripMenuItem.Click Dim frm As New Acercade frm.MdiParent = Me frm.Show() End Sub Private Sub SalirToolStripMenuItem_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click If MessageBox.Show("¿Desea Salir de la aplicación?", "Systms Test", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then Me.Close() End If End Sub Private Sub MantenimientoDeBoletasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMantenimientoDeBoletasToolStripMenuItem.Click Dim frm As New frmBoleta frm.MdiParent = Me frm.Show() End Sub Private Sub CalculadoraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculadoraToolStripMenuItem.Click Dim proceso As New Process proceso.StartInfo.FileName = "calc.exe" proceso.StartInfo.Arguments = "" proceso.Start() End Sub Private SubWordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WordToolStripMenuItem.Click Dim proceso As New Process proceso.StartInfo.FileName = "winword.exe" proceso.StartInfo.Arguments = "" proceso.Start() End Sub Private Sub EcxelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EcxelToolStripMenuItem.Click Dim proceso As New Processproceso.StartInfo.FileName = "excel.exe" proceso.StartInfo.Arguments = "" proceso.Start() End Sub Private Sub UsuariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsuariosToolStripMenuItem.Click Dim frm As New frmUsuarios frm.MdiParent = Me frm.Show() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load Dim myfrm As New frmAcceso myfrm.ShowDialog() End Sub Private Sub ApellidoClienteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApellidoClienteToolStripMenuItem.Click Dim frm As New frmBoletas_Clientes frm.MdiParent = Me
Computación e Informática V Ciclo – Willeams Medina – acreditación_ies@hotmail.com – tlf. 972893759
frm.Show() End SubPrivate Sub FechasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FechasToolStripMenuItem.Click Dim frm As New frmBuscarxfecha frm.MdiParent = Me frm.Show() End Sub End Class
Frmclientes.vb Imports System.Data.SqlClient Public Class FRMCLIENTES Private oDataAdapter As SqlDataAdapter Private oDataTable As DataTable Private oConnection As SqlConnection...
Regístrate para leer el documento completo.