unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB, XPMenu;
    //用于復合查詢；其功能是為了與查詢主窗口配合，一般不獨立使用。
type
  TForm9 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    y1: TComboBox;
    m1: TComboBox;
    d1: TComboBox;
    d2: TComboBox;
    y2: TComboBox;
    m2: TComboBox;
    Panel2: TPanel;
    Label4: TLabel;
    Edit2: TEdit;
    Panel3: TPanel;
    Label5: TLabel;
    Edit3: TEdit;
    Panel4: TPanel;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    init: TButton;
    XPMenu1: TXPMenu;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure initClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation
uses unit8;
{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);
begin
with form8 do begin
db3.Close;
db3.SQL.Clear;
if checkbox1.Checked then    //按時間段來查詢
begin
db3.SQL.Add('select * from 銷售情況 where 銷售時間>=');
db3.sql.add(format('#%s/%s/%s#',[m1.text,d1.text,y1.text]));
db3.sql.add(' and  銷售時間<=');
db3.sql.add(format('#%s/%s/%s#',[m2.text,d2.text,y2.text]));
end
  else
   db3.SQL.add('select * from 銷售情況 where ((銷售時間)>#1/1/1990#)');
if checkbox2.Checked then  //按照某種型號查詢
   db3.sql.Add(' and 型號='''+edit2.Text+'''');
if checkbox3.Checked then //按照串號查詢
   db3.SQL.add('and  串號='''+edit3.Text+'''');
if checkbox4.Checked then  //按供供方姓名查詢
   db3.SQL.Add(' and 買主='''+edit1.text+'''');
db3.Open;
end;
init.Click;
self.Close;

end;

procedure TForm9.CheckBox1Click(Sender: TObject);
begin
panel1.Visible:=checkbox1.Checked;
end;

procedure TForm9.CheckBox2Click(Sender: TObject);
begin
panel2.Visible:=checkbox2.Checked;
end;

procedure TForm9.CheckBox3Click(Sender: TObject);
begin
panel3.Visible:=checkbox3.Checked;
end;

procedure TForm9.CheckBox4Click(Sender: TObject);
begin
panel4.Visible:=checkbox4.Checked;
end;

procedure TForm9.initClick(Sender: TObject);
begin
//沒有別的用，就是來初始化吧。
checkbox1.Checked:=false;
checkbox1.Hide;
panel1.Hide;
checkbox2.Checked:=false;
checkbox2.Hide;
panel2.Hide;
checkbox3.Checked:=false;
checkbox3.Hide;
panel3.Hide;
checkbox4.Checked:=false;
checkbox4.Hide;
panel4.Hide;


end;

end.