Вниз
Скачать: CL | DM;

Кодирование БД   Найти похожие ветки 

 
Алексей ©   (2004-04-03 12:37) [0]

Каким образом можно закодировать БД, чтобы при просмотре через DatabaseDesktop ничего небыло понятно, но в то же время DBGrid отоброжал информацию в расшифрованном виде.


 
Anatoly Podgoretsky ©   (2004-04-03 12:46) [1]

Надо писать наследника от TDataset, посмотри как это сделано в TDbf и добавь функции шифрации.
Родные средства шифрации к сожалению использовать нельзя, БДЕ не поддерживает это, только в самом dBase


 
Алексей ©   (2004-04-03 12:49) [2]

Если можно по подробнее, куда и что добавить. Базу я шифрую при добавлении записи:

Table.Append;
Table1.FieldByName("Field_1").AsString:=Coder(Edit1.Text);
Table.Post;


 
Anatoly Podgoretsky ©   (2004-04-03 12:53) [3]

Можно и так, но это не профессионально, мое предложение состоит в том, что бы эти операции перенести на движок.
Для этого надо сделать свой движок. Некоторые, например названныйЮ, существуют в исходных кодах, что облегчает их можификацию для своих целей.


 
Алексей ©   (2004-04-03 12:57) [4]

Я так пологаю, необходимо создать свой компонент на основе имеющегося DBGrida?


 
Anatoly Podgoretsky ©   (2004-04-03 12:59) [5]

Алексей ©   (03.04.04 12:57) [4]
Неправильно полагаешь, надо на основе TDataset, об этом бвло уже сказано в [1]


 
Алексей ©   (2004-04-03 13:59) [6]

Ну а по проще никак?


 
Anatoly Podgoretsky ©   (2004-04-03 14:08) [7]

Почему нельзя вариант в [2], только используй еще OnGetText, OnSetText


 
Алексей ©   (2004-04-03 15:44) [8]

Наверно будет проще так

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
    dbgrid1.Canvas.Rectangle(rect);
    dbgrid1.Canvas.TextRect(rect,rect.Left, rect.Top,          
                            table1.FieldValues("Field_1"));
end;


 
KSergey ©   (2004-04-04 08:55) [9]

> Алексей ©   (03.04.04 15:44) [8]
> Наверно будет проще так

Проще что??? Я что-то не понял.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c
14-1081765677
PVOzerski
2004-04-12 14:27
2004.05.02
"Комментарий" AKA "Описание комптьютера" в локальной сети?


14-1081362951
VID
2004-04-07 22:35
2004.05.02
В какой момент Windows даёт команду сбросить кеш винта на диски ?


3-1080926502
neVIP
2004-04-02 21:21
2004.05.02
Что такое IB и с чем его едят...


4-1078857378
Tofig Gasanov
2004-03-09 21:36
2004.05.02
Нестандартные окна..


6-1079017111
int64
2004-03-11 17:58
2004.05.02
Cgi приложение




   Наверх