uwlfpcx.pas

工廠採購管理系統

unit uwlfpcx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGridEh, ComCtrls, RzDTP, RzButton, ExtCtrls,
  DB, ADODB, Buttons, FR_Class;

type
  Tfrmwlfpcx = class(TForm)
    Panel1: TPanel;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    dtp1: TRzDateTimePicker;
    dtp2: TRzDateTimePicker;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    RzToolbarButton1: TRzToolbarButton;
    procedure csh();
    procedure RzBitBtn2Click(Sender: TObject);
    procedure dtp1Exit(Sender: TObject);
    procedure dtp2Exit(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzToolbarButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmwlfpcx: Tfrmwlfpcx;

implementation

{$R *.dfm}
uses uconst,ufunction,udm1,ucx,uwllb,unit3;
procedure tfrmwlfpcx.csh();
begin
if trim(edit1.Text)='' then exit;
if checkbox1.Checked then
   strsql:='select * from view_fpwlcx where 日期>='+''''+datetostr(dtp1.Date)+''''+
  ' and 日期<='+''''+datetostr(dtp2.Date)+''''+' and 物料名称='+''''+trim(wlmc)+''''+
  ' and wlys='+''''+trim(wlys)+''''
else
   strsql:='select * from view_fpwlcx where 日期>='+''''+datetostr(dtp1.Date)+''''+
   ' and 日期<='+''''+datetostr(dtp2.Date)+''''+' and 物料代码='+''''+trim(edit1.Text)+'''';
   
adoexect(adoquery1,strsql);

end;
procedure Tfrmwlfpcx.RzBitBtn2Click(Sender: TObject);
begin
frmcx:=tfrmcx.Create(self);
frmcx.adocx:=adoquery1;
frmcx.ShowModal;
adoquery1:=frmcx.adocx;
ADOquery1.Requery();
dbgrideh1.Refresh;
end;

procedure Tfrmwlfpcx.dtp1Exit(Sender: TObject);
begin
csh;
end;

procedure Tfrmwlfpcx.dtp2Exit(Sender: TObject);
begin
csh;
end;

procedure Tfrmwlfpcx.Edit1Change(Sender: TObject);
begin
csh;
end;

procedure Tfrmwlfpcx.RzBitBtn4Click(Sender: TObject);
begin
close;
end;

procedure Tfrmwlfpcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrmwlfpcx.RzBitBtn3Click(Sender: TObject);
begin
form3.frDBDataSet1.dataset:=adoquery1;
form3.frReport1.DoublePass := True;
form3.frReport1.Clear;
form3.frReport1.LoadFromFile(strpath+'/report/wlfpcx.frf');
frVariables['username']:=username;
frVariables['rq1']:=datetostr(dtp1.date);
frVariables['rq2']:=datetostr(dtp1.date);
form3.frReport1.Preview := Form3.frPreview1;
if form3.frReport1.PrepareReport then
  begin
    form3.frReport1.ShowPreparedReport;
  end;
form3.ShowModal;
end;

procedure Tfrmwlfpcx.RzBitBtn1Click(Sender: TObject);
begin
form3.frDBDataSet1.dataset:=adoquery1;
form3.frReport1.DoublePass := True;
form3.frReport1.Clear;
form3.frReport1.LoadFromFile(strpath+'/report/wlfpcx.frf');
frVariables['username']:=username;
frVariables['rq1']:=datetostr(dtp1.date);
frVariables['rq2']:=datetostr(dtp1.date);
form3.frReport1.DesignReport;
end;

procedure Tfrmwlfpcx.FormCreate(Sender: TObject);
begin
dtp1.date:=Date-30;
dtp2.date:=date;
csh;
end;

procedure Tfrmwlfpcx.RzToolbarButton1Click(Sender: TObject);
begin
wldm:='';
wlmc:='';
wlys:='';
frmwllb.ShowModal;
if wldm='' then exit;
edit1.Text:=trim(wldm);
end;

end.