unit UVarParamQuery; {单元文件名} interface uses //定义工程中使用的单元文件 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Db, Grids, DBGrids, DBTables, ExtCtrls, DBCtrls; type TForm1 = class(TForm) Query1: TQuery; //查询组件,从Guyuan表中查出公司人员信息 DataSource2: TDataSource; DBGrid2: TDBGrid; //显示查询信息的数据网格 DBNavigator1: TDBNavigator; //用于浏览数据的导航组件 BitBtn1: TBitBtn; //用来确定查询变量的位图按钮 BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; Edit1: TEdit; //在编辑框中可输入各种名称,而且可带通配符,如% Button1: TButton; //确定编辑框的内容作为查询参数值的按钮 BitBtn5: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; Label1: TLabel; //如下7行是各按钮的事件处理过程 procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Query1.Close; Query1.Params.paramValues['Bumen']:=edit1.text; //利用ParamByName,将编缉框edit1的内容赋给查询变量Bumen, //它根据用户输入的内容作为查询条件,从而真正实现动态查询 Query1.Open; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin Query1.Close; Query1.ParamByName('Bumen').Asstring:='网管中心%'; {利用ParamByName,将'网管中心%' 赋给查询变量Bumen} Query1.Open; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin Query1.Close; Query1.ParamByName('Bumen').Asstring:='办公室%'; {利用ParamByName,将' 办公室%' 赋给查询变量Bumen} Query1.Open; end; procedure TForm1.BitBtn4Click(Sender: TObject); begin Query1.Close; Query1.ParamByName('Bumen').Asstring:='信息分析室%'; {利用ParamByName,将'信息分析室%' 赋给查询变量Bumen} Query1.Open; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin Query1.Close; Query1.ParamByName('Bumen').Asstring:='信息中心%'; {利用ParamByName,将'信息中心%' 赋给查询变量Bumen} Query1.Open; end; procedure TForm1.BitBtn5Click(Sender: TObject); begin Query1.Close; Query1.Params.paramValues['Bumen']:='%'; //利用ParamByName,将'%' 赋给查询变量Bumen,此处的'%'类似于DOS的通匹符, //其作用是不管部门是否有值,都将视为满足条件 Query1.Open; end; procedure TForm1.BitBtn6Click(Sender: TObject); begin Query1.Close; Query1.ParamByName('Bumen').Asstring:='发展计划处%'; {利用ParamByName,将'发展计划处%' 赋给查询变量Bumen} Query1.Open; end; procedure TForm1.BitBtn7Click(Sender: TObject); begin Query1.Close; Query1.ParamByName('Bumen').Asstring:='市场部%'; {利用ParamByName,将'市场部%' 赋给查询变量Bumen} Query1.Open; end; end.
动态参数查询
最新推荐文章于 2009-02-24 11:51:00 发布