uwljcmx.pas

工廠採購管理系統

unit uwljcmx;

interface

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

type
  Tfrmwljcmx = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    dtp1: TRzDateTimePicker;
    dtp2: TRzDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    RzToolbarButton1: TRzToolbarButton;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    ADOQuery1: TADOQuery;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    Panel1: TPanel;
    Label4: TLabel;
    Timer1: TTimer;
    ADOQuery2: TADOQuery;
    RzBitBtn3: TRzBitBtn;
    procedure RzToolbarButton1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn3Click(Sender: TObject);
  private
    { Private declarations }
    i:integer;
  public
    { Public declarations }
  end;

var
  frmwljcmx: Tfrmwljcmx;

implementation
uses uconst,ufunction,udm1,uwllb;
{$R *.dfm}

procedure Tfrmwljcmx.RzToolbarButton1Click(Sender: TObject);
begin
frmwllb.ShowModal;
edit1.Text:=wldm;
end;

procedure Tfrmwljcmx.RzBitBtn2Click(Sender: TObject);
begin
adoquery1.Close;
adoquery2.Close;
close;
end;

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

procedure Tfrmwljcmx.RzBitBtn1Click(Sender: TObject);
begin
strsql:='select * from wldmk where wldm='+''''+trim(edit1.Text)+'''';
adoexect(adoquery2,strsql);
if adoquery2.Recordset.EOF and adoquery2.Recordset.BOF then
   begin
       showmessage('没有找到此物料编码,请确认是否真的存在该编码?');
       exit;
   end;
Panel1.Visible:=true;
strsql:='exec p_wljcmx '+trim(edit1.Text)+','+''''+datetostr(dtp1.Date)+ ''''+
','+''''+datetostr(dtp2.Date)+'''';
try
     application.ProcessMessages;
      adodel(adoquery1,strsql);
except
      showmessage('分析数据时出错');
      exit;
end;

strsql:='select * from view_wljcmx';
adoexect(adoquery1,strsql);
frReport1.DoublePass := True;
frReport1.Clear;
frReport1.LoadFromFile(strpath+'/report/wljcmx.frf');
frVariables['username']:=username;
frVariables['rq1']:=datetostr(dtp1.Date);
frVariables['rq2']:=datetostr(dtp2.Date);
frreport1.ShowReport;
Panel1.Visible:=false;
adoquery1.Close;
adoquery2.Close;

end;

procedure Tfrmwljcmx.Timer1Timer(Sender: TObject);
begin
if i=6 then
   begin
        i:=0;
        label4.Caption:='正在处理数据，请稍后                   ';
   end;
label4.Caption:=trim(label4.Caption)+'．'+'                    ';
i:=i+1;
end;

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

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

end.