怎样实现数据库的某一字段的筛选功能？
我是DELPHI的初学者，我在学习时，遇到了麻烦，数据字段的筛选问题，例如：有一数据库表master,其中有一字段'发布地点',我想对该字段在运行期间实现filter,使应用者能
实现对自己需要的地点的筛选，本人全天在线，先回复者200分献上，要详细，有源程序！
问题点数：200、回复次数：3Top
1 楼TopHead（我是一个兵）回复于 2000-07-11 09:32:00 得分 0
重新写查询语句不就行了？Top
2 楼fyje（云中仙）回复于 2000-07-11 17:09:00 得分 70
假如你的条件在edit1中录入
如果用TQUERY很方便
query1.close;
query1.sql.clear;
query1.sql.add('select * from master where 发布地点=:fbdd');
query1.ParamByName('fbdd').asstring:=edit1.text ;
query1.prepare;
query1.open;
这样就行了.
如果用table的话,要先设定filtered:=true;再写onfilterrecord程序,很简单的,看看帮助就行了Top
3 楼huliao（胡聊）回复于 2000-07-11 17:28:00 得分 130
在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;
that'ok.
Top
