Este es el código que he recibido como privado y que debe de ser público ya que sino los que están siguiendo el hilo ....
lo perderían...
Código Delphi
[-]
unit Unit1;
procedure TFormservicios.botonbuscarClick(Sender: TObject);
begin
if editorcodigo <> nil then
begin
qrycodigo.Close;
qrycodigo.ParamByName('Codigo').AsInteger := StrToInt(editorcodigo.text);
Dsconcepto.dataset := qrycodigo;
qrycodigo.Open;
qryespecialidad.Close;
qryespecialidad.ParamByName('Codigo').AsInteger := StrToInt(editorcodigo.text);
Dsespecialidad.dataset := qryespecialidad;
qryespecialidad.Open;
codigo_esp.Text := codigo_es.Text;
descripcion_con.Text := descripcion_co.Text;
codigo_con.Text := codigo_co.Text;
descripcion_esp.Text := descripcion_es.Text;
cost.Text := costo.Text;
fech.Text := fecha.Text;
orde.Text := norden.Text;
if qrycodigo.EOF then
ShowMessage('No encontré ningún Registro!');
end
end;
procedure TFormservicios.BmodificarClick(Sender: TObject);
var
begin
MessageDlg('ESTA SEGURO Q DESEA MODIFICAR ESTE REGISTRO???', mtCONFIRMATION, [mbOk], 0);
Tbconcepto.Edit;
Tbconcepto.FieldByName('cod_especialidad').AsString := clave;
Tbconcepto.FieldByName('cod_concepto').AsString := clave2;
Tbconcepto.FieldByName('descripcion_concepto').AsString := clave3;
Tbconcepto.Post;
Tbconcepto.FlushBuffers;
Tbconcepto.Close;
Tbespecialidad.Edit;
Tbespecialidad.FieldByName('cod_especialidad').AsString := Clave;
Tbespecialidad.FieldByName('descripcion_especialidad').AsString := clave4;
Tbespecialidad.FieldByName('orden').AsString := claveo;
tbespecialidad.FieldByName('nota').AsString := claven;
Tbespecialidad.post;
Tbespecialidad.FlushBuffers;
Tbespecialidad.Close;
ShowMessage('EL REGISTRO FUE MODIFICADO CON EXITO!!');
end;
end.
Un Saludo.