uwlrktj.pas

工廠倉庫管理系統

unit uwlrktj;

interface

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

type
  Tfrmwlrktj = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    dtp1: TRzDateTimePicker;
    dtp2: TRzDateTimePicker;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dtp1Exit(Sender: TObject);
    procedure dtp2Exit(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure csh();
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmwlrktj: Tfrmwlrktj;

implementation
uses uconst,ufunction,udm1,ucx;
{$R *.dfm}
procedure tfrmwlrktj.csh();
begin
strsql:='exec p_wlrktj '+''''+datetostr(dtp1.date)+''''+','+''''+datetostr(dtp2.date)+'''';
adodel(adoquery1,strsql);
strsql:='select temp_wlrktj.wldm as 物料代码,wlmc as 物料名称,wlys as 颜色,wlsh as 色号,dw as 单位,gysdm as 供应商,'+
'sl as 数量,pym as 拼音码 from temp_wlrktj,wldmk where wldmk.wldm=temp_wlrktj.wldm order by pym asc';
adoexect(adoquery1,strsql);
end;
procedure Tfrmwlrktj.RzBitBtn1Click(Sender: TObject);
begin
frmcx:=tfrmcx.Create(self);
frmcx.adocx:=adoquery1;
frmcx.ShowModal;
adoquery1:=frmcx.adocx;
ADOquery1.Requery();
end;

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

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

procedure Tfrmwlrktj.FormCreate(Sender: TObject);
begin
adoquery1.Connection:=dm1.ADOConnection1;
adoquery2.Connection:=dm1.ADOConnection1;
dtp1.Date:=date-30;
dtp2.Date:=date;
csh;
end;

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

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

procedure Tfrmwlrktj.RzBitBtn3Click(Sender: TObject);
begin
frReport1.DoublePass := True;
frReport1.Clear;
frReport1.LoadFromFile(strpath+'/report/wlrktj.frf');
frVariables['rq1']:=datetostr(dtp1.Date);
frVariables['rq2']:=datetostr(dtp2.Date);
frVariables['username']:=username;
frreport1.ShowReport;
end;

procedure Tfrmwlrktj.RzBitBtn2Click(Sender: TObject);
begin
frReport1.DoublePass := True;
frReport1.Clear;
frReport1.LoadFromFile(strpath+'/report/wlrktj.frf');
frVariables['rq1']:=datetostr(dtp1.Date);
frVariables['rq2']:=datetostr(dtp2.Date);
frVariables['username']:=username;
frreport1.DesignReport;
end;

procedure Tfrmwlrktj.DBGrid1TitleClick(Column: TColumn);
begin
dgridpx(adoquery1,DBGrid1,Column);
end;

end.