unit5.pas

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

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    frDBDataSet1: TfrDBDataSet;
    frReport1: TfrReport;
    outB: TDBLookupComboBox;
    outl: TDBLookupComboBox;
    outK: TDBLookupComboBox;
    outj: TDBLookupComboBox;
    outi: TDBLookupComboBox;
    outd: TDBLookupComboBox;
    outc: TDBLookupComboBox;
    Button2: TButton;
    Label1: TLabel;
    startime: TDateTimePicker;
    Label2: TLabel;
    endtime: TDateTimePicker;
    Edit1: TEdit;
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure outBClick(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure outlClick(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure outKClick(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure outjClick(Sender: TObject);
    procedure outiClick(Sender: TObject);
    procedure outdClick(Sender: TObject);
    procedure outcClick(Sender: TObject);
    //procedure FormClose(Sender: TObject; var Action: TCloseAction);
   // procedure FormHide(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  a:string;
  b:string;
  c:string;
  d:string;
  e:string;
  f:string;
  g:string;
  h:string;


implementation

uses Frm_Print, Unit2;

{$R *.dfm}

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


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

end;

procedure TForm5.outBClick(Sender: TObject);
begin
b:=' and outb='''+outb.Text+'''';
end;

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

procedure TForm5.outlClick(Sender: TObject);
begin
c:=' and outl='''+outl.Text+'''';
end;

procedure TForm5.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked=true then
begin
outk.Enabled:=true;
end
else
begin
outk.Enabled:=false;
d:='';
end;
end;


procedure TForm5.outKClick(Sender: TObject);
begin
 d:=' and outk='''+outk.Text+'''';
end;

procedure TForm5.CheckBox7Click(Sender: TObject);
begin
if checkbox7.Checked=true then
begin
outj.Enabled:=true;
end
else
begin
outj.Enabled:=false;
e:='';
end;
end;

procedure TForm5.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked=true then
begin
outi.Enabled:=true;
end
else
begin
outi.Enabled:=false;
f:='';
end;
end;

procedure TForm5.CheckBox5Click(Sender: TObject);
begin
if checkbox5.Checked=true then
begin
outd.Enabled:=true;
end
else
begin
outd.Enabled:=false;
g:='';
end;
end;

procedure TForm5.CheckBox6Click(Sender: TObject);
begin
//if checkbox6.Checked=true then
//begin
//outc.Enabled:=true;
//end
//else
//begin
//outc.Enabled:=false;
//h:='';
//end;
end;

procedure TForm5.outjClick(Sender: TObject);
begin
e:=' and outj='''+outj.Text+'''';
end;

procedure TForm5.outiClick(Sender: TObject);
begin
f:=' and outi='''+outi.Text+'''';
end;

procedure TForm5.outdClick(Sender: TObject);
begin
g:=' and outd='''+outd.Text+'''';
end;

procedure TForm5.outcClick(Sender: TObject);
begin
h:=' and outc='''+outc.Text+'''';
end;



procedure TForm5.Button2Click(Sender: TObject);
begin
//form5.Visible:=false;
//form2.visible:=true;
form5.Close;
application.CreateForm(tform2,form2);
form2.ShowModal;
end;

end.