如何搜索加密后的数据库中某个字段的关键字,然后在dbgrid中显示，谢谢！ (200分)

  • 主题发起人 yong2000
  • 开始时间
Y

yong2000

Unregistered / Unconfirmed
GUEST, unregistred user!
如何搜索加密后的数据库中某个字段的关键字,然后在dbgrid中显示
 
procedure TForm1.wdb1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if (field.fieldname='加密字段名称') then
begin
解密过程；
xx:=解密后的内容
wdb1.Canvas.FillRect(rect);
wdb1.Canvas.TextOut(Rect.Left,Rect.Top,xx);

end;
end;
 
张剑波,谢谢你的回答，可我要在dbgrid里显示，dbgrid里是自动显示加密后的数据的，怎么在程序里调用
dbgrid显示加密前的数据，谢谢！
 
其实张已经回答的很清楚了，不过你肯定要一个解密过程的。
 
张剑波,你好，在以下2句
wdb1.Canvas.FillRect(rect);
wdb1.Canvas.TextOut(Rect.Left,Rect.Top,xx);
怎样从数据库中每取一个字段值对应dbgrid的一个字段，我的思路是从数据库中读一行，看是不是查寻的语句
如是则先解密，再放到dbgrid中，再读下一行，再解密，可按你的方法，xx在dbgrid中全部字段都显示xx。我不
知道怎么才能把解密后的全部都写入dbgrid,也望其他高手指点。
 
在那个字段的Ongettext事件中编程。比如
procedure TForm1.Query1StringFieldGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if Sender.AsString 已经加密 then
Text:=解密过程(Sender.AsString);
else
Text:=Sender.AsString;
end;
 
自己做个解密过程
 
看来你得另加一个boolean型的字段，用于控制是否显示加密字段。
当然在dbgrid的值你是随时你可以控制的。
 
谢谢大侠们的回答，但现在问题的关键是：
1.要的是全文搜索也就是某个字段的关键字搜索，把要查寻的字符串先加密然后查找
与在数据库中的某字段是否有该字符串，肯定不对。
2.如果先把某字段先解密，再与查寻的字符串核对，这个思路大概对的。
3.怎么再把得到的查询结果放入dbgrid,因为没用过在dbgrid上画数据，张剑波的代码我试
过了，如果写你代码中的"xx"，那么数据库中每个字段都画入了"xx",能不能写上详细的代码
，能把我得到的数据分别写入相应的dbgrid的字段格中，至于加解密倒不是问题的关键了，谢谢！
 
》》1.要的是全文搜索也就是某个字段的关键字搜索，把要查寻的字符串先加密然后查找
》》与在数据库中的某字段是否有该字符串，肯定不对。
我觉得一定要这样作才行。感觉2 行不通。
3.同意forgot2002
 
我试过了，Ongettext是可以显示解密后的数据,可查询关键字时query是查没有解密前
的，怎么才能查解密后的，把关键字加密再查试过了不行，因为加密时是一个字段加密的。
 
用存储过程啊
 
》》把关键字加密再查试过了不行，因为加密时是一个字段加密的。
加密解密是一个完全相反的过程。这要你自己考虑了。不过可以在数据库中写个
函数来专门处理这个问题。
 
现在的问题就是 比如select * from abc like %要查语句%
*是加了密的数据，我不可能这样写
select 解密函数(*) from abc like %要查语句%
应该怎么办

 
那应该是列名加了密的，有些怪怪的。为什么不加密字段的内容呢？
不过这样的情况你同样可以用你的语句。加两个“+”就是了
'select '+解密函数(*)+' from abc like %要查语句%'


 
对不起，娃娃，我写错了，这样是加密列名了，我加密的是内容，解密也有函数,难道要
把数据库的加密字段一个个先解密再关键字查询吗，而且怎么查，张剑波的代码我试过不
行，能不能给个简单的示例。
 
用存储过程做解密啊

select 解密过程(*) where 解密过程(*) LIEK '%要查语句%'

前面hamsoft不也说过吗？

难道这有什么行不通的？
 
rustle,你好，可是以下sql还是调试不通，都是在JieMi这里的错误，你能帮我写下正确的吗？

strSql := 'Select ''' + JieMi + '''(field1) from tabe1 where (table1.field1 like ''%' + strSearchText + '%'') order by id'
这句错是“JieMi没有足够的参数”

strSql := 'Select ''' + JieMi(field1) + ''' from tabe1 where (table1.field1 like ''%' + strSearchText + '%'') order by id'
这句错是“不可识别的字符串field1”
 
把查询条件的字符加密再查询就行了呀！
显示的话，在ondrawcolumn这里写行不行呢？
 
payer:
试过了，不行，比如
“abcdefg"加密后为"hijklm"
而"abc"加密后为"为"xyz"
肯定找不到或找错
因为经过几种加密算法后本来的字符串完全变样了。
 
您必须登录或注册才可回复。

Similar threads

不
Python从内存中使用编译后的模块 - 不得闲
回复
0
查看
560
不得闲
不
不
Delphi中设置条件断点 - 不得闲
回复
0
查看
691
不得闲
不
X
如何在unidac 中执行一次查询获得多个数据集？ - xalion
回复
0
查看
569
xalion
X
X
如何在unidac 中执行一次查询获得多个数据集？ - xalion
回复
0
查看
1K
xalion
X
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
顶部