如何利用 Delphi 实现 SQL多个参数动态赋值 组合模糊查询？

[yhcad]

如何利用 Delphi 实现 SQL多个参数动态赋值 组合模糊查询？

想修改下面的ASP代码为Delphi所用，如何修改？
----------------------ASP代码-----------------------
sql="select * from yhlszs where 1=1 " '模糊查询开始
if sfzh<>"" then sql=sql&" and sfzh like '%"&sfzh&"%'" '身份证号模糊查询
if ksxm<>"" then sql=sql&" and ksxm like '%"&ksxm&"%'" '考生姓名模糊查询
if zsh<>"" then sql=sql&" and zsh like '%"&zsh&"%'" '证书号模糊查询
if zygz<>"" then sql=sql&" and zygz like '%"&zygz&"%'" '职业模糊查询
if jdjb<>"" then sql=sql&" and jdjb like '%"&jdjb&"%'" '鉴定级别模糊查询
if nd<>"" then sql=sql&" and nd like '%"&nd&"%'" '年度模糊查询
if s_bzrq<>"" and e_bzrq<>"" then sql=sql&" and bzrq between '"&s_bzrq&"' and '"&e_bzrq&"'" '颁证日期起止模糊查询
if bmdw<>"" then sql=sql&" and bmdw like '%"&bmdw&"%'" '报名单位模糊查询
end if
sql=sql&" order by id desc"

----------------------如何改为Delphi(Pascal) code-----

[Playmaster]

原理一样的，就是把关键字改一下，把&换成+号。把生成的SQL字串复制到TADOQuery的SQL属性里就行了。然后执行TAdoQuery.open方法。 这里数据集控件用的是TADOQuery， 你可以改成DbExpress系列等等类似的。

[doloopcn]

双击ADOQuery的SQL属性，弹出CodeEditer，然后把下面的粘贴上去： select * from yhlszs where 1=1 " if sfzh<>"" then sql=sql&" and sfzh like '%"&sfzh&"%'" if ksxm<>"" then sql=sql&" and ksxm like '%"&ksxm&"%'" if zsh<>"" then sql=sql&" and zsh like '%"&zsh&"%'" if zygz<>"" then sql=sql&" and zygz like '%"&zygz&"%'" if jdjb<>"" then sql=sql&" and jdjb like '%"&jdjb&"%'" if nd<>"" then sql=sql&" and nd like '%"&nd&"%'" if s_bzrq<>"" and e_bzrq<>"" then sql=sql&" and bzrq between '"&s_bzrq&"' and '"&e_bzrq&"' if bmdw<>"" then sql=sql&" and bmdw like '%"&bmdw&"%'" end if order by id desc

[lyhoo163]

楼上的还ASP代码。