Visual Basic - Código para registrar fecha

Life is soft - evento anual de software empresarial
   
Vista:

Código para registrar fecha

Publicado por fran (2 intervenciones) el 21/01/2009 00:19:51
Buenas, tengo que hacer un programa en el que se lleve un registro de los alumnos cuando entran en la escuela por medio de la huella dactilar.

Me he bajado un ejemplo específico para eso, pero es simple, sólo tiene para registrar nombre y area.

El caso es que me gustaría que registrara la fecha y hora en que se ha entrado. ¿Cómo puedo hacer eso? de forma que despues si quiero acceder a un alumno, ver todas las fechas que ha entrado.

Como vereis estoy un poco verde, por eso os pido ayuda.

Gracias de antemano.

Os mando el código:

Private Sub AreaGuardar_Change()
ChecaGuardar
End Sub

Private Sub btn_Guardar_Click()
Set Resultado = BD.OpenRecordset("SELECT * FROM usuarios")
With Resultado
.AddNew
.Fields("nombre") = NombreGuardar
.Fields("area") = AreaGuardar
.Fields("huella1") = template(1).tpt
.Fields("huella2") = template(2).tpt
.Update
End With

MsgBox "Huellas guardadas"

Imagen(1).Picture = LoadPicture()
Imagen(2).Picture = LoadPicture()
NombreGuardar = ""
AreaGuardar = ""

Imagen_Click 1
End Sub

Private Sub Command1_Click()
BD.Execute "DELETE FROM usuarios"
MsgBox "Ok"
End Sub

Private Sub Form_Load()
Dim Error As Integer
Set BD = OpenDatabase(App.Path & "d.mdb")

' Inicializar
Error = Inicializar(Form1)
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next

BD.Close
Set BD = Nothing
End Sub

Private Sub ChecaGuardar()
If Imagen(1) <> 0 And Imagen(2) <> 0 And NombreGuardar <> "" And AreaGuardar <> "" Then
btn_Guardar.Enabled = True
Else
btn_Guardar.Enabled = False
End If
End Sub

Private Sub Imagen_Click(Index As Integer)
ImagenNumero = Index
If Index = 1 Then
Shape1.Left = 250
Else
Shape1.Left = 2530
End If
End Sub

Private Sub GrFingerXCtrl1_ImageAcquired(ByVal idSensor As String, ByVal width As Long, ByVal height As Long, rawImage As Variant, ByVal res As Long)
' Capturar Imagen (Este mensaje es muy raro que se vea. Si se muestra pero muy rapido)
Mensajes = "Capturando imagen..."

With raw
.img = rawImage
.height = height
.width = width
.res = res
End With

If OptionGuardar.Value = True Then
CapturaHuella False, GR_DEFAULT_CONTEXT, Form1, Form1.Imagen(ImagenNumero), ImagenNumero
If EncuentraPuntos(Form1, Mensajes, Imagen(ImagenNumero), ImagenNumero) = True Then
' Aqui entra si la Imagen se detecta bien
If ImagenNumero = 1 Then
Imagen_Click 2
Else
Imagen_Click 1
End If
End If
ChecaGuardar
End If

If OptionVerificar.Value = True Then
CapturaHuella False, GR_DEFAULT_CONTEXT, Form1, Form1.Imagen(3), 3
If EncuentraPuntos(Form1, Mensajes, Imagen(3), 3) = True Then
' El numero 3 es por el Template que es el numero 3
CambiaFoco Identificar(Form1, 3, Form1.NombreVerificar, Form1.AreaVerificar)
End If
End If

End Sub

Private Sub GrFingerXCtrl1_SensorPlug(ByVal idSensor As String)
' Inicializar la Captura del dispositivo
GrFingerXCtrl1.CapStartCapture (idSensor)
End Sub

Private Sub GrFingerXCtrl1_SensorUnplug(ByVal idSensor As String)
' Finalizar la Captura del dispositivo
GrFingerXCtrl1.CapStopCapture (idSensor)
End Sub

Private Sub GrFingerXCtrl1_FingerDown(ByVal idSensor As String)
' Aqui detecta cuando pones el dedo (Este mensaje es muy raro que se vea. Si se muestra pero muy rapido)
Detector = "Huella detectada"
End Sub

Private Sub GrFingerXCtrl1_FingerUp(ByVal idSensor As String)
' Aqui detecta cuando quitas el dedo
Detector = "Huella removida"
End Sub

Private Sub NombreGuardar_Change()
ChecaGuardar
End Sub

Private Sub OptionGuardar_Click()
OcultarFrames
FrameGuardar.Visible = True
End Sub

Private Sub OcultarFrames()
FrameGuardar.Visible = False
FrameVerificar.Visible = False
Detector = ""
Mensajes = ""
Imagen(1).Picture = LoadPicture()
Imagen(2).Picture = LoadPicture()
Imagen(3).Picture = LoadPicture()
Imagen_Click 1
End Sub

Private Sub OptionVerificar_Click()
OcultarFrames
FrameVerificar.Visible = True
End Sub

Private Sub CambiaFoco(Color As Integer)
If Color = 1 Then
Foco.BackColor = &HFF00&
Else
Foco.BackColor = &HFF&
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Hostname
- Número cuit
- Juego de la serpiente

RE:Código para registrar fecha

Publicado por P3L30N2009 (701 intervenciones) el 22/01/2009 09:35:42
Hombre, lo normal es que crearas una nueva tabla con tres campos: idUsuario, FechaEntrada, FechaSalida.

El idUsuario haría referencia a la tabla Usuarios y los campos fecha: Tipo de datos = Fecha/Hora, Formato = Fecha general ("dd/mm/yyyy hh:MM:ss").

Y en la entrada grabas el idUsuario y la FechaEntrada, ésta con la función Now y a la salida, buscas la última entrada del usuario (la fecha de salida estará en blanco) y grabas con la misma función en el campo FechaSalida.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Código para registrar fecha

Publicado por fran (2 intervenciones) el 29/01/2009 04:46:55
Ok, gracias, pero tengo un problema con el código o con la base de datos.

Ya que la base de datos está hecha con access 97 y al crear una base con access 2003 me da error de formato no reconocido y tengo que convertirla.

Hay alguna forma de que me coja la de 2003 o 2007?

Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar