unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids, ComCtrls;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    Database1: TDatabase;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    DateTimePicker1: TDateTimePicker;
    CheckBox2: TCheckBox;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var aSQL,sign:string;
begin
if combobox2.text<>''  then aSQL:='and 貨品類型="'+combobox2.text+'" ';
if combobox3.text<>'' then aSQL:=aSQL+ 'and 進(jìn)貨方式="'+combobox3.text+'" ';
case ComboBox1.ItemIndex of
    0: sign:='=';
    1: sign:='>';
    2: sign:='<';
    end;
if checkbox2.Checked then  aSQL:=aSQL+'and 進(jìn)貨數(shù)量'+sign+'"'+Edit3.Text+'"';
if checkbox1.Checked then  aSQL:=aSQL+ 'and 進(jìn)貨時(shí)間=:d1';
if asql<>''then
       begin
       query1.close;
       query1.SQL.Clear;
       query1.sql.text:='select * from jin.db where 貨品類型<>"" '+asql;
       if checkbox1.Checked  then
        begin
          Query1.ParambyName('d1').asdate:=DateTimePicker1.Date;
        end;
        query1.prepare;
        query1.Open;
        end;
       
end;




procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.ItemIndex:=0;
end;

end.