unit7.pas

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

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    STB: TDBLookupComboBox;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    frDBDataSet1: TfrDBDataSet;
    frReport1: TfrReport;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure STAClick(Sender: TObject);
    procedure STBClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;
  a:string;
  b:string;

implementation

uses Frm_Print;

{$R *.dfm}

procedure TForm7.CheckBox1Click(Sender: TObject);
begin
//if checkbox1.Checked=true then
//begin
//sta.Enabled:=true;
//end
//else
//begin
//sta.Enabled:=false;
//a:='';
end;
//end;

procedure TForm7.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked=true then
begin
stb.Enabled:=true;
end
else
begin
stb.Enabled:=false;
b:='';
end;
end;

procedure TForm7.STAClick(Sender: TObject);
begin
//a:=' and sta='''+sta.Text+'''';
end;

procedure TForm7.STBClick(Sender: TObject);
begin
b:=' and pl='''+stb.Text+'''';
end;

procedure TForm7.Button1Click(Sender: TObject);
var str : string;
var px:string;
begin
adoquery1.Close;
//form7.Visible:=false;
if checkbox1.Checked=true then
begin
a:='and '+'pm '+'like'+''''+edit1.text+'%'+'''';
end
else
begin
a:='';
end;
with adoquery1 do
   begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    px:=' order by PZH asc';
    str:='select * from KC where '+'ID >=0'+a+b+px;
    adoquery1.sql.add(str);
    adoquery1.Open;
    end;
    frReport1.LoadFromFile('print\106.frf');
    frReport1.OnObjectClick:= nil;
    frReport1.OnMouseOverObject:= nil;
    frReport1.ModifyPrepared:=false;
    frReport1.Preview:=FormPrint.frPreview1;
    if frReport1.PrepareReport then
    frReport1.ShowPreparedReport;
    FormPrint.ShowModal;

end;

end.