unit6.pas

基于ACESS数据库的小型进销存管理软件。

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, DB, DBCtrls, StdCtrls, FR_DSet, FR_DBSet, FR_Class,
  ComCtrls;

type
  TForm6 = class(TForm)
    CheckBox1: TCheckBox;
    inB: TDBLookupComboBox;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    CheckBox2: TCheckBox;
    ind: TDBLookupComboBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    ini: TDBLookupComboBox;
    CheckBox5: TCheckBox;
    inj: TDBLookupComboBox;
    CheckBox6: TCheckBox;
    inK: TDBLookupComboBox;
    Button1: TButton;
    Button2: TButton;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    startime: TDateTimePicker;
    Label1: TLabel;
    endtime: TDateTimePicker;
    Label2: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure inBClick(Sender: TObject);
    procedure indClick(Sender: TObject);
   // procedure incClick(Sender: TObject);
    procedure iniClick(Sender: TObject);
    procedure injClick(Sender: TObject);
    procedure inKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;
  a:string;
  b:string;
  c:string;
  d:string;
  e:string;
  f:string;
  g:string;

implementation

uses JXC, Frm_Print;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);
begin
//form6.Visible:=false;
//form1.visible:=true;
application.CreateForm(tform1,form1);
form1.ShowModal;
end;

procedure TForm6.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
begin
inb.Enabled:=true;
end
else
begin
inb.Enabled:=false;
b:='';
end;
end;

procedure TForm6.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked=true then
begin
ind.Enabled:=true;
end
else
begin
ind.Enabled:=false;
c:='';
end;
end;

procedure TForm6.CheckBox3Click(Sender: TObject);
begin
//if checkbox3.Checked=true then
//begin
//d:='and '+'inc '+'like'+''''+edit1.text+'%'+'''';
//end
//else
//begin
//d:='';
//end;
end;

procedure TForm6.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked=true then
begin
ini.Enabled:=true;
end
else
begin
ini.Enabled:=false;
e:='';
end;
end;

procedure TForm6.CheckBox5Click(Sender: TObject);
begin
if checkbox5.Checked=true then
begin
inj.Enabled:=true;
end
else
begin
inj.Enabled:=false;
f:='';
end;
end;

procedure TForm6.CheckBox6Click(Sender: TObject);
begin
if checkbox6.Checked=true then
begin
inK.Enabled:=true;
end
else
begin
inK.Enabled:=false;
g:='';
end;
end;

procedure TForm6.Button2Click(Sender: TObject);
var
str :string;
time:string;
cd:string;
px:string;
begin
adoquery1.Close;
if checkbox3.Checked=true then
begin
d:='and '+'inc '+'like'+''''+edit1.text+'%'+'''';
end
else
begin
d:='';
end;
a:=b+c+d+e+f+g;
with adoquery1 do
   begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    str:='select * from io where '+'ID >=0'+a;
    time:=' and  ina between '+'#'+datetostr(startime.date)+'#'+' and '+'#'+datetostr(endtime.date)+'#';
    px:='  order by ina asc';
    cd:=str+time+a+px;
    adoquery1.sql.add(cd);
    adoquery1.Open;
    end;
    frReport1.LoadFromFile('print\105.frf');
    frReport1.OnObjectClick:= nil;
    frReport1.OnMouseOverObject:= nil;
    frReport1.ModifyPrepared:=false;
     frReport1.Preview:=FormPrint.frPreview1;
     if frReport1.PrepareReport then
     frReport1.ShowPreparedReport;
     FormPrint.ShowModal;
end;

procedure TForm6.inBClick(Sender: TObject);
begin
b:=' and inb='''+inb.Text+'''';
end;

procedure TForm6.indClick(Sender: TObject);
begin
c:=' and ind='''+ind.Text+'''';
end;

//procedure TForm6.incClick(Sender: TObject);
//begin
//d:=' and inc='''+inc.Text+'''';
//end;

procedure TForm6.iniClick(Sender: TObject);
begin
e:=' and ini='''+ini.Text+'''';
end;

procedure TForm6.injClick(Sender: TObject);
begin
f:=' and inj='''+inj.Text+'''';
end;

procedure TForm6.inKClick(Sender: TObject);
begin
g:=' and inK='''+inK.Text+'''';
end;

end.