VERSION 5.00
Begin VB.Form Form10
BackColor = &H00C0CEC0&
BorderStyle = 4 'Fixed ToolWindow
Caption = "Form10"
ClientHeight = 7275
ClientLeft = 45
ClientTop = 345
ClientWidth = 11070
ControlBox = 0 'False
LinkTopic = "Form10"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 7275
ScaleWidth = 11070
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command2
Caption = "No"
Height = 495
Left = 2880
TabIndex = 2
Top = 1680
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "Sí"
Height = 495
Left = 1080
TabIndex = 1
Top = 1680
Width = 975
End
Begin VB.Label Label1
Caption = "¿Desea añadir una nueva pieza al producto?"
Height = 375
Left = 1080
TabIndex = 0
Top = 840
Width = 3375
End
End
Attribute VB_Name = "Form10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim variablebuscar As String
Private Sub cmdAnterior_Click()
DataEnvironment1.rsSILLAS_FIJAS.MovePrevious
End Sub
Private Sub cmdSiguiente_Click()
DataEnvironment1.rspieza.MoveNext
End Sub
Private Sub Command1_Click()
frmDataEnv.Visible = True
End Sub
Private Sub Command3_Click()
DataEnvironment1.PIEZA txt1
Set DataGrid1.DataSource = DataEnvironment1.rspieza
DataGrid1.DataMember = "pieza"
End Sub
Private Sub Command4_Click()
variablebuscar = CStr(txtBuscar.Text)
End Sub
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
