ADODataSet1.Filter:=SField+' like '+''''+'%'+edit1.Text+'%'+'''';
解决方案 »
- 如何在DLL中止主程序的调用事件
- 登录窗口为什么显示不了
- web程序开发的问题
- 如何在打印预览时 让报表显示在最前面,在线等待
- 高分,如何用API实现将“shift”按键“锁住”与“释放”?
- 请指教delphi里的可变记录
- MDI应用的问题,感觉对了立即给分,thx
- Dll高手请进!我在应用中调用一查询的DLL时老是出错 "Access Violation at adress .....in module oleaut32.dll,read adress 00142000"
- Delphi在沿海城市大概是多少一个月?
- 帮我把下边的Fortran语句转换成MATLAB语句,跪求大神,
- 问个问题,是这样的。。。。。。
- 如下代码为何J老是等于-1?
locate(fieldname,findstring,[loPartialKey])//模糊查找
www.woll2woll.com
ADOTable1.TableName:='tabStudents';
ADOTable1.Filtered:=False;
ADOTable1.Filter:='StuName Like '+QuotedStr('李%');
ADOTable1.Filtered:=True;
...............
value:=testedit.text; //value是输入的查询条件
with testQuery do
begin
first;
fval:=fieldbyname(field).AsString;//field为需要查找的字段
startnum:=RecNo;
lastnum:=RecordCount;
end;
for i:=startnum to lastnum do
begin
if CheckBox1.Checked=false then //不区分大小写,将比较字符串转换为大写
begin
value:=LowerCase(value);
fval:=LowerCase(fval);
end;
if (Pos(value, fval) > 0) or (Pos(fval,value) > 0) then
Abort //找到,停止循环
else //没有找到,继续找下一条
begin
testQuery.Next;
fval:=testQuery.Fieldbyname(field).AsString;