DBGrid: crypt field side client

[xinyiman]

Hi guys, a question. I have a dbgrid that displays 3 fields

field1, field2, field3

I want to encrypt the field2 (it does not matter the algorithm, now I'm interested in the procedure). How do I display plain data in column2, but save the data in the database in an encrypted way? This only for field 2 is clear.

[balazsszekely]

Double click the query, select Field2 then go to OI and create the OnGetText event, then:

Code: Pascal  [Select][+][-]

1. procedure TfMain.SQLQueryGetText(Sender: TField; var aText: string;
2.   DisplayText: Boolean);
3. begin
4.   aText := Decrypt(Sender.AsString);
5. end;
6.  

Where Decrypt is your custom algorithm.

[taazz]

you go to the field, you write an onGetText event where you decrypt the string and onSetText event where you encrypt it.