VERSION 5.00
Begin VB.Form Form12
BackColor = &H00C0CEC0&
BorderStyle = 4 'Fixed ToolWindow
Caption = "Confirmación pieza"
ClientHeight = 7515
ClientLeft = 45
ClientTop = 345
ClientWidth = 9540
LinkTopic = "Form12"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 7515
ScaleWidth = 9540
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command3
Caption = "Cancelar pieza"
Height = 615
Left = 7440
Style = 1 'Graphical
TabIndex = 23
Top = 2760
Width = 1455
End
Begin VB.CommandButton Command2
Caption = "Confirmar pieza y terminar producto"
Height = 615
Left = 7440
Style = 1 'Graphical
TabIndex = 22
Top = 1920
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "Confirmar pieza y añadir nueva"
Height = 615
Left = 7440
Style = 1 'Graphical
TabIndex = 9
Top = 1080
Width = 1455
End
Begin VB.Frame Frame1
BackColor = &H00C0CEC0&
Caption = "Frame1"
Height = 6855
Left = 480
TabIndex = 0
Top = 240
Width = 6135
Begin VB.Label Label20
BackColor = &H00C0EAFF&
Height = 255
Left = 600
TabIndex = 21
Top = 6840
Width = 4935
End
Begin VB.Label Label19
BackColor = &H00C0EAFF&
Height = 255
Left = 600
TabIndex = 20
Top = 6480
Width = 4935
End
Begin VB.Label Label18
BackColor = &H00C0EAFF&
Height = 255
Left = 600
TabIndex = 19
Top = 6120
Width = 4935
End
Begin VB.Label Label17
BackColor = &H00C0EAFF&
Height = 255
Left = 600
TabIndex = 18
Top = 5760
Width = 4935
End
Begin VB.Label Label16
BackColor = &H00C0EAFF&
Height = 255
Left = 600
TabIndex = 17
Top = 5400
Width = 4935
End
Begin VB.Label Label15
BackColor = &H00C0EAFF&
Height = 255
Left = 600
TabIndex = 16
Top = 5040
Width = 4935
End
Begin VB.Label Label14
BackColor = &H00C0EAFF&
Height = 255
Left = 600
TabIndex = 15
Top = 4680
Width = 4935
End
Begin VB.Label Label13
BackColor = &H00C0EAFF&
Height = 255
Left = 600
TabIndex = 14
Top = 4320
Width = 4935
End
Begin VB.Label Label12
BackColor = &H00C0EAFF&
Height = 255
Left = 600
TabIndex = 13
Top = 3960
Width = 4935
End
Begin VB.Label Label11
BackColor = &H00C0EAFF&
Height = 255
Left = 600
TabIndex = 12
Top = 3600
Width = 4935
End
Begin VB.Label Label10
BackColor = &H00C0EAFF&
Height = 255
Left = 600
TabIndex = 11
Top = 3240
Width = 4935
End
Begin VB.Label Label9
BackColor = &H00C0EAFF&
Height = 255
Left = 600
TabIndex = 10
Top = 2880
Width = 4935
End
Begin VB.Label Label8
BackColor = &H00C0EAFF&
Caption = "Label8"
Height = 255
Left = 600
TabIndex = 8
Top = 2580
Width = 4335
End
Begin VB.Label Label7
BackColor = &H00C0EAFF&
Caption = "Label7"
Height = 255
Left = 600
TabIndex = 7
Top = 2280
Width = 4335
End
Begin VB.Label Label6
BackColor = &H00C0EAFF&
Caption = "Label6"
Height = 255
Left = 600
TabIndex = 6
Top = 1980
Width = 4335
End
Begin VB.Label Label5
BackColor = &H00C0E0FF&
Caption = "Label5"
Height = 255
Left = 600
TabIndex = 5
Top = 1680
Width = 4335
End
Begin VB.Label Label4
BackColor = &H00C0E0FF&
Caption = "Label4"
Height = 255
Left = 600
TabIndex = 4
Top = 1380
Width = 4335
End
Begin VB.Label Label3
BackColor = &H00C0E0FF&
Caption = "Label3"
Height = 255
Left = 600
TabIndex = 3
Top = 1080
Width = 4335
End
Begin VB.Label Label2
BackColor = &H00C0E0FF&
Caption = "Label2"
Height = 255
Left = 600
TabIndex = 2
Top = 780
Width = 4335
End
Begin VB.Label Label1
BackColor = &H00C0E0FF&
Caption = "Label1"
Height = 255
Left = 600
TabIndex = 1
Top = 480
Width = 4335
End
End
End
Attribute VB_Name = "Form12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private conn As New ADODB.Connection
Private rsproducto As ADODB.Recordset
Private rspieza As ADODB.Recordset
Private rsproceso As ADODB.Recordset
Private Sub Command1_Click()
'PASO DE DATOS A LA BASE DE DATOS
' Por si ya estaba abierta la conexion ...
Set conn = Nothing
Set rsproducto = Nothing
Set rspieza = Nothing
Set rsproceso = Nothing
' Crear los objetos
Set conn = New ADODB.Connection
Set rsproducto = New ADODB.Recordset
Set rspieza = New ADODB.Recordset
Set rsproceso = New ADODB.Recordset
' Abrir la base con el proveedor correspondiente
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\DBPROSS.mdb"
' insertar datos en tabla producto
rsproducto.Open "INSERT INTO PRODUCTO (ID_PRODUCTO, DESCRIPCION_PRODUCTO, UDS_UTILLAJE) VALUES ( " & gproducto.referencia & ", '" & gproducto.descripcion & "', " & gproducto.udsutillaje & " )", conn, adOpenDynamic, adLockOptimistic
' insertar datos en la tabla pieza
rspieza.Open "INSERT INTO PIEZA (ID_PRODUCTO, DESCRIPCION_PIEZA, LONGITUD, ESPESOR, MEDIDA1, MEDIDA2, ACABADO, UNIDADES, CONJUNTO) VALUES ( " & gproducto.referencia & ", '" & gpieza.descripcion & "', '" & gpieza.longitud & "' , '" & gpieza.espesor & "' , '" & gpieza.medida1 & "', '" & gpieza.medida2 & "', '" & gpieza.acabado & "', " & gpieza.unidades & ",'" & gpieza.conjunto & "' ) ", conn, adOpenDynamic, adLockOptimistic
rspieza.Open "SELECT * FROM PIEZA WHERE DESCRIPCION_PIEZA LIKE '" & gpieza.descripcion & "'AND ID_PRODUCTO = " & gproducto.referencia & "", conn, adOpenDynamic, adLockOptimistic
Dim idpieza As String
idpieza = rspieza(0)
'MsgBox resultado, vbExclamation
' insertar datos en la tabla proceso
If gproceso.corteman = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('corte manual'," & idpieza & ", '" & gproceso.t_corteman & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.corteauto = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('corte automático'," & idpieza & ", '" & gproceso.t_corteauto & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.curvado = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('curvado'," & idpieza & ", '" & gproceso.t_curvado & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.prensahidra = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('prensa hidráulica'," & idpieza & ", '" & gproceso.t_prensahidra & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.prensameca = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('prensa mecánica'," & idpieza & ", '" & gproceso.t_prensameca & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.soldaduramanual = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('soldadura manual'," & idpieza & ", '" & gproceso.t_soldaduramanual & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.soldadurarobots = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('soldadura robots'," & idpieza & ", '" & gproceso.t_soldadurarobots & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.taladrado = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('taladrado'," & idpieza & ", '" & gproceso.t_taladrado & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.pulido = True Then
rsproceso.Open "INSERT INTO PROCESO (TDESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('pulido'," & idpieza & ", '" & gproceso.t_pulido & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.cromado = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('cromado'," & idpieza & ", '" & gproceso.t_cromado & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.pintado = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('pintado'," & idpieza & ", '" & gproceso.t_pintado & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.embalaje = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('embalaje'," & idpieza & ", '" & gproceso.t_embalaje & "' )", conn, adOpenDynamic, adLockOptimistic
End If
'cerrar conexion
conn.Close
Form12.Visible = False
Form13.Visible = True
End Sub
Private Sub Command2_Click()
'PASO DE DATOS A LA BASE DE DATOS
' Por si ya estaba abierta la conexion ...
Set conn = Nothing
Set rsproducto = Nothing
Set rspieza = Nothing
Set rsproceso = Nothing
' Crear los objetos
Set conn = New ADODB.Connection
Set rsproducto = New ADODB.Recordset
Set rspieza = New ADODB.Recordset
Set rsproceso = New ADODB.Recordset
' Abrir la base con el proveedor correspondiente
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\DBPROSS.mdb"
' insertar datos en tabla producto
rsproducto.Open "INSERT INTO PRODUCTO (ID_PRODUCTO, DESCRIPCION_PRODUCTO, UDS_UTILLAJE ) VALUES ( " & gproducto.referencia & ", '" & gproducto.descripcion & "', " & gproducto.udsutillaje & " )", conn, adOpenDynamic, adLockOptimistic
' insertar datos en la tabla pieza
rspieza.Open "INSERT INTO PIEZA (ID_PRODUCTO, DESCRIPCION_PIEZA, LONGITUD, ESPESOR, MEDIDA1, MEDIDA2, ACABADO, UNIDADES, CONJUNTO) VALUES ( " & gproducto.referencia & ", '" & gpieza.descripcion & "', '" & gpieza.longitud & "' , '" & gpieza.espesor & "' , '" & gpieza.medida1 & "', '" & gpieza.medida2 & "', '" & gpieza.acabado & "', " & gpieza.unidades & ",'" & gpieza.conjunto & "' ) ", conn, adOpenDynamic, adLockOptimistic
rspieza.Open "SELECT * FROM PIEZA WHERE DESCRIPCION_PIEZA LIKE '" & gpieza.descripcion & "'AND ID_PRODUCTO = " & gproducto.referencia & "", conn, adOpenDynamic, adLockOptimistic
Dim idpieza As String
idpieza = rspieza(0)
'MsgBox resultado, vbExclamation
' insertar datos en la tabla proceso
If gproceso.corteman = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('corte manual'," & idpieza & ", '" & gproceso.t_corteman & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.corteauto = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('corte automático'," & idpieza & ", '" & gproceso.t_corteauto & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.curvado = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('curvado'," & idpieza & ", '" & gproceso.t_curvado & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.prensahidra = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('prensa hidráulica'," & idpieza & ", '" & gproceso.t_prensahidra & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.prensameca = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('prensa mecánica'," & idpieza & ", '" & gproceso.t_prensameca & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.soldaduramanual = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('soldadura manual'," & idpieza & ", '" & gproceso.t_soldaduramanual & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.soldadurarobots = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('soldadura robots'," & idpieza & ", '" & gproceso.t_soldadurarobots & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.taladrado = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('taladrado'," & idpieza & ", '" & gproceso.t_taladrado & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.pulido = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('pulido'," & idpieza & ", '" & gproceso.t_pulido & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.cromado = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('cromado'," & idpieza & ", '" & gproceso.t_cromado & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.pintado = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('pintado'," & idpieza & ", '" & gproceso.t_pintado & "' )", conn, adOpenDynamic, adLockOptimistic
End If
If gproceso.embalaje = True Then
rsproceso.Open "INSERT INTO PROCESO (DESCRIPCION_PROCESO, ID_PIEZA, TIEMPO) VALUES ('embalaje'," & idpieza & ", '" & gproceso.t_embalaje & "' )", conn, adOpenDynamic, adLockOptimistic
End If
'cerrar conexion
conn.Close
Form12.Visible = False
MsgBox "El producto ha sido dado de alta con las piezas introducidas", vbExclamation
End Sub
Private Sub Command3_Click()
Form12.Visible = False
Form7.Visible = True
End Sub
Private Sub Form_Load()
' centrar el formulario en la parte superior
Move (Screen.Width - Width) \ 2, 1500
Dim acabado As String
If gpieza.acabado = False Then
acabado = "pintado"
ElseIf gpieza.acabado = True Then
acabado = "cromado"
End If
Dim conjunto As String
If gpieza.conjunto = False Then
conjunto = "es una pieza individual"
ElseIf gpieza.conjunto = True Then
conjunto = "está formada por un conjunto de otras piezas"
End If
Frame1.Caption = " PRODUCTO: " & gproducto.referencia & " " & gproducto.descripcion
Label1.Caption = " Descripción pieza: " & gpieza.descripcion
Label2.Caption = " Longitud: " & gpieza.longitud & " milímetros"
Label3.Caption = " Espesor: " & gpieza.espesor & " milímetros"
Label4.Caption = " Medida1(diámetro/ancho): " & gpieza.medida1 & " milímetros"
Label5.Caption = " Medida2(diámetro2): " & gpieza.medida2 & " milímetros"
Label6.Caption = " La pieza tiene un acabado final: " & acabado
Label7.Caption = " Cada producto tiene " & gpieza.unidades & " piezas de este tipo"
Label8.Caption = " Esta pieza " & conjunto
Label9.Visible = False
Label10.Visible = False
Label11.Visible = False
Label12.Visible = False
Label13.Visible = False
Label14.Visible = False
Label15.Visible = False
Label16.Visible = False
Label17.Visible = False
Label18.Visible = False
Label19.Visible = False
Label20.Visible = False
Dim altura As Integer
altura = 2880
If gproceso.corteman = True Then
Label9.Top = altura
Label9.Visible = True
Label9.Caption = " Lleva un proceso de Corte Manual y su tiempo de es de " & gproceso.t_corteman
altura = altura + 300
End If
If gproceso.corteauto = True Then
Label10.Top = altura
Label10.Visible = True
Label10.Caption = " Lleva un proceso de Corte Automático y su tiempo de es de " & gproceso.t_corteauto
altura = altura + 300
End If
If gproceso.curvado = True Then
Label11.Top = altura
Label11.Visible = True
Label11.Caption = " Lleva un proceso de Curvado y su tiempo de es de " & gproceso.t_curvado
altura = altura + 300
End If
If gproceso.prensahidra = True Then
Label12.Top = altura
Label12.Visible = True
Label12.Caption = " Lleva un proceso de Prensa Hidráulica y su tiempo de es de " & gproceso.t_prensahidra
altura = altura + 300
End If
If gproceso.prensameca = True Then
Label13.Top = altura
Label13.Visible = True
Label13.Caption = " Lleva un proceso de Prensa Mecánica y su tiempo de es de " & gproceso.t_prensameca
altura = altura + 300
End If
If gproceso.soldaduramanual = True Then
Label14.Top = altura
Label14.Visible = True
Label14.Caption = " Lleva un proceso de Soldadura Manual y su tiempo de es de " & gproceso.t_soldaduramanual
altura = altura + 300
End If
If gproceso.soldadurarobots = True Then
Label15.Top = altura
Label15.Visible = True
Label15.Caption = " Lleva un proceso de Soldadura Robots y su tiempo de es de " & gproceso.t_soldadurarobots
altura = altura + 300
End If
If gproceso.taladrado = True Then
Label16.Top = altura
Label16.Visible = True
Label16.Caption = " Lleva un proceso de Taladrado y su tiempo de es de " & gproceso.t_taladrado
altura = altura + 300
End If
If gproceso.pulido = True Then
Label17.Top = altura
Label17.Visible = True
Label17.Caption = " Lleva un proceso de Pulido y su tiempo de es de " & gproceso.t_pulido
altura = altura + 300
End If
If gproceso.cromado = True Then
Label18.Top = altura
Label18.Visible = True
Label18.Caption = " Lleva un proceso de Cromado y su tiempo de es de " & gproceso.t_cromado
altura = altura + 300
End If
If gproceso.pintado = True Then
Label19.Top = altura
Label19.Visible = True
Label19.Caption = " Lleva un proceso de Pintado y su tiempo de es de " & gproceso.t_pintado
altura = altura + 300
End If
If gproceso.embalaje = True Then
Label20.Top = altura
Label20.Visible = True
Label20.Caption = " Lleva un proceso de Embalaje y su tiempo de es de " & gproceso.t_embalaje
altura = altura + 300
End If
Frame1.Height = 3375 + altura - 2880
End Sub
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
