[Assistant]

смотрите на события After... и Before... ну а если вообще невмоготу, то постучите в аське (в подписи), порассуждаем.

[sweet_lana]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;

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

[Janom]

Попробуй вместо:

Код:

1 2	enCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,60); deCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,60)

Использовать:

Код:

1 2	enCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,17); deCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,17)

Ну вообщем ограничение уменьшить... код шифратора на скорую руку набросал так что может переодически глючить....