Cita:
Empezado por edgar_prospero
creo que cante victoria muy pronto nomas me guarda un registro en mi base de datos si pongo 3 registros y voy a la base de datos nomas guardo el ultimo y los otros 2 no aparecen
|
Hola.
Es muy probable que te hayas olvidado de presionar el botón que guarda los datos en caché.
De este modo es mas difícil que eso suceda:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
with Form4.Table4 do
begin
CachedUpdates := True;
SQL.Text := 'SELECT * FROM ENTRADAS';
Open
end;
end;
procedure TForm1.btnAgregarAlGridClick(Sender: TObject);
begin
with Form4.Table4 do
begin
Append;
FieldByname('Nivel').AsString := codigo.Text;
FieldByName('Texto').AsString := nombre.Text;
...
Post
end
end;
...
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
const
UTYPE = MB_ICONQUESTION or MB_APPLMODAL or MB_DEFBUTTON1 or MB_YESNO;
begin
if Form4.Table4.UpdatesPending and
(MessageBox(Handle, '¿ Guarda los cambios ?', '', UTYPE) = IDYES) then
Form4.Table4.ApplyUpdates
end;
...
procedure TForm1.FormDestroy(Sender: TObject);
begin
with Form4.Table4 do
begin
Close;
CachedUpdates:= False
end
end;
Saludos.