Proyecto 1

Prof: Miguel Temaj


DataEnvironment1.rsCommand1.MovePrevious
If (DataEnvironment1.rsCommand1.BOF) Then
DataEnvironment1.rsCommand1.MoveFirst
End If

End Sub
Private Sub Command2_Click()
DataEnvironment1.rsCommand1.MoveNext
If (DataEnvironment1.rsCommand1.EOF) Then
DataEnvironment1.rsCommand1.MoveLast
End If
End Sub

Private Sub Command3_Click()DataEnvironment1.rsCommand1.MoveFirst
End Sub

Private Sub Command4_Click()
DataEnvironment1.rsCommand1.MoveLast
End Sub

Private Sub Command5_Click()
txtid_alumno.Enabled = True
txtnombre_alumno.Enabled = True
txtapellido_alumno.Enabled = True
txtdireccion_alumno.Enabled = True
txttel_alumno.Enabled = True
txtjornada_alumno.Enabled = True
txtgrado_alumno.Enabled = True
txtseccion_alumno.Enabled = TrueCommand1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command7.Enabled = False
Command8.Enabled = False

DataEnvironment1.rsCommand1.AddNew
End Sub

Private Sub Command6_Click()
If (txtid_alumno.Text = "") And (txtnombre_alumno.Text = "") And (txtapellido_alumno.Text = "") And (txtdireccion_alumno.Text = "") And(txttel_alumno.Text = "") And (txtjornada_alumno.Text = "") And (txtgrado_alumno.Text = "") And (txtseccion_alumno.Text = "") Then
MsgBox ("Debe llenar los datos")
Else
txtid_alumno.Enabled = False
txtnombre_alumno.Enabled = False
txtapellido_alumno.Enabled = False
txtdireccion_alumno.Enabled = False
txttel_alumno.Enabled = False
txtjornada_alumno.Enabled = False
txtgrado_alumno.Enabled = Falsetxtseccion_alumno.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
DataEnvironment1.rsCommand1.Update
MsgBox "dato guardado", vbInformation, "alumno"
End If
End Sub

Private Sub Command7_Click()
DataEnvironment1.rsCommand1.DeleteDataEnvironment1.rsCommand1.MoveLast
MsgBox "dato eliminado", vbInformation, "alumno"

End Sub

Private Sub Command8_Click()
txtid_alumno.Enabled = True
txtnombre_alumno.Enabled = True
txtapellido_alumno.Enabled = True
txtdireccion_alumno.Enabled = True
txttel_alumno.Enabled = True
txtjornada_alumno.Enabled = True
txtgrado_alumno.Enabled = True
txtseccion_alumno.Enabled = True
End Sub

Private SubCommand9_Click()
Form1.Show
Form2.Hide
End Sub
#2

Private Sub Command3_Click()
DataEnvironment1.rsCommand2.MoveFirst
End Sub

Private Sub Command4_Click()
DataEnvironment1.rsCommand2.MoveLast
End Sub

Private Sub Command5_Click()
txtid_empleado.Enabled = True
txttipo_empleado.Enabled = True
txtnombre_empleado.Enabled = True
txtapellido_empleado.Enabled = True
txttel_empleado.Enabled =True
txtdireccion_empleado.Enabled = True
txtsueldo_empleado.Enabled = True
txthorrario.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
DataEnvironment1.rsCommand2.AddNew
End Sub

Private Sub Command6_Click()
If (txtid_empleado.Text = "") And(txttipo_empleado.Text = "") And (txtnombre_empleado.Text = "") And (txtapellido_empleado.Text = "") And (txttel_empleado.Text = "") And (txtdireccion_empleado.Text = "") And (txtsueldo_empleado.Text = "") And (txthorrario.Text = "") Then
MsgBox ("debe llenar los datos")
Else
txtid_empleado.Enabled = False
txttipo_empleado.Enabled = False
txtnombre_empleado.Enabled = Falsetxtapellido_empleado.Enabled = False
txttel_empleado.Enabled = False
txtdireccion_empleado.Enabled = False
txtsueldo_empleado.Enabled = False
txthorrario.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
DataEnvironment1.rsCommand2.Update
MsgBox "dato guardado",...