filter.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 19 行

procedure TfDelBook.ListBox1Click(Sender: TObject);
var
  S:String;
begin
  dmTsg.adotFenleidaihao.First;
  if dmTsg.adotFenleidaihao.Locate('类别'
        ,ListBox1.Items[ListBox1.ItemIndex],[]) then
    S:='分类号='''+dmTsg.adotFenleidaihao.FieldByName('代号').AsString+''''
  else S:='';

  if ListBox1.Items[ListBox1.ItemIndex]<>'显示所有类别书籍' then begin
    dmTsg.adotShuku.Filtered:=true;
    dmTsg.adotShuku.Filter:=S;
  end else begin
    dmTsg.adotShuku.Filtered:=False;
    dmTsg.adotShuku.Filter:='';
  end;
end;