[sweet_lana]

Сообщение от Assistant

смотрите на события After... и Before...

сделала вот так, пока пробую с последней строкой:

Код:

procedure TForm5.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
Adoquery1.Last;
ar:=deCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,60);//декодировать
ADOQuery1.Edit;
ADOQuery1.fieldByName('Наименование_товара').AsString:=ar;
ADOQuery1.Post;
end;

procedure TForm5.ADOQuery1AfterClose(DataSet: TDataSet);
begin
Adoquery1.Last;
ar:=enCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,60);//кодировать
ADOQuery1.Edit;
ADOQuery1.fieldByName('Наименование_товара').AsString:=ar;
ADOQuery1.Post;
end;

только вот не всегда корректно декодирует