Delphi多条件检索代码实例,支持自定义的多条件搜索单元代码,虽不是完整程序,但这个单元挺不错,可用到你需要定制高级搜索的地方。uses iunit; //还需要引用ComCtrls单元以供Tlistitem调用
procedure TeForm.S1Click(Sender: TObject);
var myitem: Tlistitem; i: integer; s: string;
begin
Application.CreateForm(Tiform, iform);
//以下是将查询关键字添加到列表中,格式:关键字,数据库中字段名,类型(分字符、数值、日期),最后一个不要加豆号
s := '学员证件号码,fcode,字符,学员准考证号,fexam,字符,缴款日期,fdate,日期,缴款金额,famount,数值';
iform.ListView1.Clear;