怎样实现数据库的某一字段的筛选功能?

dongcan 2000-07-11 08:50:00
我是DELPHI的初学者,我在学习时,遇到了麻烦,数据字段的筛选问题,例如:有一数据库表master,其中有一字段'发布地点',我想对该字段在运行期间实现filter,使应用者能
实现对自己需要的地点的筛选,本人全天在线,先回复者200分献上,要详细,有源程序!
...全文
261 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
TopHead 2000-07-11
  • 打赏
  • 举报
回复
重新写查询语句不就行了?
huliao 2000-07-11
  • 打赏
  • 举报
回复
在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.
fyje 2000-07-11
  • 打赏
  • 举报
回复
假如你的条件在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程序,很简单的,看看帮助就行了

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧