![]() |
|
#16
|
|||
|
|||
![]() смотрите на события After... и Before... ну а если вообще невмоготу, то постучите в аське (в подписи), порассуждаем.
взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя ![]() |
#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; только вот не всегда корректно декодирует ![]() ![]() |
#18
|
|||
|
|||
![]() Попробуй вместо:
Код:
enCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,60); deCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,60) Код:
enCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,17); deCodeCaesarCriptMode(Adoquery1.fieldByName('Наименование_товара').AsString,3,17) |