在form中加控件ComboBox,Button,DataSource,Table
DataSource和Table的属性赋值不说了
procedure Form.DataSourceOnChange()
var qryTemp: TQuery;
begin
qryTemp:=TQuery.Create(nil);
qryTemp.DatabaseName:=Table.DatabaseName;
with qryTemp do begin
SQL.Add('select distinct 发布地点 from master where not (发布地点 is null)
SQL.Open;
end;
if qryTemp.Eof and qryTemp.Bof then Exit;
ComboBox.Items.Clear;
where not qryTemp.Eof do begin
ComboBox.Items.Add(qryTem.Fields[0].AsString);
qryTemp.Next;
end;
qryTemp.Free;
end;
procedure Form.ButtonOnClick();
begin
Table.Filter:='发布地点='''+ComboBox.Text+'''';
Table.Filtered:=True;
end;