Efectivamente Mamaro, los TDBEdits se llenan automáticamente, pero hay un problema que en la tabla se queda como activo el primer registro, es decir la idea es visualizar todos los campos en los distintos TdbEdits, y para visualizarlos es introducir el registro que quiero visualizar en el tDbEdit donde está el campo clave que se llama CODIGO, si dicho registro existe, entonces la tabla la pongo en Modo Edit y poder modificar cualquier campo de ese registro y si no existe pongo la tabla en modo Insert, y así entroducir un nuevo Registro, esto lo hacía a la perfección con el Locate, pero viendo que todos aconsejábais hacelo por SQL que es más potente.
Así al introducir los que me dices:
Código Delphi
[-]
procedure TFormClientes.EditCodigoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
a,resultado:integer;
begin
if key=vk_return then
with Myquery do
begin
a:=strtoint(EditCodigo.Text);
MyQuery.close;
MyQuery.ParamByName('a').Asstring:=editcodigo.Text;
MyQuery.Open;
if Myquery.RecordCount > 0 then
begin
Resultado := Myquery.FIeldByName('Codigo').asInteger;
editnombre.Text:=FieldbyName('nombre').AsString ;
editDireccion.Text:=FieldbyName('Direccion').AsString;
:
:
da.DataModule1.IBTablaClientes.Edit;
end
else
begin
dat.DataModule1.IBTablaClientes.Insert;
end;
close;
end;
end;
Todos los TBEdit's se completan, por el ejemplo le introduzco en EditCodigo el 53 y los demás se completan con con el Registro 53, pero al meterme en el TEditNombre, este cambia su valor y me visualiza el Nombre del primer registro, y así me van cambiando todos los TDbedit según me meto en cada uno al primer registro, con lo cual la Tabla no se posiciona en el Registro 53 sino en el 1.
Y por otro lado cada TDBédit, lo enlazo con la consulta como me dices de Query mediante el DataSource y sí se posiciona en ese Registro 53 automáticamente, pero la tabla no consigo ponerla en insertar ni en editar, para modificar valores o modificarlos como en es el caso siguiente:
Código Delphi
[-]
procedure TFormClientes.EditCodigoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
a,resultado:integer;
begin
if key=vk_return then
with Myquery do
begin
a:=strtoint(EditCodigo.Text);
MyQuery.close;
MyQuery.ParamByName('a').Asstring:=editcodigo.Text;
MyQuery.Open;
if Myquery.RecordCount > 0 then
begin
dat.DataModule1.IBTablaClientes.Edit;
end
else
begin
dat.DataModule1.IBTablaClientes.Insert;
end;
close;
end;
end;
También se completan todos los Tdbedit's, pero no se pone la tabla en edit o en insert, ni usando
Código Delphi
[-]FormClentes.Datasource1.edit
Perdonar por el rollo, pero es algo muy elemental y no consigo resolverlo, es sólo posicionar la tabla en un registro y si existe ediarlo y poder modificarlo y si no existe el código ponerlo en insertar y añadir nuevo registro, sin utilizar locates.
Gracias.