动态参数查询

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.