Modificar Registro

[maxzama]

Hola a todos. Aqui va, un poco de ayuda.

Uso del delphi XE2, y firebir 2.5...

Se utilisa: IBquery...

Campo a modificar: Dias_Trabajados, Monto...

Utilizo un edit donde a sido cargado el dato que se va a modificar. Y tengo un boton de modificar...

Este es el codigo:

if application.MessageBox('DESEA GUARDAR?','guardar un Registro',
MB_ICONQUESTION OR MB_YESNO) = ID_YES then
begin
if Edit3.Text='' then
begin
Showmessage('Debe Incluir el codigo');
end
else
begin
Dmodulo.Asistencia_Madre.SQL.Clear ;
Dmodulo.Asistencia_Madre.SQL.Add('select * from Asistencia_Madre where CEDULA=:A');
Dmodulo.Asistencia_Madre.ParamByName('A').Value:=EDIT3.Text;
Dmodulo.Asistencia_Madre.Open;

if Dmodulo.Asistencia_Madre.FieldByName('CEDULA').AsString<>'' then
begin
Dmodulo.Asistencia_Madre.SQL.Clear ;
Dmodulo.Asistencia_Madre.SQL.Add(' update Asistencia_Madre set Tipo_documento=:Tipo_documento, DIAS_TRABAJADO=IAS_TRABAJADO, Monto=:Monto where CEDULA=:CEDULA ');

Dmodulo.Asistencia_Madre.ParamByName('CEDULA').Value:=Edit3.Text;
Dmodulo.Asistencia_Madre.ParamByName('Tipo_documento').Value:=Dmodulo.Asistencia_Madre.FieldByName(' Tipo_documento').AsString;
Dmodulo.Asistencia_Madre.ParamByName('DIAS_TRABAJADO').Value:=Edit4.Text;
Dmodulo.Asistencia_Madre.ParamByName('Monto').Value:=Edit20.Text;


Dmodulo.Asistencia_Madre.ExecSQL;
Dmodulo.ibt.Commit;
Dmodulo.Asistencia_Madre.SQL.Clear ;
Dmodulo.Asistencia_Madre.SQL.Add('select * from Asistencia_Madre ');
Dmodulo.Asistencia_Madre.Open;
SHOWMESSAGE('A sido Modificado');
end;
end;
end;
_______________________

Espero que le sirva.Dlb...