unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,unit2, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB, QuickRpt,
  XPMenu;
   (* aaaaaaaaaaaaaaaaaaaaaaaaaaaaa*)

            {用于進貨查詢}

   (* bbbbbbbbbbbbbbbbbbbbbbbbbbbbb*)
type
  TForm5 = class(TForm)
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Panel1: TPanel;
    Panel3: TPanel;
    Panel2: TPanel;
    Panel4: TPanel;
    Label1: TLabel;
    y1: TComboBox;
    m1: TComboBox;
    d1: TComboBox;
    Label2: TLabel;
    d2: TComboBox;
    y2: TComboBox;
    m2: TComboBox;
    Edit1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button3: TButton;
    XPMenu1: TXPMenu;

    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    db1:tadoquery;
    source:tdatasource;
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

uses unit7;    
procedure TForm5.CheckBox1Click(Sender: TObject);
begin
panel1.Visible:=checkbox1.Checked;

end;

procedure TForm5.Button1Click(Sender: TObject);

//SELECT * FROM 進貨詳單 WHERE (進貨時間=#5/5/2004#); 時間查詢的一個示例。
begin
db1:=Tadoquery.Create(nil);
source:=tdatasource.Create(nil);
db1.Connection:=dbs.ADOConnection1;
source.DataSet:=db1;
dbgrid1.DataSource:=source;//一些基本的設置
db1.Close;
db1.SQL.Clear;
if checkbox1.Checked then    //按時間段來查詢
begin
db1.SQL.Add('select * from 進貨詳單 where 進貨時間>=');
db1.sql.add(format('#%s/%s/%s#',[m1.text,d1.text,y1.text]));
db1.sql.add(' and  進貨時間<=');
db1.sql.add(format('#%s/%s/%s#',[m2.text,d2.text,y2.text]));
end
  else
   db1.SQL.add('select * from 進貨詳單 where ((進貨時間)>#1/1/1990#)');
if checkbox2.Checked then  //按供供方姓名查詢
   db1.SQL.Add(' and 供貸方='''+edit1.text+'''');
if checkbox3.Checked then  //按照某種型號查詢
   db1.sql.Add(' and 型號='''+edit2.Text+'''');
if checkbox4.Checked then //按照串號查詢
   db1.SQL.add('and  串號='''+edit3.Text+'''');
db1.Open;



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

end;

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

end;

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

procedure TForm5.Button2Click(Sender: TObject);
begin
button1.Click;
form7.rep1.DataSet:=db1;
form7.QRDBText1.DataSet:=db1;
form7.QRDBText2.DataSet:=db1;
form7.QRDBText3.DataSet:=db1;
form7.QRDBText4.DataSet:=db1;
form7.QRDBText5.DataSet:=db1;

form7.rep1.Preview;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
button1.Click;
form7.rep1.Print;
end;

end.