Registrar/Visualizar por orden de ingreso la bitacora

[sisne]

Hola.
Disculpen que me haya extendido tanto.
El problema que tengo es que no me registra lo usuarios que ingresan al sistema, el cual deseo que se guarden en orden de fecha ingreso en la TTabla Bitacora.
El codigo que puse es para que me registre en la TtablaBitacora.
Solo lo actualiza en cuanto ingreso a su respectivo FormBitacora.

Ahora si?

[[Caral]]

Hola
Pues en realidad sigo sin entender.
Veamos:
Tienes una tabla = TtablaBitacora
El código es para que se registre la entrada en esa tabla y muestre el Fprincipal:

Código Delphi [-]
{ esto es innecesario, no veo la razón
DM.Tbitacora.Edit;  
n:=DM.Tbitacora.RecordCount+1;
DM.Tbitacora['CodigoB']:=n;}

DM.TBitacora.Last; // este también lo quitaría, pero no estorba
DM.Tbitacora.Insert;
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').AsDateTime:=Date;
DM.Tbitacora.FieldByName('Hr_Ingreso').AsDateTime:=Time;
DM.Tbitacora.FieldByName('CodigoU').AsString:=DM.Tusuario['CodigoU'];
DM.Tbitacora.Post;
Fprincipal.Show;

Bien, este codigo inserta la entrada.
Ahora, no veo el interes de que la registre por fecha de ingreso, para eso simplemente se hace una consulta y la muestra por fecha.
Saludos

[Casimiro Noteví]

Amigo sisne, bienvenido a clubdelphi, te aconsejo leer nuestra guía de estilo, así podemos entendernos mejor entre todos

También es conveniente que para mayor claridad escribas el código entre etiquetas, como ha hecho Caral, por ejemplo:
[code ]
tú código fuente
[/code ]

Sin el espacio que he dejado entre code y el ']', aquí tienes una guía.

[ecfisa]

La corrección de Caral, es correcta, ya que incluye el Post necesario para que queden plasmados los usuarios que se registran (que era el problema que presentó sisne).

Ahora suponiendo que queremos añadir cada usuario que se registre:
Las líneas

DM.TBitacora.Last; 
DM.Tbitacora.Insert;

Se pueden simplificar a

DM.TBitacora.Append;

Saludos.

[sisne]

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:

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:

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.