problemas con la hora

Nelly · #1 16-11-2005

Hola a todos y un agradecimiento por adelantado por el que me ayude con este problema.

Tengo un problema con la fecha y la hora en el sistema que estoy realizando, la escuestión es cuando guardo un nuevo registro en mi base de datos (utilizo firebird) y lo quiero visualizar en mi ventana de diseño(utilizando Delphi 7) guarda el registro pero todos con la misma hora. Si por ejemplo en mi Grid en la propiedad FieldName elijo fecha_evento como clave muestra y guarda la fecha correcta pero no la hora, ya que muestra la misma en todas, si elijo hra_evento como clave el problema es todo lo contrario, osea hora correcta pero fecha incorrecta. ¿A que se debe esta situación?. Este parte de codigo es donde guardo los datos.

Código Delphi [-] 
 procedure TfrmPropEvento.FormCreate(Sender: TObject);
 begin
   qryTipoEven.Active:=true;
   qryTipoEven.FetchAll;
   cmbcve_tipo.KeyValue:=qryTipoEven.fieldbyname('cve_tipo').AsInteger;
   qryMpo.Active:=true;
   qryMpo.FetchAll;
   cmbcve_mpo.KeyValue:=qryMpo.fieldbyname('cve_mpo').AsInteger;
   hubocambio:=false;
   cmbFecha_evento.Date:=date;
   cmbHra_evento.DateTime:=Now;
 end;
 procedure TfrmPropEvento.GuardaProp(nuevo:boolean);
 begin
   DataMod.qryTemp.Active:=false;
   DataMod.qryTemp.SQL.Clear;
   if nuevo then begin
     DataMod.qryTemp.SQL.Add('insert into eventos ');
     DataMod.qryTemp.SQL.Add('(fecha_evento,cve_mpo,cve_edo, ');
     DataMod.qryTemp.SQL.Add('cve_tipo,hra_evento,cancel) values ');
     DataMod.qryTemp.SQL.Add('(:fecha_evento,:cve_mpo,:cve_edo, ');
     DataMod.qryTemp.SQL.Add(':cve_tipo,:hra_evento,:cancel) ');
   end else begin
     DataMod.qryTemp.SQL.Add('update eventos ');
     DataMod.qryTemp.SQL.Add('set fecha_evento=:fecha_evento,cve_mpo=:cve_mpo, ');
     DataMod.qryTemp.SQL.Add('cve_edo=:cve_edo, cve_tipo=:cve_tipo,hra_evento=:hra_evento,cancel=:cancel ');
     DataMod.qryTemp.SQL.Add(' where cve_evento=:cve_evento ');
     DataMod.qryTemp.ParamByName('cve_evento').AsInteger:=cve_evento;
   end;
     DataMod.qryTemp.ParamByName('fecha_evento').AsDate:=
          cmbFecha_evento.Date;
     DataMod.qryTemp.ParamByName('cve_mpo').AsInteger:=
         cmbcve_mpo.KeyValue;
     DataMod.qryTemp.ParamByName('cve_edo').AsInteger:=31;
     DataMod.qryTemp.ParamByName('cve_tipo').AsInteger:=
         cmbcve_tipo.KeyValue;
     DataMod.qryTemp.ParamByName('hra_evento').AsDateTime:=
         cmbHra_evento.DateTime;
 
 
 Esta otra parte es donde lo edito y visualizo 
 procedure TfrmEventos.tbtneditarClick(Sender: TObject);
 begin
       if QryEventos.IsEmpty then exit;
         frmPropEvento:=tfrmPropEvento.Create(self);
         frmPropEvento.cve_evento:=QryEventos.fieldbyname('cve_evento').AsInteger;
         //lee las propiedades e inicializa la ventana
         frmPropEvento.cmbcve_tipo.KeyValue:=QryEventos.fieldbyname('cve_tipo').AsInteger;
         frmPropEvento.cmbcve_mpo.KeyValue:=QryEventos.fieldbyname('cve_mpo').AsInteger;
         frmPropEvento.cmbFecha_evento.Date:=QryEventos.fieldbyname('fecha_evento').AsDate;
         //En este punto me marca error con el AsDate.
        frmPropEvento.cmbHra_evento.DateTime:=QryEventos.fieldbyname('hra_evento').Asdatetime;
         {...}

[Lepe] · #2 17-11-2005

Si la fecha es clave, no podrás guardar 2 registros con la misma fecha.
Si la hora es clave, no podrás guardar 2 citas a la misma hora aún cuando la fecha haya cambiado.

Podrías usar como clave primaria un TimeStamp, que es la fecha y hora todo junto, guardando los milisegundos, jamás deberías tener una clave duplicada.

En Sql, siempre podrás usar cast para coger la parte de fecha o la parte de hora.

Tambien puedes tener 2 campos, fecha y hora, pero la clave primaria son ambos campos a la vez.

saludos