13.07.2015 Views

TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

SHOW MORE
SHOW LESS
  • No tags were found...

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

13.2.3 Programa para la marcación de horas de trabajoFormulario de control de empleados.Figura 13.2.6 Formulario de control de empleados'Definicion de Variables a utilizarOption ExplicitDim a As IntegerPrivate cnn As ADODB.ConnectionPrivate rst As ADODB.RecordsetPrivate dt As ADODB.RecordsetDim sSelect As StringDim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim rsEmpleados As ADODB.RecordsetDim StrSql As String'Codigo asociado al boton de Salir. Al hacer clic sobre este boton, se desconecta el sistema RFID'y se cierra el programaPrivate Sub Apagar_Click()HIDComm1.DisconnectMe.Timer1inicio.Enabled = FalseMe.Timer2inicio.Enabled = FalseMe.Timerhora.Enabled = FalseEndEnd Sub'Codigo asociado al cargarse el formulario principal'Llamar la rutina de inicio (start), habilitar el timer de lectura USB, Esconder la informacion de empleado'Setear la base de datos a utilizarPrivate Sub Form_Load()Call startTimer1inicio.Enabled = TrueNombre.Visible = FalseApellido.Visible = Falsecargo.Visible = False'Me.tag1.Text = ""tag1.Visible = FalseTimerhora.Enabled = TrueSet rsEmpleados = New ADODB.RecordsetMe.Nombre.Text = ""HIDComm1.TimeOut = 100End Sub- 172 -

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!