快 Grid+ADO+Access的问题 解决立刻结账！！！！

Question

Grid+ADO+Access的问题数据库中一部分重要字段 是经过加密处理的。
现有 function Decry(Str, Key: String): String; 解密函数
怎样做可以使加密的字段解密后 在Grid显示出来。请高手帮忙！！　解决问题立刻结账！！

Answer 1

双击ADOtable -右键-add all...然后选择加密字段-F11-事件选择onGetText
里面写Text:=Decry(sender.value,Key);就可以了

Answer 2

我用的是ADOQuery  一样的么？

Answer 3

可以在 代码编辑窗口里 描述这个过程么？ 因为我的ADOConnection  ADOQuery 都是动态的解决马上结账！！

Answer 4

要是能在access中建立解密函数就方便了
先建access中的解密函数Decry
然后
Select * ,Decry(字段,key) From 表

Answer 5

>>ADOConnection  ADOQuery 都是动态的...你用的是delphi，不是pascal

Answer 6

我是这样做的：
try
    if ADOConnection1.Connected then ADOConnection1.Close;
    Connection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataSou+';Persist Security Info=False;Jet OLEDB:Database Password=****';
    ADOConnection1.LoginPrompt:=False;
    ADOConnection1.Connected :=True;
    DataSource1.DataSet:=ADOQuery1;
    if ADOQuery1.Active then ADOQuery1.Close;
    ADOQuery1.Connection:=ADOConnection1;
    ADOQuery1.sql.Clear;
    ADOQuery1.sql.Add('select * from aaa');
    ADOQuery1.active:=True;
....

Answer 7

你可以先用简单点的demo测试一下我说的