FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Registrar/Visualizar por orden de ingreso la bitacora
Hola!
Por favor ayuda... Tengo un Form1 donde selecciono el nivel de cargo y su contrañeña antes de ingresar al FormularioPrincipal, si es correcta la contraseña pues seguidamente coloco este codigo para que me registre el NomUsuario, FechaIngreso,HoraIngreso, etc...en cuanto la contrañesa sea correcta. Tbitacora es donde si visualizará los usuarios que ingresaron al sistema, TBitacora tiene los campos como ser el codigobitacora 1, 2,3,4,... DM.TBitacora.Last; DM.Tbitacora.Edit; DM.Tbitacora.Insert; n:=DM.Tbitacora.RecordCount+1; 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').AsDateTime:=Date; DM.Tbitacora.FieldByName('Hr_Ingreso').AsDateTime:=Time; DM.Tbitacora.FieldByName('CodigoU').AsString:=DM.Tusuario['CodigoU']; Fprincipal.Show; Luego ingreso al sistemaPrincipal normal....pero no me registra los datos en Tbitacora, solo se registra y se actualiza en cuanto ingreso a ese FormBitacora, sino no entrara a ver quienes ingresaron, no lo registra. El codigo que puse para ver quienes ingresaron al sistema es procedure TFprincipal.Bitacora1Click(Sender: TObject); begin Fbitacora.ShowModal; end; Si hago click para ver la bitacora, recien me actualiza y por otra parte me lo ordena por codigoBitacora 1,10,11,12,13,14,15,16,17,18,19,2,20,21,22,23,24,25,26,27,28,29,3,30,31....4,40,41...5,6,7,8,9 Yo quisiera que me aparezca por orden de fecha ingreso, entonces use un Query(TBtablas), donde programe para que saliera en orden de fechaingreso, pero no me actualizaba, ni por mas que haga click en FormBitacora, por lo menos con Tbitacora al hacer click para ver este formbitacora me aparecia aunque sea en ese orde... Última edición por sisne fecha: 21-03-2010 a las 20:51:09. Razón: Disculpen por no saludar. |
#2
|
||||
|
||||
Hola
Disculpa pero no entiendo nada. Me parece que quieres resolver varios problemas a la vez y no te explicas. Por lo menos yo no entiendo. Haces un last seguido de un edit y un instert, no me cuadra algo. Saludos
__________________
Siempre Novato |
#3
|
||||
|
||||
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? |
#4
|
||||
|
||||
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: 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
__________________
Siempre Novato Última edición por Caral fecha: 21-03-2010 a las 22:40:21. |
#5
|
||||
|
||||
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. |
#6
|
||||
|
||||
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 Código:
DM.TBitacora.Last; DM.Tbitacora.Insert; Código:
DM.TBitacora.Append;
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#7
|
||||
|
||||
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; Código:
DM.Tbitacora.Open; DM.Tbitacora.Last; DM.Tbitacora.Edit; DM.Tbitacora.FieldByName('Hr_Salida').AsString:=TimetoStr(time); DM.Tbitacora.Post; Application.Terminate; 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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Hacer Una Bitacora o Log | rgstuamigo | SQL | 16 | 18-09-2008 04:18:18 |
6:45 bitacora | Caral | La Taberna | 206 | 30-08-2008 16:15:58 |
tablas para una bitacora | gabrielflowers | Tablas planas | 4 | 28-08-2007 00:01:50 |
Mostrar ventana con cuaderno de bitácora en programa automático | Ñuño Martínez | Varios | 19 | 23-01-2007 00:11:03 |
Google despide al empleado que publicaba una bitácora | marcoszorrilla | Noticias | 0 | 09-02-2005 22:27:09 |
|