Potware/Menu_P.vb at master · CristianSoria21/Potware · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Public Class Menu_P
    Private Sub Menu_P_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Form1.Enabled = False
        Form1.Visible = False
    End Sub


    Private Sub SALIRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SALIRToolStripMenuItem.Click
        Form1.Enabled = True
        Form1.Visible = True
        Close()
    End Sub

    Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
        Proveedores.ID_Proveedores.Enabled = False
        Proveedores.Direccion.Enabled = True
        Proveedores.Ciudad.Enabled = True
        Proveedores.Tel.Enabled = True
        Proveedores.Encargado.Enabled = True
        Proveedores.RazonSocial.Enabled = True

        Proveedores.Insertar.Enabled = True
        Proveedores.Eliminar.Enabled = False
        Proveedores.Consultar.Enabled = False
        Proveedores.Modificar.Enabled = False
        Proveedores.Show()
    End Sub

    Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
        Proveedores.Show()

        Proveedores.ID_Proveedores.Enabled = True
        Proveedores.Direccion.Enabled = True
        Proveedores.Ciudad.Enabled = True
        Proveedores.Tel.Enabled = True
        Proveedores.Encargado.Enabled = True
        Proveedores.RazonSocial.Enabled = True

        Proveedores.Insertar.Enabled = False
        Proveedores.Eliminar.Enabled = False
        Proveedores.Consultar.Enabled = True
        Proveedores.Modificar.Enabled = True
    End Sub

    Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click
        Proveedores.Show()
        Proveedores.ID_Proveedores.Enabled = True
        Proveedores.Direccion.Enabled = False
        Proveedores.Ciudad.Enabled = False
        Proveedores.Tel.Enabled = False
        Proveedores.Encargado.Enabled = False
        Proveedores.RazonSocial.Enabled = False


        Proveedores.Insertar.Enabled = False
        Proveedores.Eliminar.Enabled = False
        Proveedores.Consultar.Enabled = True
        Proveedores.Modificar.Enabled = False
    End Sub

    Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click
        Proveedores.Show()
        Proveedores.ID_Proveedores.Enabled = True
        Proveedores.Direccion.Enabled = False
        Proveedores.Ciudad.Enabled = False
        Proveedores.Tel.Enabled = False
        Proveedores.Encargado.Enabled = False
        Proveedores.RazonSocial.Enabled = False


        Proveedores.Insertar.Enabled = False
        Proveedores.Eliminar.Enabled = True
        Proveedores.Consultar.Enabled = True
        Proveedores.Modificar.Enabled = False
    End Sub

    Private Sub INSERTAR_Click(sender As Object, e As EventArgs) Handles INSERTAR.Click
        Productos.Show()

    End Sub


    Private Sub InsertCompras_Click(sender As Object, e As EventArgs) Handles InsertCompras.Click

        Compras.Show()
    End Sub

    Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
        Ventas.Show()

    End Sub

    Private Sub ToolStripMenuItem17_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem17.Click
        MateriasPrimas.Show()

    End Sub
End Class