delphi 组合查询问题

来源：百度知道 编辑：UC知道 时间：2024/05/26 00:29:59
我以前没用过DELPHI 具体不知道他的组合查询语法怎么弄。
我的查询恩路是这样，有两个下拉列表框，一个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('sel