现在我的人事管理系统里面有一项‘按工号’查询,我现在想实现的是一个模糊查询,就是一个输入框,我输入工号也可以查询,输入姓名也可以查询,输入学历也可以查询,总之员工的基本信息都可以作为输入,是个万能的查询框。(最好有代码 ,我一看就明白了)
解决方案 »
- 一个语法问题,想了好找时间了
- 要调用文本文件并对其编辑用那个控件,怎么实现?
- ADOQuery的locktype属性如果设为ltBatchOptimistic,为什么添加不成记录?
- 请九品御厨进来!!!
- 在线请教:如何设置启动delphi6.0时的默认查找.bpl文件的路径?
- 小小(ihihonline)过来!!
- 有关delphi消息处理机制中消息队列的问题。
- 数据库程序封装后运行时出现invalid file name 的错误提示,怎样解决?
- 有挑战性的问题,请大家思考思考怎么样解决
- 动态添加ActiveX控件,不是通过import进来再动态生成Txxxx
- adoconnection.excute删除数据时如何使用进度条
- 如何实现Draging的时候我按下Shift键,Drag图标会变化,
combobox 的 itemindex 0 工號 1 姓名 2 學曆
if trim(Edit.text) <> '' then
begin
case Combobox.itemindex of
0: sql := 'select * from table where 工號 = '+Quotedstr(Edit.text);
1: sql := 'select * from table where 姓名 = '+Quotedstr(Edit.text);
2: sql := 'select * from table where 姓名 = '+Quotedstr(Edit.text);
end;
end;AdoQuery.close;
adoQuery.sql.text := sql;
adoquery.open;
if trim(Edit.text) <> '' then
begin
case Combobox.itemindex of
0: sql := 'select * from table where 工號 like '+Quotedstr('%'+Edit.text)+'%';
1: sql := 'select * from table where 姓名 like '+Quotedstr('%'+Edit.text)+'%';
2: sql := 'select * from table where 姓名 like '+Quotedstr('%'+Edit.text)+'%';
end;
end;AdoQuery.close;
adoQuery.sql.text := sql;
adoquery.open;
這是模糊查詢