Holas!
Les comento ya solucioné el problemita, y de esta manera.
En TablaBitacora en SQL Server tenia definido los campos FechaIngreso como Date, FechaIngreso,HrIngresgo,HrSalida como DateTime, pero ahora los cambié a String.
Y con la ayuda de ustedes cambié el código a:
Código:
DM.Tbitacora.Insert;
n:=DM.Tbitacora.RecordCount+1;//esto es para contar nro. de usuarios que ingresan...nada relevante...
DM.Tbitacora['CodigoB']:=n;
DM.Tbitacora.FieldByName('CiB').AsInteger:=DM.Tusuario['CiUsuario'];
DM.Tbitacora.FieldByName('NomB').AsString:=DM.Tusuario['NomUsuario'];
DM.Tbitacora.FieldByName('ApePB').AsString:=DM.Tusuario['ApePU'];
DM.Tbitacora.FieldByName('NivelB').AsString:=DM.Tusuario['NivelU'];
DM.Tbitacora.FieldByName('Fec_Ingreso').AsString:=DateToStr(Date);
DM.Tbitacora.FieldByName('Hr_Ingreso').AsString:=TimeToStr(Time);
DM.Tbitacora.FieldByName('CodigoU').AsString:=DM.Tusuario['CodigoU'];
DM.Tbitacora.Post;
Fprincipal.Show;
Y para que me salga la HoraSalidaSistema, cuando hago click en salir del sistema en un boton Salir:
Código:
DM.Tbitacora.Open;
DM.Tbitacora.Last;
DM.Tbitacora.Edit;
DM.Tbitacora.FieldByName('Hr_Salida').AsString:=TimetoStr(time);
DM.Tbitacora.Post;
Application.Terminate;
El resultado es en orden de HoraIngresoSistema.
Gracias a todos!!! No saben estaba hasta muy tarde haciendo esto, cuando el problema no era de gran escala.
Graaaaaaaaacias!!!
Nota:En cuanto a las VB voy aprendiendo...otra vez graaaaaaacias.