Ado <> Bde

[[eduarcol]]

Amigo CARAL si supieras que a mi me fascinan los componentes dataware nos quitan muchos trabajos de encima, lo que te recomiendo es que el usuario tenga que apretar el menor numero de botones, yo lo hago asi

1.- Al entrar lo coloco en modo insert
2.- antes de buscar un cancel, luego de buscar un registro
2.1.- si lo encuentra modo edit
2.2.- si no lo encuentra modo insert
3.- para registrar
- Post
- Insert

4.- para eliminar
- delete
- insert
5.- antes de salir cancel y active := False

como veras es mas trabajo para el programados pero el usuario no tiene tantas opciones de equivocarse

[[Caral]]

Hola
Déjate de cuentos amigo, eres un perfeccionista
Saludos

[[eduarcol]]

jajajaja, nooo vale, 13 años tratando de explicar mis sistemas he ideado cosas para hacer la vida de mis sistemas mas facil

[GustavoCruz]

Hola amigo Elite237, a tu código le hace falta una pequeña instrucción...
Cuando uno trabaja con tabla y desea realizar una modificación a acutalización a un registro, lo primero es ubicar el cursor en el registro y luego a modificar...

con las tablas es sencillo añade atu codigo esto:

Código Delphi [-]
If tutabla.Locate('el campo', 'el valor',[]) then
  Begin
    edit;
    ...
    post;
  end;

si son varios campo así.

Código Delphi [-]
If tutabla.Locate('campo1;campo2;campo2;...', VarArrayOf(['valor1', 'valor2', 'valor3',...]), [loPartialKey])then
  Begin
    edit;
    ...
    post;
  end;

con esto se debe solicionar el inconveniente...

[Elite237]

Hola Gustavo Cruz, ya introduje el codigo que me sugeriste pero me manda un error que dice

Project1.exe raised exception class EOLeException with message 'Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros'.

este es el codigo que introduci:

procedure TForm30.BitBtn2Click(Sender: TObject);
begin
if Tmaru.Locate('nive_sall;salario_sal',VarArrayOf(['Edit1.Text','Edit2.Text2']),[loPartialKey]) then
  begin
   Edit1.Clear;
   Edit2.Clear;
   Tmaru.Post;
end;
end;

una pregunta cuando me dices Tutabla, te refieres a mi ADOTable, no es asi?