中科新闻网有抗癌功效的中草药:delphi 组合查询问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/04 10:50:32
我的查询恩路是这样，有两个下拉列表框，一个edit 组件输入一个开始查询按钮，还有一个继续查询按钮,一个用来显示结果的DBGrid.
求完整的代码。越详细越好!
谢谢各位大侠.
用户可以选择一个下拉列表查询，相当于模糊查询，也可以和另一个 combox(比较符号) ,edit 做比较查询。
要加判断的吧!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids;
type
TForm1 = class(TForm)
butJX: TButton;
ComboBox1: TComboBox;
Edit1: TEdit;
butKS: TButton;
ADOQuery1: TADOQuery;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ComboBox2: TComboBox;
procedure butKSClick(Sender: TObject);
procedure butJXClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
str : string;
procedure pro_execQuery;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.pro_execQuery;
begin
with AdoQuery1 do
begin
close;
sql.clear;
sql.Add('select * from table');
sql.Add(' where 1 = 1 ');
sql.Add(str);
open;
end;
end;
procedure TForm1.butKSClick(Sender: TObject);
begin
//开始查询
str := '';
str :=' and ' + combobox1.Text + combobox2.Text +Edit1.Text;
pro_execQuery;
end;
procedure TForm1.butJXClick(Sender: TObject);
begin
//继续查询
str := str +' and '+ combobox1.Text + combobox2.Text +Edit1.Text;
pro_execQuery;
end;
end.
你的两个combobox是不是一个是查询字段，另一个是比较符号？
我是这样理解的。
看看是否符合你的要求。
说清楚！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！