unit9.pas

用于开发税务票据管理的软件

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.