Proyectos

INDICE

1. Realizar un programa para calcular el sueldo de una persona con su clave de acceso y con sus insumos.

OBJETIVOS

Mi objetivo es que cada vez que hacemos más ejercicios vamosentendiendo un poco más de lo que se trata la programación.

CONCLUCIONES

Mi conclusión es que los ejercicios están cada vez interesantes para resolverlos que nos ayudan a razonar y pensar.RECOMENDACIONES

Mi recomendación es que siempre que alguien nos explique poner mucha atención si no vamos a estar pataleando sin saber qué hacer.

Dim db As Database
Dim cl As Recordset
Dim c AsInteger
Private Sub Command1_Click()
Form2.Show
cl.AddNew
cl("cod1") = c
cl("clave") = Text2.Text
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
c = 1
Set db =OpenDatabase("G:\ROL\sueldo.mdb")
Set cl = db.OpenRecordset("acceso")
End Sub

Dim db As Database
Dim cl As Recordset
Dim co As Integer
Private Sub Command1_Click()
Text21.Text = Val(Text14.Text)- Val(Text20.Text)
End Sub
Private Sub Command2_Click()
cl.AddNew
cl("cod") = co
cl("nom") = Text2.Text
cl("dir") = Text3.Text
cl("tel") = Text4.Text
cl("ced") = Text5.Text
cl("he") =Text6.Text
cl("sbas") = Text7.Text
cl("dterce") = Text8.Text
cl("dcuarto") = Text9.Text
cl("dquinto") = Text10.Text
cl("dsexto") = Text11.Text
cl("bono") = Text12.Text
cl("trans") = Text13.Textcl("tingresos") = Text14.Text
cl("iess") = Text15.Text
cl("multas") = Text16.Text
cl("sindi") = Text17.Text
cl("comi") = Text18.Text
cl("fklever") = Text19.Text
cl("tegreso") = Text20.Textcl("trecibir") = Text21.Text
cl("thoras") = Text22.Text
cl.Update
MsgBox ("Los datos fueron guardados")
End Sub
Private Sub Command3_Click()
cl.Edit
cl("cod") = co
cl("nom") = Text2.Text
cl("dir") =Text3.Text
cl("tel") = Text4.Text
cl("ced") = Text5.Text
cl("he") = Text6.Text
cl("sbas") = Text7.Text
cl("dterce") = Text8.Text
cl("dcuarto") = Text9.Text
cl("dquinto") = Text10.Text...