'select * from table where 工号 like '+QuotedStr('%'+edit1.text+'%)+' or 姓名 like '+QuotedStr('%'+edit1.text+'%)+' or 学历 '+QuotedStr('%'+edit1.text+'%),如果还有其它字段一直往下like即可
用一個 Combobox 來做,後面跟一個 Edit 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; 這是模糊查詢
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;
這是模糊查詢