Cita:
Empezado por sizne
Q.QbitUsuario.Append;
Q.QbitUsuario.Insert;
Q.QbitUsuario.Edit;
Q.QbitUsuario['CiUsuario']:=DM.Tusuario['CiUsuario'];
Q.QbitUsuario['NomUsuario']:=DM.Tusuario['NomUsuario'];
Q.QbitUsuario['ApePU']:=DM.Tusuario['ApePU'];
Q.QbitUsuario['NivelU']:=DM.Tusuario['NivelU'];
Q.QbitUsuario['Fec_Ingreso']:=Date;
Q.QbitUsuario['Hr_Ingreso']:=Time;
Q.QbitUsuario.Post;
|
Aqui veo el primer problema no debes hacer append, edit e insert en la misma instruccion, todo depende si haras una insersion solo haces insert y si haras una modificacion haces un esdit
Otra cosa es que estas trabajando con una Query y para modificar directamente datos en una query debes poner el requestlive=true
Código Delphi
[-]
Q.QbitUsuario.Open;
Q.QbitUsuario.RequestLive:=True;
Q.QbitUsuario.Insert;
Q.QbitUsuario['CiUsuario']:=DM.Tusuario['CiUsuario'];
Q.QbitUsuario['NomUsuario']:=DM.Tusuario['NomUsuario'];
Q.QbitUsuario['ApePU']:=DM.Tusuario['ApePU'];
Q.QbitUsuario['NivelU']:=DM.Tusuario['NivelU'];
Q.QbitUsuario['Fec_Ingreso']:=Date;
Q.QbitUsuario['Hr_Ingreso']:=Time;
Q.QbitUsuario.Post;
Igual en este caso
Cita:
procedure TFprincipal.SalirSistemaClick(Sender: TObject);
begin
With Q do
Begin
QbitUsuario.Append;
QbitUsuario.Edit;
QbitUsuario.Insert;
QbitUsuario['Hr_Salida']:=Time;
QbitUsuario.Post;
End;
Application.Terminate; //close;
end;
|
Deberia de ser asi:
Código Delphi
[-]
With Q do
Begin
Q.QbitUsuario.Open;
Q.QbitUsuario.RequestLive:=True;
QbitUsuario.Edit;
QbitUsuario['Hr_Salida']:=Time;
QbitUsuario.Post;
End;
Ojala te sirvan esos consejos, aunque veo que estas usando el objeto query como que fuera un TTable, seria mejor ingresarle el sql.text atravez de un boton para hacer el insert o update de lo que necesitas.
Saludos