Visual Basic
1. -Acceso al programa
Tipo | Propiedad | Valor |
Command1 | caption | Entrar |
Label1 | Caption | Escribe tu contraseña |
Text1 | text | |Image1 | picture | imagen |
Codigo
Option Explicit
Private Sub Command1_Click()
If Text1.Text = "simeccttk" Then
Form1.Hide
Simec.Show
Else
MsgBox "Error", vbCritical, "contraseñaincorrecta"
End
End If
End Sub
2.-Entrada Principal
Tipo | Propiedad | Valor |
Command1 | Caption | Ventas |
Command2 | Caption | Exportaciones |
Command3 | Caption | Materiales |Command4 | Caption | salir |
Command5 | Caption | Trabajadores |
Command6 | Caption | Productos |
Command7 | Caption | Fotos |
Image1 | Picture | Imagen |
Codigo
Option ExplicitPrivate Sub Command7_Click()
Fotos.Show
Simec.Hide
End Sub
Private Sub Command1_Click()
Ventas.Show
Simec.Hide
End Sub
Private Sub Command2_Click()
Exportaciones.ShowSimec.Hide
End Sub
Private Sub Command3_Click()
Materiales.Show
Simec.Hide
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
Simec.HideTrabajadores.Show
End Sub
Private Sub Command6_Click()
Productos.Show
Simec.Hide
End Sub
3.- Ventas
Tipo | Propiedad | Valor |
Image1 | Picture | Imagen |
Label1| Caption | Identificador |
Label2 | Caption | Compañia |
Label3 | Caption | Porcentajes |
Label4 | Caption | Pais |
Label5 | Caption | Producto |
Label6 | Caption |Cantidad |
Text1 | Caption | |
Data source | Adodc1 | |
Data filed | Identificador | |
Text2 | Caption | |
Data source | Adodc1 | |
Data filed | Nombre de la compañia ||
Text3 | | |
Data source | Adodc1 | |
Data filed | Porcentaje | |
Text4 | Caption | |
Data source | Adodc1 | |
Data filed | Pais de exportacion | |
Text5 |...
Regístrate para leer el documento completo.